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