| 查看: 9399 | 回复: 145 | |||
| 本帖产生 1 个 程序强帖 ,点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | |||
[交流]
【交流】VC++, C#, VB答疑专贴 已有69人参与
|
|||
[ Last edited by 波不动 on 2010-1-8 at 19:44 ] |
» 本帖已获得的红花(最新10朵)
» 猜你喜欢
某top大学教授说“能够在市场中兑现的能力才是真能力”无比同意!
已经有13人回复
同一个分子,一条来自文献,一条来自AI——不告诉你答案,你会选哪条?
已经有7人回复
售SCI文章,我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急
已经有4人回复
售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
售SCI文章,我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
售一区SCI文章T0P,我:8O.551.O54,科目全,可十急
已经有3人回复
售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复

libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件
★ ★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+3): 谢谢参与应助! 2011-01-21 13:34:53
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+3): 谢谢参与应助! 2011-01-21 13:34:53
|
冒泡好基础,好好看 Private Sub form_click() Dim num(1 To 4) As Integer num(1) = InputBox("a" ![]() num(2) = InputBox("b" ![]() num(3) = InputBox("c" ![]() num(4) = InputBox("d" ![]() For i = 1 To 4 For j = i + 1 To 4 If num(i) > num(j) Then temp = num(i) num(i) = num(j) num(j) = temp End If Next j Next i Form1.Cls For i = 1 To 4 Print num(i), Next i End Sub |

81楼2011-01-20 01:43:02

3楼2009-11-20 15:21:38

4楼2009-11-20 15:26:06
senlia
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 贵宾: 3.521
- 金币: 2178.1
- 红花: 1
- 帖子: 223
- 在线: 6.7小时
- 虫号: 849005
- 注册: 2009-09-16
- 性别: GG
- 专业: 计算数学与科学工程计算

5楼2009-11-22 19:48:23










回复此楼
飞虎