vb实习(实训)指导书

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