VB实验报告选择法排序.doc

实验报告2：VB程序设计 四、编写一个秒表操作程序，分别显示开始计时的时间、当前时间和开始于停止的时间间隔。 1、目的和要求 （1）熟练掌握控件的使用。 （2）掌握Sub过程的定义和参数传递。 2、内容和步骤 （1）创建窗体 窗体form1由二个命令按钮command1、command2、三个标签label1、 label2、 label3、二个文本框text1 、text2组成。 （2）设计窗体界面及属性 属性设置： 对象名 控件名 属性名 属性值 功能 command command1 Caption 排序 给数据排序 Command2 Caption 结束 结束程序的执行 label label1 Caption 需要排序元素的个数： 提示 Label2 Caption 排序前数据： 提示 Label3 Caption 排序结果： 提示 text text1 Text 空 显示排序元素个数 Text2 Text 空 显示排序结果 ScrollBars 2-Vertical 显示水平滚动条 编写代码 Option Explicit Dim N As Integer Dim a() As Integer Private Sub Sort(b() As Integer) 排序过程 Dim i As Integer, j As Integer, x As Integer, y As Integer Dim min As Integer, temp As Integer For x = 0 To N - 2 For i = x To N - 1 min = x If b(min) b(i) Then y = b(i) b(i) = b(min) b(min) = y End If Next i For j = x + 1 To N - 1 If b(min) b(j) Then temp = b(j) b(j) = b(min) b(min) = temp End If Next j Next x End Sub Private Sub CmdEnd_Click() End End Sub Private Sub CmdSort_Click() Dim i As Integer Call Sort(a) For i = 0 To N - 1 txtResult.Text = txtResult.Text a(i) Next i End Sub Private Sub txtN_Change() Dim i As Integer Randomize If Val(txtN.Text) 0 And IsNumeric(Val(txtN.Text)) Then 判断输入数据的有效性 N = Val(txtN.Text) ReDim a(N) For i = 0 To N - 1 a(i) = Int(100 * Rnd) labNumber.Caption = labNumber.Caption a(i) Next i Else MsgBox 数据个数出错！, , 数据个数 End If End Sub （4）保存工程，运行程序 3、调试过程及运行结果 4、实验心得 （1）变量声明的位置不同，其作用域也不同。 （2）虽然变量可以直接不声明就使用，但在某些情况下变量必须要声明，否则会导致结果出错。要养成对变量先声明后使用的良好编程习惯。 （3）在程序运行时首先要判断输入数据的有效性。