杭州交通信息网比亚迪股票价值分析:vb编程的小问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/06 18:03:39
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, l As Integer
y(0) = 29
y(1) = 21
y(2) = 202
y(3) = 201
y(4) = 203
y(5) = 205
y(6) = 206
y(7) = 208
y(8) = 202
y(9) = 206
a = y(i)
b = y(j)
c = y(k)
d = y(l)
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
If i <> j <> k <> l Then
x = a * b / (c * d) '
Print x
Else
Text1.Text = "错误"
End If
Next i
Next j
Next k
Next l
endsub
一运行的时候可以看到界面
可是一点按纽就出现"无效的NEXT控件变量引用"
就指向i了
哪位大人帮我看一下是什么原因
谢谢了先
Dim i As Integer, j As Integer, k As Integer, l As Integer
y(0) = 29
y(1) = 21
y(2) = 202
y(3) = 201
y(4) = 203
y(5) = 205
y(6) = 206
y(7) = 208
y(8) = 202
y(9) = 206
a = y(i)
b = y(j)
c = y(k)
d = y(l)
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
If i <> j <> k <> l Then
x = a * b / (c * d) '
Print x
Else
Text1.Text = "错误"
End If
Next i
Next j
Next k
Next l
endsub
一运行的时候可以看到界面
可是一点按纽就出现"无效的NEXT控件变量引用"
就指向i了
哪位大人帮我看一下是什么原因
谢谢了先
循环嵌套错误，正确的应该是：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, l As Integer
y(0) = 29
y(1) = 21
y(2) = 202
y(3) = 201
y(4) = 203
y(5) = 205
y(6) = 206
y(7) = 208
y(8) = 202
y(9) = 206
a = y(i)
b = y(j)
c = y(k)
d = y(l)
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
If i <> j <> k <> l Then
x = a * b / (c * d) '
Print x
Else
Text1.Text = "错误"
End If
Next l
Next k
Next j
Next i
End Sub