选择排序法源代码
需积分: 47 54 浏览量
2014-10-27
18:12:37
上传
评论
收藏 13KB DOC 举报
Private Sub Command1_Click()
Dim i, j, intmin As Integer, n As Integer
Dim sngsq(), sngt As Single '输入原始数据
n = Val(InputBox("请输入排序的个数 N 的值"))
ReDim sngsq(n) '重新定义数组
Print "排序前"
For i = 1 To n
MsgBox "请输入第" & Str(i) & "个数:"
sngsq(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型
Print sngsq(i);
Next
Print
Print "排序后"
For i = 1 To n - 1
intmin = i
For j = i + 1 To n
If sngsq(intmin) > sngsq(j) Then intmin = j
Next j
sngt = sngsq(i)
sngsq(i) = sngsq(intmin)
sngsq(intmin) = sngt
Next i
For i = 1 To n
Print sngsq(i); '不换行输出
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
资源评论
