VB实验报告(含答案)（精编版）

1、实验报告课程名称 _程序设计根底 visual basic_班级 姓名 一实验目的：实验一 vb 环境和创建一个简单的vb程序1. 了解 vb系统对计算机软件、硬件的要求。2. 掌握启动和退出vb 的方法。3. 了解和使用vb集成开发环境各窗口、菜单的一般功能。4. 熟悉建立、编辑、运行、保存一个简单的vb应用程序的全过程。5. 了解文本框、标签框、命令按钮的构造与其属性、事件和方法。二实验容：1设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为显示和去除。程序运行后，单击显示按钮，在文本框中输出一行信息；单击去除按钮，那么去除文本框中的容

2、，运行界面如图1.1 所示。三实验结果：对象属性设置图 1.1实验 1-1运行界面对象属性属性值说明form1caption我的第一个vb 程序窗体label1caption请输入标签text1text“文本框command1caption显示命令按钮command2caption去除命令按钮四实验思考：1. 标签 label控件设置的属性代码有哪些？ label1.caption=“ 请输入label1.fontsize=24 label1.fontbold=true2. 两个按钮所使用的是什么事件？代码分别是什么？private sub command1_click() text1.tex

3、t=“1 / 14end subprivate sub command2_click() text1.text=end sub实验二简单程序设计数据类型与常用部函数的简单应用一实验目的：1. 掌握 visual basic数据类型的根本概念。2. 掌握用visual basic的各种运算符与表达式。3. 学习使用visual basic部函数和数据输入、输出方法。4. 掌握命令按钮、文本框和标签。5. 设计顺序程序。二实验容：1. 编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示, 要求用inputbox函数输入华氏温度，用 msgbox 输出转换后的摄氏温度。转换公式是：c= 5 /

4、 9(f - 32)。f 为华氏温度，c 为摄氏温度。2. 用三种除法运算/、 、mod做计算。要求: 在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。图 2-1图 2-22 / 14三实验结果：对象属性设置1. 温度转换对象属性属性值说明form1captioninputbox与 msgbox 应用窗体command1caption温度转换命令按钮2. 三种除法运算/、 、mod做计算对象属性属性值说明label1label2captioncaption被除数除数标签

