VB实验指导与练习题实验部分的参考答案

第一篇：VB实验指导与练习题实验部分的参考答案

VB实验指导与练习题实验部分的参考答案： 实验 4 4-1： 2*pi*r Pi*r*r 4-3: chr(64+n)4-4: x mod 10

x 10 mod 10

x100 4-5:

mid(s,i,1)=Lcase(t)实验 5 5-1：

a+b+c+d Sum/4 5-2:(4*h-f)/2

(f-2*h)/2 5-4: sec360024

Sec mod(1& 24*3600)mod 3600 mod 60 5-5: 0.5*g*t*t+v0*t 实验 6 6-1: left(text1,text1.selstart)& text2 & right(text1, len(text1)– text1.selstart)6-2: timer1.enabled=true

Timer1.enabled=false 6-3: shape2.left=shape2.left +d *50 6-5:

a & check2.caption 6-6:

list1.listcount-1 6-7: 1000

List1.list(i)6-8:

text1 实验 7 7-1: n=n-3500

n-y

text1.setfocus 7-2: a=a & c 7-3: sum +j

Sum=1250 7-4: m=n

n=r

r= m mod n 7-5: if a mod i=0 then exit for 7-6: text1

S2 & mid(s1,k,1)S2=””

7-7:

nfactor

factor+1 7-8: n 7-9:

sum=0

s & i & “ +”

list1.clear 7-10: mid(text1, i, 1)实验8 8-1：a(i)=a(16-i)

a(16-i)=temp 8-2: a(i-2)+a(i+1)+1

Text2 & vbcrlf 8-3: picture1.print

i=1 to 5

sum=sum+a(I,j)

next i

sum+a(i,j)+a(i,6-i)

not(i>1 and i<5 or j>1 and j<5)8-4: text1 & str(a(i))

If a(i)< min then min=a(i)8-5:

(a(i)10)*(b(i)10)

“sum=”;sum

8-6: a(i,2)=a(i,4)

A(i,4)=t

8-8:

picture1.print a(i,j);

Sum=sum+a(k,k)8-9:

exit for

num=a(i)8-10:

i+1 to 10

a(i)>a(j)

第二篇：VB大实验[范文]

综 合 性 实

实 验 名 称: 通讯录管理系统

专 业 班 级: 数字1201班

学 生 姓 名:马晓军

学 号：201225070125 指 导 教 师：王云侠

验 需求分析：

通讯录管理系统是针对系统服务对象的具体要求设计的，能够输入所有人员的

相关信息，实现人员的分类管理和查询。主要设计了以下几大功能：(1)新建、修改、删除通讯录记录(2)能根据姓名进行模糊查询(3)能根据电话查询某人(4)方便的浏览逐条记录 运行环境：

WINDOWS XP系统；VB6.0 3开发工具和编程语言：

Visual Basic6.0语言 4 系统设计

1.在下面窗口实现信息的浏览，新建，删除以及修改，按确定执行操作，按取消则放弃操作。

系统主窗体

代码：

Private Sub CmdAdd_Click()Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdChange.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text1.SetFocus Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount

End Sub Private Sub CmdChange_Click()CmdAdd.Enabled = False CmdDel.Enabled = False CmdChange.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text1.SetFocus Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdDel_Click()x = MsgBox(“确定要删除当前记录吗？”, vbYesNo + vbQuestion, “确认”)If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Adodc1.Refresh End If Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub

Private Sub CmdEsc_Click()Adodc1.Refresh

CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdFind_Click()Form2.Show

End Sub Private Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdLast_Click()Adodc1.Recordset.MoveLast CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdN_Click()Dim n As Integer n = Text9.Text Adodc1.Recordset.Move n Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdNext_Click()Adodc1.Recordset.MoveNext CmdFirst.Enabled = True CmdPre.Enabled = True If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast CmdNext.Enabled = False CmdLast.Enabled = False End If

Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub

Private Sub CmdOk_Click()Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Text1.Locked = True Text2.Locked = True

Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Text8.Locked = True Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdPre_Click()Adodc1.Recordset.MovePrevious CmdNext.Enabled = True CmdLast.Enabled = True If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False End If Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub Form_Load()CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub 2.选择要查询的条件，输入查询的信息，按下查询按钮即可显示查询结果，按下返回按钮返回上级窗口。

查询界面窗体

代码：

Private Sub CmdBack_Click()Form1.Show Unload Me End Sub Private Sub CmdFind_Click()Dim str As String str = “ Select * From person ”

str = str & “Where person.” & Combo1.Text & “ Like '” & Text1 & “% '” Adodc1.RecordSource = str Adodc1.Refresh End Sub Private Sub Form_Load()Combo1.AddItem “姓” Combo1.AddItem “名” Combo1.AddItem “手机” Combo1.AddItem “地址” Combo1.AddItem “公司” Combo1.AddItem “所在组” Text1.Text = "" End Sub 5 系统运行及测试；参考文献;

[1]龚培曾，杨志强Visual Basic程序设计教程（第3版），高等教育出版社，2001/12 7心得体会：

1.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在程序入门阶段还是应该重视概念的学习、多请教老师、多与同学交流解决问题的方法、多与他人进行讨论问题，所有VB问题都会弄懂的。

2.VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成。

3.课前预习,认真听课并适当做些笔记,课后要认真复习消化所学内容,完成作业。4.最后，本学期我VB程序设计能顺利完成，我最要感谢的是我的王云侠老师，本身VB程序设计是很门让人枯燥乏味的课程，而且让我们感觉很难的课程；但是，值得我们幸运的是，我们遇到一位颇有责任心、有耐心、讲课通俗易懂的好老师——王老师，加上她平日的热情、耐心认真地指导；最终，使得我的通讯录管理系统综合实验很顺利的完成了；更使我懂得了，只要认真、用心、踏实地学习VB程序设计，我们一定会把VB学好的。

