某VB程序的一个事件过程如下:
Private sub command1_click( )
Dim i as integer
Dim a(1 to 8 ) as integer
List1.clear
For i="1" to 99
a(i)=i+1
Next i
For i="1" to 8
list1.AddItem str(a(i))
Next i
End sub
程序运行时，单击命令按钮command1后，将会出现的提示信息是 （ ）
Private sub command1_click( )
Dim i as integer
Dim a(1 to 8 ) as integer
List1.clear
For i="1" to 99
a(i)=i+1
Next i
For i="1" to 8
list1.AddItem str(a(i))
Next i
End sub
程序运行时，单击命令按钮command1后，将会出现的提示信息是 （ ）
| A．溢出 | B．下标越界 |
| C．类型不匹配 | D．无效的过程调用或参数 |
编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。
1图 2图
（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（2图) 中将属性的属性值修改为“___________”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If ① Then '(选填字母,从下列A.B.C.D四个选项中选取一项）
t =" t1:" t1 =" t2:" t2 = t
End If
i = t1
Do While ② '(选填字母,从下列A.B.C.D四个选项中选取一项）
f =" i" * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
③ '（填程序代码）
Loop
End Sub
划线①、②处的选项:
A.i <= t2 B.f <= t2 C.t1 > t2
1图 2图
（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（2图) 中将属性的属性值修改为“___________”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If ① Then '(选填字母,从下列A.B.C.D四个选项中选取一项）
t =" t1:" t1 =" t2:" t2 = t
End If
i = t1
Do While ② '(选填字母,从下列A.B.C.D四个选项中选取一项）
f =" i" * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
③ '（填程序代码）
Loop
End Sub
划线①、②处的选项:
A.i <= t2 B.f <= t2 C.t1 > t2
| A．i < f |
判断一个整数n(>=3)是否为素数；提示：将一个不小于3的整数n分别除以2到n的平方根之间的所有整数，如果全部除不尽，那么n为素数（质数），否则本为非素数（合数）
编写程序如下：
Sub Form_Click( )
Dim n As Interger
n=InputBox(“请输入一个正整数（n>=3):”）
k=Int(Spr(n))
i=2
Swit=0
While i<="k" And Swit =0
If ① then Swit =1
Else i=i+1
Wend
If Swit="0" Then Print n;”是一个素数”
Else Print n;”不是一个素数”
②
End Sub
（1） 函数Sqr(n)的功能是___________________
（2） 语句Swit="1" 在这段程序中执行___________次
（3） 可用于接受用户输入文本，又可用于显示文本的控件是_____________
（4） VB中保存工程文件的文件扩展名为__________________
（5） 想在程序后面加上注释，应用到_____________符号
（6） 变量K的数据类型定义为_________________(integer或string)
（7） 在这段程序中，所用到的循环语句为__________________
（8） 认真阅读程序，在 ①序号出应补充的语句是________________
（9） Swit是一个标志变量。_______标志着n未被任何一个正整数整除过
（10）代码调试后，发现在 ② 处少语句 ，应填写___________________
编写程序如下：
Sub Form_Click( )
Dim n As Interger
n=InputBox(“请输入一个正整数（n>=3):”）
k=Int(Spr(n))
i=2
Swit=0
While i<="k" And Swit =0
If ① then Swit =1
Else i=i+1
Wend
If Swit="0" Then Print n;”是一个素数”
Else Print n;”不是一个素数”
②
End Sub
（1） 函数Sqr(n)的功能是___________________
（2） 语句Swit="1" 在这段程序中执行___________次
（3） 可用于接受用户输入文本，又可用于显示文本的控件是_____________
（4） VB中保存工程文件的文件扩展名为__________________
（5） 想在程序后面加上注释，应用到_____________符号
（6） 变量K的数据类型定义为_________________(integer或string)
（7） 在这段程序中，所用到的循环语句为__________________
（8） 认真阅读程序，在 ①序号出应补充的语句是________________
（9） Swit是一个标志变量。_______标志着n未被任何一个正整数整除过
（10）代码调试后，发现在 ② 处少语句 ，应填写___________________
曲哲同学设计了一个英文字符串的加密算法,其加密的方法如下:
1.从被加密字符串中获取单个字符，然后得到其ascii码的8位二进制编码。
2.将字符的二进制编码反向，得到其逆序二进制码。
3.将逆序二进制码的每4位转换为相应的十六进制编码，即得到单个字符加密后的字符串。
4.以此类推，直到所有字符加密完成，得到加密字符串。
具体程序界面如下图，在text1中输入字符串，点击“加密”按钮command1后，在text2中显示加密后的字符串。
（1）已知字符a的ascii码为97，则字符串idear加密后的字符串为____________________。
（2）阅读整段程序，程序中①画线处应填入
程序中②画线处应填入 。[:学+科+网]
Private Sub Command1_Click()
Dim s As String, ch As String
Dim result As String, chA As String, chB As String
Dim i As Integer, j As Integer
Dim n As Integer, m As Integer
s = Text1.Text
n = Len(s)
result = "": c = "0123456789ABCDEF"
For i =" 1" To n
ch = ①
ch = niXu(ch)
m = 0
For j =" 1" To 4 ' 获取二进制码前4位的值
②
Next
chA =" Mid(c," m + 1, 1)
m = 0
For j =" 5" To Len(ch)
m =" m" * 2 + Val(Mid(ch, j, 1))
Next
chB =" Mid(c," m + 1, 1)
result =" result" + chA + chB
Next
Text2.Text = result
End Sub
' 得到单个字符ch的8位二进制编码
Function D2B(ByVal ch As String) As String
Dim s As String
Dim data As Integer, i As Integer
data = Asc(ch)：s = ""
Do While data > 0
s ="Str(data" Mod 2) + s
data =" data" \ 2
Loop
If Len(s) < 8 Then
For i =" 1" To 8 - Len(s)
s = "0" + s
Next
D2B = s
Else
D2B = s
End If
End Function
' 返回字符串s的逆序
Function niXu(ByVal s As String) As String
Dim i As Integer：Dim r As String
r = ""
For i =" Len(s)" To 1 Step -1
r =" r" + Mid(s, i, 1)
Next
niXu = r
End Function
1.从被加密字符串中获取单个字符，然后得到其ascii码的8位二进制编码。
2.将字符的二进制编码反向，得到其逆序二进制码。
3.将逆序二进制码的每4位转换为相应的十六进制编码，即得到单个字符加密后的字符串。
4.以此类推，直到所有字符加密完成，得到加密字符串。
具体程序界面如下图，在text1中输入字符串，点击“加密”按钮command1后，在text2中显示加密后的字符串。
（1）已知字符a的ascii码为97，则字符串idear加密后的字符串为____________________。
（2）阅读整段程序，程序中①画线处应填入
程序中②画线处应填入 。[:学+科+网]
Private Sub Command1_Click()
Dim s As String, ch As String
Dim result As String, chA As String, chB As String
Dim i As Integer, j As Integer
Dim n As Integer, m As Integer
s = Text1.Text
n = Len(s)
result = "": c = "0123456789ABCDEF"
For i =" 1" To n
ch = ①
ch = niXu(ch)
m = 0
For j =" 1" To 4 ' 获取二进制码前4位的值
②
Next
chA =" Mid(c," m + 1, 1)
m = 0
For j =" 5" To Len(ch)
m =" m" * 2 + Val(Mid(ch, j, 1))
Next
chB =" Mid(c," m + 1, 1)
result =" result" + chA + chB
Next
Text2.Text = result
End Sub
' 得到单个字符ch的8位二进制编码
Function D2B(ByVal ch As String) As String
Dim s As String
Dim data As Integer, i As Integer
data = Asc(ch)：s = ""
Do While data > 0
s ="Str(data" Mod 2) + s
data =" data" \ 2
Loop
If Len(s) < 8 Then
For i =" 1" To 8 - Len(s)
s = "0" + s
Next
D2B = s
Else
D2B = s
End If
End Function
' 返回字符串s的逆序
Function niXu(ByVal s As String) As String
Dim i As Integer：Dim r As String
r = ""
For i =" Len(s)" To 1 Step -1
r =" r" + Mid(s, i, 1)
Next
niXu = r
End Function
在一次校园歌手大奖赛中，有20位评委负责评判，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，然后取评委打分的平均值作为选手的最后得分。根据上述规则，信息小组设计了计算选手得分的程序。核心部分的程序如下：
‘d数组中存放了20位评委的打分
Smax=0:smin=10:score=0
For i=1 To 20
Next i
score =" (" score – smax – smin )/18
Text1.Text= smax
Text2.Text= smin
Text3.Text= score
请分析任务和程序段，完成下列题目。
（1）程序段中出现的Text1、Text2、Text3是 类型的控件。（选填“A”或“B”）
（2）在设计用户界面时，要在启动计算过程的按钮上显示“计算”二字，应该将按钮的“ ”属性值设置为“计算”。
（3）为精确地显示选手的最后得分，变量score的数据类型应定义为 。
（4）程序执行过程中，程序段中虚线框内的代码将被执行 次。
（5）请分析程序，将程序段中虚线框内的空白处补充完整。
If
‘d数组中存放了20位评委的打分
Smax=0:smin=10:score=0
For i=1 To 20
Next i
score =" (" score – smax – smin )/18
Text1.Text= smax
Text2.Text= smin
Text3.Text= score
请分析任务和程序段，完成下列题目。
（1）程序段中出现的Text1、Text2、Text3是 类型的控件。（选填“A”或“B”）
| A．列表框 | B．文本框 |
（3）为精确地显示选手的最后得分，变量score的数据类型应定义为 。
（4）程序执行过程中，程序段中虚线框内的代码将被执行 次。
（5）请分析程序，将程序段中虚线框内的空白处补充完整。
If
编写VB程序,实现如下功能: 单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Command3时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示。(运行效果如图所示)。实现上述功能的VB代码如下, 请在划线处填入合适代码。
Dim a(1 To 6) As Integer
Dim b(1 To 6) As Integer
Private Sub Command1_Click() '对数组a中的数据进行排序
Dim i As Integer, j As Integer ，k as integer
a(1) =" 53" :a(2) =" 18:a(3)" =" 62:a(4)" =" 22:a(5)" =" 6:a(6)" = 25
s = ""
For i =" 1" To 5
k = i
For j =" i" + 1 To 6
If a(k) > a(j) Then ①
Next j
If i <> k Then
t =" a(k):" a(k) =" a(i):" a(i) = t
End If
Next i
For i =" 1" To 6
s =" s" + Str(a(i))
Next i
Label1.Caption = s
End Sub
Private Sub Command2_Click()
b(1) =" 3:" b(2) =" 8:" b(3) =" 15:" b(4) =" 27:" b(5) =" 38:" b(6) = 49
'此处部分代码省略
End Sub
Private Sub Command3_Click()
'将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示
i =" 1:" j =" 1:" s = ""
Do While i <=" 6" ② j <= 6 '如果两数组都还有数据未合并
If ③ Then
s =" s" + Str(a(i)) : i =" i" + 1
Else
s =" s" + Str(b(j)) : j =" j" + 1
End If
Loop
Do While i <= 6 '只有数组a还有数据未合并
s =" s" + Str(a(i)) : i =" i" + 1
Loop
Do While j <= 6 '只有数组b还有数据未合并
s =" s" + Str(b(j)) : j =" j" + 1
Loop
Label3.Caption = s
End Sub
Dim a(1 To 6) As Integer
Dim b(1 To 6) As Integer
Private Sub Command1_Click() '对数组a中的数据进行排序
Dim i As Integer, j As Integer ，k as integer
a(1) =" 53" :a(2) =" 18:a(3)" =" 62:a(4)" =" 22:a(5)" =" 6:a(6)" = 25
s = ""
For i =" 1" To 5
k = i
For j =" i" + 1 To 6
If a(k) > a(j) Then ①
Next j
If i <> k Then
t =" a(k):" a(k) =" a(i):" a(i) = t
End If
Next i
For i =" 1" To 6
s =" s" + Str(a(i))
Next i
Label1.Caption = s
End Sub
Private Sub Command2_Click()
b(1) =" 3:" b(2) =" 8:" b(3) =" 15:" b(4) =" 27:" b(5) =" 38:" b(6) = 49
'此处部分代码省略
End Sub
Private Sub Command3_Click()
'将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示
i =" 1:" j =" 1:" s = ""
Do While i <=" 6" ② j <= 6 '如果两数组都还有数据未合并
If ③ Then
s =" s" + Str(a(i)) : i =" i" + 1
Else
s =" s" + Str(b(j)) : j =" j" + 1
End If
Loop
Do While i <= 6 '只有数组a还有数据未合并
s =" s" + Str(a(i)) : i =" i" + 1
Loop
Do While j <= 6 '只有数组b还有数据未合并
s =" s" + Str(b(j)) : j =" j" + 1
Loop
Label3.Caption = s
End Sub
如图所示的流程图片断，该流程图执行过后，A、B的值分别为( )
| A．A是20，B是30 |
| B．A 是20，B是20 |
| C．A是30，B是30 |
| D．A是30，B是20 |
（加试题）小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示：
实现上述功能的VB程序如下：
Private Sub Command1_Click()
Dim a(1 To 1000) As String '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ①
If ch = c Then
n = n + 1
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text = ②
End Sub
以上程序段运行时，为了实现上述功能，划线处①和②应填入的代码分别为：
（1）_______________________________; （2）_______________________________
（加试题）某VB程序使用了递归函数，代码如下：
Private Sub Command1_Click()
Text1.Text = f(3)
End Sub
Function f(x As Integer) As String
If x = 1 Then f = 1 Else f = f(x - 1) + 2
End Function
运行程序并点击按钮Command1后，文本框Text1中显示的内容是（ ）
Private Sub Command1_Click()
Text1.Text = f(3)
End Sub
Function f(x As Integer) As String
If x = 1 Then f = 1 Else f = f(x - 1) + 2
End Function
运行程序并点击按钮Command1后，文本框Text1中显示的内容是（ ）
| A．1 | B．3 | C．5 | D．7 |