VB程序题(2)(2)

For k = 0 To n If x = a(k) Then Exit For Next k

If k > q Then ArrayToText a, Text4: Exit Sub For i = k + 1 To q a(i - 1) = a(i) Next i q = q - 1

ReDim Preserve a(q) For i = 0 To q Next i

ArrayToText a, Text4 End Sub

7、数组插入。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素（数据已按从小到大排好顺序），在文本框Text3中放入待插入的数据，点击按钮Command1，程序将数据插入数组中，且插入数据后数组仍然保持有序，然后将数组放入Text4中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。

Private Sub Command1_Click() Dim a%(), n%, q%, z%, i%, k% n = Val(Text1.Text) - 1

ReDima(n) TextToArray Text2, a q = UBound(a) z = Val(Text3.Text) For k = 0 To q If z

ReDim Preserve a(n + 1) For i = q To k Step -1 a(i + 1) = a(i) Next i a(k) = z For i = 0 To q + 1 Next i

ArrayToText a, Text4 End Sub