（1）有如下程度段：
X=5
Y=-20
If  Not x＞0 Then x=y-3  Else y=x+3
该程序段运行后，y的值为：

8

8

。
（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的值：

5

5

。
（3）火车托运行李，根据行李的重量按下列标准收费：若不超过50千克，按每千克0.35元收费；若超过50千克，超过部分则按每千克0.5元收费。输入托运行李的重量，计算并输出托运行李的费用。下面程序若用于实现上述目标，则横线处的语句应更改为

Text2.jye.ai=str（50*0.35+（x-50）*0.5）

Text2.jye.ai=str（50*0.35+（x-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），横线处的语句应为

f=f*i

f=f*i

。
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

f=f*i

f=f*i

i=i+1
Loop
Text2．Text=Str（f）
End Sub