VB新的上机等级考试程序调试题及答案.docVIP

数组中删除一个指定的数据 Option explicit Public Sub Del() 该过程从一个含有10个数组元素的数组中删除一个指定的数据，若该数据不存在，则给出提示。 先产生10个[1，100]的随机整数 从键盘上输入一个数，将该数从数组中删除 Randomize Dim x As Integer Dim a() As Integer Dim i As Integer, pos As Integer ReDim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) + 1 Next i Form1.Print 原始数据： For i = 1 To 10 Form1.Print a(i); ; Next i Form1.Print x = Val(InputBox(输入删除的数x=)) pos = 0 For i = 1 To 10 If x = a(i) Then ------1----- ‘pos=i Exit For End If Next i If pos 0 Then For i = -----2------ To 9 ‘pos -------3------- ‘a(i)=a(I+1) Next i ReDim Preserve a(9) 保留原数组中的9个数 Form1.Print 删除后数据： For i = 1 To 9 Form1.Print a(i); ; Next i Form1.Print Else MsgBox 数组中未找到 Str(x) ,删除不成功 End If End Sub 数组的移动 Public Sub p(a%()) 该过程是用于整理数组a，使其中小于零的元素移到数组的前端， 大于零的元素移到数组的后端，等于零的元素留在数组的中间。 Dim i%, low%, high%, t% low = 0 i = 0 high = UBound(a) - 1 do While ----1---- If a(i) 0 Then t = a(i) a(i) = a(low) a(low) = t ----2---- i = i + 1 ElseIf a(i) 0 Then t = a(i) a(i) = a(high) a(high) = t -----3----- Else ----4---- End If Loop End Sub 参考答案： Public Sub p(a%()) 该过程是用于整理数组a，使其中小于零的元素移到数组的前端， 大于零的元素移到数组的后端，等于零的元素留在数组的中间。 Dim i%, low%, high%, t% low = 0 i = 0 high = UBound(a)-1 Do While i = high If a(i) 0 Then t = a(i) a(i) = a(low) a(low) = t low = low + 1 i = I+1 ElseIf a(i) 0 Then t = a(i) a(i) = a(high) a(high) = t high = high - 1 Else i = i + 1 End If Loop End Sub Private Sub Form_Click() Dim a(4) As Integer For i = 0 To 3 a(i) = InputBox() Print a(i); Next i Call p(a) Print For i = 0 To 3 Print a(i); Next i End Sub 匹配的次数 Option Explicit Public Sub findstr() 该过程通过调用matchCoun