vb程序设计_实验指导书.pdf

《vb程序设计_实验指导书.pdf》由会员分享，可在线阅读，更多相关《vb程序设计_实验指导书.pdf（56页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、1/56 实验的总体要求与方法 实验是巩固课堂所学知识、掌握可视化程序设计的方法、提高分析问题和解决问题能力的最重要的途径。因此明确实验目的、内容与要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。1 实验的基本目的（1）通过实验熟悉面向对象程序设计的基本概念。（2）通过实验熟练掌握利用 VB 进行可视化程序设计的基本方法。（3）通过实验掌握应用程序的调试方法，加强应用能力的训练与培养，从而具有 计一般应用程序和解决事务管理问题的能力。2 实验的基本要求（1）上机实验之前，应认

2、真预习有关实验内容及相应教材。（2）实验过程中应记录实验中的有关数据（包括出错信息等），以便课后进行分析。（3）上机时要遵守实验室的规章制度，爱护实验设备。实验报告 每个实验结束后都应写出实验报告，报告中应包括下列内容：（）实验目的（）实验内容与要求（）实验步骤（）实验结果及分析讨论、实验心得体会等。实验一 熟悉 vb 的开发环境、程序设计的基本步骤【实验目的】1熟悉 Visual Basic 6.0 集成开发环境。2.学习怎样启动和退出 VB 3掌握开发一个简单程序的基本步骤。4掌握简单代码的编写。【实验内容】1启动和退出 VB 2/56 2开发一个简单程序。3将 Visual Basic

3、工程编译生成可执行文件。【实验要求及操作步骤】一、启动和退出 VB 1、进入 VB 集成开发环境 要进入 VB 应用程序，首先要运行 VB 的集成开发环境。启动 VB 的方法如下：方法 1 单击任务栏上的“开始”按钮；选择“程序”文件夹，接着选取“Microsoft Visual Basic 6.0 中文版”文件夹，再选取“Microsoft Visual Basic 6.0 中文版”项，如图 1-1 所示；图 1-1 启动 VB 的方法 1 单击鼠标左键。方法 2 单击任务栏上的“开始”按钮；选择“程序”文件夹；使用“Windows 资源按理器”查找 VB 可执行文件 VB6.exe；双击图

4、标。方法 3 在桌面创建一个 VB 快捷键；双击该快捷键。VB 启动后，出现 VB6.0 的“新建工程”对话框（图-2）单击“打开”按钮，带有一个窗体的新工程将被创建，并可以看到 VB 集成开发环境的界面，如图 1-3 所示。有的系统启动后可直接进入图 1-3 所示的界面。3/56 图 1-2 VB6.0 的“新建工程”对话框 图 1-3 VB 的集成开发环境窗口 1、退出 VB 方法：（1）单击主窗口右上角的“关闭”按钮。（2）执行“文件”菜单中的“退出”命令。（3）按 Alt+Q 键。二、开发一个简单程序 4/56 要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗

5、体时标签（Label）显示“床前明月光”。实验步骤：（1）新建工程 在桌面上双击 Microsoft Visual Basic 6.0 快捷方式图标，系统进入 Visual Basic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准 EXE”（即标准工程）。单击“打开”按钮，Visual Basic 6.0 进入设计模式。如图 14 所示。图 14“新建工程”对话框 单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。（2）设计界面 在系统提供的名为 Form1 的窗体上进行界面设计。单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，

6、调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如图 15 所示。图 15 初始界面（3）设置属性 如表 11 所示。5/56 表 11 属性设置 对象 属性 属性值 Form1 Caption 我的第一个 VB 程序 Label1 Caption 设置属性后的界面如图 16 所示。图 16 设置属性后的界面 图 17 第一个程序（4）编写程序代码 Private Sub Form_Click()Label1.Caption=床前明月光 End Sub（5）运行程序 运行 VB 程序有三种方法：单击工具栏上的“启动”按钮；从“运行”菜单中选择“启动”菜单项；按 F5 键。例如，单击

7、工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图 17所示。（6）保存程序 单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。三、将 Visual Basic 工程编译生成可执行文件 单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe 文件。退出 Visual Basic 集成开发环境，双击实验一.exe 文件，则实验一.exe 文件就可直接运行。实验二命令按钮、文本框和标签【实验目的】6/56 1掌握命令按钮、

