可视化程序设计实验报告

1、1处孑4#XI'ANTECHNOLOGICALUNIVERSITY实验课程名称可视化程序设计专业：信息管理与信息系统成绩：2015年4月20日西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月22日同实验者实验项目熟悉VB的开发环境，程序设计的基本步骤实验设备及器材硬件：旧MPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows95/98或Windows2000Professional,开发环境为Visua

2、lBasic6.0中文企业版。、实验目的(1)熟悉VisualBasic6.0集成开发环境。(2)学习怎样启动和退出VB(3)掌握开发一个简单程序的基本步骤。(4)掌握简单代码的编写。二、实验内容(1)启动和退出VB(2)开发一个简单程序。(3)将VisualBasic工程编译生成可执行文件。三、实验步骤、数据记录及处理1、启动和退出VB<1>进入VB集成开发环境要进入VB应用程序，首先要运行VB的集成开发环境。启动VB的方法如下：方法1单击任务栏上的“开始”按钮；选择"程序”文件夹，接着选取“MicrosoftVisualBasic6.0中文版“文件夹,再选取“Micr

3、osoftVisualBasic6.0中文版“项，如图1-1所示；.口 MicroeoFt OfficeWindew e： CatalogWindows Update设定程序法可如默u值福MicrosoftVisualBasic6.0中文之PkrtBoftVisualSourceSafe.口MicrosoftWebFublshingWWinarnp理WinRriR西超以海雷3000英联版附件53金山毒器2m6条卷套衰物启动d游蛇图1-1启动VB的方法1 单击鼠标左键。方法2 单击任务栏上的“开始”按钮； 选择“程序”文件夹； 使用“Windows资源按理器”查找VB可执行文件VB6.exe;

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

5、。实验步骤：(1)新建工程在桌面上双击MicrosoftVisualBasic6.0快捷方式图标，系统进入VisualBasic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE(即标准工程)单击"打开"按钮，VisualBasic6.0进入设计模式。如图14所示。图14“新建工程”对话框单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。(2)设计界面在系统提供的名为Forml的窗体上进行界面设计。单击工具箱上的标签(Label)控件,在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如

6、图1-5所示。图1 5初始界面(3)设置属性如表11所示。表11属性设置对象属性属性值Form1Caption我的A个VB程序Label1Caption设置属性后的界面如图16所示。图16设置属性后的界面图17第一个程序(4)编写程序代码PrivateSubForm_Click()Label1.Caption="床前明月光"EndSub(5)运行程序运行VB程序有三种方法：单击工具栏上的“启动”按钮；从“运行”菜单中选择“启动”菜单项；按F5键。例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图1-7所示。(6)保存程序单击工具栏中的“保存”按钮或单击“

7、文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件(例如窗体文件名为“实验一.frm”)，然后保存工程文件(例如工程文件名为“实验一.vbp”)。3、将VisualBasic工程编译生成可执行文件单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。退出VisualBasic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。四、实验心得通过这次实验，我熟悉了VisualBasic6.0集成开发环境。能够熟练地启动和退出VB,掌握了开发一个简单程序的基本步骤和简单代码的编写。西安工业大学实验报告专业信息管理与信息系统班级13051

8、3姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月22日同实验者实验项目常用基本控件使用实验设备及器材硬件：旧MPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。、实验目的(1)掌握命令按钮、文本框和标签常用属性值的设置方法。(2)学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。(3)掌握命令按钮的主要事件的使用。二、实验内容(1)利用命令按钮、文

9、本框和标签判断密码是否正确。(2)建立应用程序，对两个文本框中输入的内容进行交换。三、实验步骤、数据记录及处理1.实验内容要求：在文本框中输入"goodbaby”,然后单击"登录"命令按钮，则在标签Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！步骤：(1)设计界面在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图2-1所示。图21初始界面图22设置属性后的界面(2)设置属性设置属性后的界面如图22所示。表21属性设置对象属性属性值Label1Caption

10、请输入密码：Command1Caption登陆Command2Caption退出Label2CaptionLabel2BorderStyle1-FixedSingleText1TextText1MaxLength16Text1PasswordChar*Form1Caption登陆界面(3)编写程序代码PrivateSubCommand1_Click()IfText1.Text="goodbaby”ThenLabel2.Caption="欢迎使用本系统！ElseLabel2.Caption="密码错误！请重新输入密码！"EndIfEndSubPrivate

