求做VB：给定任意两个正整数，求其对大公约数和最小公倍数

显示全部楼层 · 2011-6-26 12:18:22

有两个command和一个text，点击第一个command时，利用input输入两个正整数，点击第二个command是计算出其最大公约数和最小公倍数，并显示在text文本框里。

千问 · 2011-6-26 12:18:22

Dim m As Integer, n As IntegerPrivate Sub Command1_Click()m = Val(InputBox("输入正整数"))n = Val(InputBox("输入正整数"))If n * m = 0 ThenMsgBox "两数任何一个数都不能为0!"Exit SubEnd IfEnd SubPrivate Sub Command2_Click()Dim r As Integer, s As Integerr = m: s = 1Do Until m Mod r = 0 And n Mod r = 0 '最大公约数r = r - 1Loop...