王敏的E­Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。
她零星记得自己的密码信息：
①密码是六位数字，前面两位为31；
②最后两位数字相同；
③能被16和46整除。
程序界面如图所示，单击“帮助找回密码”按钮(Command1)后，可能的密码显示在列表框List1中。

解决此问题的相应程序如下：
Private Sub Command1_Click()
Dim a As Integer，s As long，b As Integer，i As Integer
For i＝0 To 9 999 ①________
s＝310 000＋i
If s Mod 46＝0 Then
②________
b＝(s Mod 100)\100
If a＝b Then
List1.Addltem Str(s)
End If
End If
Next i
End Sub

(1)解决此问题的算法是________(选填：枚举算法或排序算法)
在程序①和②画线处，填入适当的语句或表达式，把程序补充完整：
(2)程序中①画线处应填入________。
(3)程序中②画线处应填入________。

下面VB程序的功能是判断一个整数是否为素数。在文本框Text1中输入一个整数x，如果x是素数，则在标签Label1中显示“Y”，否则显示“N”。程序中有两处错误，请改正。
Private Sub Command1_Click( )
Dim i As Integer，x As Integer，pd As Boolean
Val(Text1.Text)＝x
pd＝True
i＝1
Do While i＜x And pd＝True
If x Mod i＝0 Then
pd＝False
Else
i＝i＋1
End If
Loop
If pd＝True Then
Label1.Caption＝“Y”
Else
Label1.Caption＝“N”
End If
End Sub
错误语句1：________改为：________；
错误语句2：________改为：________。

某宾馆的房间号由5位字符组成(例如A0823表示A幢8层33号房间)，末位数字为奇数时表示房间朝南、为偶数时表示房间朝北。字符串变量s中存储了1个房间号，下列能正确判断房间朝南的VB表达式是(  )

A．Val(Mid(s，5，1))Mod 2＝1

B．Val(Mid(s，5，1))Mod 2＝0

C．Val(Mid(s，5，1))\2＝1

D．Val(Mid(s，5，1))\2＝0

下列VB程序段用于比较两个等长的字符串a和b，并在标签Label1中显示比较结果：如果a和b完全相同，则输出“完全相同”，否则在输出结果中指出第1个不相同字符的位置。
k＝0 ’整数型变量k用于记录第1个不相同字符的位置
For i＝1 To Len(a) ’字符串变量a用于存储第1个字符串
key＝Mid(a，i，1)
If key＜＞Mid(b，i，1) Then ’字符串变量b用于存储第2个字符串
Exit For
End If
Next i
If k＝0 Then
Label1.Caption＝“完全相同”
Else
Label1.Caption＝“第”＋Str(k)＋“个字符不相同”
End If
方框中的正确语句是(  )

A．k＝i	B．k＝0
C．k＝1	D．k＝len(a)

在VB数组说明语句Dim d(3 To 8，4 To 9)As Boolean中，数组d的变量类型是(  )

A．长整数型	B．字符串型
C．单精度实数型	D．逻辑型

某同学编写了VB程序其功能和界面如下所示。在文本框(text1)中输入一段英文，点击“统计删除”按钮，在标签(Label3)中显示该语句中最长的单词(如有多个长度相同的单词则显示靠后的单词)，在标签(Label5)中显示该单词的字符长度，在标签(Label7)中显示删除该单词后的句子。

Private Sub Command1_Click()
Dim s As Integer，imax As Integer，pimax As Integer，t As Integer
Dim source As String
source＝Text1.Text
s＝Len(source)
imax＝1
pimax＝1
t＝0
For i＝1 To s
d＝____①____
If (d＞＝“a” And d＜＝“z”) Or (d＞＝“A” And d＜＝“Z”) Then
____②____
Else
If t＞＝imax Then
imax＝t
____③____
End If
t＝0
End If
Next i
Label3.Caption＝Mid(source，pimax，imax)
Label5.Caption＝imax
Label7.Caption＝____④____＋Mid(source，pimax＋imax，s－imax)
End Sub
①处程序代码为_________________________________________________。
②处程序代码为_________________________________________________。
③处程序代码为_________________________________________________。
④处程序代码为_________________________________________________。

编写VB程序，要求实现功能是：在文本框Text1中输入一个a的分数值，单击“查询”按钮Command1，在文本框Text2输出等级。界面如图1所示：

1．在设计界面时，为使窗体的标题如图1显示，应在图2所示的属性窗口中设置Form1的________属性。
2.有如下Visual Basic程序，请根据题意将程序补充完整：
Private Sub Command1_Click()
a＝________
If a＞＝90 Then
Text2.Text＝“优秀”
ElseIf a＞＝80 Then
Text2.Text＝“良好”
ElseIf a＞＝70 Then
Text2.Text＝“中等”
ElseIf a＞＝60 Then
Text2.Text＝“及格”
Else
Text2.Text＝“不及格”
________
End Sub

某算法的流程图如图所示：

执行该算法后，“a←a＋1”共被执行的次数是(  )

A．0	B．1
C．4	D．5

在窗体上画一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click()
Dim arr1(10)，arr2(10) As Integer
n＝3
For i＝1 To 5
arr1(n)＝i
arr2(i)＝2*arr1(n)＋1
Next i
Print arr1(n)，arr2(n)；
End Sub
程序运行后，单击命令按钮，输出结果是________。
解析 本题考查的是循环结构。i的初值为1，终值为5，步长为1。

i	arr1(n)	arr2(i)
1	arr1(3)＝1	arr2(1)＝2*1＋1
2	arr1(3)＝2	arr2(2)＝2*2＋1
3	arr1(3)＝3	arr2(i)＝2*3＋1
4	arr1(3)＝4	arr2(i)＝2*4＋1
5	arr1(3)＝5	arr2(i)＝2*5＋1
6	/

循环执行结束后n为3，执行最后一次循环arr1(3)＝5；arr2(3)＝7。

以下函数用于查找给定学籍编号，查找的学生姓名的相关信息，其中姓名放在数组a中，学籍编号放在数组b中，学籍号按照升序排列
Private Function Findxj(k As Integer) As string
Dim f As Boolean，i As Integer，j As Integer，m As Integer
i＝1：j＝n
f＝False
Do While(i＜＝j) And Not (f)
m＝Fix((i＋j)/2)
If k＝b(m) Then
f＝True
Else
If ________ Then
j＝m－1
Else
i＝m＋1
End If
End If
Loop
If f Then Findxj＝________ Else Findxj＝“查无此人”
End Function
划线处的代码分别是：

A．k＜b(m) a(m)	B．k＜a(m) b(m)
C．k＞b(m) a(m)	D．k＞a(m) b(m)