2018-2019學(xué)年浙江省杭州市建人高復(fù)學(xué)校高三（上）月考信息技術(shù)試卷（12月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求）
-
1．網(wǎng)購(gòu)支付時(shí)，支付平臺(tái)對(duì)輸入的手機(jī)短信驗(yàn)證碼進(jìn)行驗(yàn)證，這一過(guò)程屬于信息的（ ）
組卷：22引用：1難度：0.5 -
2．使用Word軟件輸入“明辯是非”時(shí)，文字會(huì)立刻變成“明辨是非”，這是因?yàn)閃ord 軟件具有（ ）
組卷：8引用：1難度：0.5 -
3．下列應(yīng)用中，沒(méi)有運(yùn)用人工智能的是（ ）
組卷：8引用：7難度：0.9 -
4．某Access數(shù)據(jù)表，其設(shè)計(jì)視圖如圖1所示，數(shù)據(jù)表視圖如圖2所示。
下列說(shuō)法正確的是（ ）組卷：5引用：1難度：0.5 -
5．求10個(gè)[61，100]之間的隨機(jī)整數(shù)的和，其算法的部分流程圖如圖所示，圖中①②處應(yīng)分別填入（ ）
組卷：1引用：1難度：0.4
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．小明編寫(xiě)了一個(gè)統(tǒng)計(jì)字符串中數(shù)字字符串之和的VB程序（如字符串“ab12.3cd34ef9”，中數(shù)字字符串之和為58：12+3+34+9），運(yùn)行界面如圖所示。在文本框Text1中輸入字符串s,單擊“統(tǒng)計(jì)”按鈕Command1，在Label3中輸出統(tǒng)計(jì)結(jié)果。
實(shí)現(xiàn)上述功能的VB程序代碼如下，但橫線(xiàn)處代碼有錯(cuò)，請(qǐng)改正。
Private Sub Command1_Click （ ）
Dim s As String,ch As String
Dim ch2As String,sum As Double
Dim n As Integer,i As Integer
s=Text1．Text
n=Len（s）
i=1：sum=0
Do While
①
ch=Mid（s,i,1）
If ch＞=“0“And ch＜=“9“Then
j=i
ch2=Mid（s,j,1）
Do While ch2＞=“0“And ch2＜=“9“
j=j+1
ch2=Mid（s,j,1）
Loop
sum=sum+Val（
）'②
i=j
End If
i=i+1
Loop
Label3．Caption=Str（sum）
End Sub組卷：2引用：1難度：0.6 -
17．異或的數(shù)學(xué)符號(hào)為“⊕”，其運(yùn)算法則相當(dāng)于不帶進(jìn)位的二進(jìn)制加法：0⊕0=0，1⊕0=1，0⊕1=1，1⊕1=0（即符號(hào)兩側(cè)數(shù)值相同時(shí)，計(jì)算結(jié)果為0；數(shù)值不同時(shí)為1）。
如果要對(duì)兩個(gè)十進(jìn)制數(shù)進(jìn)行異或運(yùn)算，可以按以下步驟進(jìn)行：
①先將要進(jìn)行異或運(yùn)算的兩個(gè)十進(jìn)制數(shù)分別轉(zhuǎn)換為二進(jìn)制；
②對(duì)兩個(gè)二進(jìn)制數(shù)按位進(jìn)行異或運(yùn)算；例：（101101）2⊕（111）2=（101010）2
③再把步驟②中的運(yùn)算結(jié)果轉(zhuǎn)換為十進(jìn)制，該十進(jìn)制數(shù)即為運(yùn)算結(jié)果。
小明編寫(xiě)了一個(gè)VB程序來(lái)模擬上述運(yùn)算過(guò)程，程序功能如下：在文本框Text1和Text2中分別輸入要參加異或運(yùn)算的十進(jìn)制數(shù)，單擊計(jì)算按鈕Command1，程序?qū)斎氲膬蓚€(gè)數(shù)進(jìn)行異或運(yùn)算，并將運(yùn)算結(jié)果顯示在文本框Text3中，程序運(yùn)行界面如圖所示。
（1）通過(guò)以上關(guān)于異或運(yùn)算的描述，可知10⊕6的結(jié)果是。
（2）實(shí)現(xiàn)上述功能的VB程序如下。請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。
Private Sub Command1_Click （ ）
Dim a As Integer,b As Integer,c As Integer
Dim a1As String,b1As String
Dim lena1As Integer,lenb1As Integer,i As Integer
Dim result As String
a=Val（Text1．Text）
b=Val（Text2．Text）
If a＞b Then
c=a：a=b：b=c
End If
result=““
a1=DtoB（a）：b1=DtoB（b）
lena1=Len（a1）：lenb1=Len（b1）
i=1
Do While i＜=lena1
If Mid（a1，lena1-i+1，1）=Mid（b1，lenb1-i+1，1）Then
result=“0“+result
Else
result=“1“+result
End If
i=i+1
Loop
result=①
Text3．Text=BtoD（result）
End Sub
Public Function DtoB（x As Integer） As String
Dim remainder As String
DtoB=““
Do While x＞0
remainder=CStr（x Mod 2）'如：CStr（3Mod 2）的值為“1“
DtoB=remainder+DtoB
②
Loop
End Function
Public Function BtoD（x As String） As Integer
Dim i As Integer
BtoD=0
For i=1To Len（x）
BtoD=③+Val（Mid（x,i,1））
Next i
End Function組卷：1引用：1難度：0.5