VB有一个数组A,含有数值2,3,6,8,9,12,14,19,现在删除一个数值12 ,如何...答:Private Sub Command1_Click()Dim a a = Array(2, 3, 6, 8, 9, 12, 14, 19)Print "原来的数组:"For i = 0 To UBound(a)Print a(i);Next i Print x = 12 Print "要删除的数是:"; x Print For i = 1 To UBound(a)If a(i) = x Then Exit For Next i For j = i...
VB数组删除元素答:Option Base 1 Private Sub Form_Click()Dim a(), n%, k%, i%, x a = Array(1, 4, 7, 10, 13, 16, 19, 22, 25)n = UBound(a)For i = 1 To n Print a(i);Next i Print ReDim Preserve a(n + 1)x = Val(InputBox("输入:"))Print "要删除的数是"; x k = 1...