Question

VB有一个数组A,含有数值2,3,6,8,9,12,14,19，插入一个数值10

VB有一个数组A,含有数值2,3,6,8,9,12,14,19，插入一个数值10

1,假设数组从1开始,

2,把原来数组元素输出

3,可选择数组位置插入一个数10

4,把插入一个数后的数组元素输出

Answer 1

Option Base 1

Private Sub Command1_Click()

  Dim a

  a = Array(2, 3, 6, 8, 9, 12, 14, 19)

  Print "原来的数组："

  For i = 1 To UBound(a)

    Print a(i);

  Next i

  Print: Print

  ReDim Preserve a(UBound(a) + 1)

  n = CInt(InputBox("请输入要插入数的位置："))

  Print "要把10插入到第" & n & "个位置"

  i = UBound(a)

  While i > n

    a(i) = a(i - 1)

    i = i - 1

  Wend

  a(i) = 10

  Print "插入后的数组："

  For i = 1 To UBound(a)

    Print a(i);

  Next i

  Print

End Sub