vb程序设计实验指导书

年4月19日vb程序设计实验指导书文档仅供参考实验的总体要求与方法实验是巩固课堂所学知识、掌握可视化程序设计的方法、提高分析问题和解决问题能力的最重要的途径。因此明确实验目的、内容与要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。实验的基本目的经过实验熟悉面向对象程序设计的基本概念。经过实验熟练掌握利用VB进行可视化程序设计的基本方法。经过实验掌握应用程序的调试方法，加强应用能力的训练与培养，从而具有计一般应用程序和解决事务管理问题的能力。实验的基本要求上机实验之前，应认真预习有关实验内容及相应教材。实验过程中应记录实验中的有关数据（包括出错信息等），以便课后进行分析。上机时要遵守实验室的规章制度，爱护实验设备。３．实验报告每个实验结束后都应写出实验报告，报告中应包括下列内容：实验目的实验内容与要求实验步骤实验结果及分析讨论、实验心得体会等。

实验一熟悉vb的开发环境、程序设计的基本步骤【实验目的】1．熟悉VisualBasic6.0集成开发环境。2.学习怎样启动和退出VB3．掌握开发一个简单程序的基本步骤。4．掌握简单代码的编写。【实验内容】1．启动和退出VB2．开发一个简单程序。3．将VisualBasic工程编译生成可执行文件。【实验要求及操作步骤】一、启动和退出VB1、进入VB集成开发环境要进入VB应用程序，首先要运行VB的集成开发环境。启动VB的方法如下：[方法1]

单击任务栏上的“开始”按钮；

选择“程序”文件夹，接着选取“MicrosoftVisualBasic6.0中文版”文件夹，再选取“MicrosoftVisualBasic6.0中文版”项，如图1-1所示；图1-1启动VB的方法1单击鼠标左键。[方法2]单击任务栏上的“开始”按钮；选择“程序”文件夹；使用“Windows资源按理器”查找VB可执行文件VB6.exe；双击图标。[方法3]在桌面创立一个VB快捷键；双击该快捷键。VB启动后，出现VB6.0的“新建工程”对话框（图１-2）单击“打开”按钮，带有一个窗体的新工程将被创立，并能够看到VB集成开发环境的界面，如图1-3所示。有的系统启动后可直接进入图1-3所示的界面。图1-2VB6.0的“新建工程”对话框图1-3VB的集成开发环境窗口1、退出VB方法：（1）单击主窗口右上角的“关闭”按钮。（2）执行“文件”菜单中的“退出”命令。（3）按Alt+Q键。二、开发一个简单程序要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。实验步骤：（1）新建工程在桌面上双击MicrosoftVisualBasic6.0快捷方式图标，系统进入VisualBasic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。单击“打开”按钮，VisualBasic6.0进入设计模式。如图1－4所示。图1－4“新建工程”对话框单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。（2）设计界面在系统提供的名为Form1的窗体上进行界面设计。单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如图1－5所示。图1－5初始界面（3）设置属性如表1－1所示。表1－1属性设置对象属性属性值Form1Caption我的第一个VB程序Label1Caption

设置属性后的界面如图1－6所示。

图1－6设置属性后的界面图1－7第一个程序（4）编写程序代码PrivateSubForm_Click()Label1.Caption="床前明月光"EndSub（5）运行程序运行VB程序有三种方法：①单击工具栏上的“启动”按钮；②从“运行”菜单中选择“启动”菜单项；③按F5键。例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图1－7所示。（6）保存程序单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。三、将VisualBasic工程编译生成可执行文件单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。退出VisualBasic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。

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

表2－1属性设置对象属性属性值Label1Caption请输入密码：Command1Caption登陆Command2Caption退出Label2Caption

Label2BorderStyle1-FixedSingleText1Text

Text1MaxLength16Text1PasswordChar*Form1Caption登陆界面（3）编写程序代码PrivateSubCommand1_Click()IfText1.Text=“goodbaby”ThenLabel2.Caption=“欢迎使用本系统！”ElseLabel2.Caption=“密码错误！请重新输入密码！”EndIfEndSub

