vb： 在do while 条件中怎么加 for的循环语句

Question

我想在do while 语句的条件中加入for 循环语句，怎么实现？比如：a（9）都为随机数，d（i）=a（3*i-2）+a（3*i-1）+a（3*i），要得到d（i）=6，我这么输入为什么不行？

Dim a(9) As Integer, i As Integer, d(3) As Integer
Do While For i=1 to 9
d (i) <> 6
Next i
For i = 1 To 9
a(i) = Fix(Rnd * 3) + 1
Next i
For i = 1 To 3
d(i) = a（3*i-2）+a（3*i-1）+a（3*i）
Next i
loop

Answer 1

Private Sub command1_Click()
Dim a(9) As Integer, i As Integer, d(4) As Integer
Do While d(i) <> 6
For i = 1 To 9
a(i) = Fix(Rnd * 3) + 1
Next i
For i = 1 To 3
d(i) = a(3 * i - 2) + a(3 * i - 1) + a(3 * i)
If d(i) = 6 Then Exit For
Next i
Loop
Print d(i)
End Sub

追问

那你Do While d(i) 6中i并没有定义范围啊，无法运行啊

追答

循环体内一直在计算d(i)的值
For i = 1 To 3
d(i) = a(3 * i - 2) + a(3 * i - 1) + a(3 * i)
If d(i) = 6 Then Exit For
Next i
只要没找到d(i)=6就一直循环下去,直到d(i)=6不符合Do While d(i) 6条件才结束循环

Answer 2

Dim a(9) As Integer, i As Integer, d(3) As Integer
Do while d(i)<>6
  For i = 1 To 9
      a(i) = Fix(Rnd * 3) + 1
  Next i
  For i = 1 To  3
      d(i) = a（3*i-2）+a（3*i-1）+a（3*i）
  Next i
loop