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