8、文本框和标签常用属性值的设置方法。2学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。3掌握命令按钮的主要事件的使用。【实验内容】1利用命令按钮、文本框和标签判断密码是否正确。2建立应用程序，对两个文本框中输入的内容进行交换。【实验要求与步骤】1 实验内容 要求:在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签 Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签 Label2 中显示“密码错误！请重新输入密码！”。步骤：（1）设计界面 在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图 21 所示。图 2

9、1 初始界面图 22 设置属性后的界面（2）设置属性 设置属性后的界面如图 22 所示。表 21 属性设置 对象 属性 属性值 Label1 Caption 请输入密码：Command1 Caption 登陆 Command2 Caption 退出 Label2 Caption Label2 BorderStyle 1-Fixed Single Text1 Text Text1 MaxLength 16 Text1 PasswordChar*7/56 Form1 Caption 登陆界面（3）编写程序代码 Private Sub Command1_Click()If Text1.Text=“g

10、oodbaby”Then Label2.Caption=“欢迎使用本系统！”Else Label2.Caption=“密码错误！请重新输入密码！”End If End Sub Private Sub Command2_Click()End End Sub （4）运行程序 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签 Label2 中显示“欢迎使用本系统！”。运行结果如图 23 所示。图 23 输入的密码正确 在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签 Label2 中显示“密码错误！请重新输入密码！”。运行结果如图 24 所示。8/56 图 24 输

11、入的密码错误 2 实验内容（1）设计界面 在窗体上放置两个 Label 控件、两个 TextBox 控件和三个 CommandButton 控件。初 界面如图 25 所示。图 25 初始界面 图 26 属性设置后的界面（2）属性设置 设置属性后的界面如图 26 所示。表 22 属性设置 对象 属性名称 属性值 Form1 Caption 交换 Label1 Caption 输入第 1 个数 Label2 Caption 输入第 2 个数 Text1 Text 空 Text2 Text 空 Command1 Name CmdChange Caption 交换 Default Ture Comma

12、nd2 Name CmdClear Caption 清空 9/56 Command3 Name CmdExit Caption 退出（3）编写程序代码 Option Explicit Private Sub CmdChange_Click()Dim temp As Integer temp=Text1.Text Text1.Text=Text2.Text Text2.Text=temp End Sub Private Sub CmdExit_Click()Unload Me End Sub Private Sub CMdCLear_Click()Text1.Text=”Text2.Text=”

13、Text1.SetFocus End Sub(4)运行程序 执行结果如图 2-7（a）、（b）所示。单击“清空”按钮并再数入数据，进行交换。图 2-7（a）交换前的界面 图 2-7（b）单击交换后的界面 实验三表达式、InputBox 函数和 MsgBox 语句【实验目的】1掌握表达式的构成和如何求表达式的值。10/56 2掌握赋值语句的使用。3掌握 InputBox 函数的使用。4掌握 MsgBox 语句的使用。【实验内容】1.利用 InputBox 函数和 MsgBox 语句求圆的周长。2.利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。【实验步骤

14、与指导】1实验内容(1)设计界面 在窗体上添加一个命令按钮。初始界面如图 31 所示。图 31 初始界面图 32 设置属性后的界面(2)设置属性 表 31 属性设置 对象 属性 属性值 Command1 Caption 计算圆的周长 Form1 Caption InputBox 和 MsgBox 举例 设置属性后的界面如图 32 所示。(3)编写程序代码 Private Sub Command1_Click()Const pi=3.14159 Dim r As Single,s As String,s2 As String Dim zhouchang As Single s=InputBox(

15、请输入半径,输入半径,1)r=Val(s)zhouchang=2*pi*r s2=半径=+s+,圆的周长=+Str(zhouchang)MsgBox s2,64,确认窗口 11/56 End Sub (4)运行程序 单击工具栏上的“启动”按钮，进入运行模式。单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图 33 所示。(a)(b)(c)图 33 计算圆的周长 2实验内容(1)设计界面 初始界面如图 34 所示。图 3-4 初始界面(2)设置属性 表 31 属性设置 对象 属性 属性值 Form1 Caption 求三角形的面

