vb中输入两个自然数求最大公约数的代码
答案:1 悬赏:0 手机版
解决时间 2021-10-19 19:13
- 提问者网友:最爱你的唇
- 2021-10-19 11:12
vb中输入两个自然数求最大公约数的代码
最佳答案
- 五星知识达人网友:毛毛
- 2021-10-19 11:54
PrivateSubCommand1_Click() DimaAsLong,bAsLong,cAsLong a=Val(InputBox("请输入第一个数!")) b=Val(InputBox("请输入第二个数!")) Ifa>bThen c=b Else c=a EndIf DoUntilaModc=0AndbModc=0 c=c-1 Loop MsgBoxa&"和"&b&"的最大公约数为:"&c EndSub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