2016-2017學(xué)年浙江省溫州市平陽二中高三(上)期中信息技術(shù)試卷
發(fā)布:2024/10/29 11:30:5
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.自浙江蕭山跨湖橋文化遺址發(fā)掘以來,一些奇形怪狀的木器、石器引來了諸多地質(zhì)以及考古專家的目光,浙江大學(xué)地球科學(xué)系的退休教授柳志青根據(jù)發(fā)掘的文物考證,認(rèn)為8000年前的湘湖人已經(jīng)會(huì)使用先進(jìn)的弓鉆取火了.這主要體現(xiàn)了信息的( )
組卷:5引用:1難度:0.9 -
2.使用UltraEdit軟件觀察字符編碼,相關(guān)描述不正確的是( )
組卷:8引用:4難度:0.9 -
3.使用Word編輯某文檔,部分界面如圖所示:
以下描述正確的是( )組卷:2引用:1難度:0.9 -
4.某Access數(shù)據(jù)庫打開后如圖所示,下列描述正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201707/149/5ddb094a.png" style="vertical-align:middle" />
組卷:6引用:1難度:0.9 -
5.如圖是申請電子郵件的界面,填表信息一定存在問題的地方是( ?。?br />
①賬號(hào)名 ②密碼提示問題 ?、勖艽a ?、苊艽a問題答案 ⑤驗(yàn)證碼.組卷:5引用:1難度:0.7
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題4分,第15小題8分,第16小題5分,第17小題5分,共26分)
-
16.數(shù)制轉(zhuǎn)換.將一個(gè)K進(jìn)制(k<=10)數(shù)x轉(zhuǎn)換成十進(jìn)制數(shù)可采用如下方法:主要方法是從右向左,依次取數(shù)x的各位數(shù)字,分別計(jì)算出該數(shù)從右邊數(shù)起的第i位數(shù)字與k(i-1)的積,再將其累加,直到所有的數(shù)字取完為止.例如,將五進(jìn)制數(shù)1231轉(zhuǎn)換成十進(jìn)制數(shù)的方法如下:
(1231)5=1×50+3×51+2×52+1×53=(191)10
下列Visual Basic程序的功能是將K進(jìn)制(k<=10)數(shù)x轉(zhuǎn)換成十進(jìn)制數(shù).界面如圖所示,在文本框Text1中輸入數(shù)制k,在文本框Text2中輸入數(shù)x,單擊“轉(zhuǎn)換“按鈕(Command1)后,在標(biāo)簽Label4中輸出轉(zhuǎn)換的結(jié)果.
解決此問題的算法流程圖如圖所示,相應(yīng)的Visual Basic程序如下:
Private Sub Command1_Click
Dim b As Long,i As Integer,k As Integer,x As Long,t As Integer
b=0:i=1
k=Val(Text1.Text)
x=Val(Text2.Text)
t=x Mod 10
Do While①
b=②
x=x\10
t=x Mod 10
i=i+1
Loop
Label4.Caption=Str(k)+“進(jìn)制數(shù)“+Text2.Text+“轉(zhuǎn)換成十制數(shù)為“+Str(b)
End Sub
(1)解決此問題所用的算法是
(2)程序中①橫線處應(yīng)填入
(3)程序中②橫線處應(yīng)填入組卷:2引用:1難度:0.1 -
17.VB應(yīng)用程序“跳遠(yuǎn)成績排序”功能如下:
按指定格式錄入數(shù)據(jù),例:0373,張樂曉,3.90.編號(hào)寬度固定為4位,姓名寬度固定為3個(gè)漢字,不足部分以全角空格補(bǔ)齊,第9個(gè)字符開始為跳遠(yuǎn)成績.
在文本框Text1中按回車表示錄入一項(xiàng)數(shù)據(jù)結(jié)束,錄入的數(shù)據(jù)經(jīng)處理后編號(hào)、姓名、成績分別存放在數(shù)組編號(hào)bh、xm、cj中并將原始數(shù)據(jù)顯示在List1中.
點(diǎn)擊命令按鈕Command1后進(jìn)行排序并將排序后的結(jié)果顯示在List2中.程序運(yùn)行界面如圖所示.
(1)請?jiān)跈M線處填入適當(dāng)?shù)拇a
Dim bh(1To 8)As String
Dim xm(1To 8)As String
Dim cj(1To 8)As Single
Dim num As Integer
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,k As Integer,t1As String,t2As Single
For i=1To 7
k=i
For j=k+1To 8
If ①
Next j
If k<>i Then
t1=bh(k):bh(k)=bh(i):bh(i)=t1
t1=xm(k):xm(k)=xm(i):xm(i)=t1
t2=cj(k):cj(k)=cj(i):cj(i)=t2
End If
Next i
For i=1To 8
List2.AddItem bh(i) &xm(i) &Str(cj(i))
Next i
End Sub
Private Sub Form_Load ( )
num=0
End Sub
Private Sub Text1_Keypress(KeyAsciiAs Integer)
Dim x As String'輸入數(shù)據(jù)
IfKeyAscii=13Then
num=num+1
x=Text1.Text
bh(num)=Mid(x,1,4)
xm(num)=Mid(x,6,3)
cj(num)=②
List1.AddItem x
If num=8Thennum=0
End If
End Sub
請完成以下題目:
(1)程序中①橫線處應(yīng)填入
(2)在事件處理過程Command1_Click ( )中采用的算法是組卷:7引用:1難度:0.1