第三篇：实验指导部分教案

附《心理实验》指导

实验一 自变量的范围和间距

（一）目的：通过对皮肤两点阈的测定，学习确定心理实验中变量范围和间距的方法。

（二）材料：两点阈量规、遮眼罩、记录纸。

（三）程序：

（1）主试者选定被试者的左手背（A区）与前臂背面为测量区，前臂背面又分为二个区（B、C区），本试验取A、C两个区。测量前，在各区内标上蓝印或划出圆圈，刺激在圈内进行。

（2）在使用两点阈量规时，必须垂直接触皮肤，对两个尖点施力均匀，接触时间不超过2秒钟，先在自己手上练习几次，再在被试者的非测验区练习几次。

（3）实验序列的长度和起点，可根据初步测验后确定，大致在7～15毫米的范围内取5个点，每步变化在1毫米左右。每种间距做20次，顺序随机安排。本实验记录用纸一

刺激代号相对应的实际刺激值

（4）每隔100次，休息5分钟。被试者有时产生一种持久的两点后象（即使只有一点或距离很近的两点刺激，也有感到两点的印象），此时应给予休息，使其恢复两点的标准。每隔数十次，可插入一次一点刺激，测验被试者是否有这种后象。

（5）主试者对被试者的指示语必须这样说明：“在排除视觉的条件下，当被试者感觉到是两点时说‘二’；当被试者感觉到一点时说‘一’；当被试者不能确定感觉到的是几点时说‘不’”。本实验记录用纸二

被试者反应记录表（6）主试者在每次刺激前先发出预备信号：“注意”。在被试者作出反应后，要记录下来。

（7）在全部测量完毕后，在记录中挑出有“不”的序列，再重复那些序列，获得确定的判断。

（四）结果：分别求出左手A区和C区的两点阈限，并对两均数的差别进行考验。

（五）讨论：

（1）说明身体部位不同，触觉有差异，两点阈值从一个侧面揭示了触觉感受性的大小。（2）如果要测定皮肤某部位的两点阈限，自变量的范围和间距应如何安排？ 实验二 自变量和因变量的确定（练习对学习的影响）

（一）目的：

（1）通过动作学习的过程了解心理实验中确定自变量和因变量的方法；（2）学习使用触棒迷津。

（二）材料：触棒迷津、小棒、遮眼罩、秒表、记录纸。

（三）程序：

（1）三人一组，被试者带上遮眼罩，用小棒走迷津（实验前被试者勿看迷津，也勿用手触摸迷津）。主试者对被试者的指示语必须这样说明：“在排除视觉的条件下，尽快地学会用小棒走迷津，中间不要停顿，要积极运用动觉、记忆和思维，争取早些学会”。主试者把小棒放在迷津的入口处，然后让被试者用优势手拿住小棒，手臂悬空。

（2）被试者手执小棒静侯。主试者在每次开始前2秒钟，先发出“预备”口令，主试者再说“开始”时，被试者才用小棒走动。在发出“开始”口令的同时，主试者开动秒手表。

（3）被试者在走迷津的过程中，凡进入盲巷一次就算出错一次，主试者记下错误次数。（4）当被试者的小棒进入迷津终点，主试者立刻说“到了”，同时停秒表，记录走一遍迷津所用的时间（秒）。再做下一次的准备工作。

（5）学习遍数因被试者而异，均以连续三次不出错为学会的标准。（6）若被试者在学习途中感到疲劳，可在某次走到终点后休息几分钟。

（四）结果：将每次走迷津所用的时间和错误次数列成表格（见下页）。本实验记录用纸

注：学习遍数因被试者而异，均以连续三次不出错为学会的标准，学习遍数超过15次者可自行加行。

（五）讨论：

（1）本实验中自变量是什么？为什么在实验前要对所用的自变量提出一个操作上的定义？

（2）本实验用什么作因变量的指标？它的作用是什么？（3）本实验控制了那些变量？ 实验三 广告悦目测定

（一）目的：学习对偶比较法和等级排列法，判断哪种广告较美，分析其原因，并为实际广告部门提供资料。

（二）材料：选定和制作10张典型广告幻灯片。

（三）方法和程序 使用对偶比较法和等级排列法来测定哪张广告较美。

1.对偶比较法。此法最早由寇恩（Cohn，1894）在他的颜色爱好的研究中介绍出来。这个方法是把所有要比较的刺激配成对，然后一对一对地呈现，直到所有的广告都被比较过为止。如果每一个广告和另外的广告逐一配对；则配出对的数目是n（n-1）/2，10个广告则为45对。为尽量排除空间误差，在同一个广告组成的配对中，该广告在左和右面的位置各半。被试者的任务就是在两个广告中进行选择，确定哪个广告较美。

2.等级排列法。这个方法是10个广告同时呈现，让被试者按他的判断标准，把10个广告排列成一个顺序。被试者可以反复比较，只要最后排出一个美丑的等级顺序就可以了。然后把许多人对同一广告评判的等级加以平均。

3.在记录上述结果的同时，务必详细记录被试评定广告美→丑的理由，以供分析时参考。

（四）结果：整理结果填入记录纸（表10-16，表10-17，表10-18）

（五）讨论：

1.对本实验所得量表进行分析讨论，并提出心理学依据。

2.在本实验中，为什么要随机改变左、右的位置，为什么对每对广告要有间隔？ 3.对偶比较法和等级排列法用于实验中还存在什么问题？

实验四 简单反应时间实验

