vb实习(实训)指导书.pdf
VB省二级实战演练实习（实训）指导书主编：李明江电子信息与工程系2007 年 03 月 15 日七台河职业学院2 简 要 说 明本实习（实训）指导书依据计算机专业教学计划编写而成。适用于三年制第三学期的计算机专业学生。本次认识实习共设实训任务五次，以完成教学计划规定的全部实践环节。注:说明该指导书编写的情况（如编写的根据等）。并写明适用的专业、实习（实训）者类型等范围，本专业应开实习（实训）次（个）数等情况。3 目录实习（训）一窗体设计 7 实习（训）二程序填空 8 实习（训）三程序改错 10 实习（训）四编写程序13 注释14 参考文献15 4 实习（实训）的课程名称VB省二级实战演练参加实习（实训）的年级及学期06（3）计算机、第三学期实习（实训）的周数或天数四周一、实习（实训）的目的实习的目的是指在完成基础课之后，开设的专业课为学生动手能力打下了一定的基础，但是他们的专业技能还不够精通，动手能力较弱，学生的编程技术需要进一步的提升，掌握窗体的设计的基本方法和过程，以及了解和掌握组成窗体的相关控件的基本属性和基本方法。通过这次实习，初步了解程序的设计界面及控件的添加和程序的编写过程以及基本操作能力，掌握程序的设计过程。通过理论课和实践课的有机结合，对后继专业课的学习奠定坚实的基础。二、实习（实训）的理论基础了解和掌握 VB应用程序的有关控件的属性知识以及窗体与控件间的关系。三、实习（实训）内容1窗体设计2程序填空3程序改错4编写程序四、实习（实训）要求1、每个同学必须填写实习日记5 篇。2、学生要认真填写项目实习指导书中的各项内容。3、学生可以根据老师提供的要求进行实习制作实习。5 4、学生必须在 12 月 15日前把实习日记、指导书等材料上交系里。5、指导教师评完后，上交成绩，并认真分析本届学生的实习情况，提出问题和解决问题的方法，形成材料上报到教务处和实验实习中心。五、实习（实训）安排2010 年 10 月 1511 月 7 日实习日期内容辅导教师时间地点10 月 15 日Vb 程序设计李明江8:00-11:00 13:00-16:00 D 微机室10 月 16 日Vb 程序设计李明江8:00-11:00 13:00-16:00 D 微机室10 月 23 日Vb 程序设计李明江8:00-11:00 13:00-16:00 D 微机室10 月 24 日Vb 程序设计李明江8:00-11:00 13:00-16:00 D 微机室10 月 30 日Vb 程序设计李明江8:00-11:00 13:00-16:00 D 微机室10 月 31 日Vb 程序设计李明江8:00-11:00 13:00-16:00 D 微机室11 月 1 日Vb 程序设计李明江11:40-13:10 D 微机室11 月 2 日Vb 程序设计李明江11:40-13:10 D 微机室11 月 3 日Vb 程序设计李明江11:40-13:10 D 微机室11 月 6日Vb 程序设计李明江8:00-11:00 13:00-16:00 B 微机室11 月 7日Vb 程序设计李明江8:00-11:00 13:00-16:00 B 微机室总学时：70 学时六、实习（实训）纪律及注意事项6 教师管理：1、教师要准时到达实习岗位，每次签到时必须掌握学生的出勤情况。2、教师要对每个学生的出勤情况认真记载，严格管理。3、指导教师负责组织协调，实习工作中的出现的问题，及时请示汇报。4、在实习期间，教师要认真指导学生，安排具体实习内容，并对每一天的实习任务都要进行有针对性的给予指导。5、实习结束后、对学生的实习成绩进行评定，装入学生档案。学生管理：1、学生要按时到达实习地点、不准离开实习岗位。特殊情况要向带队教师请假。2、要严格遵守实践实习的有关规定3、要在每天的实践实习中认真填写日记、报告。4、每天必须签到，离开时必须签退。七、考核办法及标准本阶段实习成绩由三部分构成：出勤10%、实习日记报告 20%、实践制做的作业 70%。实训一窗体设计1、实习实训目的了解窗体的建立，在窗体上添加控件，以及设置控件的属性和方法。2、实习实训内容（如图）7 在窗体上添加文本框和列表框和一个命令按钮把列表框的名命名为L1，文本框的名命名为T1，命令按钮的名命名为 C1 3、实习实训步骤建立窗体在窗体上添加控件修改控件的属性4、注意事项首先建立窗体，在、然后在窗体上添加控件。5、作业题实训二程序填空1、实习实训目的了解程序的结构，语句的格式，基本语句。8 2、实习实训内容例 1.该程序通过FOR 循环计算一个表达式的值，这个表达式是：1/2+2/3+3/4+4/5，请在横线上填入正确的内容.Private Sub Command1_Click()Dim 空 1 As Double,x As Double Dim n As Long Dim i As Integer sum=空 2 n=0 For i=1 To 5 x=n/i n=n+1 sum=空 3 Next Form1.Print Sum End Sub3、实习实训步骤定义变量循环程序结构基本语句4、注意事项变量的类型，语句的格式，基本语句的书写。5、作业题打印出 100-999 之间的所有水仙花数，如果一个数的百位，十位，9 个位数的立方和等于这个数本身，则这个数为水仙花数请在横线处填入正确的内容。Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer Dim i As Integer For i=100 To 空（1）a=int(i/空（2）)b=Int(i-100*a)/10)c=i-100*a-空（3）If a*a*a+b*b*b+c*c*c=i Then Print i End If Next i End Sub 实训三程序改错1、实习实训目的了解程序的结构，语句的格式，基本语句，前后语句之间的关系。2、实习实训内容1、随机产生 n 个两位正整数（n 由输入对话框输入，且n0),求出其中的偶数之和，并在标签框label1上显示。注意：不可增加或删除程序行，也不可更改程序结构。10 Private Sub Command1_Click()Dim n As Integer Dim i As Integer,sum As Long,rnddat As Integer n=Val(InputBox(please input a integer,input N value)sum=n *错误 1*If n 0 Then For i=1 To n rnddat=Int(90*Rnd)*错误 2*Me.Print rnddat;If rnddat/2=0 Then*错误 3*sum=sum+rnddat End If Next i Label1.Caption=sum End If End Sub 3、实习实训步骤分析题义语句间的关系程序结构4、注意事项变量的类型，语句的书写格式，语句间的关系，基本语句的书写。5、作业题1）、在下列程序段中，过程fb 可以显示长度的菲波那契数列，现11 在要求通过键盘输入一数字，利用该过程显示不超过指定数字大小的数列。注意：不可删除和增加程序行，也不可更改程序结构。Private Sub Command1_Click()Dim x As Integer x=Val(InputBox(请指定显示范围)Call fb y *错误 1*End Sub Public Sub fb(x As Integer)Dim i%,j%,k%j=1 i=1 Print i;j;k=i+j Do While k x *错误 2*Print k;i=j j=k k=i-j *错误 3*Loop End Sub 12 实训四编写程序1、实习实训目的了解程序的结构，编写程序的基本方法，基本语句，分析题义，建立数学模型。2、实习实训内容1）、求 S=1+2+3+10之和。分析：求和，给一个求和变量S，在没求之前其值为0；是连续求和，并且后面的值都是比前一个值多1，这种规律的方法需要用循环语句来完成。建立数学模型：s=s+I,i是项数，是后一项，是变化的。Private Sub Command1_Click()Dim s As Integer Dim i As Integer s=0 For i=1 To 10 S=s+i Next i Print s End Sub 3、实习实训步骤分析题义建立数学模型（s=s+i）编写程序4、注意事项定义变量的类型，语句的书写格式，语句间的关系，基本语句的书13 写。5、作业题1）、求 S=1+1/2+1/3+1/10 之和。