PrivateSubCommand2_Click()EndEndSub

（4）运行程序①在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果如图2－3所示。图2－3输入的密码正确②在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。运行结果如图2－4所示。图2－4输入的密码错误实验内容（1）设计界面在窗体上放置两个Label控件、两个TextBox控件和三个CommandButton控件。初界面如图2－5所示。图2－5初始界面图2—6属性设置后的界面（2）属性设置设置属性后的界面如图2－6所示。

表2－2属性设置对象属性名称属性值Form1Caption交换Label1Caption输入第1个数Label2Caption输入第2个数Text1Text空Text2Text空Command1NameCmdChangeCaption交换DefaultTureCommand2NameCmdClearCaption清空Command3NameCmdExitCaption退出（3）编写程序代码OptionExplicitPrivateSubCmdChange_Click()DimtempAsIntegertemp=Text1.TextText1.Text=Text2.TextText2.Text=tempEndSubPrivateSubCmdExit_Click()UnloadMeEndSubPrivateSubCMdCLear_Click()Text1.Text=””Text2.Text=””Text1.SetFocusEndSub(4)运行程序执行结果如图2-7（a）、（b）所示。单击“清空”按钮并再数入数据，进行交换。图2-7（a）交换前的界面图2-7（b）单击交换后的界面

实验三表示式、InputBox函数和MsgBox语句【实验目的】1．掌握表示式的构成和如何求表示式的值。2．掌握赋值语句的使用。3．掌握InputBox函数的使用。4．掌握MsgBox语句的使用。【实验内容】1.利用InputBox函数和MsgBox语句求圆的周长。2.利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。【实验步骤与指导】1．实验内容(1)设计界面在窗体上添加一个命令按钮。初始界面如图3－1所示。图3－1初始界面图3－2设置属性后的界面(2)设置属性表3－1属性设置对象属性属性值Command1Caption计算圆的周长Form1CaptionInputBox和MsgBox举例设置属性后的界面如图3－2所示。(3)编写程序代码PrivateSubCommand1_Click()Constpi=3.14159DimrAsSingle,sAsString,s2AsStringDimzhouchangAsSingles=InputBox("请输入半径","输入半径",1)r=Val(s)zhouchang=2*pi*rs2="半径="+s+",圆的周长="+Str(zhouchang)MsgBoxs2,64,"确认窗口"EndSub

(4)运行程序单击工具栏上的“启动”按钮，进入运行模式。单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图3－3所示。(a)(b)(c)图3－3计算圆的周长2．实验内容(1)设计界面初始界面如图3－4所示。图3-4初始界面(2)设置属性表3－1属性设置对象属性属性值Form1Caption求三角形的面积(3)编写程序代码PrivateSubForm_click()DimaAsSingle,bAsSingle,cAsSingleDimsAsSingle,pAsSinglea=InputBox("请输入三角形的边a：","输入")b=InputBox("请输入三角形的边b：","输入")c=InputBox("请输入三角形的边c：","输入")If(a+b<=cOra+c<=bOrb+c<=a)Or(Abs(a-b)>=cOrAbs(a-c)>=bOrAbs(b-c)>=a)ThenMsgBox("你输入的数据有误！")Elsep=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Print"三角形的面积为：";sEndIfEndSub(4)运行程序如图3—5（a）（b）（c）（d）所示(a)(b)（c）（d）图3－5计算三角形的面积

实验四选择结构【实验目的】1．掌握逻辑表示式的正确书写形式。2．掌握单分支与双分支条件语句的用法，熟悉If….Then…..Else语句。3．掌握选择结构中多条件，多分支程序的用法，熟悉SelectCase语句。【实验内容】1.编写程序，利用文本框检查用户密码。提示：能够用文本框的PasswordChar属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的PasswordChar2．输入一个数字（0-6），用中英文显示星期几。提示：用多条件多分支选择语句Select

Case来解决。【实验步骤与指导】1．实验内容（1）建立用户界面（2）设置对象属性表4－1属性设置对象属性属性值说明Frame1Caption请输入您的密码：

Text1Text

