2018-2019學年浙江省杭州市建人高復學校高三（上）月考信息技術試卷（12月份）
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．網購支付時，支付平臺對輸入的手機短信驗證碼進行驗證，這一過程屬于信息的（ ）
組卷：22引用：1難度：0.5 -
2．使用Word軟件輸入“明辯是非”時，文字會立刻變成“明辨是非”，這是因為Word 軟件具有（ ）
組卷：8引用：1難度：0.5 -
3．下列應用中，沒有運用人工智能的是（ ）
組卷：8引用：7難度：0.9 -
4．某Access數據表，其設計視圖如圖1所示，數據表視圖如圖2所示。
下列說法正確的是（ ）組卷：5引用：1難度：0.5 -
5．求10個[61，100]之間的隨機整數的和，其算法的部分流程圖如圖所示，圖中①②處應分別填入（ ）
組卷：1引用：1難度：0.4
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．小明編寫了一個統計字符串中數字字符串之和的VB程序（如字符串“ab12.3cd34ef9”，中數字字符串之和為58：12+3+34+9），運行界面如圖所示。在文本框Text1中輸入字符串s,單擊“統計”按鈕Command1，在Label3中輸出統計結果。
實現上述功能的VB程序代碼如下，但橫線處代碼有錯，請改正。
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．異或的數學符號為“⊕”，其運算法則相當于不帶進位的二進制加法：0⊕0=0，1⊕0=1，0⊕1=1，1⊕1=0（即符號兩側數值相同時，計算結果為0；數值不同時為1）。
如果要對兩個十進制數進行異或運算，可以按以下步驟進行：
①先將要進行異或運算的兩個十進制數分別轉換為二進制；
②對兩個二進制數按位進行異或運算；例：（101101）2⊕（111）2=（101010）2
③再把步驟②中的運算結果轉換為十進制，該十進制數即為運算結果。
小明編寫了一個VB程序來模擬上述運算過程，程序功能如下：在文本框Text1和Text2中分別輸入要參加異或運算的十進制數，單擊計算按鈕Command1，程序對輸入的兩個數進行異或運算，并將運算結果顯示在文本框Text3中，程序運行界面如圖所示。
（1）通過以上關于異或運算的描述，可知10⊕6的結果是。
（2）實現上述功能的VB程序如下。請在橫線處填入合適的代碼。
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