 |
|
登录 注册 |
| 浙大论坛 > 校园动态 > 浏览当前帖子 | 最新帖子进站窗口排行在线会员隐藏左侧栏 |
| vb求解···关于 do ···loop until那一段···给跪了 | |
| 【返回本版】 【发表帖子】 【回复帖子】 | 浏览量 3282 回帖数 6 |
 |
苹果…… 等级 VIP 楼主 发表于 2010/6/12 15:09:09 编 辑 |
|
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 |
|
 |
路边小客 等级 VIP 2 楼 发表于 2010/6/12 17:54:46 编 辑 |
|
出门左转，VB吧 |
|
 |
宝贝猪 等级 VIP 3 楼 发表于 2010/6/12 18:38:21 编 辑 |
|
呃，谢谢~ |
|
 |
leave 等级 VIP 4 楼 发表于 2010/6/12 21:11:26 编 辑 |
|
VB会的人不多……（在本吧） |
|
 |
心梦都在 等级 VIP 5 楼 发表于 2010/6/12 22:56:17 编 辑 |
|
楼主想说什么问题 |
|
 |
山野雾梦 等级 VIP 6 楼 发表于 2010/6/13 2:30:54 编 辑 |
|
不就是求一个数组的最大公约数么 |
|
 |
北斗星 等级 VIP 7 楼 发表于 2010/6/13 2:58:13 编 辑 |
|
嗯，现在懂了~ |
|
| 1 |
| 论坛帮助 友情链接 会员认证删帖申请 联系我们 |