5、标签label3caption浮点数标签label4caption整除数标签label5caption余数除标签command1caption执行除法运算命令按钮四实验思考：1. 温度转换中的command1命令的单击事件的程序代码是什么？ private sub command1_click()dim c!,f!f=val(inputbox(“输入华氏温度) c=5/9* f-32 msgbox“对应的摄氏温度为：& c end sub2. 用三种除法运算/、 、 mod做计算，说明三种除法的区别？/ ：两个数相除：两个数整除mod：两个数相除，得余数3. 三种除法运算/、 、mod

6、做计算， command1命令的单击事件的程序代码是什么？ private sub command1_click()dim a!,b! a=val(text1.text) b= val(text2.text) text3.text=a/b text4.text=ab text5.text=a mod b end sub一实验目的：实验三选择程序设计1. 掌握单分支与双分支条件语句的使用。3 / 142. 掌握多分支条件语句ifthenelseif的使用。3. 掌握 select case语句的使用与与多分支条件语句的区别。4. 熟练掌握时间过程的编写方法。二实验容：1. 设计一个模拟简易计算器

7、的程序，界面如图3-1 所示。要求：输入两个操作数和一个操作符，根据操作符决定所进展的计算；如果除数为0，用 msgbox 提示出错信息； 用 if语句和 selecetcase语句两种结构实现。2. 通过单项选择按钮和复选框控制文字的显示，程序窗口如图3-2 所示。图 3-1图 3-2三实验结果：对象属性设置1. 模拟简易计算器对象属性属性值说明label1caption输入数 1标签caption运算器标签caption输入数2标签caption结果标签label2 label3 label4command1captioncase 结构命令按钮command2captionif 结构命令按

8、钮text1-text4text“文本框2. 单项选择框与复选框4 / 14对象属性属性值说明frame1caption字体框架caption字号框架caption字型框架caption奥林匹克运动会标签caption宋体单项选择按钮caption仿宋单项选择按钮caption黑体单项选择按钮caption楷体单项选择按钮caption大单项选择按钮caption中单项选择按钮caption小单项选择按钮caption加粗复选框caption倾斜复选框caption下划线复选框caption删除线复选框frame2 frame3 label1 option1 option2 option3 o

9、ption4 option5 option6 option7 check1 check2 check3 check4四实验思考：1. 模拟简易计算器command1命令的单击事件的程序代码是什么？ private sub command1_click()dim a!, b!dim c as stringa = val(text1.text) b = val(text3.text) c = text2.text select case ccase “+text4.text = a + b case “ - text4.text = a - bcase “* text4.text = a * b

10、case “/ if b = 0 thenmsgbox“除数为0. elsetext4.text = a / b end if5 / 14end select end sub2. 模拟简易计算器command2命令的单击事件的程序代码是什么？ private sub command1_click()dim a!, b!dim c as stringa = val(text1.text) b = val(text3.text) c = text2.textif c = “+ thentext4.text = a + b elseif c = “ - thentext4.text = a - be

11、lseif c = “* then text4.text = a * belseif c = “ / then if b = 0 thenmsgbox“除数为 0” elsetext4.text = a / b end ifend if end sub3. 通过单项选择按钮和复选框控制文字的显示,command1命令的单击事件的程序代码是什么private sub command1_click() if option1.value = true thenlabel1.fontname =“宋体elseif option2.value = true then label1.fontname =“

12、华文仿宋elseif option3.value = true thenlabel1.fontname =“黑体elselabel1.fontname =“楷体 _gb2312” end ifif option5.value = true then label1.fontsize = 24elseif option6.value = true then label1.fontsize = 16elselabel1.fontsize = 8 end ifif check1.value = 1 then6 / 14label1.fontbold = true elselabel1.fontbold

13、 = false end ifif check2.value = 1 then label1.fontitalic = trueelselabel1.fontitalic = false end ifif check3.value = 1 then label1.fontunderline = trueelselabel1.fontunderline = false end ifif check4.value = 1 then label1.fontstrikethru = trueelselabel1.fontstrikethru = false end ifend sub一实验目的：1.

14、理解循环程序设计的特点。2. 掌握常用的循环语句。3. 掌握常用的循环算法。实验四循环程序设计4. 掌握图片框、图像框和计时器。二实验容：1. 求10011k50+ k12. 设计一条滚动的广告字幕。三实验结果：对象属性设置1. 求和结果要求窗体载入时直接显示，设置窗体的某个属性。对象属性属性值说明form1autoredrawtrue窗体2. 滚动字幕。对象属性属性值说明label1caption“欢迎使用vb标签timer1interval1000时钟7 / 14四实验思考：1. 求和的窗体载入事件的程序代码是什么？ private sub form_load()dim k%, s! s

15、= 0for k = 1 to 100s = s + 1 / k next kfor k = 1 to 50s = s + k next k print s end sub2. 滚动字幕的触发时钟控件的程序代码是什么？。private sub timer1_timer()if label1.left > form1.width then label1.left = 0elselabel1.left = label1.left + 100 end ifend sub实验五数组程序设计一实验目的：1. 熟练掌握固定数组。2. 掌握动态数组。3. 掌握列表框和组合框。4. 了解直线控件和形状控

16、件。二实验容：1. 设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。在列表框中随机产生10 个 100 到 200 之间的整数，在文本框中显示结果信息。界面如图5-1 所示。三实验结果：对象属性设置图 5-1窗体界面对象属性属性值说明8 / 14label1caption10 个 100 到 200 之 间的标签整数caption最大值标签caption最小值标签caption平均值标签caption计算命令按钮text“文本框label2 label3 label4command1text1 text4四实验思考： 1数组应在过程还是过程外定义，定义的语句是什么？ 过程外定

17、义dim a(10) as integer2. 在窗体载入时，在列表框中随机产生10 个整数，那么程序代码是什么？private sub form_load() dim i%for i = 1 to 10a(i) = int(rnd * 101 + 100) list1.additem a(i)next i end sub3. 单击命令按钮，在文本框中显示结果信息，那么程序代码是什么？private sub command1_click() dim i as integer, max%, min%, avg! max = a(1)min = a(1) avg = 0for i = 1 to 1

18、0if max < a(i) then max = a(i) if min > a(i) then min = a(i) avg = avg + a(i)next iavg = avg / 10 text1.text = max text2.text = min text3.text = avg end sub一实验目的：实验六过程程序设计1. 掌握子过程的定义和调用方法。2. 掌握函数过程的定义和调用方法。3. 理解作用域和生存期。4. 掌握滚动条。二实验容：1. 写两个函数，分别求两个数的最大公约数和最小公倍数，编写子过程求最大公约数，函数过程求最9 / 14小公倍数。要求从文

19、本框中输入两个数。界面如图6-1 所示。图 6-12. 设计一个用滚动条改变图片背景色的程序。界面如图6-2 所示三实验结果：对象属性设置图 6-21. 结果要求单击命令按钮分别显示，设置对象的属性。对象属性属性值说明label1captionm标签label2captionn标签label3caption最大公约数标签label4caption最小公倍数标签text1- text4text“文本框command1caption子过程命令按钮command2caption函数过程命令按钮2. 设置滚动条主要属性值。对象属性属性值说明hscroll1- hscroll3min0滚动条hscrol

20、l1- hscroll3max255滚动条四实验思考：1. 单击子过程命令按钮，在文本框text3 中显示结果信息，子过程的程序代码是什么？private sub command1_click()dim m as integer, n as integer, r as integer10 / 14m = text1.text n = text2.text if m < n thent = m: m = n: n = t end ifcall gys(m, n, r) text3.text = r end subprivate sub gys(byval m%, byval n%, r%)

21、 r = m mod ndo while r <> 0m = n n = rr = m mod n loopr = nend sub2. 单击函数过程命令按钮，在文本框text4 中显示结果信息，函数过程的程序代码是什么？private sub command2_click()dim m as integer, n as integer, p as integer m = text1.textn = text2.text p = m * nif m < n thent = m: m = n: n = t end ifp = p / gbs(m, n) text4.text =

22、 p end subprivate function gbs(m as integer, n as integer) as integer dim r as integerr = m mod n do while r <> 0 m = nn = rr = m mod n loopgbs = nend function3. 拖动滚动条的滑块，可改变图片控件的背景颜色，三个滚动条的程序代码相似，请写出hscroll1的事件过程。dim r as integer, g as integer, b as integer private sub hscroll1_change()r = hs

23、croll1.valueg = hscroll2.value b = hscroll3.valuetext1.backcolor = rgb(r, g, b)11 / 14end sub一实验目的：1. 掌握多窗体程序设计的方法。2. 掌握下拉式菜单。3. 了解通用对话框。二实验容：实验七界面设计1. 编写密码登录系统。在窗体1 输入用户名和密码，如果密码正确就弹出第二个窗体，第二个窗体自行设计操作容；如果密码不正确，弹出信息框，显示用户名或密码错误，请重新输入，回到窗体 1 继续输入用户名和密码。密码输入有三次机会，超过三次就弹出第三个窗口，显示对不起， 你不能使用该系统！注：但凡文字提示容可自行设计，不要求与题目一样。三个窗体界面可参照图 7-1图 7-2图 7-3 所示。图 7-1图 7