VB实验报告（电子版 题目及答案）

1、 编号：20092010学年第二学期实 验 报 告实验课程名称 专 业 班 级 学 生 姓 号 学 生 姓 名 实验指导老师 实验项目清单实验一 程序设计初步实验二 程序设计基础实验三 顺序结构程序设计实验四 分支结构程序设计实验五 简单循环结构程序设计实验六 循环结构程序设计深入实验七 数组与相应算法程序设计实验八 函数与过程实验九 命令按钮、标签和文本框实验十 vba（一）实验十一 vba（二）实验十二 vba（三）浙江大学城市学院实验报告课程名称 vb程序设计基础实验 实验项目名称 实验一 程序设计初步 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求1

2、. 熟悉vb开发环境，掌握vb程序设计步骤。2. 理解基本概念：工程、窗体、属性、事件、方法。3. 熟悉立即窗口的使用。4. 掌握print、赋值语句的正确书写规则。二. 实验内容和原理1）在e盘或你的u盘上，建立一个自己的文件夹，准备用来保存vb编程过程中的相关文件。文件夹的名字是学号。如 e:309088882）将窗体文件“1-1.frm” 和 工程文件“1-1.vbp”上传到老师的ftp服务器上的”周三下午” 或 ”周四下午” 或 ”周五下午” 你的文件夹中。如：“30908888传媒0901张三”. 3）练习1-2，1-3，1-4，1-5 也同样将窗体文件和工程文件上传到老师的ftp服

3、务器上。谢谢！【练习1-1】新建一个工程，单击窗体时，在窗体上显示“这是我的第一个vb实验”；双击窗体时，清除窗体上显示的所有信息。研究下面的代码段，考虑应填入什么内容？private sub form_clickform1.print 这是我的第一个vb实验end subprivate sub form_dblclickclsend sub上机实践调试运行以上程序，在同一文件夹下保存工程1-1.vbp和窗体文件1-1.frm。【练习1-2】设计一个程序，窗体上有一个文本框、两个命令按钮，命令按钮的标题是“隶书”和“黑体”，当程序运行后，在文本框中输入“欢迎光临vb世界”，是用粗体、18号、宋

4、体、红色字显示(通过窗体加载事件完成)；单击“隶书”按钮文本框中显示内容的字体是隶书，单击“黑体”按钮文本框中显示内容的字体是黑体。文本框属性的设置在form_load事件中设置，研究下面的代码段，考虑应填入什么内容？练习 1-2 运行界面private sub form_load()text1.fontname = 宋体text1.fontbold = true text1.fontsize = 18 text1.forecolor = vbredend sub private sub command1_click() text1.fontname =_隶书_ end subprivate

5、sub command2_click() _ text1.fontname = 黑体_end sub上机实践调试运行以上程序。请你思考 文本框属性的设置如改在属性窗口中设置，以上代码会怎样？【练习1-3】编程，窗体界面设计如下图1，分别有三个命令按钮command1、command2、command3，命令按钮的caption属性分别为“改变位置”、“还原”和“退出”。 窗体加载后，运行form_load 事件，使窗体定位在（2000，2000）坐标值上，运行效果如下图2。图1 图2private sub form_load()form1.left = 2000form1.top = 2000

6、command2.enabled = falseend sub 点击命令按钮command1后，使窗体定位在（100，100）坐标值上，运行效果如图3： 图 3private sub command1_click()form1.left = 100form1.top = 100command1.enabled = falsecommand2.enabled = trueend sub点击命令按钮command2，窗体又重回图2的情况。请写出另外两个命令按钮事件的内容。private sub command2_click() form1.left = 2000 form1.top = 2000

7、command1.enabled = true command2.enabled = falseend subprivate sub command3_click() endend sub上机实践调试运行以上程序。请你思考 怎样用move方法来改变窗体位置，完成此题？【练习1-4】在窗体上建立5个命令按钮command1、command2、command3、command4和command5，运行界面如error! reference source not found.。要求：（1）命令按钮的caption属性分别为“窗体变大”、“窗体变小”、“窗体左移”、“窗体右移”和“关闭窗体”。（2）每