（一）目的：学习对视觉与听觉简单反应时间的测定方法；比较两种简单反应时间的差别。

（二）材料：简单反应时间测定装置。

（三）程序： 1.预备实验

（1）接通仪器电源，主试者拨动信号发生开关，在光或声刺激呈现的同时，计时器应立即进行计时。（2）练习操作，刺激呈现器放在被试1公尺处。被试以右手食指轻触电键。主试者在发出“预备”口令后约2秒呈现刺激。被试者当感觉到刺激出现时，立即按压电键。计时器停止计时，主试者记下成绩。练习实验可作2～3次。

（3）为防止无关刺激的干扰，主试者与被试者可分隔在两个操作室中进行实验。2.正式实验

（1）刺激呈现按视——听——听——视方式安排，每单元各作20次，总次数为80次。

（2）同预备实验。

（3）为了检查被试者有无超前反应现象，在每20次中插入一次“检查实验”。如被试对“空白刺激”作出反应，主试者根据反馈信号灯提供的信息须宣布此单元实验结果无效，重做20次。

（4）做完20次，休息1分钟。一被试者测完80次后，换一被试者进行实验。

（四）结果：

（1）计算个人视觉与听觉反应时的平均数及标准差。（2）检验全体被试两种简单反应时是否有明显差别。

（五）讨论：

（1）根据实验结果说明视与听感觉道简单反应时的差别及其原因。（2）根据实验结果说明简单反应时是否受练习的影响。实验五 选择反应时间实验

（一）目的：学习测定视觉选择反应时间的方法，了解选择反应时间与简单反应时间的区别。

（二）材料：选择反应时测定装置。

（三）程序： 1.预备实验

（1）接通仪器电源。主试者按预先列出的程序操作信号呈现开关，发出“红”、“黄”、“绿”、“白”四种不同光刺激。

（2）被试者以右手食指作按键状，当感觉到某种色光时，立即按压相应的反应键（即被试对四种不同的刺激相应作出四种不同的反应）。计时器记下时间，练习实验可作4～5次。

2.正式实验

（1）四种色光刺激各呈现20次，随机排列。

（2）主试者呈现刺激与被试者反应方式同预备实验。如果反应错了，计时器不计时间，主试者根据反馈信号灯提供的信息，安排被试者重作一次。

（3）每做完20次休息1分钟。一被试者测完80次，换另一被试者进行实验。

（四）结果：

（1）计算个人不同色光的选择反应时的平均数、标准差。（2）比较全体被试者对白光的简单与选择反应时的平均数差异。

（五）讨论：

（1）本实验结果是否与前人实验的数据一致？原因何在？（2）举例说明反应时实验的实际应用意义。

表： 对四种色光的选择反应时实验记录（反应时单位：毫秒）被试姓名： 主试姓名： 实验时间：

综合实验：认知方式测量

（一）目的：掌握棒框仪的使用方法；通过实验，认识棒框测验在认知方式研究中占有很重要的地位。利用镶嵌图形测量认知方式

（二）仪器：棒框仪、镶嵌图形图

（三）程序：

1.令被试者端坐在仪器前，双眼紧贴观察孔。实验过程中始终保持这种情况（休息除外），暗适应5分钟后，开始施测。要求实验过程中头部始终保持正直，一定不能随框的倾斜而倾斜。为了做到这点，可用下额托将头部固定。待被试者坐好后，施测者陈述指导语：“注意看框和棒，并将棒调节与地面垂直，时间不限。当你认为棒已调至与地面垂直时就报告垂直了，并且每次判断垂直的标准要一致”。施测者在被试者报告调至垂直后，记下调节的误差数（所调的角度与真正垂直之差数），不计正负号，只取误差的绝对值。正式实验前可让被测者练习1～2次，让其掌握方法，施测时还有二个应注意的问题：一是施测者调节框和棒的倾斜角度的过程不能让被试者看到，可采用两个方法：在施测者调节时，将仪器后面进光部分遮上；另一方法是可让被试者闭目，待施测者调好后再让被试者自己调节。二是仪器的光源要在一项研究中保持一致。因框棒的不同亮度，对垂直判断的误差大小是有影响的。

2.实验过程要求主试者调节框的度数。让框从0°开始，每3°为一个梯级，直至45°。即框安排的度数分别为0°、3°、6°、9°、12°、15°、18°、21°、24°、27°、30°、33°、36°、39°、42°、和45°。框倾斜的度数，随机呈现。每个度数上，随机测验四次，二次要求被试将棒从顺时针方向调至垂直，二次由逆时针方向调至垂直。取四次的平均数为该倾斜度的平均误差数。

3.运用镶嵌图形测量被试的认知方式。

（四）结果

1.分别整理框的各倾斜度的平均误差数。

2.以框的倾斜角度为横坐标，以被试调节棒的平均误差数为纵坐标，绘制棒框测验曲线图。

3.根据被试的反应给被试镶嵌图形测验打分。

（五）讨论

1.比较框的各倾斜度的平均误差大小，根据自己实验结果，看哪个倾斜度的平均误差数较大。并和前人实验结果进行比较。

2.根据本实验结果，并结合平时自己的认知方式特点，分析自己是属于场依存性还是属于场独立性认知方式。

3.两种测量的结果一致吗，为什么？

棒框测验记录用纸

第四篇：vb实验教案 -

实验一 VB集成开发环境和简单程序设计

一、本次课主要内容

1． 练习Visual Basic6.0的安装与重新安装。2． 启动和退出Visual Basic 6.0。3． 认识VB6.0的工作界面。

4． 编写显示“欢迎使用Visual Basic6.0”的窗体程序。

P 1 5． 按照Visual Basic编写程序的基本步骤建立一个用于“商品销售计划”的窗体程序。