清空PasswordChar*只显示字符“*”Label1Caption

FontName黑体字体名称fontSize三号字体大小（3）编写事件代码PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'回车字符的Ascii为13IfText1.Text="123456"ThenLabel1.Caption="欢迎使用本系统！"ElseLabel1.Caption="对不起，密码错！"EndIfText1.SelStart=0Text1.SelLength=Len(Text1.Text)EndIfEndSub（4）运行程序程序输出界面如图4－1，图4－2所示。图4－1验证密码正确图4－2验证密码不正确

2．实验内容（1）建立用户界面。参考图4－3所示图4－3界面设计（2）设置对象属性表4－2属性设置对象属性属性值说明Form1Caption星期

Label1Caption输入一个数字（0-6）

Label2Caption

空BorderStyle1-FixedSingle边框样式

Command1Caption星期

DefaultTrue缺省命令按钮Text1Text“”空（3）编写事件代码PrivateSubCommand1_Click()DimnAsInteger,mAsStringn=Val(Text1.Text)SelectCasenCase1m="星期一（Monday）"Case2m="星期二（Tuesday）"Case3m="星期三（Wednesday）"Case4m="星期四（Thursday）"Case5m="星期五（Friday）"Case6m="星期六（Saturday）"Case0m="星期日（Sunday）"CaseElsem="重新输入"EndSelectLabel2.Caption=mEndSub程序输出界面如图4－4所示。图4－4程序运行结果

实验五循环结构【实验目的】1．掌握For语句的使用。2．掌握Do语句的使用。3．掌握如何控制循环条件，防止死循环或不循环。【实验内容】1.利用For循环求S=1+(1+2)+(1+2+3)＋．．．+(1+2+3+．．．+n)的值。提示：本题是先进行内循环累加，再进行外循环累加，因此需要两个累加器．也可用一个循环来实现．括号内每累加一个数，就往S中累加一次。2．输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了1和该数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次2～n用做除数去除n，若n不能被其中任何一个数整除，则n为素数。【实验步骤与指导】1．实验内容（1）建立用户界面（2）设置对象属性。参考图5－1所示图5－1属性设置图5－2程序运行结果（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）运行程序程序输出界面如图5－2所示。2．实验内容（1）建立用户界面。参考图5－3所示图5－3界面设计（2）设置对象属性（3）编写事件代码PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub

PrivateSubCommand1_Click()DimnAsLongSelectCaseVal(Text1.Text)CaseIs<3MsgBox"请输入一个大于2的整数",vbInformation+vbOKOnly,"注意"CaseIs>MsgBox"该数太大",vbInformation+vbOKOnly,"注意"CaseElsen=Val(Text1.Text)s=0i=2DoWhilei<=Sqr(n)Ands=0IfnModi=0Thens=1Else:i=i+1EndIfLoopIfs=0Thena="是一个素数"Elsea="不是一个素数"EndIfLabel1.Caption=Str(n)&aEndSelectText1.SetFocusEndSub（4）运行程序程序运行结果如图5－4所示。图5－4程序运行结果

实验六Sub过程【实验目的】1．掌握Sub过程的定义。2．掌握Sub过程的调用。3．掌握Sub过程参数传递规则。【实验内容】编写一个求阶乘的过程，调用该过程求4！和6！。【实验步骤与指导】1．设计界面在窗体上添加两个命令按钮和两个标签。初始界面如图6－1所示。图6－1初始界面图6－2设置属性后的界面2．设置属性表6－1属性设置对象属性属性值Command1Caption求4！Command2Caption求6！Label1Caption

Label1BorderStyle1-FixedSingleLabel2Caption

Label2BorderStyle1-FixedSingle设置属性后的界面如图6－2所示。3．编写程序代码PrivateSubjiecheng(nAsInteger,resultAsLong)DimiAsIntegerresult=1Fori=1Tonresult=result*iNextiEndSubPrivateSubCommand1_Click()DimxAsInteger,tAsLongx=4Calljiecheng(x,t)Label1.Caption=Str(x)+"!="+Str(t)EndSub

