Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
For i = 1 To 10
mark(i) = Int(Rnd() * 91 + 10)
ListBox1.Items.Add(mark(i))
Next i
Max = 10
Min = 100
For i = 1 To 10
If Min > mark(i) Then Min = mark(i)
x1 = i
If Max < mark(i) Then Max = mark(i)
x2 = i
Next i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Remove(x1)
End Sub
End Class
同志们，紧急求救了
我用上面的函数生成一个数组并显示在ListBox1里面，可是点击Button2以后没反应啊，这是为什么？？？？不是应该删除数组里的最大值的么？
急急急
补充一句，所有都已经在模块中Public 过了
不对呀兄弟，我先前就定义过了呀，还是没反应，谁知道，速度速度呀拜托拜托了