二、教学目的与要求 1．熟悉VB6.0的安装；

2．学习怎样启动和退出Visual Basic；

3．熟悉Visual Basic的工作环境，为以后的程序设计作好准备； 4．理解Visual Basic中对象和类的概念。5．学习用属性窗口设置对象属性的方法。

6．初步学习在代码编辑器中输入程序代码的基本操作。7．基本掌握用Visual Basic编写程序的基本步骤。8．了解Visual Basic联机帮助的使用方法。

三、教学重点难点 VB语言程序的上机步骤

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验2。

实验一 VB集成开发环境和简单程序设计

1． Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，如何操作？

2． 如何使各窗口显示或不显示？ 3． 如何对工具箱添加选项卡？

4．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？

5．在窗体上画一个命令按钮，然后通过属性窗口设置下列属性： Caption：这是命令按钮 Font：宋体 粗体 三号 Visible：False Style：1-Graphical

6、参考实验教材“实验一”和“实验二”的实验过程编写程序。

P 2

教学后记：

实验二 顺序结构程序设计

一、本次课主要内容

1.实验Visual Basic中三种除法运算符（/、、Mod）的区别。2．掌握表达式的书写，并能阅读出表达式的运行结果。3．设计一个简单的计数器。

二、教学目的与要求

1．掌握Visual Basic数据类型的基本概念。2．掌握变量，常量的定义规则。

3．掌握Visual Basic各种运算符的功能及表达式的构成和求值方法。4．掌握Visual Basic的基本语句。

三、教学重点难点

VB的各种运算符的功能及表达式的构成

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验3。

P 3

实验二 顺序结构程序设计

1．实验Visual Basic中三种除法运算符（/、、Mod）的区别。按以下步骤执行：

P 4（1）在窗体上画5个标签、5个文本框和一个命令按钮。5个标签的标题分别为：“被除数”、“除数”、“浮点除（/）”、“整数除（）”和“余数除（Mod）”，把5个文本框清为空白，把命令按钮的标题设置为“执行除法运算”，如图6所示。

图6

除法运算符实验（界面设计）

（2）编写命令按钮的事件过程： Private Sub Command1_Click()Dim diviD, diviS As Single diviD = Val(Text1.Text)diviS = Val(Text2.Text)Text3.Text = Str(diviD / diviS)Text4.Text = Str(diviD diviS)Text5.Text = Str(diviD Mod diviS)End Sub

（3）按F5或单击工具栏上的“启动”按钮运行程序，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结

果。例如，在第一、第二个文本框中分别输入124和3，然后单击命令按钮，结果如图7所示。

P 5

图7

除法运算符试验（运行情况）

2．先用手工计算下列表达式的值，然后在立即窗口中试验这些表达式的输出结果。

(1)8*3*62(2)7/6*3.2/2.15*(4.3+2.8)(3)344*4.0^3/1.6(4)653 Mod 2.6*Fix(3.7)(5)“abc” + “345” & “257”(6)279.37 + “0.63” = 280(7)4>8 And 4 = 5(8)True Or Not(8+3 >= 11)(9)8 > 4 Or 5 < 9(10)(True And False)Or(True Or False)3．设x,y,z均为布尔型变量，其值分别为： x=True Y=True Z=False 求下列表达式的值：

(1)x Or y And z(2)Not x And Not y(3)x Xor y Or z(4)Not x Eqv Not y(5)(Not y Or x)And(y Or z)(6)x Or Not y Imp z 要求：先手工计算，再上机验证。

教学后记：

P 6

实验三 选择结构程序设计

一、本次课主要内容

1．编程求解一元二次方程的根。

2．按要求编写程序实现税务部门征收所得税的纳税金额。

二、教学目的与要求

1.掌握逻辑表达式的正确书写形式。2.掌握单分支与多分支语句的使用。3.熟悉“选择”结构程序设计。

三、教学重点难点

逻辑表达式的正确书写形式

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验4。

P 7

实验三 选择结构程序设计

1．求解一元二次方程的根。

2．税务部门征收所得税，规定如下：（1）收入在800元以内，免征；

（2）收入在800~1000元以内，超过200元的部分纳税5%；（3）收入在1000~2000元以内，超过1000元的部分，纳税8%；（4）当收入达到2000元或超过时，纳税10%； 编程实现上述操作。（1）编写程序代码：

（2）程序运行

程序运行后，单击窗体，在输入对话框中输入收入数，程序将输出纳税金额。例如输入1560，运行情况如图30所示。

P 8

图30 纳税运行情况

3．输入x、y、z三个数，按从大到小的次序显示。要求：对输入数据应有测试手段，可以通过IsNumeric函数对文本框中的数进行测试。若输入的数有非数字字符，显示“不能转换成数值”，提示再输入。当输入的三个数全部都是数字字符后再转换成数值型，然后进行大小比较。

4．某市公用电话收费标准如下：市话通话时间在3分钟以下，收费0.50元；3分钟以上，则每超过1分钟加收0.15元；在7:00-19:00之间通话者，按上述收费标准全价收费；在其他时间通话者一律接收费标准的半价收费。试计算某人在T时间通话S分钟，应缴多少电话费。

5．设在窗体上已经建立一个文本框Text1，两个命令按钮Commmand1和Command2，说明执行以下语句后，各控件将显示什么内容？

Text1.Text = Command1.Caption Command1.Caption = Command2.Caption Command2.Caption = Text1.Text Text1.Text = Command1.Caption & Command2.Caption 6．下面程序段的输出是什么？

