排序--vb程序设计

发布网友发布时间：2022-05-02 14:25

共3个回答

热心网友时间：2022-06-20 11:28

呵呵, 5分2道题, ,第3个自己学习学习吧.

Dim nnn%(99)

Private Sub Command1_Click()
Dim i%, j%, m%
Randomize

For i = 0 To 99 '随机100个3位数
nnn(i) = Int(Rnd * 899 + 100)
Next

Dim stime
stime = Timer '定义变量放入当时时间

For i = 0 To 99 '从小到大排序,冒泡泡法呵
For j = i + 1 To 99
If nnn(i) > nnn(j) Then
m = nnn(i)
nnn(i) = nnn(j)
nnn(j) = m
End If
Next
Next

Print "完成数据排序.... 总用时:" & IIf((Timer - stime) < 0.0001, "小于0.0001", Timer - stime) & "秒!!"

End Sub

Private Sub Command2_Click()
Dim n%, i%
n = Val(InputBox("请输入一个3位的正整数!!"))

For i = 0 To 99
If nnn(i) = n Then
MsgBox "找到了你输入的这个数!! 它的位置是:" & i
Exit Sub
End If
Next
MsgBox "没有找到你输入的这个数!! 书上说它是-1位置呵!!"
End Sub

热心网友时间：2022-06-20 11:28

第三题可以用递减，再赋值。

热心网友时间：2022-06-20 11:29

搜藏了，