有如下visual basic程序：
private Sub command1_Click()
s=0
If s<="99" then
For j="1to" 10
s=s+j
Next j
Else
print “程序出错！”
Endif
print “最后的s的值是:”；s
End Sub
请问以上程序的控制结构包含了（   ）

A．顺序结构、树型结构

B．顺序、选择结构

C．顺序、选择和循环结构

D．顺序、循环结构

有如下VB程序段：
Private Sub Command1_Click()
Dim n As Integer, r As Integer, s As String
Dim t As Integer, k As Integer, v As Integer
n = 35: t = 0: k = 0
s = ""
Do While n > 0
r = n Mod 2
n = n \ 2
t = t + r
k = k + 1
s = Str(r) + s
Loop
s = Mid("0000000", 1, 7 - k) + s
v = t Mod 2
Text1.Text = s + Str(v)
End Sub
执行该程序段后，文本框Text1中显示的内容是

A．1 0 0 0 1 1 1

B．0 1 0 0 0 1 1 1

C．1 1 0 0 0 1 1

D．1 1 0 0 0 1 0 1

小金编写了VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：
Private Sub Command1_Click()
Dim x As String, i As Integer
For i =" 1" To 10
If i Mod x =" 1" Then
x = "奇数"
Else
x = "偶数"
Next i
……
End Sub

产生此错误的语句是(   )。

A．For	B．End If
C．Next	D．If

有如下 VB 程序段：
n = Val(Text1.Text)
For i = 3 To 1 Step -1

If n Mod 2 = 1 Then

n = n\ 2
Else
n = 2 * n + 3
End If
Next i
Label1.Caption = Str(n)
运行该程序，在文本框 Text1 中输入 13，下列说法正确的是（   ）

A．执行程序结束后，标签 Label1 显示 7	B．语句“n=n\2”第一次被执行时，等式右边 n=6
C．程序结束后 i 值为 1	D．语句“n=2*n+3”总共执行 2 次

（加试题）有如下VB程序段：
flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1 
If flag Or x >50 Then
a(i)=x
flag = Not flag
i = i + 1
End if
Loop
执行该程序段后，在下列选项中，a（1）～a（6）各元素值不可能的是（   ）

A．52，95，46，74，77，83	B．50，55，46，70，21，97
C．62，78，57，61，69，50	D．31，54，48，72，50，82