（1）If(2 * 2 = 5)<(2 * 2 = 4)Then Print “True is greater then false.” Else Print “False is greater then true.” End If（2）a = 0 If a > = 7 Then a = 1 Print “Watch Out”, a End If（3）a = 0 If a > = 7 Then a = 1 End If Print “Watch Out”, a

P 9 教学后记：

实验四 循环结构程序设计

P 10

一、本次课主要内容 1．计算阶乘。

2．编程实现勾股定理中三个数的关系是a2＋b2 = c2。3．编程求完全数。

二、教学目的与要求

1.熟悉分支转移结构程序设计，灵活使用有关语句。2.熟悉循环结构程序设计，灵活使用各种循环语句。3.能够正确阅读嵌套循环，及正确使用嵌套循环。

三、教学重点难点

循环结构程序设计及相关语句的用法

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验5。

实验四 循环结构程序设计

P 11 1.计算阶乘

2．勾股定理中三个数的关系是a2＋b2 = c2。编写程序，输出30以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。

（1）编写程序

（2）程序运行后，单击窗体，将输出30以内满足关系的整数a，b，c的组合，同时显示相应的a*a，b*b，c*c，结果如图36所示。

图36

程序执行结果

3．如果一个数的因子（不包括本身）之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的因子为1，2，4，7，14，其和1＋2＋4＋7＋14 = 28，因此28是一个完全数。试编写一个程序，从键盘上输出正整数N和M，输出N和M之间的所有完全数。

程序如下：

程序运行后，单击窗体，在两个输入对话框中分别输入N 和M的值，即可输出N和M之间的“完全数”。假定输入的N和M的值分别为2和1000，则结果如图37所示。

P 12

程序执行结果

4．编程计算由下列公式确定的s值，其中n是用户输入的正整数，注意选用合适的变量类型。

（1）s = 12 + 22 + 32 + „ + n2（2）s = 11×22×33ׄ×nn（3）s = 1 + 1×2 + 1×2×3 + „ + 1×2×3ׄ×n 5．用While„Wend语句计算2n，请尝试用不同形式的Do„Loop语句和For„Next语句重写该程序。

教学后记：

实验五 VB的常用控件

一、本次课主要内容

1．设置文本框Text1中内容的字体、字型和颜色。

2．如果单击“添加”按钮，就将在文本框和组合框中输入或选择的内容插入空格后连接成一个字符串添加到List1中；如果单击“去除”按钮，就将List1中选中的项删除；如果单击“清空”按钮，就将List1中所有的项目全部删除。

3．将定时器计时开始后度过的总秒数换算为时、分、秒(取2位小数)显示。4．将复选框的选中状态（Value属性值）转换为逻辑值后赋值给图片框的AutoSize属性，决定图片框是否自动改变大小以显示全部图形；将复选框的选中状态（Value属性值）转换为逻辑值后赋值给图像框的Stretcch属性，决定图形是否自动缩放以适应图像框大小。

二、教学目的与要求

1.掌握单选按钮、复选框和框架的使用方法。2.掌握列表框控件和组合框控件的使用方法。3.掌握时钟控件的使用方法。

4.掌握图片框控件和图像框控件的使用方法。

三、教学重点难点 常用控件的使用方法

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验6。

P 13

P 14

实验五 VB的常用控件

1．设计界面（程序一到四）2．设置属性 3．编写程序代码 4.调试运行 第一题：

运行结果：

第二题：

运行结果：

P 15

第四题：

运行结果：

5.利用时钟控件和图像控件编写一个自动红绿灯模拟程序。要求在晚上21:00到早晨7:00全亮，其余时间红、黄、绿灯自动切换。

教学后记：

实验六 数组

一、本次课主要内容

1.定义一个固定大小的一维数组，并为数组元素赋值，最后将数组元素输出到窗体上。

P 16 2.请编写程序，完成将一个6×8的矩阵分别按行和列的顺序放到一维数组中。3.随机产生10个数，按升序（降序）排列输出

二、教学目的与要求 1.掌握数组的基本概念。2.掌握数组的声明、应用。3.掌握控件数组。

4.掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。

三、教学重点难点

利用数组解决与数组相关的常用算法

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验7。

实验六 数组

第一题：

P 17

Dim a(0 To 9)As Integer '定义一个大小为10的整形数组 '数组赋值命令按钮事件过程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“请输入数组元素” & i + 1 & “/” & “10”, “数组赋值”))Next i End Sub '显示数组元素命令按钮事件过程 Private Sub Command2_Click()For i = 0 To 9 Print a(i)Next i End Sub

第二题： Option Base 1 Dim a%(6, 8), b%(), c%()'定义一个二维数组(6x8)和两个动态数组 '将二维数组按行存储到一维数组b中 Private Sub Command1_Click()k = 1 For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

b(k)= a(i, j): k = k + 1 Next j Next i Text2.Text = “" '将按行存放后的一维数组b的元素显示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), ”@@@@“)Next i End Sub '将二维数组按列存储到一维数组c中 Private Sub Command2_Click()k = 1 For j = LBound(a, 2)To UBound(a, 2)For i = LBound(a, 1)To UBound(a, 1)c(k)= a(i, j): k = k + 1 Next i Next j Text3.Text = ”“ '将按列存放后的一维数组c的元素显示到文本框中 For i = LBound(c)To UBound(c)Text3.Text = Text3.Text & Format(c(i), ”@@@@“)Next i End Sub '窗体载入事件过程 Private Sub Form_Load()Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“ '二维数组初始化

For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

P 18

a(i, j)= Int(90 * Rnd)X)*(pz))End Sub Private Sub cmdJs_Click()Dim a!, b!, c!, w!a = Val(txtA.Text)b = Val(txtB.Text)c = Val(txtC.Text)If a > b + c Or b > a + c Or c > a + b Then MsgBox ”输入的三条边不能构成一个三角形！" Else Call area(a, b, c, w)txtMj.Text = Str(w)End If End Sub 第二题：