11、SubCommand2_Click()EndEndSub(4)运行程序在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果如图23所示。图23输入的密码正确在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。运行结果如图24所示。图24输入的密码错误2.实验内容(1)设计界面在窗体上放置两个Label控件、两个TextBox控件和三个CommandButton控件。初界面如图25所示。工图25初始界面图26属性设置后的界面(2)属性设置设置属性后的界面如图26所示。表22

12、属性设置对象属性名称属性值Form1Caption交换Label1Caption输入第1个数Label2Caption输入第2个数Text1Text空Text2Text空Command1NameCmdChangeCaption交换DefaultTureCommand2NameCmdClearCaption清空Command3NameCmdExitCaption退出(3)编写程序代码OptionExplicitPrivateSubCmdChange_Click()DimtempAsIntegertemp=Text1.TextText1.Text=Text2.TextText2.Text=temp

13、EndSubPrivateSubCmdExit_Click()UnloadMeEndSubPrivateSubCMdCLear_Click()Text1.Text=Text2.Text="”Textl.SetFocusEndSub(4)运行程序执行结果如图2-7(a)、(b)所示。单击“清空”按钮并再数入数据，进行交换。图2-7 (a)交换前的界面若射客L十挡图2-7 (b)单击交换后的界面四、实验心得通过本次实验，我掌握命令按钮、文本框和标签常用属性值的设置方法，学会了使用命令按钮、文本框和标签在窗体上建立用户界面的方法并且掌握命令按钮的主要事件的使用。西安工业大学实验报告专业信息

14、管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月25日同实验者实验项目VB控制结构实验设备硬件：旧MPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。及器材软件：操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。一、实验目的(1)掌握逻辑表达式的正确书写形式。(2)掌握单分支与双分支条件语句的用法，熟悉If.Then.Else语句。(3)掌握选择结构中多条件，多分支程序的用法，熟悉S

15、electCase语句。(4)掌握For语句的使用。(5)掌握Do语句的使用。(6)掌握如何控制循环条件，防止死循环或不循环。二、实验内容(1)编写程序，利用文本框检查用户密码。提示：可以用文本框的PasswordChar属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的PasswordChar属性可以隐蔽用户输入的字符。(2)输入一个数字(0-6),用中英文显示星期几。提示：用多条件多分支选择语句SelectCase来解决。(3)利用For循环求S=1+(1+2)+(1+2+3)+.+(1+2+3+.+n)的值。提示：本题是先进行内循环累加，再进行外循环累加，因此需要两个

16、累加器.也可用一个循环来实现.括号内每累加一个数，就往S中累加一次。(4)输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了1和该数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次2n用做除数去除n,若n不能被其中任何一个数整除，则n为素数。三、实验步骤、数据记录及处理一选择结构1.实验内容(1)建立用户界面。(2)设置对象属性。表41属性设置对象属性属性值说明Frame1Caption请输入您的密码：Text1Text清空PasswordChar*只显示字符“*”；Label1CaptionFontName黑体字体名称fontSize字体大小(3)编写事件代码。

17、PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'回车字符的Ascii为13IfTextl.Text="123456"ThenLabell.Caption="欢迎使用本系统!ElseLabell.Caption="对不起，密码错!EndIfText1.SelStart=0Text1.SelLength=Len(Text1.Text)EndIfEndSub(4)运行程序程序输出界面如图41,图42所示。图41验证密码正确图42验证密码不正确2.实验内容(1)建立用户界面。参考图

18、43所示。Lalwll,嬴1一二1:，以&il2”Cobbanil1,图43界面设计(2)设置对象属性。表42属性设置对象属性属性值说明Form1Caption星期Label1Caption输入一个数字(0-6)Label2Caption空BorderStyle1-FixedSingle边框样式Caption星期CommandlDefaultTrue缺省命令按钮TextlText空（3）编写事件代码。PrivateSubCommand1_Click（）DimnAsInteger,mAsStringn=Val（Text1.Text）SelectCasenCase 1m="星期一

19、（Monday）"Case 2m="星期二（Tuesday）"Case3m="星期三（Wednesday）"Case 4m="星期四（Thursday）"Case 5m="星期五（Friday）"Case 6m="星期六（Saturday）"Case0m="星期日（Sunday）"CaseElsem="重新输入"EndSelectLabel2.Caption=mEndSub（4）运行结果程序输出界面如图二循环结构1 .实验内容(1)建立用户界面。

