VB实验指导书分析和总结.docx

《VB实验指导书分析和总结.docx》由会员分享，可在线阅读，更多相关《VB实验指导书分析和总结.docx（51页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB实验指导书计算机基础教研室编山东交通学院2006年4月9Basic11:05:042006-3-20图2-4运行结果四、实验习题1 .教材P26-31运算符和表达式及常用内部函数各表中的例如2.教材P3L32习题4、5、6实验三简单VB程序设计（一）一、实验目的掌握窗体、命令按钮、标签、文本框的常用属性、事件和方法。二、实验内容（1）窗体的属性和事件。（2）命令按钮的属性和事件。（3）标签的属性和事件。（4）文本框的属性和事件。三、实验举例1 .设计一个收款程序。用户输入商品单价和商品数量后，单击“计算”按钮，那么显示 应付款。单击“清除”按钮，那么清除显示的数据。运行效果如图3-1所示。

2、图3-1收款程序运行效果（1）界面设计：在窗体上建立4个标签，2个文本框，2个命令按钮 （2）属性设置。对象属性设置Formlcaption收款程序Label 1Caption商品单价Label2Caption商品数量Label3Caption应付款Label3Caption空TextlText空Text2Text空Command 1Caption计算Command2Caption清除(3)编写“计算”按钮事件过程。Private Sub Commandl_Click()Dim price As Single, amount As Single, payment As Single price

3、 = Val(Text 1 .Text) amount = Val(Text2.Text) payment = price * amount Label4. Caption = paymentEnd Sub(4)编写“清除”按钮事件过程。Private Sub Command2_Click()Text 1.Text = n,Text2.Text =Label4. Caption =nEnd Sub图3-2艺术字效果2 .用两个标签错位叠加，显示如下列图3-2所示的艺术字(1)界面设计。在窗体上添加两个标签，调整两个标签使其尺寸相同 (2)对象的局部属性设置。对象属性设置FormlCaption

4、艺术字Label 1Caption功到自然成alignment2-centerleft920Top760Label2Caption功到自然成alignment2-centerleft960Top960forclor白色&H00FFFFFF&backstyle01.如图3-3所示，把在文本框中输入的文本同步生成艺术字，可使用文本框的change 事件。四、实验习题图3-3同步生成艺术字效果2 .在Forml的窗体上画一个文本框，其名称为Textl；再画两个命令按钮，其名称分 别为C1和C2,标题分别为“显示“和“退出”，编写适当的事件 过程。程序运行后，在窗体 加载时使“退出“按钮不可用，如果单

5、击“显 示”按钮，那么在文本框中显示“等级考试“，并使” 退出”按钮可用，此 时如果单击“退出”按钮，那么结束程序，程序运行情况如下图。3 .教材第54页第8题实验四简单程序设计(二)一、实验目的学习并掌握print, cis方法，学习inputbox函数和msgbox函数的使用，能编写简单的 程序，掌握基本的程序调试方法。二、实验内容Print 方法。(1) Cis 方法。(2) Inputbox 函数。(3) Msgbox 函数。(5)注释语句。(6)程序调试方法。三、实验举例.设计一个程序，用inputbox输入一个角度后，在窗体上显示对应的弧度值。(1)界面设计：除窗体外不需要添加其他

