VB编写一个应用程序，要求具有下列功能。每一个功能由一个通用过程来实现

Question

编写一个应用程序，要求具有下列功能。每一个功能由一个通用过程来实现。
1.读入一个N个元素的数组
2.在数组的后面添加一个元素
3.在数组中第K个无素前插入一个元素
4.删除数组中第K个元素
5.删除数组中指定值的元素(建议编定一个检索用的Funtion过程,检索成功时,函数返回值为检索到的元素的下标)

Answer 1

Dim a() As Integer
Private Sub Command1_Click()
ReDim Preserve a(20)
For i = 1 To 20
a(i) = Int(Rnd * 101 + 0)
Text1.Text = Text1.Text & Str(a(i)) & " "
Next i
End Sub

Private Sub Command2_Click()
Dim x As Integer
ReDim Preserve a(21)
a(21) = Val(InputBox("请输入要添加的元素"))
Text1.Text = Text1.Text & Str(a(21)) & " "
End Sub

Private Sub Command3_Click()
Dim y As Integer
Text1.Text = ""
m = Val(InputBox("请输入要插入的位置"))
y = Val(InputBox("请输入要插入的元素"))
ReDim Preserve a(22)
For i = 21 To m Step -1
a(i + 1) = a(i)
Next i
a(m) = y
For i = 1 To 22
Text1.Text = Text1.Text & Str(a(i)) & " "
Next
End Sub
Private Sub Command4_Click()
Dim y As Integer
Text1.Text = ""
m = Val(InputBox("请输入要删除的第几个数"))
For i = m To 21 Step 1
a(i) = a(i + 1)
Next i
For i = 1 To 21
Text1.Text = Text1.Text & Str(a(i)) & " "
Next

End Sub

Private Sub Command5_Click()
Dim y As Integer
Text1.Text = ""
m = Val(InputBox("请输入要删除的数"))
For i = 1 To 21
If a(i) = m Then
For x = i To 20 - t
a(x) = a(x + 1)
Next x
t = t + 1
End If
Next i
For i = 1 To 21 - t
Text1.Text = Text1.Text & Str(a(i)) & " "
Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim m(10)
Randomize
For i = 1 To 10
m(i) = Int(Rnd() * 100)
If m(i) > Max Then Max = m(i)
Print m(i);
Next
Print
Print "Max="; Max
End Sub