20、(2)设置对象属性。参考图5-1所示。<S=l+(l«)+U»2+3>+.+C：*2*3*.*n)图51属性设置图52程序运行结果(3)编写事件代码。PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsInteger,sAsLongn=Val(Text1.Text)j=0:s=0Fori=1Tonj=j+is=s+jNextiLabel2.Caption="和数S="&Str(s)Text1.SelLength=Len(Text1.Text)EndSub(4)运行程序程序输出界面

21、如图52所示。2 .实验内容(1)建立用户界面。参考图53所示。靖愉入一个裱颤：iTexlF判断图53界面设计(2)设置对象属性。(3)编写事件代码。PrivateSubText1_GotFocus()Textl.SelStart=0Textl.SelLength=Len(Textl.Text)EndSubPrivateSubCommand1_Click()DimnAsLongSelectCaseWl(Text1.Text)CaseIs<3MsgBox"请输入一个大于2的整数",vbInformation+vbOKOnly,"注意CaseIs>2147

22、483647MsgBox"该数太大",vbInformation+vbOKOnly,"注意"CaseElsen=Val(Text1.Text)s=0i=2DoWhilei<=Sqn)Ands=0IfnModi=0Thens=1Else:i=i+1EndIfLoopIfs=0Thena="是一个素数"Elsea="不是一个素数"EndIfLabell.Caption=Str(n)&aEndSelectTextl.SetFocusEndSub(4)运行程序程序运行结果如图54所示。dDLsd，入一个量_6

23、793215616内3Mhejl是一个东数图54程序运行结果四、实验心得通过本次实验，我掌握了逻辑表达式的正确书写形式，掌握了单分支与双分支条件语句的用法，熟悉了If.Then.Else语句，掌握了选择结构中多条件，多分支程序的用法，熟悉SelectCase语句，掌握了For语句的使用，Do语句的使用以及如何控制循环条件，防止死循环或不循环。西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月25日同实验者实验项目数据的输入、输出实验设备及器材硬件：旧MPC及其兼容机，要求CPU为Pentium166

24、以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。一、实验目的(1)掌握表达式的构成和如何求表达式的值。(2)掌握赋值语句的使用。(3)掌握InputBox函数的使用。(4)掌握MsgBox语句的使用。二、实验内容(1)利用InputBox函数和MsgBox语句求圆的周长。(2)利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。三、实验步骤、数据记录及处理1.实验内容(1)设计界面3 1所示。图3 1初始

25、界面图3 2设置属性后的界面在窗体上添加一个命令按钮。初始界面如图(2)设置属性表31属性设置对象属性属性值Command1Caption计算圆的周长Form1CaptionInputBox和MsgBox举例设置属性后的界面如图3-2所示。PrivateSubCommand1_Click()Constpi=3.14159DimrAsSingle,sAsString,s2AsStringDimzhouchangAsSingles=InputBox("请输入半径","输入半径",1)r=Val(s)zhouchang=2*pi*rs2="半径=&q

26、uot;+s+",圆的周长="+Str(zhouchang)MsgBoxs2,64,"确认窗口"EndSub(4)运行程序单击工具栏上的“启动”按钮，进入运行模式。单击“计算圆的周长”命令按钮，在输入框中输入圆的半径(例如，输入“2”)，在消息框中输出半径和计算出来的圆的周长,如图3-3所示。(a)粒官(b)(c)图33计算圆的周长2.实验内容(1)设计界面初始界面如图3- 4所示。(2)设置属性对象属性属性值Form1Caption求二角形的面积表31属性设置图3-4初始界面(3)编写程序代码Private Sub Form_click()Dim a

27、As Single, b As Single, c As SingleDim s As Single, p As Singlea = InputBox("请输入三角形的边a： ","输入")b = InputBox("请输入三角形的边 b:","输入")c = InputBox("请输入三角形的边 c：","输入")If (a + b <= c Or a + c <= b Or b + c <= a) Or (Abs(a - b) >= c Or Ab

28、s(a-c) >= b Or Abs(b - c) >= a) ThenMsgBox ("你输入的数据有误！")Elsep = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c) Print " 三角形的面积为："sEnd IfEnd Sub(4)运行程序如图 35 (a) ( b) (c) (d)所示语喻又三勺花髀丸；|脸|(b)(a)(c)(d)图35计算三角形的面积四、实验心得通过这次实验，我掌握了表达式的构成和如何求表达式的值，掌握了赋值语句的使用,掌握了InputBox函数的

