7,759
社区成员
发帖
与我相关
我的任务
分享
a = inputbox("输入第一个自然数")
b = inputbox("输入第二个自然数")
msgbox zuidagongyueshu(a,b)
Function zuidagongyueshu(ByVal a, ByVal b)
t = a Mod b
If t = 0 Then
zuidagongyueshu = b
Else
zuidagongyueshu = zuidagongyueshu(b,t)
End If
End Function
s = inputbox("请输入原字符串:")
For i = Len(s) To 1 Step -1
r = r & Mid(s,i,1)
Next
msgbox r