求VB题目的代码

来源：百度知道 编辑：UC知道 时间：2024/05/22 14:39:47
数组的题目...
点击command1在下面的方框中(我也不知道用哪种..)随机输出1000个0到9999的数字,点击command2把这1000个数字排序在第二个方框中输出,点击command3出现inputbox,输入你要找的数后,出现msgbox告诉你在排序前的第几个和排序后的第几个,如没有则出现"没有要找的数"
哪位高人会做啊....???

新建 工程,2个文本框和3个按钮,记得文本框的MultiLine要设置成true

Dim a(999), b(999)

Private Sub Command1_Click()
Dim i%
Randomize
For i = 0 To 999
a(i) = Int(Rnd * 10000)
b(i) = a(i)
Next
Text1 = Join(a, vbCrLf)
End Sub

Private Sub Command2_Click()
Dim i%, j%, m%
For i = 0 To 999
For j = i + 1 To 999
If b(j) < b(i) Then m = b(i): b(i) = b(j): b(j) = m
Next
Next
Text2 = Join(b, vbCrLf)
End Sub

Private Sub Command3_Click()
Dim i%, n%
n = Val(InputBox("请输入要查找的数！"))
For i = 0 To 999
If n = Val(a(i)) Then
For j = 0 To 999
If n = Val(b(j)) Then Exit For
Next
MsgBox "这个数排序前后的位置分别是：" & i + 1 & "和" & j + 1
Exit For
End If
Next
If i >= 999 Then MsgBox "没有找到这个数!"
End Sub