1.选择题- (共12题)
1.
某二进制数11□101□0，其中两位数模糊不清，下列说法正确的是（ ）
| A．将该数转成十进制，最大值是246 |
| B．将该数转成十六进制，可能得到三位数 |
| C．将该数转成十进制，无法确定是奇数还是偶数 |
| D．在该数后添加一个0，再转成十六进制，得到的新数是原数的16倍 |
2.
下列有关信息的说法，正确的是( )
| A．信息也像物质和能量一样会产生损耗 |
| B．通过无线网络传输的信息不依附于任何载体 |
| C．教科书是信息的载体，书本中的文字是信息 |
| D．人类无时无刻也离不开信息，信息无处不在 |
3.
有如下VB程序段：
Dim n As Integer , I As Integer
Dim s As String , ch As String
s=text1.Text
n=Len(s) '(1)
For I = 1 To n '(2)
ch=Mid(s,i,1)
If Asc(ch) >= 65 and Asc(ch) <= 97 Then
ch=Chr(Asc(ch)+32)
End If
Label1.Caption=Label1.Caption+ch
Next i
已知字母“A”的ASCII码65，字母“a”ASCII码97。若在Text1中输入“Happy2018”，则Label1中应显示（）
Dim n As Integer , I As Integer
Dim s As String , ch As String
s=text1.Text
n=Len(s) '(1)
For I = 1 To n '(2)
ch=Mid(s,i,1)
If Asc(ch) >= 65 and Asc(ch) <= 97 Then
ch=Chr(Asc(ch)+32)
End If
Label1.Caption=Label1.Caption+ch
Next i
已知字母“A”的ASCII码65，字母“a”ASCII码97。若在Text1中输入“Happy2018”，则Label1中应显示（）
| A．H2018 | B．APPY2018 | C．HAPPY2018 | D．Happy2018 |
4.
使用 UltraEdit 软件观察字符“2018，Lucky！”的内码，部分界面如图所示。
下列说法不正确的是（ ）
下列说法不正确的是（ ）
| A．图中内码表示的 ASCII 码字符共有9 个 |
| B．小写字母“z”的内码用二进制表示是“0111 1010” |
| C．字符“10”的内码十六进制内码是“3A” |
| D．字符“！”的十六进制内码是“A3 A1” |
5.
某算法表示如下：
①将 0 赋值给变量 Num，将 1 赋值给变量 i
②若 i 除以 2 余 0，则将变量 Num 的值增加 1 并输出 i
③变量 i 的值增加 1，若变量 i 小于等于 10，则转②
④结束
关于该算法的说法不正确的是
①将 0 赋值给变量 Num，将 1 赋值给变量 i
②若 i 除以 2 余 0，则将变量 Num 的值增加 1 并输出 i
③变量 i 的值增加 1，若变量 i 小于等于 10，则转②
④结束
关于该算法的说法不正确的是
| A．该算法是用自然语言来描述的 |
| B．该算法结束后i=11 |
| C．该算法最后输出 5 个数值 |
| D．该算法只能用 Do While 语句实现 |
6.
某两段VB程序分别如图1和图2所示：
当n的值为10时，关于该两段程序，下列说法不正确的是()
当n的值为10时，关于该两段程序，下列说法不正确的是()
| A．两段程序中i的初值相同 |
| B．两段程序都采用了循环结构 |
| C．图1程序实现了算式“1+4+7+10”的运算 |
| D．图2程序中i=i+2执行了5次 |
9.
有如下VB程序段：
Dim x As Integer, y As Integer, s As Integer
x=3:y=4
If x<y And y<0 Then
s=x Mod y
ElseIf y>0 and y<x Then
s=x*y
ElseIf x=0 Or y=0 Then
s=x+y
Else
s=0
End If
该程序段运行之后，变量s的值为（ ）
Dim x As Integer, y As Integer, s As Integer
x=3:y=4
If x<y And y<0 Then
s=x Mod y
ElseIf y>0 and y<x Then
s=x*y
ElseIf x=0 Or y=0 Then
s=x+y
Else
s=0
End If
该程序段运行之后，变量s的值为（ ）
| A．0 | B．3 | C．7 | D．12 |
11.
将一个时长为1分钟、分辨率为800*600的NTSC制式的黑白动画压缩为MPEG格式文件，压缩后的文件大小为10MB，则其压缩比约为（ ）
| A．5：1 | B．9：1 | C．10 : 1 | D．20 : 1 |
12.
建立一个VB程序窗体，如图所示，下列说法正确的是
| A．该窗体的名称是“第一个VB小程序” |
| B．当前选中对象的类名是“Lab4” |
| C．当前界面共有7个对象 |
| D．“VB01.vbp”是窗体文件名 |
2.填空题- (共4题)
13.
台州市政公共停车的收费标准如下：
30分钟以内不收费，1小时及以内收费5元，超过一小时后超过部分2元\小时收费（不足1小时的按1小时计算）。小明据此设计了以下VB程序，程序运行界面如图。
（1）若将窗体标题改为“台州停车收费”，应修改窗体属性栏中的___________属性。
（2）运行程序，在文本框Text1中输入当天停车时间（分钟），单击“收费”按钮Command1，在文本框Text2显示所对应的费用（元），实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim t As Integer , cost As Integer , h As Integer ‘h是小时时长
t=Val(Text1.Text)
If t <= 30 Then
cost=0
Else
h=(t-1)\60+1
If ①____ Then
cost=5
Else
cost=②____
EndIf
EndIf
Text2.Text=③____
EndSub
30分钟以内不收费，1小时及以内收费5元，超过一小时后超过部分2元\小时收费（不足1小时的按1小时计算）。小明据此设计了以下VB程序，程序运行界面如图。
（1）若将窗体标题改为“台州停车收费”，应修改窗体属性栏中的___________属性。
（2）运行程序，在文本框Text1中输入当天停车时间（分钟），单击“收费”按钮Command1，在文本框Text2显示所对应的费用（元），实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim t As Integer , cost As Integer , h As Integer ‘h是小时时长
t=Val(Text1.Text)
If t <= 30 Then
cost=0
Else
h=(t-1)\60+1
If ①____ Then
cost=5
Else
cost=②____
EndIf
EndIf
Text2.Text=③____
EndSub
14.
现要编写一个统计2018~2100年间闰年次数的程序。已知出现闰年条件是：年份数能被4整除但不能被100整除，或者能被400整除。如图所示，要求程序运行后单击按钮，在列表框中显示闰年年份，并将统计次数显示在Label1。
（1）代码“PrivateSubCmd1_Click()”中的Cmd1_Click()是_________。
（单选，填字母：
（2）下面的VB程序可用来实现上述功能，请在划线处填写合适的代码。
Private Sub Cmd1_Click（）
Dim c As Integer , year As Integer
c=0
①______
If ②_______ Then
c=c+1
EndIf
Next year
Label1.Caption="闰年共有"+Str(c)+"次"
EndSub
（3）上述代码段中缺少了List1.AddItemStr(year)，此句代码应该加在________（填字母）位置。
（1）代码“PrivateSubCmd1_Click()”中的Cmd1_Click()是_________。
（单选，填字母：
| A．对象名 | B．事件 | C．事件处理过程 | D．方法） |
Private Sub Cmd1_Click（）
Dim c As Integer , year As Integer
c=0
①______If ②_______ Thenc=c+1
EndIfNext yearLabel1.Caption="闰年共有"+Str(c)+"次"
EndSub
（3）上述代码段中缺少了List1.AddItemStr(year)，此句代码应该加在________（填字母）位置。
15.
素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图1所示。
图1 图2
（1）在设计程序界面时，应使用图2所示“控件工具箱”中的__________(填写相应编号)添加文本框Text1。
（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数
Randomize
n = Int( ①____)*2+1 ‘随机生成三位正奇数
Text1.Text = Str(n)
flag = True ‘标记为素数
i = 3
Do While i <= n - 1 And flag = True
If n Mod i = 0 ②___
i = i + 2
Loop
If flag=true Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
（3）以下选项中，与加框处表达式“n Mod i = 0”等价的是___________(单选，填字母）。
图1 图2
（1）在设计程序界面时，应使用图2所示“控件工具箱”中的__________(填写相应编号)添加文本框Text1。
（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数
Randomize
n = Int( ①____)*2+1 ‘随机生成三位正奇数
Text1.Text = Str(n)
flag = True ‘标记为素数
i = 3
Do While i <= n - 1 And flag = True
If n Mod i = 0 ②___
i = i + 2
Loop
If flag=true Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
（3）以下选项中，与加框处表达式“n Mod i = 0”等价的是___________(单选，填字母）。
| A．n \ i = Int(n / i) | B．n \ i = n/ i | C．n Mod i = n \ i |
16.
我国居民身份证号是由 18 位字符组成，其中前 17 位是数字，第 18 位是校验位（校验
位字符在“0”~“9”或“X”中选取）。由前 17 位数字经过一定的规则计算得到校验值， 在查验居民身份证号有效性时，如果校验位中的字符与计算所得校验值相等则身份证号有效， 否则无效。
校验值计算规则如下：
第一步：将身份证号前 17 位数字分别乘以不同的系数后相加，对应系数如下表所示。
第二步：将第一步的计算结果除以 11，得到余数。 第三步：根据第二步的计算结果从下表获取对应的校验值。
例如：某身份证号为 34052419800101001X。要计算此身份证的校验值步骤如下： 第一步：计算 3*7+4*9+0*10+5*5+……+1*2=189
第二步：189 除以 11 得到余数为 2
第三步：由余数 2 获取校验值 X。
根据以上规则小王编写了一个验证身份证号是否有效的 VB 程序，功能如下：在文本框 Text1 中输入身份证号，单击“验证”按钮 Command1 后，在列表框 List1 中显示验证结果。 程序运行界面如图1 所示。
（1）设计程序界面时，应使用图 2 中的____（填写相应编号）添加列表框对象 List1。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, sum As Integer, pos As Integer
Dim idCode As String, result As String
Const xs = "0709100508040201060307091005080402" '存储前 17 位每位系数
Const checkCodeStr = "10X98765432" '存储余数对应的检验值
①________
sum = 0
For i = 1 To 17 Step 1
a = Val(Mid(idCode, i, 1))
b = ②________
sum = sum + a * b
Next i
pos =
checkCode = Mid(checkCodeStr, pos, 1)
If checkCode = Mid(idCode, 18, 1) Then
result = "有效"
Else
result = "无效"
End if
List1.AddItem (idCode & " " & result)
End Sub
（3）程序中加框处代码有误，应修改为________。
位字符在“0”~“9”或“X”中选取）。由前 17 位数字经过一定的规则计算得到校验值， 在查验居民身份证号有效性时，如果校验位中的字符与计算所得校验值相等则身份证号有效， 否则无效。
校验值计算规则如下：
第一步：将身份证号前 17 位数字分别乘以不同的系数后相加，对应系数如下表所示。
| 位数 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 系数 | 7 | 9 | 10 | 5 | 8 | 4 | 2 | 1 | 6 | 3 | 7 | 9 | 10 | 5 | 8 | 4 | 2 |
第二步：将第一步的计算结果除以 11，得到余数。 第三步：根据第二步的计算结果从下表获取对应的校验值。
| 余数 | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 校验值 | 1 | 0 | X | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 |
例如：某身份证号为 34052419800101001X。要计算此身份证的校验值步骤如下： 第一步：计算 3*7+4*9+0*10+5*5+……+1*2=189
第二步：189 除以 11 得到余数为 2
第三步：由余数 2 获取校验值 X。
根据以上规则小王编写了一个验证身份证号是否有效的 VB 程序，功能如下：在文本框 Text1 中输入身份证号，单击“验证”按钮 Command1 后，在列表框 List1 中显示验证结果。 程序运行界面如图1 所示。
（1）设计程序界面时，应使用图 2 中的____（填写相应编号）添加列表框对象 List1。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, sum As Integer, pos As Integer
Dim idCode As String, result As String
Const xs = "0709100508040201060307091005080402" '存储前 17 位每位系数
Const checkCodeStr = "10X98765432" '存储余数对应的检验值
①________
sum = 0
For i = 1 To 17 Step 1
a = Val(Mid(idCode, i, 1))
b = ②________
sum = sum + a * b
Next i
pos =
checkCode = Mid(checkCodeStr, pos, 1)
If checkCode = Mid(idCode, 18, 1) Then
result = "有效"
Else
result = "无效"
End if
List1.AddItem (idCode & " " & result)
End Sub
（3）程序中加框处代码有误，应修改为________。
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(4道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：16