VB编程下标越界

来源：百度知道编辑：UC知道时间：2024/05/14 00:58:12

就是一个输入六个数排序输出的问题
我的程序如下，但运行后出现下标越界

Private Sub Command1_Click()
Dim t As Integer
Dim i As Integer
Dim b As Single
Dim a(1 To 10000) As Integer

i = 1

Do
a(i) = InputBox("输入数字")
i = i + 1
Loop Until i = 7
i = 1
t = 1
Do
Do
If a(i + 1) < a(i) Then
b = a(i)
a(i) = a(i + 1)
a(i + 1) = b

End If
i = i + 1
Loop Until i = 7
t = t + 1
Loop Until t > 6

i = 1
Do
Print a(i)
i = i + 1
Loop Until i = 7

End Sub
怎么解决？

i初始化的位置放错了

Private Sub Command1_Click()
    Dim t As Integer
    Dim i As Integer
    Dim b As Single
    Dim a(1 To 10000) As Integer

    i = 1

    Do
        a(i) = InputBox("输入数字")
        i = i + 1
    Loop Until i = 7
    t = 1
    Do
        i = 1 'i应在这里初始化
        Do
          &n

VB编程下标越界 vb编程下标越界怎么处理 EXCEL中VB编程，下标越界错误下标越界（VB） vb 下标越界 VB数组下标越界 VB 下标越界问题 vb 数组下标越界 vb下标越界问题???? 什么叫下标越界？ VB