某宾馆的房间号由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)

实现某排序算法的部分VB程序如下：
For i＝1 To 5
k＝i
For j＝i＋1 To 6
If a(k)＜a(j) Then k＝j
Next j
If i＜＞k Then
t＝a(i)：a(i)＝a(k)：a(k)＝t
End If
Next i
在排序过程中，经过某一遍排序“加工”后，数组元素a(1)到a(6)的数据依次为“97，89，91，88，95，94”。则下一遍排序“加工”后数组元素a(1)到a(6)的数据依次是(  )

A．97，95，91，89，88，94	B．97，95，94，91，88，89
C．97，95，91，88，89，94	D．97，95，94，91，89，88

有一个VB程序，其程序界面中有一个按钮Command1及一个文本框Text1，并且其程序代码如下：

当点击Command1后，Text1中将显示(  )

A．3	B．4
C．5	D．6