P 23

Private Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer Dim r As Integer r = x Mod y Do While r <> 0 x = y y = r r = x Mod y Loop gcd = y End Function Private Sub Command1_Click()Dim a As Integer, b As Integer a = Val(Text1.Text): b = Val(Text2.Text)x = gcd(a, b)Text3.Text = x End Sub

第三题：

Private Function prime(x)As Boolean If x < 2 Then prime = False Exit Function

End If For i = 2 To Sqr(x)If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function

Private Sub Form_Click()For a = 200 To 1000-2 b = a + 2 If prime(a)And prime(b)Then Debug.Print a, b c = a + b End If Next Print c End Sub

教学后记：

P 24

P 25

实验八 等级考试专题及考查

一、本次课主要内容

进行一次等级考试的模拟测试。

二、教学目的与要求

1.熟悉等级考试中程序题的答题过程。

2.掌握利用VB内部函数、表达式、控制结构等知识进行较复杂的编程。

三、教学重点难点 等级考试的复杂题型

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.认真完成和按时提交考查任务；

2.自行复习，准备下学期初的国二VB考试。

实验八 等级考试专题及考查

P 26 1．登陆等级考试系统，选做VB的基础知识和程序题（包括程序改错，程序填空、程序设计）

2.每个同学都把自己等级考试中随机抽到的题目抄写下来，互相传阅，最后把不同类型的题目做个归纳总结。

教学后记：

第五篇：VB实验指导书

VB程序设计

实验指导书

电子与计算机科学技术学院 实验一

熟悉VB集成开发环境

一、实验目的

1．熟悉计算机环境 2.VB的安装、启动与退出 3.熟悉VB语言编程环境

二、实验环境

1．计算机

2.Visual Basic 6.0开发环境

三、实验说明

1．熟悉机房实验环境

2．学习Visual Basic 6.0开发环境

四、实验内容和步骤

1.实验内容

（1）Windows的基本操作。（2）VB的安装、启动与退出。（3）VB集成开发环境的初步使用。2.实验步骤

（1）打开计算机，进入Windows；

（2）在CD－ROM驱动器中插入Visual Basic 6.0系统盘；（3）运行安装程序（Setup.exe），即可进入“安装程序向导”；

（4）在“安装程序向导”引领下，按步骤选择相应的选项，添加对应的参数，完成安装过程；

（5）从以下几方面熟悉VB集成开发环境：

 标题栏  菜单栏  工具栏  工程设计窗口 ①“工程资源管理器”窗口 ②“窗体设计器”窗口 ③“属性设置”窗口 ④“代码设计”窗口 ⑤“窗体布局”窗口 ⑥“立即”窗口 ⑦“工具箱”窗口

五、实验报告要求

1.整理实验结果，填入相应表格中 2.小结实验心得体会 3.回答思考题：

（1）如果“立即”窗口和“工具箱”窗口已被关闭，如何打开？（2）如果想改变VB程序代码的字体，应如何进行设置？

实验二

建立VB应用程序

一、实验目的

1．进一步熟悉VB语言编程环境 2．熟悉创建VB程序的步骤

二、实验环境 1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟悉创建VB程序的步骤

2．进一步学习Visual Basic 6.0开发环境

四、实验内容和步骤

1.实验内容

（1）设计一个窗体，当单击“显示”按钮时，在文本框内显示“走进VB程序乐园”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。程序界面如下所示：

（2）设计一个窗体，打开窗体时，标签显示“风景这边独好！”且为黑色；当单击“红”时标签显示红色；当单击“黄”标签显示黄色；当单击“还原”按钮时，标签显示黑色；当单击“退出”按钮时，结束程序运行。程序界面如下所示：

2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开工具箱窗口添加所需控件，设计该实验的界面；

（4）在“工程设计”窗口，选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；

（5）打开“工程设计”窗口，选择“文件”菜单中的“保存窗体”菜单选项，将所建的窗体保存到指定的磁盘文件中；

（6）打开“工程设计”窗口，选择“文件”菜单中的“保存工程”菜单选项，将所建的VB工程保存到指定的磁盘文件中；

（7）在“工程设计”窗口，选择“运行”菜单中的“启动”菜单选项，运行程序，观察运行结果。

五、实验报告要求1．整理实验结果，填入相应表格中 2．小结实验心得体会 3.回答思考题: 使用文本框和标签都可以显示信息，二者所使用的属性一样吗？请分别指出。

实验三

内部函数的使用

一、实验目的

1．理解VB内部函数的功能和书写格式 2．学会在“立即”窗口中进行操作

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟悉Visual Basic 6.0开发环境 2．学会使用“立即”窗口 3．练习使用常用的内部函数

四、实验内容和步骤

1.实验内容（1）常用数学函数 练习使用常用的数学函数：Abs、Cos、Exp、Int、Log、Rnd、Sgn、Sin、Sqr、Tan等。（2）常用字符函数

练习使用常用的字符函数：Lcase、Left、Len、Ltrim、Mid、Right、Rtrim、Space、Trim、Ucase等。（3）常用转化函数

练习使用常用的转化函数：Asc、Chr、Str、Val等。（4）常用日期函数

