VB程序题(2)

VB2-2

1、数组最大值。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，点击按钮Command1，找出这n个数中第二大的数放入文本框Text3中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。

Private Sub Command1_Click() Dim a%(), n%, i%, j%, t% n = Val(Text1.Text) - 1 ReDima(n) TextToArray Text2, a For i = 0 To n For j = iTo n t = a(i)

If a(j) > a(i) Then a(i) = a(j): a(j) = t Next Next

Text3.Text = a(1) End Sub

2、数组排序。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，点击按钮Command1，将n个元素按逆序（从大到小）排序后放入文本框Text3中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。

Private Sub Command1_Click() Dim a%(), imin%, n%, t%, j%, i% n = Val(Text1.Text) - 1 ReDima(0 To n) TextToArray Text2, a For i = 0 To n imin = i For j = i + 1 To n

If a(j) > a(imin) Then imin = j Next j t = a(i) a(i) = a(imin) a(imin) = t Next i

For i = LBound(a) To UBound(a) ArrayToText a, Text3 Next End Sub

3、数组查找。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，在文本框Text3中放入待查找的数，点击按钮Command1，程序在数组中从左到右进行查找，将第1个等于该数的元素下标放入文本框Text4中，如果查找不到则将-1放

入Text4中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。要求数组元素下标从0开始。

Private Sub Command1_Click() Dim a%(), n%, k%, y%, i%, x% n = Val(Text1.Text) - 1 ReDim a(n) TextToArray Text2, a k = Val(Text3.Text) y = Val(0) For i = 0 To n y = Val(y + 1)

If a(i) = k Then x = i: Exit For Next Text4.Text = x

If y = Val(n + 1) And x <> n Then Text4.Text = -1 End Sub

4、数组插入。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，在文本框Text3中放入待插入的数据，在文本框Text4中放入在数组中插入的位置，点击按钮Command1，程序将数据插入数组中，然后将数组放入Text5中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。要求数组元素下标从0开始。

Private Sub Command1_Click()

Dim a%()

n = Val(Text1.Text) - 1 ReDim a(n) TextToArray Text2, a q = UBound(a) z = Val(Text3.Text) k = Val(Text4.Text) 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, Text5 End Sub

5、二维数组输入输出。在文本框Text1中放入二维数组（2行2列）的4个元素，点击按钮Command1，将数组上下2行调换后放入文本框Text2中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。 提示：设置文本框的MultiLine属性为True，文本框中才能显示多行数据

Private Sub Command1_Click()

Dim a%(1, 1), b%(1, 1) TextToArray Text1, a For i = 0 To 1 For j = 0 To 1 b(1 - i, j) = a(i, j) Next Next

ArrayToText b, Text2 End Sub

6、数组删除。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，在文本框Text3中放入待查找的数，点击按钮Command1，程序在数组中从左到右进行查找，将第1个等于该数的元素删除后（若找不到则不删除任何元素），将数组放入Text4中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。

Dim a%()

n = Val(Text1.Text) - 1 ReDim a(n) TextToArray Text2, a x = Val(Text3.Text) q = UBound(a)

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

本文来源：https://www.bwwdw.com/article/b9tg.html