PrivateSubCommand2_Click()DimxAsInteger,tAsLongx=6Calljiecheng(x,t)Label2.Caption=Str(x)+"!="+Str(t)EndSub4．运行程序分别单击“4！”命令按钮和“6！”命令按钮，程序运行效果如图6－3所示。图6－3求4！和6！

实验七Function过程【实验目的】1．掌握Function过程的定义。2．掌握Function过程的调用。3．掌握Function过程参数传递规则。【实验内容】编写一个求任意数的平方的函数，调用该函数求1～10的平方数。【实验步骤与指导】1．设计界面在窗体上添加一个标签和一个列表框。初始界面如图7－1所示。图7－1初始界面图7－2设置属性后的界面2．设置属性表7－1属性设置对象属性属性值Label1Caption求1～10的平方数List1List

设置属性后的界面如图7－2所示

3．编写程序代码PrivateFunctionpower(xAsInteger)AsIntegerpower=x*xEndFunction

PrivateSubForm_Click()DimaAsIntegerFora=1To10List1.AddItempower(a)NextaEndSub

4．运行程序运行程序后，单击窗体，程序运行效果如图7－3所示。图7－3求1～10的平方数

实验八单选框和复选框的应用【实验目的】1．掌握单选框,复选框的定义。2．掌握单选框,复选框的区别。【实验内容】建立一个标准工程实现单选框和复选框的组合应用。【实验步骤与指导】1．设计界面在窗体上添加一个单选框组(包含三个单选框),一个复选框组(包含三个复选框),两个标签框。初始界面如图6－1所示。图8－1初始界面图8－2设置属性后的界面2．设置属性，如表8－1所示表8－1属性设置对象属性属性值Optionbutton1(0)Caption张文Optionbutton1(1)Caption王雪Optionbutton1(2)Caption林非Checkbox1(0)CaptionVB6.0语言程序设计Checkbox1(1)Caption汇编语言Checkbox1(2)Caption单片机原理Label1caption无Label2caption无设置属性后的界面如图8－2所示。

3．编写程序代码PrivateSubCheck1_Click(indexAsInteger)DimkAsStringDimiAsIntegerk=""Fori=0To2IfCheck1(i).Value=1Thenk=k&Check1(i).Caption&""EndIfNextik="你选择了"&kLabel2.Caption=kEndSubPrivateSubOption1_Click(indexAsInteger)DimiAsIntegerFori=0To2IfOption1(index).Visible=TrueThenLabel1.Caption="你选择了"&Option1(index).CaptionEndIfNextiEndSub4．运行程序分别单选框中的某一项和复选框中的某几项，程序运行效果如图8－3所示。图8－3运行结果

实验九组合框的应用【实验目的】1．掌握组合框的常见属性。2．了解列表框和组合框的区别。【实验内容】运用组合框实现学校的添加与删除功能。【实验步骤与指导】1．设计界面在窗体上添加四个命令按钮,一个标签,一个组合框和一个文本框。初始界面如图9－1所示。图9－1初始界面图9－2设置属性后的界面2．设置属性，如表9－1所示表9－1属性设置对象属性属性值Command1Caption删除名称CmdDelCommand2Caption添加名称CmdAddCommand3Caption清除名称CmdClearCommand4Caption关闭名称CmdEndLabel1Caption学校Text1text无名称TxtInfor设置属性后的界面如图9－2所示。3．编写程序代码PrivateSubCmdAdd_Click()CboMsg.Text=TxtInfor.TextEndSubPrivateSubCmdClear_Click()CboMsg.ClearEndSubPrivateSubCmdDel_Click()DimIntIndexAsIntegerIntIndex=CboMsg.ListIndexCboMsg.Text=""CallEndSubPrivateSubCmdEnd_Click()EndEndSubPrivateSubForm_Load()WithCboMsg.AddItem"盐城师范学院",0.AddItem"盐城生物工程高等学校",1.AddItem"盐城工学院",2.AddItem"盐城师范学校",3.ListIndex=0EndWithEndSub4．运行程序结果如图9－3所示图9－3程序运行结果

