vb 的高手帮我找下错误

来源：百度知道 编辑：UC知道 时间：2024/06/01 23:52:43
只要看打箭头的地方就行，像j1(i),这种是文本框数组，由于字数限制只写了一部分，谢谢帮忙！！

Private Sub Command5_Click()
ave1 = 0: ave2 = 0: ave3 = 0: ave4 = 0: ave5 = 0: ave6 = 0: ave7 = 0: ave8 = 0: ave9 = 0: ave10 = 0
v = 0

sum1 = 0
For i = 1 To 10
If j1(i).Text <> "" Then
l = i
max1 = Val(Form2.bz1(l).Text)
min1 = Val(Form2.bz1(l).Text)
Exit For
End If
Next i
Dim n As Integer
For n = 1 To 10
If j1(n).Text = "" Then
Else
sum1 = Val(Form2.bz1(n).Text) + sum1
If Val(Form2.bz1(n).Text) > max1 Then
max1 = Val(Form2.bz1(n).Text)
Else
If Val(Form2.bz1(n).Text) < min1 Then
min1 = Val(Form2.bz1(n).Text)
End If
Next n <-----这为什么提示next没有for啊

If b1 <= 3 Then
ave1 = sum1 / b1
Else
ave1 = (sum1 - max1 - min1) / (b1 - 2)

next n 这种语法已经是老黄历了，以前的basic就用，VB里面早就不用这个了，可以直接把 n 去掉。

Dim n As Integer
For n = 1 To 10
If j1(n).Text = "" Then
Else
sum1 = Val(Form2.bz1(n).Text) + sum1
If Val(Form2.bz1(n).Text) > max1 Then
max1 = Val(Form2.bz1(n).Text)
Else
If Val(Form2.bz1(n).Text) < min1 Then
min1 = Val(Form2.bz1(n).Text)
End If
End If '少了一个End if ,我不知道你是不是要加在这里
Next n

next n 前面少了2个End If
for n ... next n中间共出现3个if，但是只有一个end if，所以才会报错