vb

【步骤】

（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属性为“求一维数组的最大值”。