实验十图像框的应用【实验目的】1．熟悉图像框与图片框的区别。2．掌握图像框的属性与特点。【实验内容】将一个图形文件放到图像框中，改变图像框的大小，观察图形是否随之改变。【实验步骤与指导】1．设计界面在窗体上添加五个命令按钮和一个图像框。初始界面如图10－1所示。图10－1初始界面图10－2设置属性后的界面

2．设置属性，如表10－1所示表10－1属性设置对象属性属性值Command1Caption改变宽度Command2Caption改变高度Command3Caption改变高度和宽度Command4Caption恢复原始尺寸Command4Caption退出Image1pictureE:\vb\65203483.wmfImage1stretchtrue设置属性后的界面如图10－2所示。

3．编写程序代码PrivateSubCommand1_Click()Image1.Left=Image1.Left-Image1.Width/2Image1.Width=Image1.Width*2EndSubPrivateSubCommand2_Click()Image1.Top=Image1.Top-Image1.Height/2Image1.Height=Image1.Height*2EndSubPrivateSubCommand3_Click()Image1.Left=Image1.Left-Image1.Width/2Image1.Width=Image1.Width*2Image1.Height=Image1.Height*2EndSubPrivateSubCommand4_Click()Image1.Left=2225Image1.Top=666Image1.Height=1515Image1.Width=1515EndSubPrivateSubCommand5_Click()EndEndSub4．运行程序分别单击五个命令按钮，程序运行效果如图10－3~10－6所示。

图10－3改变宽度后运行结果图10－4改变高度后运行结果

图10－5改变高度和宽度后的运行结果图10－6恢复原始尺寸

实验十一滚动条【实验目的】1．掌握滚动条的应用。2．熟悉滚动条的属性。【实验内容】 设计一程序，当拖动或单击水平和垂直滚动条使窗体上的文本框将随之上下或者左右移动。【实验步骤与指导】1．设计界面在窗体上添加一个垂直滚动条，一个水平滚动条，一个文本框，一个命令按钮。初始界面如图11－1所示。图11－1初始界面2．设置属性表11－1属性设置对象属性属性值Hscroll1max1200Hscroll1min100Hscroll1largechange300Vscroll1max800Vscroll1min50Vscroll1largechange300Text1textVb6.0程序设计语言Command1caption退出设置属性后的界面如图11－2所示。图11－2设置属性后的界面

3．编写程序代码PrivateSubCommand1_Click()EndEndSubPrivateSubHScroll1_Change()Text1.Left=800+HScroll1.ValueEndSubPrivateSubVScroll1_Change()Text1.Top=300+VScroll1.ValueEndSub4．运行程序分别拖动水平滚动条或者垂直滚动条，程序运行效果如图11－3所示。图11－3程序运行效果

实验十二定时器【实验目的】1．掌握定时器控键的用法。2．熟悉定时器控键的属性。【实验内容】1．编写一个程序利用计时器计时。2．制作一个日历时钟应用程序。【实验步骤与指导】1．设计界面在窗体上添加四个命令按钮，一个标签，一个计时器控件。初始界面如图12－1所示。图12－1初始界面2．设置属性，如表11－1所示表12－1属性设置对象属性属性值Command1Caption开始计时Command2Caption停止Command3Caption重新开始Label1BorderStyle1-FixedSingleLabel1Caption0Timer1enabletrueTimer1interval400设置属性后的界面如图12－2所示图12－2设置属性后的界面３．编写程序代码PrivateSubcommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand3_Click()Label1.Caption="0"EndSubPrivateSubCommand4_Click()EndEndSubPrivateSubForm_Load()Me.Caption=Format(Now,"hh:mm:ss")EndSubPrivateSubTimer1_Timer()DimcountAsLongcount=Label1.Captioncount=count+1Label1.Caption=countEndSub4．运行程序单击“开始计时”命令按钮，程序运行效果如图12－3所示。图12－3程序运行效果

