VB小程序出现问题啊

来源：百度知道 编辑：UC知道 时间：2024/06/15 10:04:57
Dim i, j, stu As Integer

If n <= 0 Then Exit Sub '数量小于等于0时退出

For i = 0 To n - 1 '所有数据组赋给List2
List2.AddItem List1.List(i)
Next

For i = 0 To n - 1 '在List2中排序
For j = i + 1 To n
If Val(List2.List(i)) < Val(List2.List(j)) Then
stu = List2.List(i)
List2.List(i) = List2.List(j)
List2.List(j) = stu
End If
Next
Next

A = 0
B = 0
C = 0
D = 0
T = 0
For i = 0 To n - 1
If Val(stu(i)) >= 80 Then
A = A + 1
Else
If Val(stu(i)) >= 60 And Val(stu(i)) <= 79 Then
B = B + 1
Else
If Val(stu(i)) >= 40 And Val(stu(i)) <= 59 Then
C = C + 1
Else
D = D + 1
End If
End If
End If
Next
Label6.Caption = List2.List(0)
Label7.Caption = List2.List(List2.ListCount - 1)

首先你的stu是一个数组,而你上面的Dim i, j, stu As Integer 这句首先错了把他定义成了变量,当然回提示不存在,Listbox也是一个数组,后面的代码没问题,问题出在前面!

Dim i, j, stu As Integer
这行有问题。stu是个简单整型变量，但是在后边却又
If Val(stu(i)) >= 80 Then
stu成了数组，似乎还是字符串型的！
这就是错误的来源。

解决方法，当然修改一边就行。修改那边看你设计的本意了