29、使用和MsgBox语句的使用。西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年4月12日同实验者实验项目VB数组应用实验设备及器材硬件：旧MPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。一、实验目的(1)了解一维数组的用法。(2)学会声明，使用一维数组。应用数组解决有关数组常用算法问题。(3)了解二维

30、数组的用法。(4)学会声明，使用二维数组。应用数组解决有关数组常用算法问题。二、实验内容(1)将下列文字“盐城生物工程高等学校计算机系”存放到数组中，并以倒序打印出来。要求把这14个字符存放到数组C(14)中，首先依此读取，然后利用循环，设置步长为1初值为14,终值为1,实现倒序输出。(2)编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1,其余元素为0。提示：由于矩阵由行，列组成，需要双下标才能确定一元素位置，所以，使用二维数组来表示矩阵。设行用n表示，列用m表示，则主对角线元素即为行与列相等的元素(即n=m),而次对角线的下标满足：n=11-m。三、实验步骤、数据记录及处理

31、1.实验内容(1)设计界面。(2)设置属性。如图13-1所示。图131将字符倒序输出2.实验内容(3)编写程序代码。PrivateSubCommand1_Click()DimxAsInteger,c(1To14)AsStringc(1)="盐":c(2)="城":c(3)="生"：c(4)="物":c(5)="工"c(6)="程":c(7)="高":c(8)="等":c(9)="学:c(10)="校"c(1

32、1)="计”:c(12)="算"：c(13)="机”:c(14)="系"Forx=1To14Label1.Caption=Label1.Caption+c(x)NextxForx=14To1Step-1Label2.Caption=Label2.Caption+c(x)NextxEndSub(4)运行程序程序输出界面如图132所示。图13-2将字符倒序输出结果图13-3界面设计(1)建立用户界面。在窗体中使用图片框控件Pictured参见图133所示，当然也可用列表框控件来显示矩阵的元素。(2)设置对象属性。(3)编写事件代码。Pri

33、vateSubForm_Activate()Dimz(10,10)AsIntegerForn=1To10Form=1To10Ifn=mOrn=11-mThenz(n,m)=1Elsez(n,m)=0EndIfNextNextPicture1.PrintForn=1To10Form=1To10Picture1.PrintTab(m*3);z(n,m);'输出各元素的值NextPrint换行NextEndSub(4)运行程序程序输出界面如图134所示。图13-4程序运行结果1O。QO。Q。10100000010-O。IQ0oQIoOoooollooooooootio-ooOooo1oQ1Q

34、ooQ010QQ01QQoooIo四、实验心得通过本次实验，我了解了一维数组和二维数组的用法，学会了声明，使用一维数组和二维数组，并能够应用数组解决有关数组常用算法问题。西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年4月12日同实验者实验项目VB过程设计实验设备及器材硬件：旧MPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBa

35、sic6.0中文企业版。一、实验目的(1)掌握Sub过程的定义。(2)掌握Sub过程的调用。(3)掌握Sub过程参数传递规则。(4)掌握Function过程的定义。(5)掌握Function过程的调用。(6)掌握Function过程参数传递规则。二、实验内容(1)编写一个求阶乘的过程，调用该过程求4!和6!。(2)编写一个求任意数的平方的函数，调用该函数求110的平方数。三、实验步骤、数据记录及处理<一">Sub过程1 .设计界面在窗体上添加两个命令按钮和两个标签。初始界面如图图61初始界面61所示。图62设置属性后的界面2 .设置属性表61属性设置对象属性属性值Comm

36、and1Caption求4!Command2Caption求6!Label1CaptionLabel1BorderStyle1-FixedSingleLabel2CaptionLabel2BorderStyle1-FixedSingle设置属性后的界面如图62所示。3 .编写程序代码PrivateSubjiecheng(nAsInteger,resultAsLong)DimiAsIntegerresult=1Fori=1Tonresult=result*iNextiEndSubPrivateSubCommand1_Click()DimxAsInteger,tAsLongx=4Calljiech