实验十三数组【实验目的】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）编写程序代码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(11)="计":c(12)="算":c(13)="机":c(14)="系"Forx=1To14Label1.Caption=Label1.Caption+c(x)NextxForx=14To1Step-1Label2.Caption=Label2.Caption+c(x)NextxEndSub（4）运行程序程序输出界面如图13－2所示。图13－2将字符倒序输出结果图13－3界面设计

2．实验内容（1）建立用户界面在窗体中使用图片框控件Picture1，参见图13－3所示，当然也可用列表框控件来显示矩阵的元素。（2）设置对象属性（3）编写事件代码PrivateSubForm_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）运行程序程序输出界面如图13－4所示。图13－4程序运行结果

实验十四菜单设计【实验目的】1．掌握菜单设计器窗口的操作技术。2．掌握下拉式菜单和弹出式菜单的设计方法。【实验内容】1．建立一个窗体菜单，测试快捷键和访问键的功能。在窗体上放置一个文本框，根据菜单中选择的颜色，变换文本框的背景色。2．在上题的基础上添加一个弹出式菜单，并测试弹出式菜单的执行情况。【实验步骤与指导】1．实验内容（1）建立用户界面利用“工具”菜单中的“菜单编辑器”菜单项，建立如图14-1所示的菜单。图14-1初始菜单（2）属性设置表14-1菜单设计标题名称快捷键颜色（&C）mnuColor…红色mnuRedCtrl+R…蓝色mnuBlueCtrl+B…绿色mnuGreenCtrl+G…—Line…白色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)EndSubPrivateSubmnuGreen_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（2）修改属性将Text1的对齐属性Alignment设为“2”（居中），多行属性MultiLine设为“Ture”，字体Font属性设为“小三”（3）添加程序代码PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=2ThenForm1.PopupMenumnuPop,4EndSubPrivateSubmnuPopNum_Click()Text1.Text=””Text1.Text=”1234567890”&Chr(13)&Chr(10)&”0987654321EndSubPrivateSubmnuPopStar_Click()Text1.Text=””Text1.Text=”**********”&Chr(13)&Chr(10)&”**********“EndSub（4）运行程序效果如图14-2所示图14-2弹出式菜单效果

实验十五工具栏，状态栏设计【实验目的】1．掌握经过工具条控件创立工具栏的步骤和方法。2．掌握经过状态栏控件创立状态栏的步骤和方法。【实验内容】1．创立具有“新建”，“复制”，“打开”和“打印”功能的工具栏2．应用StatusBar控件制作状态栏。【实验步骤与指导】1．实验内容（1）建立用户界面添加一个文本框控件Text1。添加AxtiveX控件。参考图15－1所示。图15－1添加控件将工具箱中Toolbar和ImageList控件双击到窗体上。参考图2－15－2所示。图15－2设置界面（2）设置对象属性鼠标指向ImageList控件，单击右键在弹出的快捷菜单中选择属性，在打开的“属性页”对话框，选择“图象”选项卡，单击“插入图片”按钮，选择图片。如图15－3所示。图15－3插入图片在窗体的工具栏上单击鼠标右键，在弹出的快捷菜单中选择属性，打开的“属性页”对话框，在“图象列表”选项中选取ImageList1，建立与图象列表框的关联。参考图2－15－4所示。图15－4设置Toolbar的属性选择“按钮”选项卡，单击“插入”按钮，向工具栏中添加4个工具按钮，索引分别为1，2，3，4，对应图象索引值分别为1,2,3,4。参考图15－5所示。图15－5建立与图象列表框的关联（3）编写事件代码PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Text1.Text=""Case2Debug.Print"复制"Case3Debug.Print"打开"Case4Debug.Print"打印"EndSelectEndSub（4）运行程序程序输出界面如图15－6所示。图15－6程序运行结果2．实验内容（1）建立用户界面添加AxtiveX控件。向窗体中添加一个StatusBar控件和Timer控件。参考图15－7所示。图15－7界面设计图15－8插入一个窗格（2）设置对象属性设置Timer控件的Interval属性为100，右击StatusBar控件，在弹出的快捷菜单中选择属性，在打开的“属性页”对话框，选择“窗格”选项卡。选择插入窗格命令，插入一个窗格，如图15－8所示。（3）编写事件代码PrivateSubForm_Load()StatusBar1.Panels(1).Text="欢迎使用本系统"EndSubPrivateSubTimer1_Timer()StatusBar1.Panels(2).Text=Time()EndSub（4）运行程序程序输出界面如图15－9所示。图15－9程序运行结果

