杭州交通信息网开在古代的杂货铺txt:用VB编程三位数的最小公倍数怎么编
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/03 03:23:14
暂时没有，
Option Explicit
Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer
Dim i As Integer
A = Val(Text1.Text)
B = Val(Text2.Text)
If A > B Then
C = A
A = B
B = C
Else
C = A
End If
Do While True
If C Mod A = 0 And C Mod B = 0 Then
Label1.Caption = C
Exit Do
Else
C = C + 1
End If
Loop
End Sub
窗体要有俩文本框 名字分别为TEXT1 和 TEXT2
还要有一个按扭 名字叫 COMMOND1
然后在 按扭的 chick 时间中填写如下代码：
a=val(text1.text)
b=val(text2.text)
iif (a>b) a:b’选出最大的数
c=a ‘把最大数给C
if c mod a=0 and c mod b =0 then
’判断是否是公倍数
msgbox c‘输出
else
c=c+b
’每次最少增加最小的数那么多 这算法比楼上的快捷
end if
原创哦~ 我QQ号30052747 学妹SuBOA敬上
哈哈，谢谢楼上的两个高手哦！！！