Article View: cn.bbs.comp.lang.visual-basic
Article #238�������DO LOOPѭ��������!!!�����!!!
From: PBer
Date: Mon, 11 Dec 2006 14:20
Date: Mon, 11 Dec 2006 14:20
24 lines
1616 bytes
1616 bytes
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim m1, n1, m, n, r
n1 = InputBox("����n1")
m1 = InputBox("����m1")
If m1 > n1 Then
m = m1 : n = n1
Else
m = n1 : n = m1
End If
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
TextBox1.Text = n
TextBox2.Text = m1 * n1 / n
End Sub
�����������Լ�����С������Ĵ���,����˵������շת����������,��λţ����,������Ϣ��,����һ�۰�,��ô��շת�����������
--
[m[34m�� ��Դ:��BBS ˮľ�廪վ http://smth.edu.cn��[FROM: 218.198.115.*][m
Technical Details
Message-ID:
<4RTfhI$5Cj@bbs.tsinghua.edu.cn>Path:
arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!news3.google.com!newshub.sdsu.edu!newsfeed.news2me.com!newsfeed.media.kyoto-u.ac.jp!news.neu.edu.cn!news.happynet.org!SMTHShow Full Headers
Complete Article Headers
X-Google-Thread: 109fdd,4990dee569af2b4,start X-Google-Attributes: gid109fdd,public X-Google-Language: ENGLISH,GB Path: arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!news3.google.com!newshub.sdsu.edu!newsfeed.news2me.com!newsfeed.media.kyoto-u.ac.jp!news.neu.edu.cn!news.happynet.org!SMTH From: zzuli@smth.edu.cn-SPAM.no (PBer) Newsgroups: cn.bbs.comp.lang.visual-basic Subject: �������DO LOOPѭ��������!!!�����!!! Date: 11 Dec 2006 14:20:18 GMT Organization: BBS ˮľ�廪վ Message-ID: <4RTfhI$5Cj@bbs.tsinghua.edu.cn> Mime-Version: 1.0 Content-Type: text/plain; charset="gb2312" Content-Transfer-Encoding: 8bit X-Filename: VisualBasic/r/M.1165846818.E0