VB编程问题

如何将数组a（368）～a（2414）包含的数中，用最大的数减去最小的数
然后用text1窗口输出

答案：初始界面：
 
 
我用随即数为数组赋值了，随机的两位小数，因为不知道你的数组是什么值。
 
代码：
 
Private Sub Command1_Click()
    Dim a(1 To 2500) As Integer, i As Integer
    Dim max As Integer, min As Integer
    Randomize
    For i = 1 To 2500
        a(i) = Int(Rnd * 90) + 10
    Next i
    max = a(368)
    min = a(368)
    For i = 368 To 2414
        If a(i) > max Then max = a(i)
        If a(i) < min Then min = a(i)
    Next i
    Text1.Text = Str(max - min)
End Sub
图：
 

上一个：vb编程问题
下一个：请教VB编程