最大公约数和最小公倍数vb代码如何写
答案:1 悬赏:60 手机版
解决时间 2021-02-24 03:26
- 提问者网友：遮云壑
- 2021-02-23 10:45
最大公约数和最小公倍数vb代码如何写
最佳答案
- 五星知识达人网友：骨子里都是戏
- 2021-02-23 11:51
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 "请输入7a64e4b893e5b19e31333231633138一个正整数！", 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是计算
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 "请输入7a64e4b893e5b19e31333231633138一个正整数！", 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是计算
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