作者ssaume (南极居乡民)
看板Visual_Basic
标题回圈显示的问题
时间Thu Dec 15 01:31:01 2005
程式如下
Dim a As Integer =
Convert.ToInt32(TextBox1.Text)
Dim b As Integer =
Convert.ToInt32(TextBox2.Text)
Dim c As Integer
Label1.Text = ""
If a >= b Then
For c = b To 1 Step -1
Label1.Text &= "最大公因数 = " & number(a, b,
c) & vbCrLf
Next
ElseIf b >= a Then
For c = a To 1 Step -1
Label1.Text &= "最大公因数 = " & number(a, b,
c) & vbCrLf
Next
End If
End Sub
Function number(ByVal a1 As Integer, ByVal b1 As
Integer, ByVal c1 As Integer) As Integer
If c1 = 1 Then
Return 1
ElseIf (a1 Mod c1) = 0 And (b1 Mod c1) = 0 Then
Return c1
Else
Return number(a1, b1, c1 - 1)
End If
End Function
跑出来後 会一直label会一直出现最大~最小的公因数
有什麽方法可以让他只停在第一个最大的吗?
这是我同学想的程式 他问我 但我想不出来@@
又再次麻烦大大一下了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.59.230.172
※ 编辑: ssaume 来自: 61.59.230.172 (12/15 01:32)
1F：推 fumizuki:可以加 Exit For 离开回圈 12/15 07:26