实验二、vb冒泡排序法

《实验二、vb冒泡排序法》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验二VB冒泡排序法—•实验目的熟悉VB集成开发环境，掌握一种排序算法，即冒泡排序法二.实验条件和环境VisualBasic6.0集成开发坏境三.实验任务和要求1.将一组数据(12.5,34,45,21,67,4,12,45,47,56)从小到大排序，要用冒泡排序法四.实验内容1.实验步骤(1)运行VisualBasic6.0,新建一个工程应用程序。(2)参照主教材《大学计算机基础》中的例6.3.1编写程序，包括定义数组、数组赋值,排序算法。(3)新建工程，选择“标准EXE”(4)设计界而,用匚具箱在窗体上分别绘制二个命令按纽command1,command!,然后调整控件大小，调整控件的位置

2、。(5)设计属性(6)编写代码込FormlJnlx

3、CommandlEND2•操作指导（代码如下：）OptionBase1'设数:组下标从1开始PrivateSubCommandl_Click()Dimi,n,m,kAsIntegerDimsunO,tempAsSingle数组，变壘定义n=10ReDimsun(n)1重新定义数组Piint"排序前"sun=Army(12.5,34,45,21,67,4,12,45,47,56)■输入的数据Fori=1TonWi)=Val(InputBoxC，ffi机输入10个数,准备扫E序：第,,+Str(i)+"个“,”输入10个数"))Printsun(

4、i)；打印输入的10个数Nexti'下面为购E序代码卫个数需要n-1次比较Form=1To9因为只需要比较n-1次，所以1到9即可Fork=lTolO-m每趟比较大数都沉底，下次只需要比较余下的数大小If(sun(k)>sun(k+1))Thentemp=sun(k)sun(k)=sun(k+1)sun(k+l)=tempEndIfNextkNextmPrint:Print，输出空行，与前面输出分开Print序后11Foii=1To10Printsun(i);Next1EndSubPrivateSubConmiand?Click()EndEndSub込FormlJnlxl排序前12.53445

5、2167412454756排序后41212.521344545475667CommandlEND