大学vb操作题解析.docVIP

1，下面程序对已知数组a，删除数组中数组元素中某个元素 Private Sub Command1_Click() Dim a(), key%, i%, j% a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) key = Val(InputBox(输入要删除的值)) For i = 0 To UBound(a) If key = a(i) Then For j = i + 1 To UBound(a) a(j - 1) = a(j) Next j ReDim Preserve a(UBound(a) - 1) MsgBox (删除完成) Exit Sub End If Next i MsgBox (找不到要删除的元素) End Sub 2，下列程序表示将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序 Private Sub Form_Click() Dim a, i%, n%, m% a = Array(19, 17, 15, 13, 11, 9, 7, 5, 3, 1) n = UBound(a) ReDim Preserve a(n + 1) m = Val(InputBox(输入欲插入的数)) For i = UBound(a) - 1 To 0 Step -1 If m = a(i) Then a(i + 1) = a