vb 各位大仙，哪位能帮我解释下以下代码呀，谢谢哟，有加分哦

Dim a()
Private Sub Command1_Click()
a = Array(1, 5, 7, 4, 11, 13)
For i = 0 To 5
    Print a(i);
Next i
End Sub

Private Sub Command2_Click()
Dim i, j, c As Integer
Dim a(), b()
Print
a = Array(1, 5, 7, 4, 11, 13)
If UBound(a) >= 0 Then
    c = Val(InputBox("输入想要判断的数"))
    j = 0
    For i = 0 To UBound(a)
        If a(i) <> c Then
        ReDim Preserve b(j)
        b(j) = a(i)
        j = j + 1
End If
    Next i
If UBound(a) = UBound(b) Then
    Print "该数不在数组中"
Else
    ReDim a(UBound(b))
    Print "该数在数组中，按要求已被删除："
    For i = 0 To UBound(b)
        a(i) = b(i)
        Print a(i); "  ";
    Next i
  End If
End If
End Sub

追问：If UBound(a) = UBound(b) Then    '如果变量数组a的上限等于b上限
怎么判断出  Print "该数不在数组中"

答案：Dim a()    '定义a为数组
Private Sub Command1_Click() '
 a = Array(1, 5, 7, 4, 11, 13)  ' 将 1，5，7，4，11，13赋值给数组a

For i = 0 To 5   '执行6次
    Print a(i);     '输出a(i)
Next i
End Sub

Private Sub Command2_Click()
Dim i, j, c As Integer   '定义i,j,c为整型变量
Dim a(), b()     '*定义变量数组a,b     LZ这不是在同一个窗体里吧？在同一个窗体会报错的
Print                                      '打引  *
a = Array(1, 5, 7, 4, 11, 13)   ' 跟上面一样，将值赋给a
If UBound(a) >= 0 Then          '如果变量数组上限大于0
    c = Val(InputBox("输入想要判断的数"))   ' val是将输入值转换为数字型变量,INPUTBOX是
'提示输入对话框
    j = 0   '设J=0
    For i = 0 To UBound(a)   '在这里是运行6次, UBound(a)表示A数组上限
        If a(i) <> c Then           '如果不等于C
        ReDim Preserve b(j)    '重新定义数组B()
        b(j) = a(i)                        '将数组a(i)赋值给b(j)
 
        j = j + 1    'J递增
End If
    Next i
If UBound(a) = UBound(b) Then    '如果变量数组a的上限等于b上限
    Print "该数不在数组中"             '打印提示
Else
    ReDim a(UBound(b))       '重新定义数组a
    Print "该数在数组中，按要求已被删除："
    For i = 0 To UBound(b)  '''''
        a(i) = b(i)
        Print a(i); "  ";
    Next i
  End If
End If
End Sub

差不多了，其它的都差不多了

上一个：VB装好怎么用不成，求高手指点
下一个：请问怎样使用VB中的ToolBar控件？我在改控件上设置了5个按钮，