2.Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim n As Integer
Forn=10 T0 99
a=n\10
b=n Mod 10
If b*b + a =n Then
Print n
End If
Next
End Sub
此程序代码运行后的输出是 。
3.Function mn(m As Integer,n As Integer) As Integer
If m Mod n=0 Then
mn=n
Else
mn=mn(n,m Mod n)
End If
End Function
Print mn(27,18)
此程序代码运行后的输出是 。