编写了一个简单程序运行时总显示用户定义类型未定义，求大神看看怎么回事

Question

Function gcd(ByVal x As Integer, ByVal y As inteher) As Integer

Do While y <> 0
reminder = x Mod y
x = y
y = reminder
Loop
gcd = x
End Function

Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 96: b = 64
x = gcd(a, b)
Print "GCD="; x

End Sub

Answer 1

试试inteher -> Integer
即
Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer本回答被提问者和网友采纳