2020-05-19 09:05发布
如何使用vb求两个数的最大公约数和最小公倍数？vb中求最小公倍数和最大公约数的代码如何写？
Private Sub Command1_Click()
Dim a As Long, b As Long, n As Long, s As Long
a = Text1.Text
b = Text2.Text
If a <= 0 Or b <= 0 Then
MsgBox "请输入一个正整数！", vbInformation + vbOKOnly, "错误！"
Exit Sub
ElseIf Int(a) <> a Or Int(b) <> b Then
End If
Do
r = a Mod b
a = b
b = r
Loop While r <> 0
Label2.Caption = CStr(a)
n = 2
Do Until n Mod a = 0 And n Mod b = 0
n = n + 1
Loop
Label3.Caption = CStr(n)
Text1.SetFocus
End Sub
注：label2是大公约，lebel3是小公倍，text1与text2为两数输入，command1是计算
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','https://www.seekhill.com/wenda/data/attach/logo/logo.png', '推荐 不语丝 的问题《vb语言最大公约数和最小公倍数代码怎么写？》','https://www.seekhill.com/wenda/answer/192/194.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
Private Sub Command1_Click()
Dim a As Long, b As Long, n As Long, s As Long
a = Text1.Text
b = Text2.Text
If a <= 0 Or b <= 0 Then
MsgBox "请输入一个正整数！", vbInformation + vbOKOnly, "错误！"
Exit Sub
ElseIf Int(a) <> a Or Int(b) <> b Then
MsgBox "请输入一个正整数！", vbInformation + vbOKOnly, "错误！"
Exit Sub
End If
Do
r = a Mod b
a = b
b = r
Loop While r <> 0
Label2.Caption = CStr(a)
a = Text1.Text
b = Text2.Text
n = 2
Do Until n Mod a = 0 And n Mod b = 0
n = n + 1
Loop
Label3.Caption = CStr(n)
Text1.SetFocus
End Sub
注：label2是大公约，lebel3是小公倍，text1与text2为两数输入，command1是计算
一周热门 更多>