vb程序最大公约数

《vb程序最大公约数》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、------------------------------------------作者xxxx------------------------------------------日期xxxxvb程序最大公约数【精品文档】PrivateSubCommand1_Click()Dimi,sAsIntegeri=0s=0DoWhiles<10000i=i+1s=s+iLoopLabel2.Caption="使s=1+2+...+10000的最大值n的值是："&iEndSubPrivateSubCommand2_Click()a=CInt(Text1.Text)b=CInt(Text2.Text

2、)Ifa0)a=b:b=rr=aModbLoopLabel6.Caption=Text1.Text&"和"&Text2.Text&"的最大公约数为："&bEndSubPrivateSubCommand3_Click()ption=""Label6.Caption=""Text1.Text=""Text2.Text=""EndSubPrivateSubCommand4_Click()EndEndSubPrivateSubCommand5_Click()EndSubPrivateSubFo

3、rm_Load()Label1.Caption="1.计算自然数的累加和s=1+2+....+n时要找出使s不大于10000最大自然数n"Label3.Caption="求x1和x2的最大公约数？"EndSub【精品文档】【精品文档】PrivateSubCommand1_Click()n=0h=Val(Text1.Text)DoWhileh<8848n=n+1h=2*hLoopText2.Text=nEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()EndEn

4、dSub【精品文档】