西北农林科技大学 vb实习作业.docx

西北农林科技大学vb实习作业

第一篇：西北农林科技大学vb实习作业第五章(1)例5-2PrivateSubCommand1_Click()Dimsum!,n%,aver!sum=0n=0x=Val(InputBox(“请输入”))DoWhilex-9999sum=sum+xn=n+1x=Val(InputBox(“请输入”))Loopaver=sum/nMsgBox“共输入”&n&“个数,平均值为:”&averEndSub(2)例5-3PrivateSubCommand1_Click()Dima%(65To90),cAsString*1le=Len(Text1)Fori=1Tolec=UCase(Mid(Text1,i,1))Ifc>=“A”Andc0ThenPicture1.Print“";Chr(j);”=“;a(j);”“;NextjEndSub(3)例5-4PrivateSubCommand1_Click()Dima$()Dimx(0To10)AsIntegera=Split(Text1,”,“)Fori=oToUBound(a)If(a(i)0)Thenk=a(i)10x(k)=x(k)+1EndIfNextiPrintPrint”100分的有:“&x(10)&”人“Fori=9To0Step-1Printi*10&”分-“;i*10+9&;”分有:“&x(i)&”人“NextiEndSubPrivateSubCommand2_Click()EndEndSub(4))输入多名学生的一门课程成绩（成绩用数组存放，要求成绩用文本框输入），统计0-59、60-69、70-79、80-89、90-100个分数段人数。PrivateSubCommand1_Click()Dima$()Dimx(0To10)AsIntegera=Split(Text1,”,“)Fori=oToUBound(a)If(a(i)0)Thenk=a(i)10x(k)=x(k)+1EndIfNextiPrintPrint”90-100分的有:“&x(10)+x(9)&”人“Fori=8To6Step-1Printi*10&”分-“;i*10+9&;”分有:“&x(i)&”人“NextiFori=0To5s=x(i)+sNextiPrint”0-59分的有“&s;”人“EndSub(5)例5-6(用穷举法、辗转相除法两种方法)PrivateSubCommand1_Click()Dimm%,n%m=Val(InputBox(”请输入第一个数m:“))n=Val(InputBox(”请输入第二个数n:“))Ifm(10)用选择法对10个学生成绩实现从低到高排序(11)例5-12(12)第3题(13)第4题(14)第5题(15)第7题(16)第8题(17)第11题第二篇：西北农林科技大学西北农林科技大学热能与动力工程(本科类)热能与动力工程专业学制四年，毕业授予工学学士学位。本专业培养具备水利水电动力工程学科的基本理论、基本知识和基本技能，受到现代水利水电动力工程师的基本培养和训练，系统掌握水利水电动力工程的基本知识与相关的工程技术、工程经济和工程管理知识的高级工程技术人才。主干学科：动力工程相关学科：水利工程、电气工程主干课程：理论力学、材料力学、工程流体力学、机械设计基础、电路、电子技术基础、电机与拖动、微机原理及应用、水力机械、电气设备、发电厂电气部分等。就业方向及深造：毕业后能在水利、水电、供水等部门从事机电设备及动力工程的设计、选型、安装、调试、运行、管理和实验研究等方面工作。优秀毕业生可推荐或报考我院8个博、硕士学位授权点继续深造，也可推荐或报考国内外院校博、硕士研究生。木材科学与工程(本科类)木材科学与工程专业学制四年，毕业授予工学学士学位。本专业培养具有木材科学与工程的基本理论、基本知识和基本技能的高级科技人才。熟悉木材物理化学、电工电子技术、机械基础、造型艺术等方面理论知识。具有木材及木质复合材料加工和设备选型的基本技能及经营、管理能力。（该专业设有家具与室内设计方向）主干学科：林业工程相关学科：机械工程主干课程：图学基础与计算机绘图、木材学、工程力学、胶合材料学、机械基础、电工电子技术、木工机械、造型设计原理、制材学、木材干燥学、木制品生产工艺学、人造板生产工艺学、家具设计等。就业方向与深造：毕业后能在木材工业、家具制造业、室内装修工程等领域从事木材加工、家具设计制造、室内装修、装修工程的研究开发工作。优秀毕业生可以推荐或报考木材科学与技术专业硕士点继续深造，也可以推荐与国外院校联合培养、出国深造。机械设计制造及其自动化(本科类)机械设计制造及其自动化专业学制四年，毕业授予工学学士学位。本专业培养具有机械设计制造及其自动化学科的基本理论、基