河南工业大学吧 关注：540,295贴子：22,691,233
- 31回复贴，共1页
if picture is you,then ppp?
Ah la la la la la la life is wonderful
Ah la la la la la la life goes full circle
Ah la la la la la la life is wonderful
Ah la la la la la la life goes full circle
Private Sub Command1_Click()
Cls
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数值(共10个数)")
Next i
Print "您输入的十个数为："
For i = 1 To 10
Print a(i);
Next i
Print
For m = 10 To 2 Step -1
For n = 1 To m - 1
If a(n) > a(n + 1) Then
t = a(n)
a(n) = a(n + 1)
a(n + 1) = t
End If
Next n
Next m
Print "排序后为："
For i = 1 To 10
Print a(i);
Next i
End Sub
Cls
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数值(共10个数)")
Next i
Print "您输入的十个数为："
For i = 1 To 10
Print a(i);
Next i
For m = 10 To 2 Step -1
For n = 1 To m - 1
If a(n) > a(n + 1) Then
t = a(n)
a(n) = a(n + 1)
a(n + 1) = t
End If
Next n
Next m
Print "排序后为："
For i = 1 To 10
Print a(i);
Next i
End Sub
15楼2014-10-25 21:47收起回复
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频！
看高清直播、视频！
贴吧热议榜
- 1为什么说贴吧攻击性强2772870
- 2柯洁输给了韩国棋协2331890
- 3中国围棋协会 规则就是规则1972712
- 4EDG击败XLG晋级四强1747791
- 5影之刃零新实机你满意吗1471496
- 6绝区零1.6新角色爆料来了1239675
- 7如何评价网易请杨笠宣传1095000
- 8青枫发文暂时告别赛场956869
- 9LGD 3-0 轻取WE954492
- 10肖战粉丝钞能力砸不出射雕排片902622
- 31回复贴，共1页
发贴请遵守贴吧协议及“七条底线”贴吧投诉
发布成功
去贴吧APP订阅抽奖结果通知
扫码进入贴吧APP
···········
开奖后第一时间站内信通知
···········
中奖结果全员公示
