VB编程（比较简单的）

VB编程求两个正整数的最大公约数.

2024-11-16 09:29:24

推荐回答（1个）

回答1：

Dim m As Integer
Dim n As Integer
Dim R As Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
R = m Mod n
Do While R <> 0
m = n
n = R
R = m Mod n
Loop
Text3.Text = n

最新问答

电脑开机进入高级启动选项怎么设置？

所有总分类账户一定要设置明细分类账户吗

大学本科有一门课补考没过要重修，听学校说会记录档案~对以后找工作有什么影响？知道的人来帮帮我吧，难受

三国志11威力加强版里最实用的武将特技是什么？

昨晚我姐姐梦见我（是弟弟）被汽车撞死了，又知道是什么意思吗？头十年前也做了相同的梦。哪位给解答一下

家里的WiFi信号是满格，但是却无法上网，这是为什么。？