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、Text Text3 （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 属性名称 Caption Caption Caption Caption Caption Caption Caption Caption 属性值 求和 A的值 B的值 C的值 和 + + = Text1～Text14 Text （3）编写事件代码：