37、eng(x,t)Label1.Caption=Str(x)+"!="+Str(t)EndSubPrivateSubCommand2_Click()DimxAsInteger,tAsLongx=6Calljiecheng(x,t)Label2.Caption=Str(x)+"!="+Str(t)EndSub4 .运行程序分别单击“4!”命令按钮和“6!”命令按钮，程序运行效果如图63所示。图63求4!和6!L>Function过程1.设计界面在窗体上添加一个标签和一个列表框。初始界面如图7-1所示。图71初始界面2 .设置属性表71属性设置对象属性属

38、性值Label1Caption求110的平方数List1List设置属性后的界面如图72所示3 .编写程序代码PrivateFunctionpower(xAsInteger)AsIntegerpower=x*xEndFunctionPrivateSubForm_Click()DimaAsIntegerFora=1To10List1.AddItempower(a)NextaEndSub4 .运行程序运行程序后，单击窗体，程序运行效果如图7-3所示。 Foi I京110的平方散6 54 91 2图73求110的平万数四、实验心得掌握了Sub过程和Function过程的定义、调用、过程参数传递规则，

39、遇到了很多不懂的地方，在同学的帮助下解决了困难，完成了这次实验。西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年4月14日同实验者实验项目菜单、工具栏、状态栏设计实验设备及器材硬件：旧MPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。一、实验目的(1)掌握菜单设计器窗口的操作技术。(2)掌握下拉式菜单和

40、弹出式菜单的设计方法。(3)掌握通过工具条控件创建工具栏的步骤和方法。(4)掌握通过状态栏控件创建状态栏的步骤和方法。二、实验内容(1)建立一个窗体菜单，测试快捷键和访问键的功能。在窗体上放置一个文本框，根据菜单中选择的颜色，变换文本框的背景色。(2)在上题的基础上添加一个弹出式菜单，并测试弹出式菜单的执行情况。(3)创建具有“新建”，“复制”，“打开”和“打印”功能的工具栏(4)应用StatusBar控件制作状态栏。三、实验步骤、数据记录及处理一菜单设计1.实验内容(1)建立用户界面利用“工具”菜单中的“菜单编辑器”菜单项，建立如图14-1所示的菜单。图14-1初始菜单(2)属性设置表14-

