下列VB程序运行时，在文本框Text1中输人数据6，在文本框Text2中输入数据9，单击命令按钮Command1后，文本框Text1中显示的内容是   (1)  ，文本框Text2中显示的内容是   (2)   。
Private Sub Command1_C1ick ()
Dim a As Integer, b As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
a=a*b
b=a/b
a=a/b
Text.Text=Str(a)
Text2.Text=Str(b)
End Sub

个位数字是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

A\B的结果和以下哪个表达式的结果一样_____。

A．ABS（A/B）

B．A mod B

C．INT（A/B）

D．B/A

下列表达式的运算结果不等于8的是（   ）

A．Len("2019选考")+Sqr(4)	B．Abs(Int(-7.8))
C．Val(Mid("789",2,1))	D．Asc("M")-Asc("e")

使用 VB 编写一个数字逆序功能的程序，在文本框 Text1 中输入若干整数，相互之间用逗号隔开，单击“开始逆序”按钮，在文本框 Text2 中输出逆序后的数字序列。程序运行界面如图所示，请改正划线处的错误语句使程序能正确运行。

Private sub Command1_click()
Dim s1 As String, s2 As String, t As String, ch As String
Dim i As Integer
s1 = Text1.Text
i = Len(s1)
t = "": s2 = "" Do While i > 0
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
t = ch + t
Else
s2 = s2 + t +，  改正________
t = "" End If
i = i + 1 改正________
Loop
s2 = s2 + t
Text2.Text = s2
End sub