用vb标准模块编程比较六个数大小具体过程
2个回答
2015-12-06 · 知道合伙人软件行家
yfcp
知道合伙人软件行家
采纳数：1748
获赞数：5545
有多年网站建设相关工作经验。熟悉ASP、ASP.net、VB、JavaScript、HTML等语言和CSS、Ajax等相关技术。
向TA提问 私信TA
关注
![]()
展开全部
以下代码实现输入6个数字，会按从大到小顺序排列出来
Private Sub Command1_Click()
Dim a(1 To 10)
For i = 1 To 6
a(i) = Val(InputBox("a(" & i & ")="))
Print a(i);
Next i
For i = 1 To 5
For j = 10 To i + 1 Step -1
If a(i) < a(j) Then
b = a(i): a(i) = a(j): a(j) = b
End If
Next j, i
For i = 1 To 6
Print a(i);
Next i
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