实验十六文件系统控件【实验目的】掌握驱动器列表框，目录列表框和文件列表框的常见属性和事件。【实验内容】实现驱动器列表框，目录列表框和文件列表框三者之间的同步。【实验步骤与指导】1．设计界面在窗体上添加一个驱动器列表框Drive1，一个目录列表框Dir1和一个文件列表框File1。如图16－1所示。图16－1初始界面图图16－2文件系统控件的同步2．编写程序代码PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSub3．运行程序程序运行效果如图16－2所示。

实验十七顺序文件【实验目的】1．掌握顺序文件的打开，读写和关闭方法。2．掌握顺序文件的使用。【实验内容】打开一个顺序文件，该文件的内容显示在文本框中，对文本框中的文本进行修改，将修改后的文本保存到顺序文件中。【实验步骤与指导】1．设计界面在窗体上添加三个命令按钮，一个文本框和一个通用对话框。初始界面如图17－1所示。图17－1初始界面

2．设置属性表17－1属性设置对象属性属性值Form1Caption顺序文件Text1Text

Text1MultiLineTrueText1ScrollBars3-BothCommand1Caption显示文件Command2Caption保存文件Command3Caption退出CommonDialog1FilterTextFiles（*.txt）|*.txt设置属性后的界面如图17－2所示。图17－2设置属性后的界面3．编写程序代码PrivateSubCommand1_Click()DimFile1AsStringDimnextlineAsStringCommonDialog1.ShowOpenFile1=CommonDialog1.FileNameText1.Text=""OpenFile1ForInputAs#1DoUntilEOF(1)LineInput#1,nextlineText1.Text=Text1.Text+nextline+Chr(13)+Chr(10)LoopClose1EndSubPrivateSubCommand2_Click()DimcontentsAsString,File1AsStringCommonDialog1.ShowSaveFile1=CommonDialog1.FileNameOpenFile1ForOutputAs#1contents=Text1.TextText1.Text=""Print#1,contentsClose1EndSubPrivateSubCommand3_Click()UnloadMeEndSub4．运行程序运行程序，单击“显示文件”命令按钮，在弹出的通用对话框中选取一个文件，则选中文件内容显示在文本框中。在文本框中进行修改，然后单击“保存文件”命令按钮，则文本框中的内容保存到该文件。程序运行效果如图17－3所示。图17－3顺序文件的使用

实验十八随机文件【实验目的】1．掌握随机文件的打开，读写和关闭方法。2．掌握随机文件的使用。【实验内容】 新建随机文件“D:\txl.txt”。往该随机文件中添加记录，浏览随机文件中的记录。【实验步骤与指导】1．设计界面在窗体上添加三个标签，两个文本框，一个滚动条和三个命令按钮。初始界面如图18－1所示。图18－1初始界面2．设置属性表18－1属性设置对象属性属性值Form1Caption随机文件Label1Caption姓名：Label2Caption电话号码：Text1Text

Text2Text

Command1Caption添加记录Command1（名称）cmdAddCommand2Caption浏览记录Command2（名称）cmdBrowseCommand3Caption退出Command3（名称）cmdExitLabel3Caption选择记录：设置属性后的界面如图18－2所示。图18－2设置属性后的界面

3．编写程序代码PrivateSubForm_Load()Open"D:\txl.txt"ForRandomAs#1Len=Len(js)EndSub

PrivateSubcmdAdd_Click()DimpositionAsLongposition=LOF(1)/Len(js)=Text1.Textjs.tel=Text2.TextPut#1,position+1,jsText1.Text=""Text2.Text=""EndSub

PrivateSubcmdBrowse_Click()LastRecord=LOF(1)/Len(js)HScroll1.Max=LastRecordHScroll1.Min=1HScroll1.Value=1CallHScroll1_ChangeEndSub