16、积(3)编写程序代码 12/56 Private Sub Form_click()Dim a As Single,b As Single,c As Single Dim s As Single,p As Single a=InputBox(请输入三角形的边 a：,输入)b=InputBox(请输入三角形的边 b：,输入)c=InputBox(请输入三角形的边 c：,输入)If(a+b=c Or a+c=b Or b+c=c Or Abs(a-c)=b Or Abs(b-c)=a)Then MsgBox(你输入的数据有误！)Else p=(a+b+c)/2 s=Sqr(p*(p-a)*(p-b)

17、*(p-c)Print 三角形的面积为：;s End If End Sub(4)运行程序 如图 35（a）（b）（c）（d）所示 (a)(b)（c）（d）图 35 计算三角形的面积 实验四 选择结构【实验目的】1掌握逻辑表达式的正确书写形式。2掌握单分支与双分支条件语句的用法，熟悉 If.Then.Else 语句。3掌握选择结构中多条件，多分支程序的用法，熟悉 Select Case 语句。13/56【实验内容】1.编写程序，利用文本框检查用户密码。提示：可以用文本框的 PasswordChar 属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的 PasswordChar

18、属性可以隐蔽用户输入的字符。2输入一个数字（0-6），用中英文显示星期几。提示：用多条件多分支选择语句SelectCase 来解决。【实验步骤与指导】1实验内容（1）建立用户界面（2）设置对象属性 表 41 属性设置 对象 属性 属性值 说明 Frame1 Caption 请输入您的密码：Text1 Text 清空 PasswordChar*只显示字符“*”Label1 Caption FontName 黑体 字体名称 fontSize 三号 字体大小（3）编写事件代码 Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13

19、Then 回车字符的 Ascii 为 13 If Text1.Text=123456 Then Label1.Caption=欢迎使用本系统！Else Label1.Caption=对不起，密码错！End If Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End If End Sub（4）运行程序 程序输出界面如图 41，图 42 所示。14/56 图 41 验证密码正确图 42 验证密码不正确 2实验内容（1）建立用户界面。参考图 43 所示 图 43 界面设计（2）设置对象属性 表 42 属性设置 对象 属性 属性值 说明 Form1 C

20、aption 星期 Label1 Caption 输入一个数字（0-6）Label2 Caption 空 BorderStyle 1-Fixed Single 边框样式 Command1 Caption 星期 Default True 缺省命令按钮 Text1 Text“”空（3）编写事件代码 Private Sub Command1_Click()Dim n As Integer,m As String 15/56 n=Val(Text1.Text)Select Case n Case 1 m=星期一（Monday）Case 2 m=星期二（Tuesday）Case 3 m=星期三（Wedn

21、esday）Case 4 m=星期四（Thursday）Case 5 m=星期五（Friday）Case 6 m=星期六（Saturday）Case 0 m=星期日（Sunday）Case Else m=重新输入 End Select Label2.Caption=m End Sub 程序输出界面如图 44 所示。图 44 程序运行结果 实验五 循环结构 【实验目的】1掌握 For 语句的使用。2掌握 Do 语句的使用。3掌握如何控制循环条件，防止死循环或不循环。【实验内容】1.利用 For 循环求 S=1+(1+2)+(1+2+3)+(1+2+3+n)的值。提示：本题是先进行内循环累加，再进

22、行外循环累加，因此需要两个累加器也可用一个循环来实现括号内每累加一个数，就往 S 中累加一次。2输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了 1 和该数16/56 本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次 2n 用做除数去除 n，若 n 不能被其中任何一个数整除，则 n 为素数。【实验步骤与指导】1实验内容（1）建立用户界面（2）设置对象属性。参考图 51 所示 图 51 属性设置图 52 程序运行结果（3）编写事件代码 Private Sub Command1_Click()Dim n As Integer,i As Integer,j As In

23、teger,s As Long n=Val(Text1.Text)j=0:s=0 For i=1 To n j=j+i s=s+j Next i Label2.Caption=和数 S=&Str(s)Text1.SelLength=Len(Text1.Text)End Sub（4）运行程序 程序输出界面如图 52 所示。2实验内容（1）建立用户界面。参考图 53 所示 17/56 图 53 界面设计（2）设置对象属性（3）编写事件代码 Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End

24、Sub Private Sub Command1_Click()Dim n As Long Select Case Val(Text1.Text)Case Is 2147483647 MsgBox 该数太大,vbInformation+vbOKOnly,注意 Case Else n=Val(Text1.Text)s=0 i=2 Do While i=Sqr(n)And s=0 If n Mod i=0 Then s=1 Else:i=i+1 End If Loop If s=0 Then a=是一个素数 Else a=不是一个素数 End If Label1.Caption=Str(n)&a

25、End Select Text1.SetFocus 18/56 End Sub（4）运行程序 程序运行结果如图 54 所示。图 54 程序运行结果 实验六 Sub 过程【实验目的】1掌握 Sub 过程的定义。2掌握 Sub 过程的调用。3掌握 Sub 过程参数传递规则。【实验内容】编写一个求阶乘的过程，调用该过程求 4！和 6！。【实验步骤与指导】1设计界面 在窗体上添加两个命令按钮和两个标签。初始界面如图 61 所示。19/56 图 61 初始界面图 62 设置属性后的界面 2设置属性 表 61 属性设置 对象 属性 属性值 Command1 Caption 求 4！Command2 Cap

26、tion 求 6！Label1 Caption Label1 BorderStyle 1-Fixed Single Label2 Caption Label2 BorderStyle 1-Fixed Single 设置属性后的界面如图 62 所示。3编写程序代码 Private Sub jiecheng(n As Integer,result As Long)Dim i As Integer result=1 For i=1 To n result=result*i Next i End Sub Private Sub Command1_Click()Dim x As Integer,t As

27、 Long x=4 Call jiecheng(x,t)Label1.Caption=Str(x)+!=+Str(t)End Sub Private Sub Command2_Click()Dim x As Integer,t As Long x=6 Call jiecheng(x,t)Label2.Caption=Str(x)+!=+Str(t)20/56 End Sub 4运行程序 分别单击“4！”命令按钮和“6！”命令按钮，程序运行效果如图 63 所示。图 63 求 4！和 6！实验七 Function 过程【实验目的】1掌握 Function 过程的定义。2掌握 Function 过程

28、的调用。3掌握 Function 过程参数传递规则。【实验内容】编写一个求任意数的平方的函数，调用该函数求 110 的平方数。【实验步骤与指导】1设计界面 在窗体上添加一个标签和一个列表框。初始界面如图 71 所示。21/56 图 71 初始界面图 72 设置属性后的界面 2设置属性 表 71 属性设置 对象 属性 属性值 Label1 Caption 求 110 的平方数 List1 List 设置属性后的界面如图 72 所示 3编写程序代码 Private Function power(x As Integer)As Integer power=x*x End Function Priva

29、te Sub Form_Click()Dim a As Integer For a=1 To 10 List1.AddItem power(a)Next a End Sub 4运行程序 运行程序后，单击窗体，程序运行效果如图 73 所示。图 73 求 110 的平方数 实验八 单选框和复选框的应用 22/56【实验目的】1掌握单选框,复选框的定义。2掌握单选框,复选框的区别。【实验内容】建立一个标准工程实现单选框和复选框的组合应用。【实验步骤与指导】1设计界面 在窗体上添加一个单选框组(包含三个单选框),一个复选框组(包含三个复选框),两个标签框。初始界面如图 61 所示。图 81 初始界面图

30、 82 设置属性后的界面 2设置属性，如表 81 所示 表 81 属性设置 对象 属性 属性值 Optionbutton1(0)Caption 张文 Optionbutton1(1)Caption 王雪 Optionbutton1(2)Caption 林非 Checkbox1(0)Caption VB6.0 语言程序设计 Checkbox1(1)Caption 汇编语言 Checkbox1(2)Caption 单片机原理 Label1 caption 无 Label2 caption 无 设置属性后的界面如图 82 所示。3编写程序代码 Private Sub Check1_Click(ind

31、ex As Integer)Dim k As String Dim i As Integer k=23/56 For i=0 To 2 If Check1(i).Value=1 Then k=k&Check1(i).Caption&End If Next i k=你选择了&k Label2.Caption=k End Sub Private Sub Option1_Click(index As Integer)Dim i As Integer For i=0 To 2 If Option1(index).Visible=True Then Label1.Caption=你选择了&Option1

32、(index).Caption End If Next i End Sub 4运行程序 分别单选框中的某一项和复选框中的某几项，程序运行效果如图 83 所示。图 83 运行结果 实验九 组合框的应用【实验目的】1掌握组合框的常用属性。2了解列表框和组合框的区别。24/56【实验内容】运用组合框实现学校的添加与删除功能。【实验步骤与指导】1设计界面 在窗体上添加四个命令按钮,一个标签,一个组合框和一个文本框。初始界面如图 91所示。图 91 初始界面图 92 设置属性后的界面 2设置属性，如表 91 所示 表 91 属性设置 对象 属性 属性值 Command1 Caption 删除 名称 Cm

33、dDel Command2 Caption 添加 名称 CmdAdd Command3 Caption 清除 名称 CmdClear Command4 Caption 关闭 名称 CmdEnd Label1 Caption 学校 Text1 text 无 名称 TxtInfor 设置属性后的界面如图 92 所示。3编写程序代码 Private Sub CmdAdd_Click()CboMsg.Text=TxtInfor.Text End Sub Private Sub CmdClear_Click()CboMsg.Clear 25/56 End Sub Private Sub CmdDel_C

34、lick()Dim IntIndex As Integer IntIndex=CboMsg.ListIndex CboMsg.Text=CallDel(IntIndex)End Sub Private Sub CmdEnd_Click()End End Sub Private Sub Form_Load()With CboMsg .AddItem 盐城师范学院,0.AddItem 盐城生物工程高等学校,1 .AddItem 盐城工学院,2 .AddItem 盐城师范学校,3 .ListIndex=0 End With End Sub 4运行程序结果如图 93 所示 图 93 程序运行结果 实验

35、十 图像框的应用【实验目的】1熟悉图像框与图片框的区别。2掌握图像框的属性与特点。【实验内容】26/56 将一个图形文件放到图像框中，改变图像框的大小，观察图形是否随之改变。【实验步骤与指导】1设计界面 在窗体上添加五个命令按钮和一个图像框。初始界面如图 101 所示。图 101 初始界面图 102 设置属性后的界面 2设置属性，如表 101 所示 表 101 属性设置 对象 属性 属性值 Command1 Caption 改变宽度 Command2 Caption 改变高度 Command3 Caption 改变高度和宽度 Command4 Caption 恢复原始尺寸 Command4 C

36、aption 退出 Image1 picture E:vb 65203483.wmf Image1 stretch true 设置属性后的界面如图 102 所示。3编写程序代码 Private Sub Command1_Click()Image1.Left=Image1.Left-Image1.Width/2 Image1.Width=Image1.Width*2 End Sub Private Sub Command2_Click()Image1.Top=Image1.Top-Image1.Height/2 Image1.Height=Image1.Height*2 End Sub 27/5

37、6 Private Sub Command3_Click()Image1.Left=Image1.Left-Image1.Width/2 Image1.Width=Image1.Width*2 Image1.Height=Image1.Height*2 End Sub Private Sub Command4_Click()Image1.Left=2225 Image1.Top=666 Image1.Height=1515 Image1.Width=1515 End Sub Private Sub Command5_Click()End End Sub 4运行程序 分别单击五个命令按钮，程序运

38、行效果如图 103 106 所示。图 103 改变宽度后运行结果图 104 改变高度后运行结果 28/56 图 105 改变高度和宽度后的运行结果图 106 恢复原始尺寸 实验十一 滚动条【实验目的】1掌握滚动条的应用。2熟悉滚动条的属性。【实验内容】设计一程序，当拖动或单击水平和垂直滚动条使窗体上的文本框将随之上下或者左右移动。【实验步骤与指导】1设计界面 在窗体上添加一个垂直滚动条，一个水平滚动条，一个文本框，一个命令按钮。初始界面如图 111 所示。图 111 初始界面 2设置属性 表 111 属性设置 对象 属性 属性值 Hscroll1 max 1200 Hscroll1 min 1

39、00 Hscroll1 largechange 300 Vscroll1 max 800 Vscroll1 min 50 29/56 Vscroll1 largechange 300 Text1 text Vb6.0 程序设计语言 Command1 caption 退出 设置属性后的界面如图 112 所示。图 112 设置属性后的界面 3编写程序代码 Private Sub Command1_Click()End End Sub Private Sub HScroll1_Change()Text1.Left=800+HScroll1.Value End Sub Private Sub VScr

40、oll1_Change()Text1.Top=300+VScroll1.Value End Sub 4运行程序 分别拖动水平滚动条或者垂直滚动条，程序运行效果如图 113 所示。30/56 图 113 程序运行效果 实验十二 定时器【实验目的】1掌握定时器控键的用法。2熟悉定时器控键的属性。【实验内容】1编写一个程序利用计时器计时。2制作一个日历时钟应用程序。【实验步骤与指导】1设计界面 在窗体上添加四个命令按钮，一个标签，一个计时器控件。初始界面如图 121 所示。图 121 初始界面 2设置属性，如表 111 所示 表 121 属性设置 对象 属性 属性值 Command1 Caption

41、 开始计时 Command2 Caption 停止 Command3 Caption 重新开始 Label1 BorderStyle 1-Fixed Single Label1 Caption 0 Timer1 enable true Timer1 interval 400 设置属性后的界面如图 122 所示 31/56 图 122 设置属性后的界面 编写程序代码 Private Sub command1_Click()Timer1.Enabled=True End Sub Private Sub Command2_Click()Timer1.Enabled=False End Sub Pri

42、vate Sub Command3_Click()Label1.Caption=0 End Sub Private Sub Command4_Click()End End Sub Private Sub Form_Load()Me.Caption=Format(Now,hh:mm:ss)End Sub Private Sub Timer1_Timer()Dim count As Long count=Label1.Caption count=count+1 Label1.Caption=count End Sub 4运行程序 单击“开始计时”命令按钮，程序运行效果如图 123 所示。32/56

43、 图 123 程序运行效果 实验十三 数组【实验目的】1了解一维数组的用法。2学会声明，使用一维数组。应用数组解决有关数组常用算法问题。3了解二维数组的用法。4学会声明，使用二维数组。应用数组解决有关数组常用算法问题。【实验内容】1将下列文字“盐城生物工程高等学校计算机系”存放到数组中，并以倒序打印出来。要求把这 14 个字符存放到数组 C(14)中，首先依此读取，然后利用循环，设置步长为1 初值为 14，终值为 1，实现倒序输出。2编写程序，建立并输出一个 10*10 的矩阵，该矩阵两条对角线元素为 1，其余元素为 0。提示：由于矩阵由行，列组成，需要双下标才能确定一元素位置，所以，使用二维

44、数组来表示矩阵。设行用 n 表示，列用 m 表示，则主对角线元素即为行与列相等的元素（即 n=m）,而次对角线的下标满足：n=11-m。【实验步骤与指导】1实验内容（1）设计界面（2）设置属性。如图 131 所示 33/56 图 131 将字符倒序输出（3）编写程序代码 Private Sub Command1_Click()Dim x As Integer,c(1 To 14)As String c(1)=盐:c(2)=城:c(3)=生:c(4)=物:c(5)=工 c(6)=程:c(7)=高:c(8)=等:c(9)=学:c(10)=校 c(11)=计:c(12)=算:c(13)=机:c(14

45、)=系 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）运行程序 程序输出界面如图 132 所示。图 132 将字符倒序输出结果图 133 界面设计 2实验内容 34/56（1）建立用户界面 在窗体中使用图片框控件 Picture1，参见图 133 所示，当然也可用列表框控件来显示矩阵的元素。（2）设置对象属性（3）编写事件代码 Private Sub Form_Activate()Dim

46、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 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）运行程序 程序输出界面如图 134 所示。图 134 程序运行结果 35/56 实验十四 菜单设计【实验目的】1掌握菜单设计器窗口的操作技术。2掌握下拉式菜单和

47、弹出式菜单的设计方法。【实验内容】1建立一个窗体菜单，测试快捷键和访问键的功能。在窗体上放置一个文本框，根据菜单中选择的颜色，变换文本框的背景色。2在上题的基础上添加一个弹出式菜单，并测试弹出式菜单的执行情况。【实验步骤与指导】1实验内容（1）建立用户界面 利用“工具”菜单中的“菜单编辑器”菜单项，建立如图 14-1 所示的菜单。图 14-1 初始菜单（2）属性设置 表 14-1 菜单设计 标题 名称 快捷键 颜色（&C）mnuColor 红色 mnuRed Ctrl+R 蓝色 mnuBlue Ctrl+B 绿色 mnuGreen Ctrl+G Line 白色 mnuWhite Ctrl+W

48、黑色 mnuBlack Ctrl+K 36/56 退出（&X）mnuExit (3)编写事件代码 Private Sub mnuExit_Click()End End Sub 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_Clic

49、k()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 False 打印星号 mnuPopStar 打印字母 mnuPopNum （2）修改属性 将 Text1 的对齐属性 Alignment 设为“2”（居中），多行属性 MultiLi

50、ne 设为“Ture”，字体 Font 属性设为“小三”。（3）添加程序代码 37/56 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“End Su