输入19，输出的结果为 。
Dim s As String '定义变量s为字符串类型
Dim n As Long
n = InputBox("n")
s = ""
Do While n > 0
a =" n" Mod 2
s =" Str(a)" + s  '将数字a转换成字符，连接在字符串s的左边
n =" n" \ 2
Loop
Print s

下面是一段关于计算变量S的算法，下列能正确描述S的算式是（  ）
①变量S的初值是0，变量T的初值是1，循环变量A的初值为1；
②循环变量A从1循环到100，且步长为2，做第③步中的2个语句；
③ T="-T:" S=S+A*T
④输出变量S的值

A．1+3+5+7…+100	B．1+3+5+7…+99
C．1-3+5-7…-99	D．-1+3-5+7…+99

小明编写了一个字符重组程序，在文本框 Text1 中输入偶数个字符，单击“重组”按钮 Command1 后，将输入的内容从头、尾至中间依次取字符，组成一个新的字符串 Str2，并在文本框 Text2 中输出。例如在文本框 Text1 中输入字符 "12345678"，程序运行后在文本框 Text2 中显示字符 "18273645"。

实现上述功能的 VB 程序如下，请在划线处填入合适的代码：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = Text1.Text
Str2 = "" : m = 0
Do while _______________ 
Str2 = Str2 + ___________ 
Str2 = Str2 + ___________
m = m + 1
Loop
Text2.text=str2
End Sub

有一个单击按纽过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：

Private Sub command1_click(   )

Dim X, N As Integer
Dim count As Integer   ' count用来保存能被6整除余2的数据的个数
Randomize Timer   ' 随机数初始化，以时钟为随机数种子

For N = 1 To 50

X = ___________ + int(Rnd * 40) ' 随机产生50个60～100的随机数

If  X Mod 6 = 2 Then

List1.AddItem Str(X)

_______________

End If

Next N

Label1.Caption = str (count)

End Sub

将数学表达式写成VB表达式，正确的是____________。