6、的控件。(2)编写代码：Private Sub Form_Click()Dim a!, b!a =Val(InputBox(请输入一个角度：了角度框”)b=a* 3.14159 / 180Print bEnd Sub(3)运行界面如图4-1所示：图4-1 Inputbox运行界面和运行结果四、实验习题1 .窗体无最大化和最小化按钮，在窗体装入时,在标题栏显示“装入窗体”，并在窗体装 入windows墙纸作为背景；当用户单击窗体，在标题栏显示“单击”，在窗体显示“欢迎使 用VB” ；当用户双击窗体，在标题栏显示“鼠标双击”，去除窗体的背景图案，并在窗体上 显示“结束使用VB”。2 .设计一个程序

7、，当单击不同的按钮时，在窗体上显示相应的由星号组成的图形，如 下列图所示。图42由星号形成的图形3 .在窗体上建立3个命令按钮单击窗体上不同的命令按钮，依次弹出如图4-3所示的 消息框。|二重试超取消 I图4-3三种消息框4.教材第54页第7题实验五选择结构（一）一、实验目的.熟练掌握块If结构的书写格式，熟悉块If结构的控制流程；1 .学会使用块If结构进行编程，处理选择性问题；.掌握块If的嵌套，处理多重选择问题。二、实验内容（1）继续熟悉常用控件的使用，学习块开结构代码编写规那么；（2）运用块If语句编写简单的选择类问题；（3）运用的块If嵌套处理比拟复杂的选择类问题。三、实验举例.编一

8、程序求三角形面积。要求：用文本框输入3条边的边长，标签输出结果。（1）设计界面：新建工程1和窗体1,界面设计三个文本框，四个标签，如图5-1所zj O（2）设置属性：在属性窗口设置以下控件的属性;Label 1 .Caption=aLabel2.Caption=bLabel3.Caption=cLabel4.Caption=Textl,text=”Text2.text=c0,Text3.text=”Commande 1 .caption=计 算”Commande2.caption=清 空”Commande3 .caption=,iM 出“（3）编写程序代码；Private Sub Comman

9、dl_Click（）Dim a!, b!, c!, s#, p#a 二 text 1.Textb = text2.Textc = text3.Textif a or b or c 0 thenmsgbox “边长必须大于零！重新输入数值”,48提示框 end ifif a+b=c or a+c=b or b+c=a thenmsgbox ”数据有误，重新输入”,51提示框 end ifp = 1 / 2 * (a + b + c)s = Sqr(p * (p - a) * (p - b) * (p - c)label4. Caption =sEnd SubPrivate sub command

10、2_click()Text 1. textText2.text = ”Text 3. text =”Label4.caption= ”End subPrivate sub command3_click()EndEnd sub（4）调试运行程序，检查修改错误；保存程序，保存窗体文件为：面积fm,保存工 程文件为：面积.vbp。1 .编写一个帐号和密码校验程序，帐号是：13579,密码是；24680,要求密码输入时（1）设计界面：新建工程1,在窗体上添加2个标签、2个文本框、三个命令按钮，% 工程 1 - icrosoft Visual Basic 设计13回区I电）策相Q）视图9工程9格式调试5

11、运行国）查询图袤。）ZMtt）外接程序窗口 W 帮助出）M科哲於6- a 营百IH0, 0II(2)labelabetextForalilicrosof.Forl For0按字母序技分类序5国匕程 1 藏款.vbp)三公囹体Fornl 款 frn)5 Forn2 能篁 frn)Forl1 - 3DCaptionFalse &H8000000F.2 - SizableI取款密码校验TrueTrue(名称) Appear AutoRedrair BackColor BorderStyleClipControls ControlBox DrawMode DrawStyle DrawWidthCapt

12、ion13 Copy Per 0 - Solid“ text2.text= ”command l.caption= 计算”comrnand2.caption=清 除command3.caption退出”(3)编写程序代码；Private Sub Command l_Click()Dim n!If Text 1.Text ”13579” ThenMsgBox ”帐号不正确，请重新输入Text 1.Text =Textl.SetFocusElseIfText2.Text = 24680” ThenMsgBox 密码正确”InputBox （”请输入取存款数额!”，“输入框”）Elsen =MsgB

13、ox（密码错误”,5 +48 +0, ”请重新输入”）Text2.Text =Text2.SetFocusIfn4ThenEndElseText 1.Text =Text2.Text = ,HEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click（）Text 1.Text = ,nText2.TextEnd SubPrivate Sub Command3_Click（）EndEnd Sub（4）调试运行程序，检查修改错误；保存程序，保存窗体文件为：密码.任m,保存工 程文件为：密码.vbp。四、实验习题1.输入一个数，判断它能否同时被2, 3,

14、5整除。2,输入一个数，判断它是否为完全平方数。实验六选择结构(二)一、实验目的1 .掌握Elself语句的书写格式，熟悉块If结构的控制流程；2 .掌握行If语句的编程使用；3 .掌握Select Case语句的书写格式，熟悉块If结构的控制流程。二、实验内容(1)用行If语句编写结构简单的分支条件问题；(2)用Elseif和Select Case语句处理分支情况复杂的问题；(3)尝试用不同的语句结构处理同一个问题。三、实验举例1 .用Elself语句计算个人收入纳税率。收入1000元以内税率为0： 10002000元税率 为2.5%； 20014000税率为3.5%； 4000元以上税率为

15、5%。(1)设计界面：新建工程1,在窗体中添加2个标签、2个文本框、三个命令按钮；(2)设置控件属性：label 1 .caption=收入数额”label2.caption=交税数额”textl.text=9 text2.text=,9“ commandl.caption=计算”command2.caption=清除command3.caption=退出(3)编写程序代码如下：Private Sub Command 1 _Click()Dim a!, b!a = Textl.TextIfa 1000 Thenb = 0Elself a = 2000 Thenb = 0.025 * aElse

