Private Sub Command1_Click()
Dim m_str As String
Dim i As Integer
Dim j As Integer
Dim temp As Integer
Dim Data(3) As Integer '定义数组
For i = 1 To 3
Data(i) = InputBox("请输入正整数", "提示")
Next i
For i = 1 To 3
m_str = m_str + Str$(Data(i)) + " "
Next i
Print
Print "您输入的数字为: " & m_str '在窗体上列出原始的三个数字
For i = 1 To 2 '冒泡法比较大小
For j = i + 1 To 3
If Data(i) < Data(j) Then
temp = Data(j)
Data(j) = Data(i)
Data(i) = temp
End If
Next j
Next i
m_str = ""
For i = 1 To 3
m_str = m_str + Str$(Data(i)) + " "
Next i
Print "从大到小排列: " & m_str '在窗体上列出排序后的三个数字
End Sub。
上面的回答非常好，不过如果你只是排列三个数没必要有冒泡排序，只要
if a>b then
if b>c then
print a,b,c
else
if a>c then print a,c,b else print c,a,b
end if
else
if a>c then
print b,a,c
else
if b>c then print b,c,a else print c,b,a
end if
end if
不过你要想成为高手，建议您还是学习排序算法，一般来说有四种，冒泡排序，选择排序，快速排序1，快速排序2。向学的话，去网上找找源程序
答：楼上的答案有问题。举个例子： 输入三个数：100，50，40 Call Exchange(aNum(1), aNum(2))执行后aNum(1)=50,aNum...详情>>
答：文章搜索： 名称 全文 文章 首页 IT资讯 开发语言 软件开发 WEB开发 考试认证 数据库 程序人生 编程学院 电子书籍 热点专题 编程论坛 计算机论文...详情>>
答：'不需要任何控件,需要的是如下代码: '因为您的分值为0,并且考虑到您并不一定会采纳,所以请原谅小的不写注释.以下代码只帖出两天,若您觉得没用,那小的自会删除,...详情>>
