VB 参数不可选

VB 参数不可选

这里面m和n应该是函数(带参数),而不是变量. 所以单独使用m, n由于没有传入参数而导致错误. 改正如下

Dim a As Long, b As Long
Function m(ByVal a As Long, ByVal b As Long) As Long
Dim c As Long
If a < b Then
c = a
a = b
b = c
End If
Do
c = a Mod b
If c = 0 Then Exit Do
a = b
b = c
Loop
m = b
End Function
Function n(ByVal a As Long, ByVal b As Long) As Long
n = a * b / m(a, b)
End Function
Private Sub Command1_Click()
a = InputBox("")
b = InputBox("")
List1.AddItem "最大公约数" & m(Val(a), Val(b))
List1.AddItem "最小公倍数" & n(Val(a), Val(b))
End Sub

可正常运行.