vb程序最大公约数.docxVIP

1.计算自然数的累加和s=l+2+....+n时要找出使s不大于10000最大自 然数n 使s=l+2+. . . +10000的最大值n的心足：141 求x 1和x2的最大公约数? xl= 48x2=24 48和24的最大公约数为：24 计算1计算2潘楚退出下一个案例 Private Sub Command 1 _Click()Dim i, s As Integer i = 0s = 0Do While s 10000 = i + 1 s = s + i Loop Label2.Caption = 使 s=l+2+…+10000 的最大值 n 的值是： i End SubPrivate Sub Command2_Click()a = Clnt(Textl.Text) b = CInt(Tcxt2.Tcxt) If a b Then t = a: a = b: b = t End If r = a Mod bDo While (r 0) a = b: b = r r = a Mod b Loop Label6.Caption = Textl.Text ”和“ Text2.Text ”的最大公约数为：” bEnd SubPrivate Sub Command3_Click()Label2.Caption = Label6.Caption 二””Textl.Text =