用VB编写,随便输入6个数让它们从小到大排列,和从大到小排列
来源:百度知道 编辑:UC知道 时间:2024/05/21 07:06:46
从小到大124567
从大到小765421
'在窗体中添加一个button,一个textbox
Option Explicit
Private Sub Command1_Click()
Dim intNum(5) As Integer, intTemp As Integer
Dim i As Integer, j As Integer
Dim strTemp As String
'随机生成6位数字
Randomize Timer
Text1 = Int(Rnd * 1000000)
'向数组中储存数字
For i = 0 To 5
intNum(i) = CInt(Mid(Text1, i + 1, 1))
Next i
'从小到大数组排序
For j = 0 To 5
For i = 1 To 5
If intNum(i - 1) > intNum(i) Then
intTemp = intNum(i - 1)
intNum(i - 1) = intNum(i)
intNum(i) = intTemp
End If
Next i
Next j
'输出结果
strTemp = "从小到大:"
For i = 0 To 5
strTemp = strTemp & " " & intNum(i)
Next i
strTemp = strTemp & vbCrLf & "从大到小:"
For i = 5 To 0 Step -1
strTemp = strTemp & " " & intNum(i)
Next i
MsgBox strTemp
End Sub
Option Base 1
Private Function FindMin(a() As Integer)
Dim Start As Int