8、单击command1按钮和command2按钮一次，窗体变大或变小1/4倍。（3）单击command3按钮和command4按钮一次，窗体左移或右移200缇。（4）单击command5按钮退出。练习 1-4 运行界面以下是两个命令按钮的事件过程，写出另外三个命令按钮的事件过程。private sub command1_click()form1.height = form1.height * 1.25form1.width = form1.width * 1.25end subprivate sub command3_click()form1.left = form1.left - 200end

9、 subprivate sub command2_click()form1.height = form1.height / 1.25form1.width = form1.width / 1.25end subprivate sub command4_click()form1.left = form1.left + 200end subprivate sub command5_click()endend sub上机实践调试运行以上程序。、【练习1-5】在窗体上建立4个命令按钮，command1、command2、command3、command4，要求：1命令按钮的caption属性分别为“字

10、体变大”、“字体变小”、“加粗”和“标准”。2每单击按钮command1和command2一次，字体变大或变小2个单位（提示：改变的是form1.fontsize属性值）。3单击command3时，字体变粗；单击command4时，字体又由粗体变标准；（提示：改变的是form1.fontbold属性值）。44个按钮每单击一次，都在窗体上显示“欢迎使用vb”。5双击窗体后清除窗体内容。研究下面的代码段，考虑应填入什么内容？private sub command1_click() 字体变大 form1.fontsize = form1.fontsize + 2print 欢迎使用vbend sub

11、private sub command2_click() 字体变小 _ form1.fontsize = form1.fontsize - 2print 欢迎使用vb_ _end subprivate sub command3_click() 字体加粗 form1.fontbold = trueprint 欢迎使用vbend subprivate sub command4_click() 字体不加粗 form1.fontbold = _ false _print 欢迎使用vbend subprivate sub form_dblclick() _ cls _end sub上机实践调试运行以上程

12、序，运行界面参考如上图。选做题：【练习1-6】两个窗体的运行界面, 两窗体标题分别为“启动窗体”、“第二个窗体”，启动窗体的背景色是红色，第二个窗体的背景色是绿色，单击启动窗体的命令按钮“下一窗体”，显示出第二个窗体，隐藏启动窗体，单击第二个窗体的命令按钮“返回”，关闭第二个窗体，显示出启动窗体。练习 1-6 运行界面命令按钮“返回”的事件过程如下，写出启动窗体命令按钮的事件过程。private sub command1_click()form2.hideform1.showend subprivate sub command2_click() endend subprivate sub co

13、mmand1_click() form1.show form2.hideend sub上机实践编写、调试运行以上程序，运行界面参考上图。请你思考 在这个练习中要考虑怎样在同一工程中建立多个窗体，以及多个窗体的保存。在此题中保存了几个文件？先后次序分别是什么？三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 vb程序设计基础实验 实验项目名称 实验二 程序设计基础 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求1. 掌握运算符的使用。2. 掌握表达式的正确书写规则。3. 掌握常用函数的使用。4. 掌握inputbox、msgbox函数的使用。5. 熟

14、悉掌握赋值语句的使用。6. 掌握顺序结构的应用程序的编程过程。二. 实验内容和原理1）将窗体文件“2-2.frm” 和 工程文件“2-2.vbp”上传到老师的ftp服务器上的”周三下午” 或 ”周四下午” 或 ”周五下午” 你的文件夹中。如：“30908888传媒0901张三”. 2）练习2-3也同样将窗体文件和工程文件上传到老师的ftp服务器上。【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中：? 35 /5 mod 13 2+52 print not(badbed)birthday = #5/18/198

15、0#birth$ = 出生日期： & birthday print birth$ a = 10b = 15 -26-true-出生日期：1980-5-18- true -3-2-d- a bcde- a b cde- visual - basic-6- hello!-浙江 杭州-2007-2-20 2007-2-27 -21- 77619.48 21 -4.69579420171499e-02 0.0470-3-25-0.7055475 0.533424 - 0.49999999226498 - -4 3 -21- 77619.48 21 -4.69579420171499e-02 0.047

