vb中冒泡法的程序代码-明月个性网

dim A(10) as integer
dim I,J as integer
dim temp as integer '临时交换用
'初始化随机函数
randmize
'取10个随机数（范围100以内）并存放到数组中
for I=0 to 9
A(I)=Int(Rnd*100)
next I
'开始冒泡排序
for I=0 to 8
for J=I+1 to 9
'冒泡原理（大的数下沉，小的数上浮）即（如果前面的大于后面的数，两者交换）
if A(I)>A(J) then temp=A(I):A(I)=A(J):A(J)=temp
next J
next I

佚名

2024-06-08 01:37:36

最佳回答

类似问题(10)

佚名

2024-06-08 00:04:39

问请教vb编程高手！帮助编写一个程序！！万分感激！

答
你建立3个Textbox控件分别取名QI 、DI、n 前面用Label控件分别写上对应的名字和一个按钮控件，按钮控件的Caption属性输入“计算”然后双击按钮...
佚名

2024-06-08 06:30:22

问VB中的编程问题

答
添加一个MSComm控件，比如取名为MSComm1，设置好它的端口号，通信参数等：MSComm1.CommPort = 端口号MSComm1.Settings ...
佚名

2024-06-08 15:41:30

问vb小程序大家帮忙看一下。

答
Private Sub youganhuise_Click()Load shujuzhunbeiwith shujuzhunbei.Top = 1500.Lef...
佚名

2024-06-08 09:58:28

问VB中可以作为“启用对象”的程序是?

答
点击“工程”菜单里的“工程属性”子菜单，在弹出的“工程属性”窗口的“启动对象”下面的列表框里选择要启动的对象：1.窗体;2.如果没有窗体，你需要创建一个Sub，...
佚名

2024-06-08 03:28:54

问关于VB程序打开的问题

答
Dim strTxt$Private Sub Form_Load()If Command <> "" Then Open Command For I...
佚名

2024-06-08 07:21:52

问VB 程序设计

答
565863*-+986389
佚名

2024-06-08 15:40:14

问给可执行程序加一个ctrl+a+Backspace消息用什么方法好程序已经编译好了没办法改源代码也没

答
有一个框架类叫 SendKeys，其静态函数 Send 使得发送击键易如反掌。你甚至可以用花哨的语法发送专用键。例如用“{F1}{BACKSPACE}A”来发送...
佚名

2024-06-08 08:00:00

问求随机点名系统的VB程序？

答
直接在access数据库里就可以做随机了seed=round(rnd*9999)access数据库随机语法，主要是 rnd(-222-id-3333)sql2=...
佚名

2024-06-08 08:00:00

问VB随机生成字符串代码

答
Private Sub Command1_Click()Randomizenum1 = @@0 + Int((99999 - 0 + 1) * Rnd + 0)...
佚名

2024-06-08 08:00:00

问发那科oi用M代码调用子程序，那么这个m代码能不能和程序段放在同一排？程序的执行顺序是什么样的？懂

答
M98应单独书写一行。程序执行到M98段，直接跳转到对应子程序，子程序执行完毕，再执行M98后面的一行。就相当于把子程序内容复制粘贴到M98这里。

vb中冒泡法的程序代码

问请教vb编程高手！帮助编写一个程序！！万分感激！

问VB中的编程问题

问vb小程序大家帮忙看一下。

问VB中可以作为“启用对象”的程序是?

问关于VB程序打开的问题

问VB 程序设计

问给可执行程序加一个ctrl+a+Backspace消息用什么方法好程序已经编译好了没办法改源代码也没

问求随机点名系统的VB程序？

问VB随机生成字符串代码

问发那科oi用M代码调用子程序，那么这个m代码能不能和程序段放在同一排？程序的执行顺序是什么样的？懂

风水

起名

网名

说说

vb中 冒泡法的程序代码

问请教vb编程高手！ 帮助编写一个程序！！ 万分感激！