PrivateSubHScroll1_Change()DimnAsIntegern=HScroll1.Value+1Get#1,n,jsText1.Text=Text2.Text=js.telEndSubPrivateSubcmdExit_Click()Close#1UnloadMeEndSub

4．运行程序运行程序，在两个文本框中分别输入姓名和电话号码，然后单击“添加记录”命令按钮，把该记录添加到“D:\txl.txt”文件中。单击“浏览记录”命令按钮，单击水平滚动条向右箭头或移动滑块，就可浏览记录，所浏览记录的姓名，电话分别显示在两个文本框中。程序运行效果如图18－3所示。图18－3随机文件的使用

实验十九可视化数据管理器VisData的使用【实验目的】1．掌握数据库、表、记录和字段的概念。2．掌握可视化数据库管理器的使用。3．了解使用SQL语句对数据库中的数据进行查询和更新的功能。【实验内容】使用可视化数据库管理器建立一个名为“Student.mdb”的Access数据库，它包括一个学生学籍表，该表的表名为xjb，各列的名称、数据类型、长度及意义如下所示。列名数据类型长度意义st_NoInteger学号nameText10姓名sexText2性别addrText50地址heightsingle身高【实验步骤与指导】1．数据库的创立(1)单击“外接程序”菜单项的“可视化数据管理器”菜单项，启动“可视化数据管理器”，显示如图19－1所示的“VisData”窗口。图19－1可视化数据管理器(2)选择“可视化数据管理器”中“文件”菜单中的“新建”菜单项用于创立数据库。(3)选择“MicrosoftAccess”菜单项，单击该菜单项下的“Version7.0MDB”菜单项，打开“选择要创立的MicrosoftAccess数据库”对话框。(4)选择新建数据库保存的目录后，在“文件名”文本框中输入数据库的名称student。单击“确定”，“可视化数据管理器”开始在指定的目录下创立以指定名称命名的MicrosoftAccess数据库，如图19－2所示。图19－2创立数据库后的“可视化数据管理器”界面2．向数据库中添加数据表（1）在“数据库窗口”中右击鼠标，在弹出的快捷菜单中选“新建表”菜单项，系统将打开“表结构”对话框，如图19－3所示。图19－3“表结构”对话框（2）在“表名称”文本框中键入表名，这里键入名称xjb。（3）单击“添加字段”按钮，系统显示“添加字段”对话框，如图19－4所示。在这个对话框中定义表的字段。单击“确定”按钮，这样我们就定义了xjb表的第一个字段。图19－4“添加字段”对话框（4）需要继续添加字段时，单击“添加字段”按钮，按与第3步相似的方法添加新的字段，单击“关闭”按钮关闭“添加字段”对话框，此时，“表结构”中显示将该表所有字段的定义。（5）单击“生成表”按钮，“可视化数据管理器”创立指定的表并关闭“表结构”对话框。如图19－5所示。（6）若要修改现有表的表结构，在“数据库窗口”中右击鼠标，单击弹出的快捷菜单中“设计”菜单项，系统将打开“表结构”对话框，对欲修改的字段进行修改即可。3．编辑数据表中的数据（1）在“可视化数据管理器”中打开数据库student.mdb，如图2－20－6所示。（2）在“数据库窗口”中右击要添加、修改、或删除记录的表，从弹出菜单中选择“打开”菜单项，系统显示“Dynaset:表名”对话框，其中显示所选表中第一条记录的内容。如图19－6所示。图19－5包含有3个表的数据库student图19－6“Dynaset:xjb”对话框（3）添加记录。单击“添加”按钮，对话框会显示一条空的记录，如图19－7所示。输入各字段的内容，单击“更新”按钮保存新添加的记录。图19－7添加新的记录（4）其它按钮的使用方法读者能够自行摸索一下。（5）单击“关闭”按钮关闭“Dynaset:xjb”对话框。

4．使用查询生成器“查询生成器”是VisualBasic6.0的外接程序“可视化数据管理器”的一个工具