27代理免费账号多少:[VB]为什么说我next without for

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 10:45:27
Private Sub calculate_Click()
Dim n As Integer
Dim p As String
Dim m As Integer
Dim t As String
n = Fix(tx_rank.Text)
For i = 1 To n
For j = 1 To n
ay_input(i, j) = yuefen(tx_input((i - 1) * n + j).Text)
Next j
Next i
m = 0
For j = 1 To n
For i = j To n
If ay_input(i, j) <> "0" Then
For k = j To n
t = ay_input(j, k)
ay_input(j, k) = ay_input(i, k)
ay_input(i, k) = t
Next k
For k = j + 1 To n
p = shuchu(ay_input(k, j), ay_input(j, j))
For l = j To n
ay_input(k, l) = shujian(ay_input(k, l), shucheng(ay_input(j, j), p))
Next l
Next k
Next i
Next j
End Sub

因为 If ay_input(i, j) <> "0" Then 没有End If,
所以它不知道从哪里结束。
当你添回End If,错误就没有了。