16、lf a = 4000 Thenb = 0.035 * aElseb = 0.05 * aEnd IfText2.Text 二 bEnd SubPrivate Sub Command2_Click()Textl.Text = n nText2.Text = ”End SubPrivate Sub Command3_Click()EndEnd Sub(4)调试运行程序，修改错误；保存程序，保存窗体文件为：纳税l.frm,保存工程文 件为：纳税2.vbp。2 .用Select Case语句计算个人收入纳税率。收入1000元以内税率为0： 10002000 元税率为2.5%； 20014000税率为

17、3.5%； 4000元以上税率为5%。(1)设计界面：新建工程2,在窗体中添加1个标签、1个文本框、三个命令按钮。(2)设置控件属性-1刖B本书是Visual Basic 6.0程序设计的配套实验指导教材，以VB程序设计为主题，内 容包括：VB程序设计初步、数据与表达式、简单程序设计、选择结构、循环结构、常用控 件和多窗体、数组、过程、VB的数据库开发、多媒体程序设计、Active控件设计、客房信息 管理系统等20个实验。VB实验指导书所提供的实验教学是VB程序设计课程的一个重要环节，通过实践， 一是验证教学内容，二是提高程序设计的能力，到达创立自己的程序，独立使用VB程序语言 解决问题的目的

