vb求解···关于 do ···loop until那一段···给跪了

vb求解···关于 do ···loop until那一段···给跪了

楼主

苹果…… [离线]

发帖数：298 积分：3305

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

发表于 2010/6/12 15:09:09

路边小客 [离线]

发帖数：104 积分：3450

2楼

出门左转，VB吧

　　　　　　

发表于 2010/6/12 17:54:46

宝贝猪 [离线]

发帖数：440 积分：3313

3楼

呃，谢谢~

　　　　　　

发表于 2010/6/12 18:38:21

leave [离线]

发帖数：165 积分：2849

4楼

VB会的人不多……（在本吧）

　　　　　　

发表于 2010/6/12 21:11:26

心梦都在 [离线]

发帖数：47 积分：3237

5楼

楼主想说什么问题

　　　　　　

签名档

JACKY-HUANG

发表于 2010/6/12 22:56:17

山野雾梦 [离线]

发帖数：308 积分：3847

6楼

不就是求一个数组的最大公约数么

　　　　　　

签名档

红尘有梦你我寻浪子醉游漫天云

发表于 2010/6/13 2:30:54

北斗星 [离线]

发帖数：378 积分：3822

7楼

嗯，现在懂了~

　　　　　　

签名档

日记里，最灿烂，最深刻，最难忘，最悲哀的几页，现在都已换成过去式。如果不能将整个人的故事一笔抹去，我也只能小心地将有关你的字句删去。不知你何时会想起，你曾摘下一朵花，你始终不知道她的名字，她的花语。她的名字叫玫瑰，她的花语是我爱你。

发表于 2010/6/13 2:58:13

返回本版

1