16、0-3-25-0.7055475 0.533424 - 0.49999999226498 - -4 3 -c = -9print a 2 3 and (b = 13 or not c = 0)print len(str(a)print len(str(c)print chr(asc(a) + 3) print trim( a b ) & cdeprint a b & cdeprint left(visual basic 6.0, 7)print mid(visual basic 6.0, 8, 5)print instr(visual basic 6.0,” ba”)print len(vb程

17、序设计)print ucase(hello!)print 浙江 & space(2) & 杭州print date, date+7print hour(time)print 345 / 7347, format(345 / 7347, #0.0000)print sqr(9)print abs(-25)print rnd, rndprint sin(30 * 3.1415926 / 180)print int(-3.4), int(3.8)【练习2-2】设计一程序，窗体form1 上有两个文本框，窗体界面如error! reference source not found.所示。两个文本框可以

18、输入任意值，在程序运行时，每单击窗体一次，两个文本框的内容交换一次。提示：(1)可以参考教材中两个变量值交换的例子(2)可以定义中间交换变量 dim c as string (3)赋值语句的”=”的前后项不要写颠倒练习 2-2 运行界面上机实践编写、调试运行以上程序。private sub form_load()text1.text = 杭州text2.text = 西湖end subprivate sub form_click()dim c as stringc = text1.texttext1.text = text2.texttext2.text = cend sub【练习2-3】设计

19、一个函数计算器。其功能要求如下：（1）运行的界面如图所示。有12个命令按钮。每使用一个函数按钮前，先单击“清除”按钮，文本框和标签框中的内容清空。（2）sin、cos、sqr、int、chr、asc等函数将文本框中的数据作为函数的输入参数，单击这些函数命令按钮，在标签框中显示其函数值。（3）单击“rnd”按钮，用rnd函数产生一随机数，显示在标签框中。（4）单击“date”按钮在标签框中显示系统日期；单击“time”按钮在标签框中显示系统时间； （5）单击“inputbox”按钮，弹出一对话框，提示输入姓名，当用户输入后，再将输入信息显示在标签框中。单击“msgbox”按钮，将文本框中的内容通

20、过一信息框显示出来，要求信息框提供给用户的有“是”、“否”、“取消”3个按钮，根据用户的不同选择，将函数返回结果显示在标签框中。 练习 2-3 运行界面部分命令按钮的提示代码如下：sin命令按钮的事件过程可以写作：const pi = 3.1415926dim x as single, fx as singlex = val(text1.text)注意类型转换函数fx = sin(x * pi / 180)label1.caption = str(fx)注意类型转换函数asc命令按钮的事件过程可以写作：label1.caption = str(asc(text1.text)注意类型转换函数ms

21、gbox命令按钮的事件过程可以写作：dim n as stringn = msgbox(你输入的数据是 & text1.text, 3 + 32 + 0, 数据检查)label1.caption = str(n)rnd命令按钮的事件过程可以写作：randomize label1.caption = str(rnd)请完整写出所有命令按钮的事件过程。const pi = 3.1415926private sub command1_click()dim x as single, fx as singlex = val(text1.text)fx = sin(x * pi / 180)label3.

22、caption = str(fx)end subprivate sub command2_click()dim x as single, fx as singlex = val(text1.text)fx = cos(x * pi / 180)label3.caption = str(fx)end subrnd命令按钮的事件过程可以写作:private sub command3_click()randomizelabel3.caption = str(rnd)end subprivate sub command4_click()dim x as single, fx as singlex =

23、val(text1.text)fx = sqr(x)label3.caption = str(fx)end subprivate sub command5_click()dim x as singlex = val(text1.text)label3.caption =str( int(x)end subprivate sub command6_click()dim x as integerx = val(text1.text)label3.caption = chr(x)end subprivate sub command7_click()label3.caption = str(asc(t

24、ext1.text)end subprivate sub command8_click()dim x as stringx = inputbox(请输入姓名:, 输入姓名:)label3.caption = xend submsgbox命令按钮的事件过程可以写作：private sub command9_click()dim n as stringn = msgbox(你输入的数据是 & text1.text, 3 + 32 + 0, 数据检查)label3.caption = str(n)end subprivate sub command10_click()label3.caption =

25、 dateend subprivate sub command11_click()label3.caption = time()end subprivate sub command12_click() text1.text=” label3.caption = “”end sub上机实践编写、调试运行以上程序，运行界面参考如上图。三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 vb程序设计基础实验 实验项目名称 实验三、 顺序结构程序设计 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求1. 熟悉输入、输出语句的使用。2. 熟悉顺序结构的应用程序的

26、编程过程.二. 实验内容和原理1）将窗体文件“3-1.frm” 和 工程文件“3-1.vbp”上传到老师的ftp服务器上的”周三下午” 或 ”周四下午” 或 ”周五下午” 你的文件夹中。如：“30908888传媒0901张三”. 2）练习3-2，3-3 也同样将窗体文件和工程文件上传到老师的ftp服务器上。【练习3-1】设计一个根据摄氏温度求对应的华氏温度的程序。如error! reference source not found.是设计窗体，窗体上有2个标签框作提示使用；2个文本框text1和text2分别作输入和显示；3个命令按钮， 名称分别是command1、command2、comma

27、nd3，标题分别是“计算”、“清除”、“退出”。在text1中输入摄氏温度后，单击“计算”按钮，右文本框内显示出该摄氏温度对应的华氏温度；单击“清除”按钮使得2个文本框的内容被清除；单击“退出”按钮结束程序运行。计算公式：f=9c/5+32，其中c表示摄氏温度，f表示华氏温度。 练习 3-1 设计界面上机实践编写、调试运行以上程序。private sub form_load() label1.caption = 摄氏温度 label2.caption = 华氏温度 command1.caption = 计算 command2.caption = 清除 command3.caption = 退出

28、 text1.text = text2.text = end subprivate sub command1_click() dim c as single, f as single c = val(text1.text) f = 9 * c / 5 + 32 text2.text = fend subprivate sub command2_click() text1.text = text2.text = end subprivate sub command3_click()endend sub【练习3-2】设计一个用计算机给出三位整数加法练习程序。程序界面如error! referenc

29、e source not found.所示，单击一次，则在文本框中产生一题。练习3-2 运行界面提示：（1）将文本框的multiline属性设置为true,并设置垂直滚动(scrollbars=2)（2）用rnd 函数产生100999之间的随机整数（3）回车换行符用函数chr(13)+chr(10)表示研究下面的代码段，考虑应填入什么内容？private sub form_load() text1.text= “” end subprivate sub command1_click() dim x as integer, y as integer x = 100 + int(rnd * 900

30、) 产生三位随机数y = 100 + int(rnd * 900) 产生三位随机数 text1.text = text1.text & x & + & y & =( ) & chr(13) & chr(10)end sub上机实践调试运行以上程序，运行界面参考如上图。【练习3-3】 在标签框中有一串英文字符串，有三个命令按钮名称分别为command1、command2、command3，按“转大写”按钮，文本变为大写，按“转小写”按钮，文本变为小写。其他字符不变。按“还原”按钮，回到启动状态。练习3-3 运行界面在本实验中需要在通用中声明一个模块级变量s，考虑一下为什么？研究下面的代码段，考虑

31、应填入什么内容？dim s as string声明模块级变量sprivate sub form_load()s = label1.captionend subprivate sub command1_click()label1.caption = ucase(s) end subprivate sub command2_click()label1.caption = lcase(s) end subprivate sub command3_click()“还原”的事件代码label1.caption = send sub三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 vb程序设计基

32、础实验 实验项目名称 实验四、 分支结构程序设计 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求1. 掌握单分支与双分支条件语句if的使用。2. 掌握多分支条件语句的使用。3. 掌握情况语句select case的使用及其与多分支条件语句的区别。二. 实验内容和原理1）将窗体文件“4-1.frm” 和 工程文件“4-1.vbp”上传到老师的ftp服务器上的”周三下午” 或 ”周四下午” 或 ”周五下午” 你的文件夹中。如：“30908888传媒0901张三”. 2）练习4-2，4-3，4-4，4-5，4-6 也同样将窗体文件和工程文件上传到老师的ftp服务器

33、上。【练习4-1】研究下面的代码段，画程序流程图，当输入93，81，74，65，42时，写出窗体中显示的结果。private sub form_click()score = val(inputbox(输入成绩)if score = 60 and score= 85 then print 优秀end sub流程图： 结果： 优秀 合格 合格引伸1若把程序代码写成如下形式，画出它的流程图。问当输入成绩为90分时，显示什么结果？为什么？用嵌套块if语句应如何写？private sub form_click()score = val(inputbox(输入成绩)if score = 85 then s

34、t= 优秀if score = 85 then print 优秀elseif score = 60 thenprint 合格elseprint 不合格end ifend sub流程图：结果：优秀 合格不合格 上机实践调试运行以上程序，采用单步跟踪的方法(按f8)查看程序执行流程，进一步加深对分支结构的理解。【练习4-2】研究下面的代码段。dim flag as integer注1dim falg as integerprivate sub form_click()if flag = 0 thenform1.print 欢迎使用visual basic! flag = 1elseif flag

35、= 1 thenform1.clsflag = 0end ifend sub提问：1当在窗体上单击三下，窗体中显示什么结果？ 欢迎使用visual basic! 2注意变量flag定义的位置，为何这样定义？ 若把变量flag定义放在form_click()事件过程里，如：private sub form_click()dim flag as integerif flag = 0 then 在窗体上单击三下，此时程序的运行结果怎样？ 欢迎使用visual basic! 3若要求窗体显示的字体是隶书18号字，则如何补充程序？ fontname=“隶书” fontsize=18 4若把程序代码修改如

36、下。dim flag as integerprivate sub form_click()if flag = 0 then form1.print 欢迎使用visual basic!: flag = 1if flag = 1 then form1.cls: flag = 0end sub 问出现什么结果，为什么？ 屏幕上无显示 5若在form_click()事件过程中第一行的变量名flag拼写错了，写成了falg，如注1所示，则程序执行结果如何？为什么？ 单击第一下： 欢迎使用visual basic!单击第二下： 欢迎使用visual basic!单击第三下： 欢迎使用visual basi

37、c! 上机实践调试运行以上程序。【练习4-3】根据所输入的百分制成绩score，给出相应的五级计分等级，即“优秀” (score=90)，“良好”(80=score90)，“中”(70=score80)，“及格”(60=score70)，“不及格”(score=90 then print “优秀”elseif score=80 thenprint 良好elseif score = 70 then print 中elseif score = 60 then print 及格else print 不及格end if 补充elseif语句end sub引伸若把上面的elseif语句写成如下形式，则如

38、何补充。if score=90 then print “优秀”elseif score=80 thenprint 良好 else if score = 70 then print 中 else if score = 60 then print 及格 else print 不及格 end if end if end ifend if 补充if语句end sub上机实践：运行调试以上程序，若给出如下的程序运行界面，请上机完成。图 44 程序运行界面【练习4-4】根据所输入的百分制成绩score，给出相应的五级计分等级，用select case语句完成。* 错误1 *提示信息的下一行是错误的，请在横

39、线上写出正确答案。private sub command1_click() dim score as single score = val(text1.text) * 错误1 * select case x - select case score 1 -* 错误2 * case x = 90 - case is = 90 2 - text2.text = 优秀* 错误3 * case x=80 - 3 case is = 80 - text2.text = 良好 * 错误4 * case x = 70 and x= 704 - text2.text = 中* 错误5 * case x = 60

40、 - 5 case is = 60 - text2.text = 及格 case else text2.text = 不及格 end selectend sub上机实践运行调试程序，运行界面参考图 44。【练习4-5】编程，输入上网时间计算上网费用，计算方法如下：同时为了鼓励多上网，每月收费最多不超过150元。上机实践编写、运行、调试以上程序。private sub form_click() dim x as integer, y as single x = inputbox(输入上网时间：) if x 10 then y = 30 elseif x = 50 then y = 30 + 40

41、 * 2.5 + (x-50) * 2 if y = 150 then y = 150 end if print yend sub【练习4-6】编程，在窗体上循环输出字符串“欢迎使用visual basic”。第一次单击窗体时以红色显示；第二次单击时以绿色显示；第三次单击时以篮色显示；第四次单击时则清除窗体上的信息；第五次又重新开始。上机实践编写、运行、调试以上程序。dim flag as integerdim mystring as stringprivate sub form_load() flag = 0 mystring = 欢迎使用 visual basic!end subprivate sub form_click()flag = flag + 1select case flag case 1