vb求解···关于 do ···loop until那一段···给跪了
浏览量：3442 回帖数：6
1楼
Private Sub Form_Click()
Dim a() As Integer
Dim i As Integer, div As Integer, n As Integer
n = InputBox("数组元素个数n=")
ReDim a(n)
For i = 1 To n
a(i) = InputBox("a (" & i & ")= ")
Next i
div = a(1)
For i = 2 To n
If div > a(i) Then div = a(i)
Next i
Do
For i = 1 To n
If a(i) Mod div <> 0 Then div = div - 1: Exit For
Next i
Loop Until i = n + 1
Print div
End Sub
Private Sub Form_Click()
Dim a() As Integer
Dim i As Integer, div As Integer, n As Integer
n = InputBox("数组元素个数n=")
ReDim a(n)
For i = 1 To n
a(i) = InputBox("a (" & i & ")= ")
Next i
div = a(1)
For i = 2 To n
If div > a(i) Then div = a(i)
Next i
Do
For i = 1 To n
If a(i) Mod div <> 0 Then div = div - 1: Exit For
Next i
Loop Until i = n + 1
Print div
End Sub
发表于 2010/6/12 15:09:09