18、。参加本指导书编写的有：朱可廷、刘后毅、李作纬、王德利、王明婷、王大生、刘瑾， 本书的筹划和目录的制定过程中，吴昌平提出了建设性的意见。由于编者水平有限，不妥之处在所难免，希提出批评和指正。label l.caption=应交税金”textl.text=“ commandl.caption=计算”command2.caption=,il 出”(3)编写代码:Private Sub Command l_Click()Dim a!, b!a =InputBox(”请输入您的收入数额;输入框”)Select Case aCase Is 0)； Y=3x2+5x+l (xl添加工程aaaaa bbbb

19、b ccccc ddddd eeeee删除工程图10-2工程操作界面(1)编写“Commandl”按钮的单击事件过程。Private Sub Command l_Click()List 1.Additem Text 1.TextText 1.Text =nnEnd Sub(2)编写“Command2”按钮的单击事件过程。Private Sub Command2_Click()Fori = 0 To List l.ListCountIf Listl.List(i) = Text 1.Text Then List 1. Removeitem iEnd IfNext iEnd Sub四、实验习题1.

20、在名称为forml的窗体上画一个图片框(名称为picture 1)，一个垂直滚动条(名称 为Vscrolll), 一个命令按钮(名称为commandl标题为“设置属性”)，通过属性窗口在图 片框中装入一个图形，例如下列图。图片框的宽度和图形的宽度相同，图片框的高度任意。编写 适当的事件过程，程序运行后，如果单击命令按钮，那么设置垂直滚动条的如下属性：min为一 100, max 应为图片框的高度 picturel.height, largechange 为 200, smallchange 200 通过移动滚 动条上的滚动块来放大和缩小图片框，运行后的窗体如下图。立一个命令按钮，标卜 For2

21、I3回区I2.新建一个工程,图10-3窗体运行界 含两个窗体，名称分别为formlorm2o Forml II form2 上各建题分别为“结束”和“显示 o把form2设为启动窗体,显示。该程序实现的勤能是：在程序运行明属酎orm2窗体，单击form2上的那么显示forml窗体;行。假设单击forml上的上结出按钮，那么关闭forml ,form2forml设为不“显示”按钮，并结束程序运结束图1C-4程序运行好里实验十一 一维数组及其应用一、实验目的通过实验使学生掌握VB中数组的定义方法。掌握数组的输入、输出方法。掌握数组的 常用算法。如排序等。二、实验内容(1) 一维数组(2) 一维数组

22、的引用(3) 一维数组的应用三、实验举例1.对键入到文本框内的字符进行统计(不区分大小写)，输出各字母的个数。(1)启动Visual Basic 6.0,翻开一个新工程。如果Visual Basic 6.0已经运行，单击 “文件/新建工程”菜单，翻开一个新的标准工程。 设计界面如下图。在窗体Forml上添加一个标签Label 1其Caption属性设为“输 入字符串”；添加一个文本框Textl其Text属性设为空，多行属性MultiLine设置为True,流 动条属性ScrollBars设置为2；添加一个图片框Picture 1 ；添加一个命令按钮Command 1, 其Caption属性设为

23、“统计”。字母统计练习输入字符串统计图11-1字符统计练习界面双击窗体或利用工程资源管理器翻开代码窗口 在Command 1的Click事件中编写代码即可Private Sub Command l_Click()Dim a(lTo26) As Integer, i As Integer, As Integer, 1 As Integer, c As String * 1, st As StringPicture 1. Cis1 = Len(Textl)For i = 1 To 1c = UCase(Mid(Textl, i, 1)Ifc = And c v= Thenj = Asc(c) -6

24、5+1a(j) = a(j) + 1End IfNextiForj = 1 To 26Ifa0)OThenst = ,H, & ChrQ + 64) & CStr(a(j)If Picture 1 .TextWidth(st) + Picturel.CurrentX icture 1.ScaleWidth ThenPicture 1. PrintEnd If实验一 VB程序设计起步1一、实验目的1二、实验内容1三、实验举例1四、实验习题2实验二 数据与表达式 3一、实验目的3二、实验内容3三、实验举例3四、实验习题5实验三简单VB程序设计（一）6一、实验目的6二、实验内容6三、实验举例6四、实

25、验习题7实验四简单程序设计（二）9一、实验目的9二、实验内容9三、实验举例9四、实验习题9实验五选择结构（一）11一、实验目的11二、实验内容11三、实验举例11四、实验习题13实验六选择结构（二）14一、实验目的14二、实验内容14三、实验举例14四、实验习题15实验七循环结构（-）16一、实验目的16二、实验内容16三、实验举例16四、实验习题16实验八 循环结构（二） 17一、实验目的17二、实验内容17三、实验举例17四、实验练习17实验九 常用控件及多窗体（一） 18一、实验目的18三、实验举例18四、实验习题20实验十 常用控件及多窗体（二）21一、实验目的21二、实验内容21Pi

26、cture 1.Print st,End IfNext jEnd Sub 启开工程在文本框中输入字符串然后单击统计按钮即可在图片框中显示统计结果。输入字符串：I am a teacher, you are student.四、实验习题4 112A=H=o=lr=4 13=仁=ENT图11-2年筏统计.程序碎行结果统计1 . 10 个隼数(12, 87, 96, 55, 33, 46, 90, 57, 23, 88)存放在一维数组中。编程序，求出最大物美侵摹2 .教材 P115-120 例 7. 3、例 7. 5、例 7. 6。3 .用随机函数生成包含1。个两位整数的一维数组，求这10个数的最大

27、值、最小值以 及平均值。实验十二 二维数组、可调数组及其应用一、实验目的通过实验使学生掌握二维数组、可调数组的定义方法。掌握数组的输入、输出方法。二、实验内容（1）二维数组（2）可调数组（3）控件数组三、实验举例1.编写程序，在窗体中输出杨辉三角形的前6行。11 1312 641101051杨辉三角形的每一行是（x+y） n的展开式的各项的系数。如第1行是（x+y） 0,系数为1;第2行为（x+y） 1,系数为1, 1；第3行为（x+y） 2,展开式为x2+2xy+y2,系数为1, 2, 1 ； , 0（1） 启动Visual Basic 6.0,翻开一个新工程。如果Visual Basic

28、6.0已经运行，单击“文件/新建工程”菜单，翻开一个新的标准工程。 双击窗体或利用工程资源管理器翻开代码窗口双击窗体或利用工程资源管理器翻开代码窗口（4）在窗体的Click事件中编写代码即可启开工程单击窗体即可在窗体上显示结果四、实验习题1 .用随机函数产生3行4列矩阵，每个元素的值是10-99之间的整数。要求在图片框 中显示出这个矩阵，并分别按行列救出其和。2 .编写将4X5的矩阵转置的程序。3 .教材 P119-120 例 7. 7、例 7. 8、例 7. 10、4 .有4个学生，3门课的成绩，编写程序实现以下功能：（1）找出平均成绩最高的学生的学号。（2）找出各课程不及格学生的学号。（3

29、）求各门课程的平均成绩。实验十三过程（一）一、实验目的（1）掌握自定义函数过程和子过程的定义和调用方法。（2）掌握值传递和地址传递的传递方式。二、实验内容（1）子过程（2）函数过程（3）参数传递三、实验举例1 .编写三角形的3边长，计算三角形面积的过程（函数过程和子过程）。（1）新建工程1和窗体lo（2）界面设计四文本框，四个标签，两个按钮，如图13-1所示。图13-1计算三角形面积的界面(3)编写程序代码。Function mjl#(h!, i!, j!)Dim m#n = 1 / 2 * (h + i + j)mjl = Sqr(n * (n - h) * (n - i) * (n -j)

30、End FunctionSubmj(x!,y!,z!)Dim m#, n#n = 1 / 2 * (x + y + z)m = Sqr(n * (n - x) * (n - y) * (n - z)Text4.Text =mEnd SubPrivate Sub Command l_Click()Dim a!, b!,c!Text 1.Text = HnText2.Text =Text3.Text = ,H,a = InputBox(“边长 a”，“边长。b = InputBox（“边长 b“，“边长”） c =InputBox（边长 c边长”） Text 1.Text = a Text2.Text = b Text3 .Text = cCallmj（a,b,c） End SubPrivate Sub Command2_Click（）Dim a!, b!, c!, s