Article View: cn.bbs.comp.lang.visual-basic
Article #54Re: �������DO LOOPѭ��������!!!�����!!!
From: panfock
Date: Fri, 27 Apr 2007 17:06
Date: Fri, 27 Apr 2007 17:06
34 lines
1592 bytes
1592 bytes
�� �� zzuli. �Ĵ������ᵽ: ��
: 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
: ...................
Dim m1, n1, m, n, r As Integer
n1 = Val(InputBox("����n1"))
m1 = Val(InputBox("����m1"))
r = n: n = n1: m = m1
Do
If n > m Then
r = m: m = n: n = r
End If
r = m - n
m = n
n = r
Loop Until r = 0
TextBox1.Text = m
TextBox2.Text = m1 * n1 / m
--
pppppp ffffff
nnnnnn oooooo
aaaaaa cccccc
kkkkkkkkkkkkk
[m[34m�� ��Դ ����ɾ�bbsվ http://bbs.scau.edu.cn [FROM: 202.116.160.*][m
Technical Details
Message-ID:
<4TelZX$_e0@bbs.scau.edu.cn>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!news.glorb.com!news.szu.edu.cn!SCAUShow Full Headers
Complete Article Headers
X-Google-Thread: 109fdd,891b2b5458075c33,start X-Google-Attributes: gid109fdd,public X-Google-Language: ENGLISH,GB Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!news.glorb.com!news.szu.edu.cn!SCAU From: Panfock@bbs.scau.edu.cn-SPAM.no (panfock) Newsgroups: cn.bbs.comp.lang.visual-basic Subject: Re: �������DO LOOPѭ��������!!!�����!!! Date: 27 Apr 2007 17:06:58 GMT Organization: ����ɾ� Message-ID: <4TelZX$_e0@bbs.scau.edu.cn> Mime-Version: 1.0 Content-Type: text/plain; charset="gb2312" Content-Transfer-Encoding: 8bit X-Filename: VB/M.1177693617.K0