在VB中，着x=3， y=8，则下列表达式的运算结果等于6的是（  ）

A．y/3

B．y-x

C．x+4

D．2*x

在文本框Text1中输入十进制数，将其转换为二进制数后在标签Labell上输出。VB程序段如下：
Dim x As Integer，s As String，t As Integer
x=Val(Text1.Text)
Do While x>0

Loop
Labell.Caption= s
方框中的代码由以下三部分组成：
①x=x\2
②s=Str(t)+s
③t=x Mod 2
代码顺序正确的选项是( )

A．②①③

B．①③②

C．③②①

D．①②③

有如下VB程序段：
s=“Good Luck 2019!”
n=0：m=0：k=0
For i=1 To Len(s)

ch=Mid(s，i，1)

If ch >=”0”And ch<=”9” Then

m=m+1

Else If ch>="a” And ch<=”z” Then

n=n+1

Else

k=k+1

End If

Next i
执行该程序段后，变量k的值为( )

A．2

B．3

C．4

D．5

有如下VB程序段：
a(1)=58：a(2)=38：a(3)=46：a(4)=40：a(5)=58
a(6)=30：a(7)=48：a(8)=50：a(9)=36：a(10)=56
For i=1 To 10
b(a(i) Mod 10)=b(a(i) Mod 10)+1
Next i
s=""
For i=0 To 9
If b(i)>0 Then s=s+""+Str(i)+"："+Str(b(i))
Next i
数组b各元素初值为0，执行该程序段，s的值是

A．0：3  6：3  8：4	B．8：4  6：3  0：3
C．5：4  4：3  3：4	D．3：4  4：3  5：4：

产生一个在[1，9]中随机整数的VB表达式是

A．Int(Rnd * 5) * 2+1	B．Int(Rnd * 8)+1
C．Int(Rnd * 9+1)	D．Int(Rnd * 9)

[0，500]范围的十进制数转八进制的VB程序段如下：
n=Val(Textl.Text)
a(1)=0：a(2)=0：a(3)=0
For i=1 To n

j=3：a(j)=a(j)+1

Do While a(j)=8

Loop

Next i
s=a(1)&a(2)&a(3)
方框中的代码由以下三部分组成
①a(j)=a(j)+1
②a(j)=0
③j=j-1
代码顺序正确的选项是

A．①③②

B．③②①

C．②③①

D．②①③

（2018秋•温州期末）某算法的部分流程图如图所示，执行该流程后，输出i，k的值分别是（　　）

A．102，9

B．100，8

C．102，8

D．100，9

素数迁移：小王编写了一个VB程序，在左边List1中显示随机生成的10个介于[2,99]的随机整数，单击命令按钮Command1后，其中的素数全部迁移到右边的List2中并进行显示，同时只有那些非素数（合数）的才继续在List1中显示，运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题。
（1）根据代码可知，若要产生20个随机数，只需将____的值修改为20即可。
（2）请在划线处填入合适代码。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click() ’素数迁移模块
Dim i As Integer
List1.Clear ’清除列表框
List2.Clear
For i = 1 To n
For j = 2 To a(i) - 1
If ①__________  Then
Exit For    ’ Exit For的功能是退出For循环
End If
Next j
If  ②________ Then
List2.AddItem Str(a(i))
Else
List1.AddItem Str(a(i))
End If
Next i
End Sub
Private Sub Form_Load() ’随机数初始化模块
Randomize  ’随机数种子初始化
For i = 1 To n
a(i) =  ③___________
List1.AddItem Str(a(i))
Next i
End Sub

编写“数字提取”程序，实现如下功能：在文本框Text1中输入文本信息，点击“提取”按钮Command1，将文本信息中的数字以“，”间隔输出到文本框Text2中。程序运行界面如图所示，VB代码如下，请回答下列问题：

(1)如图所示，该程序共有________个对象。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim m As String，tmp As String，ch As Strin
Dim s As String，i As Integer
m=Text1.Text
tmp=""
s=""
For i=1 To Len(m)

ch=Mid(m，i，1)

If ch>="0"And ch <="9" Then

______________

Else If tmp<>"" Then

s=s+tmp+"，"
______________

End If

Next i

Text2.Text=s
End Sub
(3)输入的文本信息如图a所示，若删除加框处代码，则文本框Text2中显示的内容为________________。

创建通用过程时，选“工具”菜单中的“添加过程”命令时，发现该命令是灰色的，原因是（  ）

A．未打开属性窗口	B．未打开代码窗口
C．此法不能创建通用过程	D．系统出错