VB上机实验指导书(8)

vb上机实验

实验十三 数组

【实验目的】

1．了解一维数组的用法。

2．学会声明，使用一维数组。应用数组解决有关数组常用算法问题。 3．了解二维数组的用法。

4．学会声明，使用二维数组。应用数组解决有关数组常用算法问题。

【实验内容】

1．将下列文字“盐城生物工程高等学校计算机系”存放到数组中，并以倒序打印出来。要求把这14个字符存放到数组C(14)中，首先依此读取，然后利用循环，设置步长为－1初值为14，终值为1，实现倒序输出。

2．编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素为0。提示：由于矩阵由行，列组成，需要双下标才能确定一元素位置，所以，使用二维数组来表示矩阵。设行用n表示，列用m表示，则主对角线元素即为行与列相等的元素（即n=m）,而次对角线的下标满足：n=11-m。 【实验步骤与指导】

1．实验内容 （1）设计界面。

（2）设置属性。如图13－1所示。

图13－1 将字符倒序输出

（3）编写程序代码。

Private Sub Command1_Click()

Dim x As Integer, c(1 To 14) As String

c(1) = \盐\城\生\物\工\

36

zjh

vb上机实验

c(6) = \程\高\等\学:c(10) = \校\c(11) = \计\算\机\系\For x = 1 To 14

Label1.Caption = Label1.Caption + c(x) Next x

For x = 14 To 1 Step -1

Label2.Caption = Label2.Caption + c(x) Next x

End Sub

（4）运行程序

程序输出界面如图13－2所示。

图13－2 将字符倒序输出结果 图13－3 界面设计 2．实验内容 （1）建立用户界面。

在窗体中使用图片框控件Picture1，参见图13－3所示，当然也可用列表框控件来显示矩阵的元素。

（2）设置对象属性。 （3）编写事件代码。

Private Sub Form_Activate() Dim z(10, 10) As Integer For n = 1 To 10

For m = 1 To 10

If n = m Or n = 11 - m Then z(n, m) = 1 Else

37

zjh

vb上机实验

z(n, m) = 0 End If Next

Next

Picture1.Print For n = 1 To 10

For m = 1 To 10

Picture1.Print Tab(m * 3); z(n, m); '输出各元素的值 Next

Print '换行Next End Sub

（4）运行程序

程序输出界面如图13－4所示。

图13－4 程序运行结果

38

zjh

vb上机实验

实验十四 菜单设计

【实验目的】

1．掌握菜单设计器窗口的操作技术。

2．掌握下拉式菜单和弹出式菜单的设计方法。

【实验内容】

1．建立一个窗体菜单，测试快捷键和访问键的功能。在窗体上放置一个文本框，根据菜单中选择的颜色，变换文本框的背景色。

2．在上题的基础上添加一个弹出式菜单，并测试弹出式菜单的执行情况。

【实验步骤与指导】

1．实验内容

（1）建立用户界面

利用“工具”菜单中的“菜单编辑器”菜单项，建立如图14-1所示的菜单。

图14-1 初始菜单

（2）属性设置

表14-1 菜单设计

标题 颜色（&C） ?红色 ?蓝色 ?绿色 ?— ?白色 ?黑色 退出（&X）

名称 mnuColor mnuRed mnuBlue mnuGreen Line mnuWhite mnuBlack mnuExit

快捷键 Ctrl+R Ctrl+B Ctrl+G Ctrl+W Ctrl+K

(3) 编写事件代码

Private Sub mnuExit_Click() End End Sub

39

zjh

vb上机实验

Private Sub mnuBlack_Click() Text1.BackColor=RGB(0,0,0) End Sub

Private Sub mnuBlue_Click() Text1.BackColor=RGB(0,0,255) End Sub

Private Sub mnuGreen_Click() Text1.BackColor=RGB(0,255,0) End Sub

Private Sub mnuRed_Click()

Text1.BackColor=RGB(255,0,0)

End Sub

Private Sub mnuWhite_Click()

Text1.BackColor=RGB(255,255,255) End Sub

(4) 运行程序

测试程序，测试快捷键和访问键，观察运行结果。

2．实验内容

（1） 在实验1的菜单中增加一个菜单项，如表14-2所示

表14-2 新增菜单项

标题 弹出菜单 ?打印星号 ?打印字母

名称 mnuPop mnuPopStar mnuPopNum

可见性 False

（2） 修改属性

将Text1的对齐属性Alignment设为“2”（居中），多行属性MultiLine设为“Ture”，字体Font属性设为“小三”。

（3）添加程序代码

Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single, Y As Single)

If Button =2 Then Form1.PopupMenu mnuPop,4 End Sub

Private Sub mnuPopNum_Click() Text1.Text=””

Text1.Text=”1 2 3 4 5 6 7 8 9 0”& Chr(13) & Chr(10) &”0 9 8 7 6 5 4 3 2 1 “

40 zjh