下面程序段是利用For语句给数组a赋值：
For i= 1 To 6
a(i)=i+1
Next i
该程序段运行后数组元素a(3)的值是：

A．2

B．3

C．4

D．5

下面有关属性的说法正确的是：

A．对象的属性只能在程序运行前设置

B．name属性可以在程序执行时改变

C．文本框控件的text属性可以省略

D．label1.caption="1"和label1="1"作用不一样

下列可作为VB变量名的是：

A．a\b

B．False

C．cos

D．sum1

VB表达式val(mid(str(3.5),2,1))的值是：

A．1

B．2

C．3

D．5

VB语句fix(rnd*6)+1所产生数的范围(小括号表示边界值不能取到，中括号表示边界值能取到)是：

A．[2，6]

B．(1，5)

C．[1，6]

D．(2，5)

某VB程序代码如下：
a = 3
b = 4
c = 5
If a > b Then a = b Else b = a
则程序运行后的a和b的值分别是：

A．3  4

B．3   5

C．4   5

D．3   3

某VB程序段代码如下：
Private Sub Command1_Click()
a = Text1
For i = 1 To Len(a)
b = Mid(a, i, 1)
c = Chr(Asc(b) )
d = d + c
Next i
Text2 = d
End Sub
如果在文本框text1中输入字符"316100"，则文本框text2中显示的值是：

A．16100

B．6131

C．001613

D．3161

For i= 1 To 6
a(i)=i+1
Next i
程序运行后，变量i的值是：

A．7

B．6

C．1

D．0

将数学表达式写成VB表达式，正确的是：

A．	B．
C．x^2<=y+z	D．x^2≤y+z

VB语句Text1.text="浙江省"用于在文本框中显示文字“浙江省”，该语句中的"text"是：

A．类名

B．对象名

C．属性名

D．属性值

在VB语句dim s(9) as integer中，数组s的变量个数和类型是：

A．9 整型

B．10 整型

C．9 单精度型

D．10 单精度型

有一组数，依次为3、2、8、5、9，若采用选择排序算法对其进行从大到小排序，其中排序方向为从前向后，则第二趟的排序结果是:

A．9  2  8  5  3

B．9  5  8  2  3

C．9  8  2  5  3

D．9  2  8  3  5

某VB程序段代码如下：
Private Sub Command1_Click()
Dim data(1 To 100) As Integer
For i = 1 To 100
data(i) = Int(Rnd * 1000)
Next
num = Val(Text1.Text)
For i = 1 To 100
If data(i) = num Then Exit For
Next
If i <= 100 Then
MsgBox "找到该数，是第" & i & "个数"
Else
MsgBox "该数不在数组中"
End If
End Sub
方框中的程序算法是：

A．二分查找

B．冒泡排序

C．递归算法

D．顺序查找

“神舟六号”飞船升入空后进入一个椭圆形的轨道。轨道远地点高度是347千米，比近近地点高度高147千米。求近地点的高度。程序设计界面和部分代码如下所示。

图 1

图 2
Private Sub  ①      
Dim i, j As Integer A

i = 347 B

j = i – 147 C

Text1.Text = Str(j)   D

End Sub
（1）该程序开始运行时，直接得出近地点的高度，则在①处应填_____________________
（2）程序运行时，出现如图所示错误，对照如图，修改一处程序以使此程序正确运行。则修改______语句（选填：A/B/C/D）,修改后的语句为_________________

下列VB程序的功能是：程序运行时，单击按钮Command1随机产生20个范围在1－1000（包括1和100）的整数，并在列表框List1中显示，然后单击按钮Command2，计算随机产生的20个整数中的最大值、最小值和平均值，并分别在Text1、Text2和Text3中显示，程序的运行界面如图所示。请在划线上填入合适的代码:

Const n = 20
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To n
a(i) = Int(Rnd * 1000) + 1
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, max As Integer
Dim min As Integer, sum As Single
max = a(1): min = a(1)
sum = 0
For i = 2 To n
If ________ Then max = a(i)
If a(i) < min Then min = a(i)
sum = sum + a(i)
Next i
_____________
Text1.Text = Str(max)
Text2.Text = Str(min)
Text3.Text = Str(sum)
End Sub

下列程序的功能是对某校2011年3月份技术高考成绩进行排名分析，数组a中保存学生技术考试的成绩，数组b中保存学生的姓名，第i个学生的技术成绩保存在a(i)中，对应的学生姓名保存在b(i)中，最后按技术成绩从高到低进行排序。程序界面如图所示，左边列表框List1中显示的是所有学生到的原始数据，单击"排序"按钮（Command1）后，在右边的列表框List2中显示排序完成后的结果（按成绩从高到低排列）。

（1）虚线内程序段所采用的排序算法名称是 。
（2）程序加框处代码有错，请改正。

下列VB程序运行时，在文本框Text1中输入2，单击命令按钮Command1后，文本框Text2的内容是________。
Private Sub Command1_Click()
Dim t As Single, h1 As Single, h2 As Single
Const g = 9.8
t = Val(Text1.Text)
h1 = (g * t ^ 2) / 2
h2 = Int(h1)
Text2.Text = Str(h2)
End Sub

下列程序的功能是：当用户点击窗体下方的“石头”（command1）、“剪子”（command2）、“布”（command3）任意一个按钮的时候，电脑也会在Label1上随机显示出一个石头、剪刀、布（显示在label1上），程序判断出胜负（平局算负）将结果显示到label3上。

Private Sub Command1_Click()
Label1.Caption = sj ‘计算机随机产生一个值
Label2.Caption = Command1.Caption
If cp(Label1.Caption, Label2.Caption) Then ‘判断胜负
①     = "乙方负"
Else
Label3.Caption = "乙方胜"
End If
End Sub
Function sj() As String '随机生成石头、剪刀、布
i = ②   ‘随机生成1~3任一整数
If i = 1 Then sj = "石头"
If i = 2 Then sj = "剪刀"
If i = 3 Then sj = "布"
End Function
①____________②_________________

数组a中存储的是左右交替上升的n个正整数，如下表所示：

a（1）	a（2）	a（3）	……	a（n —2）	a（n—1）	a（n）
3	25	38	……	55	31	12

 
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = Val（Text1. Text）
i = 1
j = （n + 1） \ 2
flag = False
Do While i<j And Not flag '（1）
m = （i + j） \ 2
If key = a（m） Then
flag = True
ElseIf key< a（m） Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a（m） Then flag = True
End If
If flag Then
Text2. Text = Str（m）
Else
Text2. Text = "找不到"
End If
End Sub