（加试题）数字个数统计。编写VB程序，实现如下功能：在文本框Text1中输入仅由ASCII码字符组成的字符串（长度不超过100），单击“数字统计”按钮Command1，在列表框List1中输出字符串中包含的不同数字及其相应的个数，程序运行效果如下图所示。

（1）为方便调试，要让程序每次运行时文本框Text1中的初始内容为“ab12*{}78ab12()778ab34”，应修改文本框Text1的________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private sub command1_click()
Dim a(0 to 9) as integer   ’数组元素a(i)中存放数字i的个数
Dim s as string , ch as string
Dim t as integer
For i=0 to 9
a(i)=0
next i
s=text1.text
for i=1 to len(s)
①____________    
if ch>=”0”and ch<=”9” then
t= ②________
a(t)= a(t)+1
end if
next i
list1.clear
for i=1 to 9
if  a(i)<>0   then
list1.additem  ”数字：”+str(i)+ ”，共有”+ str(a(i))+ ”个”
end if
next i
end sub
（3）与上述程序中加框处代码运行效果等价的条件表达式可以是________。

VB表达式128 mod 60\6的运算结果为__________________。

下列能表示“x和y”都不为零的表达式是(   )。

A．(x< >0) And (y< >0)	B．X< >0, y< >0
C．(x< >0) Or (y< >0)	D．X< >0: y< >0

个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：

Sub Command1_Click(   )

Dim i As Integer, n As Integer

m = 106

n = ____________

Do While m <= 996

If _____________ Then n = n + 1

m = _____________    

Loop

Text1.Text = Str(n)

End Sub

若依次输入12，6，运行以下VB程序的结果是( )

A．24

B．30

C．1266

D．12612

在VB中，若a=2，b=3，则执行语句c=a+b*ab后，变量c的值是（  ）

A．2

B．3

C．5

D．7

在VB中，把代数式写成VB表达式，正确的是（  ）

A．a+b/2a

B．(a+b)2a

C．(a+b)2*a

D．(a+b)/（2*a)

在VB中，若x=5，y=7，下列表达式的值为True（真）的是（   ）

A．x<=y

B．x-y<y

C．x>2*y

D．x>y Or x=y

在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．①②③