有如下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的值为（ ）

A．0

B．3

C．7

D．12

我国居民身份证号是由 18 位字符组成，其中前 17 位是数字，第 18 位是校验位（校验
位字符在“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和它本身整除，不能被其他自然数整除。编写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”等价的是___________(单选，填字母）。

A．n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i

现要编写一个统计2018~2100年间闰年次数的程序。已知出现闰年条件是：年份数能被4整除但不能被100整除，或者能被400整除。如图所示，要求程序运行后单击按钮，在列表框中显示闰年年份，并将统计次数显示在Label1。
（1）代码“PrivateSubCmd1_Click()”中的Cmd1_Click()是_________。
（单选，填字母：

A．对象名

B．事件

C．事件处理过程

D．方法）

（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)，此句代码应该加在________（填字母）位置。

台州市政公共停车的收费标准如下：
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

某两段VB程序分别如图1和图2所示：


当n的值为10时，关于该两段程序，下列说法不正确的是()

A．两段程序中i的初值相同

B．两段程序都采用了循环结构

C．图1程序实现了算式“1+4+7+10”的运算

D．图2程序中i=i+2执行了5次

在VB中，要设置窗口的标题文本，应设置窗口的( )属性。

A．Text

B．Name

C．Caption

D．font

   现要求编写VB程序（界面如图所示），实现下列功能：计算一个大写字母在26个字母中的位次。程序运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label2上输出其在26个字母中的位次。

（1）在进行应用程序界面设计时，需要添加“计算”按钮，可使用如下左图所示的“控件工具箱”中的________（填写相应编号），并在右图所示的“属性窗口”中，将________属性值设置为“计算”。
   
（2）该程序的源代码如下，请根据题意将代码中划线处补充完整，使程序能正常运行。
Private Sub Command1_Click()
Dim ch As String, pos As Integer
__________ = Text1.Text
pos = Asc(ch) – 64
Label2.Caption = "第" +______________ + "个字母"
End Sub

小明用 VB编写了一个连续高温天数的统计软件。小明采集了金华市 7-8 月的每日最高气温，并存放在 ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框 List1 中，在文本框 Text1 中输入温度值，单击“统计”按钮 Command1，程序自动统计运行在该温度值及以上的最长连续天数，并显示在 Text3 中，同时在 Text2 中显示日期区间，运行界面如下图所示。

实现上述功能的 VB 代码如 下，在划线处填入合适代码。
Dim rq(1 To 100) As String ‘ 存放日期
Dim qw(1 To 100) As Integer ‘ 存放最高气温值
Dim n As Integer '总天数
Private Sub Form_Load()
' 读取数据库内容，其中日期数据存放在数组 rq 中，最高气温数据存放在 qw 中，第 i 个日期保存在 rq（i）中，对应的气温保存在 qw（i）中，并显示在列表框 List1 中，代码略
End Sub
Private Sub Command1_Click()
Dim ntempend As Integer ‘ 记录当前结束日期的下标
Dim max As Integer   ‘ 记录最大连续天数
Dim nend As Integer ‘ 记录最大连续天数下的结束日期的下标
Dim ncount As Integer ‘ 统计连续天数
Dim tjqw As Integer   ‘ 存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If  ___________①___________ Then
ncount = ncount + 1
ntempend =i
Else
ncount = 0
End If
If max < ncount Then
max = ncount
___________②___________
End If
Next
If max <> 0 Then Text2.Text = ___________③___________ & "-" & rq(nend)

某VB程序功能如下：输入正整数n，单击命令按钮Command1后，则会生成一串有规律的数字序列，形式为“n  n-1  n-2 … 3  2  1  2  3 … n-2  n-1  n”。例如n=8时，生成的数字序列如图所示。代码如下：

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = ""
For i =" 1" To 2 * n - 1
If i <=" n" Then  ① Else  ②  
Next i
Label1.Caption = s
End Sub
为实现以上功能，划线①②处应分别填写

A．①s =" s" & Str(n - i + 1)   ②s =" s" & Str(i - n + 1)

B．①s =" Str(n" - i + 1) ②s =" Str(i" - n + 1)

C．①s =" s" & Str(i - n + 1)   ②s =" s" & Str(n - i + 1)

D．①s =" Str(i" - n + 1) ②s =" Str(n" - i + 1)