谁帮我检查一下，为什么这个VB语句错误？

来源：百度知道 编辑：UC知道 时间：2024/05/26 04:33:32
1）N的阶数
Private Sub Command3_Click()
Dim x%, y%, i%
x = Val(InputBox("请输入被阶乘的数"))
If x <= b Then GoTo ss
y = 1
For i = 1 To x
y = y * i
Next i
Print "答案="; y
ss: End Sub

2）最大公约数
Private Sub Command5_Click()
Cls
Dim a%, b%, c%, d%, x&
a = Val(InputBox("请输入"))
b = Val
If a.b Then
c = a: d = b
Else
c = b: d = a
End If
x = c Mod d
If x = 0 Then Exit Do
c = d
d = x
Loop
Print "最大公约数"; d
End Sub

3）最大值
Private Sub Command2_Click()
Dim a(1 To 10) As Integer, i%, max%, min%
Cls
For i = 1 To 10
a(i) = Val(InputBox("请输入"))
Next i
Print a(i)
max = a(1)
min = a(1)
For i = 2 To 10
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Print "max="; max; "min="; min
End Sub

1)正确无误

2)改为：
Private Sub Command5_Click()
Cls
Dim a%, b%, c%, d%, x&
a = Val(InputBox("请输入数1"))
b = Val(InputBox("请输入数2"))
If a > b Then
c = a: d = b
Else
c = b: d = a
End If
x = c Mod d
Do While x <> 0
If x = 0 Then Exit Do
c = d
d = x
x = c Mod d
Loop
Print "最大公约数"; d
End Sub

3)改为：
Private Sub Command2_Click()
Dim a(1 To 10) As Integer, i%, max%, min%
Cls
For i = 1 To 10
a(i) = Val(InputBox("请输入"))
Next i
max = a(1)
min = a(1)
For i = 2 To 10
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Print "max="; max; "min="; min
End Sub

4)改为：
Private Sub Command8_Click()
Cls
Dim n%, i%, Sum%
n = Val(InputBox("请输入"))
Sum = 0
For i = 1 To n
Sum