vb程序最大公约数.doc

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

1、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)Ifa0)a=b:b=rr=aModbLoopLabel6.Caption=Text1.Text&"和"&Text

2、2.Text&"的最大公约数为："&bEndSubPrivateSubCommand3_Click()Label2.Caption=""Label6.Caption=""Text1.Text=""Text2.Text=""EndSubPrivateSubCommand4_Click()EndEndSubPrivateSubCommand5_Click()Form2.ShowForm1.HideEndSubPrivateSubForm_Load()Label1.Caption="1.计算自然数的累加和s=1+2+....+n时要找出使s不大于10000最大自然数n

3、"Label3.Caption="求x1和x2的最大公约数？"EndSubPrivateSubCommand1_Click()n=0h=Val(Text1.Text)DoWhileh<8848n=n+1h=2*hLoopText2.Text=nEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()EndEndSub