[vb牛人看这里]输入两正整数，求他们的最大公因数
答案:2 悬赏:40
解决时间 2021-02-20 23:11
- 提问者网友：乏味沐染
- 2021-02-20 03:46
RT，求具体程序，求详解！
最佳答案
- 二级知识专家网友：湫止没有不同
- 2021-02-20 04:12
Private Sub Form_Click()
Dim N1 As Integer, N2 As Integer, Nmin As Integer
Dim I As Integer, G As Integer
N1 = InputBox("输入第一个数：")
N2 = InputBox("输入第二个数：")
Nmin = IIf(N1 < N2, N1, N2) '用IIF函数来判断N1和N2之中谁是最小的数
For I = 1 To Nmin
If N1 Mod I = 0 And N2 Mod I = 0 Then G = I '用for循环找出公因数
Next I
Print N1; "和"; N2; "的最大公因数是："; G
End Sub
Dim N1 As Integer, N2 As Integer, Nmin As Integer
Dim I As Integer, G As Integer
N1 = InputBox("输入第一个数：")
N2 = InputBox("输入第二个数：")
Nmin = IIf(N1 < N2, N1, N2) '用IIF函数来判断N1和N2之中谁是最小的数
For I = 1 To Nmin
If N1 Mod I = 0 And N2 Mod I = 0 Then G = I '用for循环找出公因数
Next I
Print N1; "和"; N2; "的最大公因数是："; G
End Sub
全部回答
- 1楼网友：承载所有颓废
- 2021-02-20 05:14
额
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