Option ExplicitPrivate Sub Command1_Click()Dim A As Integer, B As Integer, C As IntegerDim i As IntegerA = Val(Text1.Text)B = Val(Text2.Text)If A > B ThenC = AA = BB = CElseC = AEnd IfDo While TrueIf C Mod A = 0 And C Mod B = 0 ThenLabel1.Caption = CExit DoElseC = C + 1End IfLoopEnd Sub
哈哈，谢谢楼上的两个高手哦！！！
窗体要有俩文本框 名字分别为TEXT1 和 TEXT2还要有一个按扭 名字叫 COMMOND1然后在 按扭的 chick 时间中填写如下代码：a=val(text1.text)b=val(text2.text)iif (a>b) a:b’选出最大的数c=a ‘把最大数给Cif c mod a=0 and c mod b =0 then ’判断是否是公倍数msgbox c‘输出elsec=c+b ’每次最少增加最小的数那么多 这算法比楼上的快捷end if原创哦~ 我 学妹SuBOA敬上
答：program lianxi06（input,output）； Var n,a,b,c：integer；; Begin Write('n=...详情>>
答：这个有很多详情>>
答：七十年代的计算机网络 X.25 分组交换网：各国的电信部门建设运行 各种专用的网络体系结构：SNA，DNA Internet 的前身ARPANET进行实验运行 ...详情>>
