某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

某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语句fix(rnd*6)+1所产生数的范围(小括号表示边界值不能取到，中括号表示边界值能取到)是：

A．[2，6]

B．(1，5)

C．[1，6]

D．(2，5)

下列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

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

A．1

B．2

C．3

D．5

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

A．a\b

B．False

C．cos

D．sum1

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

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

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

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

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

下面程序段是利用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．人类会创造性地解决问题

C．计算机解决问题必须针对一定对象，按一定步骤去做

D．人类的思维有跳跃性、抽象性、模糊性

已知a=5、b=6，则执行如下语句后
a = a + b
b = a + b
a和b的值分别为（  ）

A．11、17

B．11、11

C．17、11

D．5、6