产生1，50 范围内某一随机整数的表达式是   

A．Rnd * 50

B．Int(Rnd * 50)

C．Int(Rnd * 50) + 1

D．Int (Rnd * 49) + 1

（加试题）有如下 VB程序段： For i = 1 To 2
k = i
For j = 6   To    i + 1   Step   -1
If a(j) > a(k) Then    k = j
Next    j
If k <> i then
t = a(i) : a(i) = a(k) : a(k) = t
End If
Next    i
数组元素 a(1)到 a(6)的值依次为“71,46,31,58,29,78”，经过该程序段“加工”后，数组元素a(1)到 a(6)的值依次为

A．29,31,46,58,71,78

B．78,71,58,46,31,29

C．46,29,31,58,71,78

D．78,71,31,58,29,46

有如下程序段：
tail = 6：i = 1：r = Val(Text1.Text)
Do While i < r
For j = tail To i + 1 Step -1
If a(j) > a(j - 1) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
i = i + 1
For j = i To tail - 1
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
tail = tail - 1
Loop
数组元素a(1)到a(6)的值依次为“73、56、28、61、44、92”，若在文本框Text1中输入“2”，则经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为

A．73,61,56,92,44,28	B．92,73,56,61,44,28
C．92,73,61,56,28,44	D．92,73,61,56,44,28

从语句“Dim XueHao As String”可以看出，变量“XueHao”的数据类型是（ ）

A．布尔型

B．字符型

C．日期型

D．整型

下列程序运行后的运行结果为▁▁▁。
X=8：Y=X：Z=10
IF  X<=Y  THEN
PRINT X；Y；
ELSE
IF  Z>=X  THEN
PRINT  Z
END IF
END IF

A．108

B．8 8

C．10 10

D．810