（1）有如下程度段：
X=5
Y=-20
If  Not x>0 Then x=y-3  Else y=x+3
该程序段运行后，y的值为：___ 。
（2）有如下VB程序段：
a = 3: b = 4: c = 5
If a >= b And a >= c Then
y = a
ElseIf b >= c Then
y = b
Else
y = c
End If
该程序段运行之后，整数型变量y的值:_____。
（3）火车托运行李，根据行李的重量按下列标准收费：若不超过50千克，按每千克0.35元收费；若超过50千克，超过部分则按每千克0.5元收费。输入托运行李的重量，计算并输出托运行李的费用。下面程序若用于实现上述目标，则划线处的语句应更改为_________________________。
Sub command1_click( )
Dim x as double
X=val(text1.text)
If x<=50  then
Text2.text= str(0.35*x)
Else
Text2.text= str(0.5*x)
Endif
End sub
（4）求n阶乘（n!=1*2*3*4*n）,划线处的语句应为.
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim f As Long
n = Val(Text1.Text)
f = 1
i = 1
Do While i <= n
__________________________
i = i + 1
Loop
Text2.Text = Str(f)
End Sub

字符串变量a的值为“Hello,world！”，下列Visual Basic表达式的值是“world”的是(　 　)

A．Len(a，6，5)	B．Mid(a，6，5)
C．Mid(a，7，4)	D．Mid(a，7，5)

下列VB程序段的输出结果是
a=25:b=18:c=b
if  a>b  then
c=a
end if
print c

A．25

B．18

C．7

D．0

下列 VB 表达式中，只随机产生 9 到 99 之间偶数的是（   ）

A．Int(Rnd*90+10)

B．Int(Rnd*90+9)

C．Int(Rnd*45)*2+10

D．Int(Rnd*45)*2+9

小明编写了一个字符重组程序，在文本框 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