2015-2016學(xué)年浙江省臺(tái)州市天臺(tái)縣平橋中學(xué)高二（下）診斷信息技術(shù)試卷（一）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)是符合題目要求的）
-
1．朱老師將信息輸入到二維碼生成器中，生成相應(yīng)的二維碼，如圖所示：
則下列說(shuō)法正確的是（ ?。?/h2>組卷：5引用：1難度：0.9 -
2．字符“1+2=3”的十六進(jìn)制內(nèi)碼如圖所示：
則“32 2B 33 3E 34”這幾個(gè)字符的內(nèi)碼是（ ?。?/h2>組卷：3引用：1難度：0.9 -
3．通過(guò)12306網(wǎng)站購(gòu)買(mǎi)火車(chē)票時(shí)，需要進(jìn)行身份認(rèn)證。這主要是為了（ ?。?/h2>
組卷：11引用：2難度：0.9 -
4．某Access數(shù)據(jù)表打開(kāi)后如圖所示，下列描述中正確的是（ ?。?br />
組卷：5引用：1難度：0.7 -
5．某兩段VB程序分別如圖1和圖2所示：當(dāng)n的值為10時(shí)，關(guān)于該兩段程序，下列說(shuō)法不正確的是（ ?。?br />
組卷：21引用：3難度：0.9
二、非選擇題（本大題共5小題，第13題4分，第14題5分，第15題8分，第16題4分，第17小題5分，共26分）
-
16．運(yùn)行下列VB程序，在文本框Text1中輸入13，界面如第16題-1圖所示：
單擊“轉(zhuǎn)換”按鈕Command1后，界面的部分截圖如第16題-2圖所示，則劃線(xiàn)①處填寫(xiě)的內(nèi)容為，文本框Text2中顯示的內(nèi)容是．
Private Sub Command1_Click （ ?。?br />Const a=“①”
Dim x As Integer'用于存儲(chǔ)輸入的十進(jìn)制自然數(shù)
Dim s As String'用于存儲(chǔ)轉(zhuǎn)換后的結(jié)果
Dim d As Integer
x=Val（Text1．Text）
s=””
Do While x＜＞0'采用除二取余法
d=x Mod 2
s=Str（d）+s
x=x'2
Loop
Label2．Caption=Text1．Text+a
Text2．Text=s
End Sub.組卷：6引用：1難度：0.1 -
17．編寫(xiě)VB應(yīng)用程序，實(shí)現(xiàn)以下功能：在文本框Text1中輸入一串由字母、數(shù)字等字符組成的字符串，點(diǎn)擊“統(tǒng)計(jì)”按鈕Command1，在列表框List1中統(tǒng)計(jì)每個(gè)字母出現(xiàn)的次數(shù)（不分大小寫(xiě)）．程序運(yùn)行界面如圖所示．
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
'函數(shù)IsLetter（x）功能，若x是字母，則返回值為字母x在字母序列“A”～“Z”中的序號(hào)，如字母“A”的序號(hào)為0，字母“D”的序號(hào)為3．若x不是字母，則返回值為-1．
Function IsLetter（x As String） As Integer
If”A”＜=x And x＜=”Z”Then
IsLetter=Asc（x）-Asc（”A”）
ElseIf”a”＜=x And x＜=”z”Then
IsLetter=Asc（x）-Asc（”a”）
Else
①
End If
End Function
Private Sub Command1_Click （ ?。?br />Dim f（25）As Integer,m As Integer,n As Integer
Dim s As String,c As String
List1．Clear
For m=0To 25'初始化數(shù)組f
f（m）=0
Next m
s=Text1．Text
For m=0To 25'輸出統(tǒng)計(jì)結(jié)果，沒(méi)有出現(xiàn)的字母不輸出
If f（m）＜＞0Then
List1．AddItem （Chr（m+Asc（”a”）） &”：”& f（m））
End If
Next m
End Sub
（1）加框處①有錯(cuò)，應(yīng)改為．
（2）加框處②有錯(cuò)，應(yīng)改為．
（3）虛線(xiàn)框處的程序，采用的查找算法是．組卷：7引用：1難度：0.1