（1）有如下程度段：
X=5
Y=-20
If  Not x＞0 Then x=y-3  Else y=x+3
該程序段運(yùn)行后，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ùn)行之后，整數(shù)型變量y的值：

5

5

。
（3）火車(chē)托運(yùn)行李，根據(jù)行李的重量按下列標(biāo)準(zhǔn)收費(fèi)：若不超過(guò)50千克，按每千克0.35元收費(fèi)；若超過(guò)50千克，超過(guò)部分則按每千克0.5元收費(fèi)。輸入托運(yùn)行李的重量，計(jì)算并輸出托運(yùn)行李的費(fèi)用。下面程序若用于實(shí)現(xiàn)上述目標(biāo)，則橫線(xiàn)處的語(yǔ)句應(yīng)更改為

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），橫線(xiàn)處的語(yǔ)句應(yīng)為

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