vb实验4-q.docVIP

Visual Basic 程序设计 上机实验指导书 福建工程学院通信教研室 二○一一年一月 实验四 数组和过程 一、【实验目的】 1、掌握数组的定义和使用。 2、掌握图片框的显示或隐藏控制方法。 3、掌握数组排序的方法。 4、掌握全局变量的定义。 二、【实验内容】 （一）数组 1、运行VB，进行如下操作。 2、在窗口中设置两个图片框Picture1、Picture2和三个命令按钮，三个命令按钮的标题分别为“生成数组”、“数组排序”和“退出”。 2、要求在没有按“生成数组”按钮之前，两个图片框均不可见。 3、当单击“生成数组”按钮后，在图片框Picture1中显示10个随机生成的10到100之间的随机数，并显示Picture1。 4、当单击“数组排序”按钮后，在图片框Picture2中显示这10个数按从大到小排序的结果，并显示Picture2。如下图所示。 5、单击“退出”按钮，结束程序运行。 6、将工程文件和窗体文件都以“作业10”保存。 Picture1.Print Tab(5); Randomize For i = 1 To 10 a(i) = Int(Rnd * 100) + 1 Picture1.Print Val(a(i)); Next End Sub Private Sub Command2_Click() If Picture2.Visible = False Then Picture2.Visible = True Picture1.Visible = False End If Dim i As Integer, j As Integer, t As Integer For j = 2 To 10 For i = 10 To j Step -1 Picture2.Print Tab(5); If a(i) a(i - 1) Then t = a(i) a(i) = a(i - 1) a(i - 1) = t End If Next i Next j For i = 1 To 10 Picture2.Print Val(a(i)); Next End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Picture1.Visible = False Picture2.Visible = False End Sub （二） 过程的定义和调用 1、Sub过程的定义和调用 练习一：建立一个只有一个窗体的应用程序，如果在代码窗口中输入以下代码，则当程序运行时在窗体上单击会看到什么现象？要求先分析后实验。 Private Sub Change1(ByVal x As Integer, ByVal y As Integer) Dim temp As Integer temp = x: x = y: y = temp End Sub Private Sub Change2(ByRef x As Integer, ByRef y As Integer) Dim temp As Integer temp = x: x = y: y = temp End Sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 8: b = 15 Print a=; a, b=; b Call Change1(a, b) Print a=; a, b=; b Call Change2(a, b) Print a=; a, b=; b Call Change2(a + 3, b) Print a=; a, b=; b End Sub 练习二：下列二个子程序的功能分别是什么？编写窗体的单击事件过程，通过调用语句分别调用这二个子程序，并将结果用Print方法在窗体上输出。通过逐语句运行方式（调试菜单）运行程序，了解程序运行过程。如果将第一个子程序的变量temp用Factorial1代替，程序运行时会发生什么？ Function Factorial1(ByVal n As Integer) As Long Dim i As Integer, temp As Long temp = 1 For i = 1 To n temp = temp * i Next i Factorial1 = temp End Function Function Factorial2(ByVal n As Integer) As Long If n = 0 Then Factorial2 =