41、1菜单设计标题名称快捷键颜色(&QmnuColor红色mnuRedCtrl+R蓝色mnuBlueCtrl+B绿色mnuGreenCtrl+GLine白色mnuWhiteCtrl+W黑色mnuBlackCtrl+K退出(&X)mnuExit(3)编写事件代码PrivateSubmnuExit_Click()EndEndSubPrivateSubmnuBlack_Click()Text1.BackColor=RGB(0,0,0)EndSubPrivateSubmnuBlue_Click()Text1.BackColor=RGB(0,0,255)EndSubPrivateSubmnu

42、Green_Click()Text1.BackColor=RGB(0,255,0)EndSubPrivateSubmnuRed_Click()Text1.BackColor=RGB(255,0,0)EndSubPrivateSubmnuWhite_Click()Text1.BackColor=RGB(255,255,255)EndSub(4)运行程序测试程序，测试快捷键和访问键，观察运行结果。2.实验内容(1)在实验1的菜单中增加一个菜单项，如表14-2所示表14-2新增菜单项标题名称可见性弹出菜单mnuPopFalse打印星号mnuPopStar打印字母mnuPopNum修改属性将Text1

43、的对齐属性Alignment设为"2"(居中)，多行属性MultiLine设为"Ture",字体Font属性设为“小三”。(3)添加程序代码PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=2ThenForm1.PopupMenumnuPop,4EndSubPrivateSubmnuPopNum_Click()Text1.Text=Text1.Text="1234567890"&Chr(13)&Ch

44、r(10)&0987654321“EndSubPrivateSubmnuPopStar_Click()Text1.Text=Text1.Text="*”&chr(13)&Chr(10)&*EndSub(4)运行程序效果如图14-2所示图14-2弹出式菜单效果(2)设置对象属性。二工具栏、状态栏设计1.实验内容(1)建立用户界面。添加一个文本框控件Textl。添加AxtiveX控件。参考图151所示。图151添加控件将工具箱中Toolbar和ImageList控件双击到窗体上。参考图2152所示。图152设置界面在打开的“属性页”鼠标指向ImageLis

45、t控件，单击右键在弹出的快捷菜单中选择属性,对话框，选择“图象”选项卡，单击“插入图片”按钮，选择图片。如图153所示。图153插入图片在窗体的工具栏上单击鼠标右键，在弹出的快捷菜单中选择属性，打开的“属性页”对话框，在“图象列表”选项中选取ImageListl,建立与图象列表框的关联。参考图215-4所示。；配牛Ifo - de*thdl!tuiM rouKSaKOU-fa-cdDLUbrorr.事用则旭（如：匠二FWMWK®：3H强像«hf.M林曹-病曲工如向法7常湾®定理编P邛熟片酊*，齐W*QEI现irs三工亍胃手口胃餐中学室出葬里 忤就QD畀巾口-e&q

46、uot;土JAHHW曹小-Em可Q-«"140.UhlLfpA©*1立-，&rSl«i4w*1Bg1mI则14|图154设置Toolbar的属性选择“按钮”选项卡，单击“插入”按钮，向工具栏中添加4个工具按钮，索引分别为1,2,3,4,对应图象索引值分别为1,2,3,4。参考图155所示。图155建立与图象列表框的关联(3)编写事件代码。PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase 1Text1.Text=&quo

47、t;"Case 2Debug.Print"复制"Case 3Debug.Print"打开"Case 4Debug.Print"打印"EndSelectEndSub(4)运行程序。程序输出界面如图156所示。Dl?j：&.t图156程序运行结果示。2.实验内容(1)建立用户界面添加AxtiveX控件。向窗体中添加一个StatusBar控件和Timer控件。参考图15 7所图157界面设计图158插入一个窗格(2)设置对象属性。设置Timer控件的Interval属性为100,右击StatusBar控件，在弹出的快捷菜单

48、中选择属性，在打开的“属性页”对话框，选择“窗格”选项卡。选择插入窗格命令，插入一个窗格，如图158所示。(3)编写事件代码。PrivateSubForm_Load()StatusBalPanels.Text="欢迎使用本系统"EndSubPrivateSubTimer1_Timer()StatusBar1.Panels(2).Text=Time()EndSub(4)运行程序程序输出界面如图159所示。图15 9程序运行结果四、实验心得通过本次试验，我掌握了菜单设计器窗口的操作技术和下拉式菜单和弹出式菜单的设计方法，掌握了通过工具条控件创建工具栏的步骤和方法和通过状态栏控件

49、创建状态栏的步骤和方法。西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年4月14日同实验者实验项目VB数据库设计实验设备及器材硬件：旧MPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。、实验目的(1)掌握数据库、表、记录和字段的概念。(2)掌握可视化数据库管理器的使用。(3)了解使用SQL语句对数据库中

50、的数据进行查询和更新的功能。、实验内容使用可视化数据库管理器建立一个名为“Student.mdb”的Access数据库，它包括一个学生学籍表，该表的表名为xjb,各列的名称、数据类型、长度及意义如下所示。列名数据类型长度意义st_NoInteger学号nameText10姓名sexText2性别addrText50地址heightsingle身高三、实验步骤、数据记录及处理1 .数据库的创建(1)单击“外接程序”菜单项的“可视化数据管理器”菜单项，启动“可视化数据管理器”，显示如图191所示的“VisData”窗口。量件如M划OP图191可视化数据管理器(2)选择“可视化数据管理器”中“文件”

51、菜单中的“新建”菜单项用于创建数据库。(3)选择"MicrosoftAccess”菜单项，单击该菜单项下的"Version7.0MDB”菜单项，打开“选择要创建的MicrosoftAccess数据库”对话框。(4)选择新建数据库保存的目录后，在“文件名”文本框中输入数据库的名称student。单击“确定”，“可视化数据管理器”开始在指定的目录下创建以指定名称命名的MicrosoftAccess数据库，如图192所示。图19-2创建数据库后的“可视化数据管理器”界面2 .向数据库中添加数据表(1)在“数据库窗口”中右击鼠标，在弹出的快捷菜单中选“新建表”菜单项，系统将打开“表结构”对话框，如图193所示。图193“表结构”对话框(2)在“表名称”文本框中键入表名，这里键入名称xjb。(3)单击“添加字段”按钮，系统显示“添加字段”对话框，如图194所示。在这个对话框中定义表的字段。单击“确定”按钮，这样我们就定义了xjb表的第一个字段。图194“添加字段”对话框(4)需要继续添加字段时，单击“添加字段”按钮，按与第3步相似的方法添加新的字段，单击“关闭”按钮关闭“添加字段”对话框，此时，“表结构”中显示将该表所有字段的定义。(5)单击“生成表”按钮，“可视化数据管理器”