请用VB程序编程求两个正整数m和n的最大公约数和最小公倍数.
问题描述:
请用VB程序编程求两个正整数m和n的最大公约数和最小公倍数.
如上标题,用VB程序实现
答
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 Su...