练习使用常用的日期函数：Date、Day、Hour、Minute、Month、Now、Second、Time、Weekday、Year等。（5）计算下列函数值。①Sqr(4+3*7)②Int(123.456)③Abs(-12345)④Mid$(“abcdABCD”,5,4)⑤Len(“清华大学出版社ABCD”)⑥Asc(“M”)⑦Asc(Chr(100))⑧DataDiff(“D”,#3/25/2004#,#10/30/2004#)⑨IsData(#11/20/2003#)⑩IsNumeric(“ABC”)2.实验步骤

（1）打开计算机，进入Visual Basic 6.0系统环境；

（2）在视图下拉菜单中选择“立即窗口”，在“立即窗口”中计算各函数的值。

五、实验报告要求1．整理实验结果，填入相应表格中 2．小结实验心得体会 3．回答思考题:（1）Int函数的功能是获取数值的整数部分，如果在获取数值整数部分的时候，要实现“四舍五入”，该如何实现？

（2）Rnd函数的功能是返回一个0至1之间的随机数，如果要返回0至100之间的随机数，该如何实现？

实验四

表达式的书写及求值

一、实验目的

1.掌握算术运算符、字符运算符和逻辑运算符的含义 2.掌握算术表达式、字符表达式和逻辑表达式的书写 3.掌握算术表达式、字符表达式和逻辑表达式的求值

二、实验环境

1．计算机

2.Visual Basic 6.0开发环境

三、实验说明

1．理解VB中各种运算符的含义

2．练习算术表达式、字符表达式和逻辑表达式的书写

3．在“立即”窗口中练习算术表达式、字符表达式和逻辑表达式的求值

四、实验内容和步骤

1.实验内容

（1）将下列代数式写成Visual Basic的算术表达式，并给题中变量赋值（a=1,b=2,c=3,x=2,y=1），然后计算表达式的值。

sin2(20a(4ab1))①

315abc(abc②abc)sin45xyxy ③22xy2xy1a④

52a9ealna⑤

（2）已知na=100，nb=5，sa$=“Visual Basic”，da=#3/15/2004 8:15:03 PM#，sb$=“程序设计”，la=True，计算下列表达式的值。①(na+nb)/ Sqr(na)②Mid(sa + sb,8,7)③Right(sa$,5)+ Space(5)+ Left(sb$,2)④sb & Str(na)& “ 分” ⑤Year(da)& Month(da)& Day(da)⑥Hour(da)& “:” & Minute(da)& “:” & Second(da)⑦da + 20 ⑧na + nb > 200 And Sqr(na)> 10 Or la ⑨Len(sa)= 12 And Not la And na = 100 ⑩Hour(da)> Int(na / 10)And na > nb 2.实验步骤

（1）打开计算机，进入Visual Basic 6.0系统环境；

（2）在视图下拉菜单中选择“立即窗口”，在“立即窗口”中书写表达式，并计算各表达式的值。

五、实验报告要求1．整理实验结果，填入相应表格中 2．小结实验心得体会 3．回答思考题：

（1）试计算以下表达式的值：3 Or 3, 4 And 1。

（2）把以下表达式中的括号去掉后，表达式的值改变了吗？为什么？

((1＋2)<(2*2))Or(10/2<>5)((1＋2)<(2*2))+(10/2<>5)

实验五

输入输出操作

一、实验目的

1．掌握赋值语句的使用 2．掌握Print方法的使用 3．掌握输入输出对话框的使用

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．理解赋值语句、Print方法、输入输出对话框的使用 2．练习赋值语句、Print方法、输入输出对话框的使用

四、实验内容和步骤

1.实验内容

（1）设计一个窗体，用Print方法在窗体上显示“轻松快乐学VB！”。

（2）设计一个窗体，单击窗体时，实现以下功能：

① 使用Inputbox函数输入两个整数X和Y； ② 计算|sinx+cosy|的值，并赋给变量Z； ③使用Msgbox函数输出计算结果。2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开工具箱窗口添加所需控件，设计该实验的界面；

（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计窗体单击事件的事件代码；（5）运行程序，观察结果；（6）保存窗体，保存工程。

五、实验报告要求

1．整理实验结果，填入相应表格中 2．小结实验心得体会 3．回答思考题：

（1）Inputbox函数的返回值是什么类型的数据？使用Inputbox函数一次可以输入两个或两个以上的值吗？

（2）赋值号“=”在VB中还有其它的功能吗？请指出。

实验六

标准模块和窗体的使用

一、实验目的 1.理解标准模块的建立和模块级变量的定义和使用 2.掌握窗体的建立和窗体常用属性、方法和事件

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟练运用Visual Basic 6.0开发环境 2．熟悉建立VB应用程序的步骤 3．学会使用标准模块

4．学会设计窗体界面实现一定的功能

四、实验内容和步骤

1.实验内容

（1）建立“Sub Main”过程，使用Inputbox函数输入长方体的长、宽和高，计算长方体的体积，使用Msgbox函数输出计算结果。

（2）设计一个窗体，通过2个文本框接收数据，1个文本框输出数据，2个标签分别显示“＋”和“＝”，3个命令按钮控制操作，实现加法器的功能，程序的运行结果如下图所示：

2.实验步骤

实验内容（1）操作步骤：

（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；（2）选择“工程”菜单中的“添加模块”菜单选项，打开“添加模块”窗口；

（3）在“添加模块”窗口中，单击“打开”按钮，打开“代码设计”窗口，输入程序代码；

（4）选择“工程”菜单中的“工程属性”菜单选项，打开“工程属性”窗口；

（5）在“工程属性”窗口中，单击“确定”按钮，确定“Sub Main”过程为当前启动对象；

（6）运行程序观察结果；（7）保存模块文件和工程。实验内容（2）操作步骤：

（1）打开计算机，在Visual Basic系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；

（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计窗体单击事件的事件代码；（5）运行程序，观察结果；（6）保存窗体，保存工程。

五、实验报告要求1．整理实验结果，填入相应表格中 2．小结实验心得体会 3.回答思考题：

（1）窗体模块与标准模块有什么不同?（2）如果在窗体的事件过程中，要使用标准模块中定义的变量，应如何定义该变量？

实验七

基本内部控件的使用

一、实验目的

1.掌握基本内部控件的属性、方法和事件 2.掌握基本内部控件的使用

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟练运用Visual Basic 6.0开发环境 2．熟悉建立VB应用程序的步骤 3．学会使用基本内部控件

四、实验内容和步骤

1.实验内容（1）设计一个窗体，通过1文本框输出数据，3个命令按钮控制文本框内数据的操作，实现文本编辑器的功能，程序的运行结果如下图所示：

（2）设计一个窗体，利用文本框输出数据，窗体下面有一个电子时钟，程序的运行结果如下图所示：

2.实验步骤

（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；

（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；（5）运行程序，观察结果；（6）保存窗体，保存工程。

五、实验报告要求

1． 整理实验结果，填入相应表格中 2． 小结实验心得体会 3.回答思考题：

在一个窗体上，可以把多个命令按钮的Default属性设置为TRUE吗？为什么？

实验八

顺序结构程序设计

一、实验目的

1.掌握顺序结构的执行过程 2.掌握顺序结构程序设计方法

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟练运用Visual Basic 6.0开发环境 2．熟悉建立VB应用程序的步骤 3．学会编写顺序结构程序

四、实验内容和步骤

1.实验内容

（1）设计一窗体，通过3个文本框输入长方体的长、宽和高，单击“计算”按钮计算长方体的体积和表面积，程序的运行结果如下图所示：

（2）设计一窗体，在窗体中输出一个由“*”组成的菱形。2.实验步骤

（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；

（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；（5）运行程序，观察结果；（6）保存窗体，保存工程。

五、实验报告要求1． 整理实验结果，填入相应表格中 2． 小结实验心得体会

实验九

分支结构程序设计

一、实验目的

1.掌握分支结构语句的执行过程

2.掌握IF语句和SELECT CASE 语句的使用 3．掌握分支结构程序设计方法

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟练运用Visual Basic 6.0开发环境 2．熟悉建立VB应用程序的步骤 3．学会编写分支结构程序

四、实验内容和步骤

1.实验内容

（1）求解方程ax2+bx+c=0，通过三个文本框输入a，b，c的值，程序的运行结果如下图所示：

（2）通过文本框输入x的值，求解以下分段函数的值，使用SELECT CASE 语句实现。

x100x0.9x1000x20000.8x2000x3000x3000 Y＝0.7x2.实验步骤

（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；

（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；（5）运行程序，观察结果；（6）保存窗体，保存工程。

五、实验报告要求1． 整理实验结果，填入相应表格中 2． 小结实验心得体会 3． 回答思考题：（1）有以下程序段：

Select Case Int(Aver / 10)Case 9 print “优秀” Case 8 print “良好” Case Is > 5 print “中等” Case Is < 6 print “差” End Select 试问：当Aver=100时，程序的输出结果？（2）在VB中，改变Select Case语句中Case项的顺序，会影响程序的执行结果吗？

实验

十一、实验目的1．理解循环结构的执行过程

循环结构程序设计

2．掌握FOR语句、WHILE语句和DO语句的使用 3．掌握循环结构程序设计方法

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟练运用Visual Basic 6.0开发环境 2．熟悉建立VB应用程序的步骤 3．学会编写循环结构程序

四、实验内容和步骤

1.实验内容

（1）求S的值。P＝1+（1+2）＋（1+2+3）＋（1+2+3+4）＋„+（1+2+3+4＋„N）（令N=50），程序的运行结果如下图所示：

（2）设计一窗体,输出1～100之间能被3整除的个数及它们的和，程序的运行结果如下图所示：

2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；

（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；（5）运行程序，观察结果；（6）保存窗体，保存工程。

五、实验报告要求

1． 整理实验结果，填入相应表格中 2． 小结实验心得体会

实验十一

一维数组的应用

一、实验目的

1．掌握一维数组的概念、定义、数组元素的引用和初始化。

2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计

3．加深对循环控制结构的理解和使用

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟练运用Visual Basic 6.0开发环境 2．熟悉建立VB应用程序的步骤

3．学会使用一维数组实现简单的应用程序

四、实验内容和步骤

1.实验内容

产生10个随机数，存入到数组中，编程实现以下内容：（1）求数组所有元素的和及平均值；（2）输出数组的最大值和最小值；

（3）对数组从小到大进行排序，并输出排序后的数组元素。要求在窗体上显示结果。2.实验步骤

（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；

（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；（5）运行程序，观察结果；（6）保存窗体，保存工程。

五、实验报告要求

1． 整理实验结果，填入相应表格中 2． 小结实验心得体会

实验十二

二维数组的应用

一、实验目的

1．掌握二维数组的概念、定义、数组元素的引用

2．学会用二维数组和程序基本控制结构实现矩阵运算的方法

二、实验环境

1．计算机

2．Visual Basic 6.0开发环境

三、实验说明

1．熟练运用Visual Basic 6.0开发环境 2．熟悉建立VB应用程序的步骤

3．学会使用二维数组实现简单的矩阵运算

四、实验内容和步骤

1.实验内容

使用二维数组表示一个3行3列的方阵，编程实现以下内容：（1）输出方阵的转置矩阵；（2）输出方阵每行的最大值和最小值。要求在窗体上显示结果。2.实验步骤

（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；

（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；

（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；（5）运行程序，观察结果；（6）保存窗体，保存工程。

五、实验报告要求1． 整理实验结果，填入相应表格中 2． 小结实验心得体会