(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