UC知道能帮忙用VB编写一个程序吗?
来源：百度知道 编辑：UC知道 时间：2024/09/13 05:12:00
随机产生十个两位数，然后利用选择法把它们从小到大排序。程序的设计界面要求，程序执行时单击【产生随机数】按钮将产生10个两位数并显示在第一个文本框中，单击【排序】按钮将对随机产生的数进行排序并把排序结果显示在第二个文本框中。
窗体里还有一个退出键
窗体里还有一个退出键
Option Explicit
Dim Num(10) As Integer
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 9
Randomize (Time)
Num(i) = Rnd * 19 + 1
Text1.Text = Text1.Text & Num(i) & " "
Next i
End Sub
Private Sub Command2_Click()
Dim i, j, k As Integer
Dim perm As Integer
For i = 0 To 9
For j = 0 To 9 - i
If Num(j) > Num(j + 1) Then
perm = Num(j)
Num(j) = Num(j + 1)
Num(j + 1) = perm
End If
Next j
Next i
For k = 0 To 9
Text2.Text = Text2.Text & Num(k) & " "
Next k
End Sub
这个功能不算难
for i=0 to 8
for j=i+1 to 9
'判断大小及交换
next j
next i
这样才是选择法排序滴。