loading
【步骤】
（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，三个标签Label1、Label2和Label3，一个文本框Text1，两个图形框Picture1和Picture2。
（2）设置对象的属性
对象名称 Command1 Label1 Label2 Label3 Text1 属性名称 Caption Caption Caption Caption Text 删除 删除前 删除后 被删除元素的下标 属性值 （3）编写事件代码：
Option Base 1 Dim a%(10)
Private Sub Command1_Click() Dim i%, j%
If Val(Text1) < 1 Or Val(Text1) > 10 Then MsgBox \下标超出范围！\ Text1 = \ Else
For i = Val(Text1) + 1 To 10 a(i - 1) = a(i) Next i
For i = 1 To 9
Picture2.Print a(i); Next i End If End Sub
Private Sub Form_click()
Dim i%
Picture1.Cls Picture2.Cls Text1 = \
For i = 1 To 10
a(i) = Int(Rnd * 900 + 100) Picture1.Print a(i); Next i End Sub
（4）程序的运行及保存。
3 编写一个程序，求一个4×5矩阵中的最大元素，以及该元素所在的行号和列号，如图5-3所示。
【步骤】
（1）设计应用程序的界面：在窗体上创建一个图形框Picture1，三个标签Label1、Label2和Label3，三个文本框Text1、Text2和Text3。
（2）设置对象的属性
对象名称 Label1 Label2 Label3 属性名称 Caption Caption Caption 属性值 最大元素 行号 列号 Text1、Text12、Text3 Text （3）编写事件代码： Option Base 1
Private Sub Form_click()
Dim a(4, 5) As Integer, i%, j%, max%, max_i%, max_j% Picture1.Cls Randomize
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 101)
Picture1.Print Tab((j - 1) * 6); a(i, j); Next j
Picture1.Print Next i
max = a(1, 1) max_i = 1 max_j = 1
For i = 1 To 4 For j = 1 To 5
If max < a(i, j) Then max = a(i, j) max_i = i max_j = j End If Next j Next i
Text1 = max Text2 = max_i Text3 = max_j End Sub
（4）程序的运行及保存。
实验六 过程
一、实验目的
1．掌握过程的概念和使用方法。
2．掌握形参和实参的概念以及在调用过程时两者的对应关系。 3．掌握数值传递和地址传递，并注意区分这两种参数传递方式。 4．掌握变量、过程的作用域
5．掌握递归的概念及其使用方法。 6．熟悉程序设计中的常用算法。
二、实验内容
1 编写一个子过程，求任意三个整数之和。 【步骤】
（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1；七个标签Label1～Label7，四个文本框Text1～Text4，如图6-1所示。
图6-1 实验6-1的运行界面图
（2）设置对象的属性
对象名称 Command1 Label1 Label2 Label3 Label4 Label5 Label6 Label7 Text1～Text14 属性名称 Caption Caption Caption Caption Caption Caption Caption Caption Text 求和 A的值 B的值 C的值 和 + + = 属性值 （3）编写事件代码：
Private Sub Command1_Click() Dim a%, b%, c%, s% a = Val(Text1) b = Val(Text2) c = Val(Text3)
Call sum(a, b, c, s) Text4 = s End Sub
Private Sub sum(a%, b%, c%, sansum%) sansum = a + b + c End Sub
（4）程序的运行及保存。
2 编一过程，求一维数组a中的最大值。 【步骤】
（1）设计应用程序的界面：设置窗体的Caption属性为“求一维数组的最大值”。