vb能力拓展训练

《vb能力拓展训练》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、附件1:学号：课程设计题目学院专业班级姓名指导教师附件2：课程设计任务书学生姓名：专业班级：指导教师：工作单位：题目：初始条件：自设一个班的某门课学生成绩（0~100分），设计该班的成绩查良、中、及找及统计程序，显示最高分、最低分、平均分，计算优、格、不及格学生数及所占比例。要求完成的主要任务：（包括课程设计工作量及其技术要求，以及说明书撰写等具体要求）（1）学习并掌握VisualBasic程序设计语言；（2）应用VB软件开发工具完成指定题目的编程设计;（3）完成能力拓展训练总结报告。时间安排:指导教师签名:系主任（或责任教师）签名:总结报告1.程序设计分析及流程图1.1程序设计分析设计一个班

2、的某门课学生成绩如下表:姓名工程材料成绩汪俊87任坤84赵晖文77罗启进86黄瑜87杨建新82张轩85付航82李相超80成军伟84熊小双94朱关伟83邓广新86李牧野91胡建龙79高凡82胡学术86周啸尘86杨冰77王珏71王明勇89谢迪93宋小伟86陈露85聂臻83周光华89鲍婷82董丽影96任爱萍90安丛雪82冉凤霞83李慧85伍梦琪90郑媛媛88秦慧琳84王慧89设计分析为便于查找，通过二维数组CX建立姓名与控制成绩对照表。数组ex由Form_Load事件过程来建立，它的每一行存放了一个学生的姓名与对应的控制成绩。首先判断第一行中的姓名与所要査询的姓名是否相同，若相同则第一行对应的成绩

3、即为所求。若不相同，则继续往下查找直至找到相对应的姓名，则该行中的相应成绩即为所求。至于统计学生中的最高分与最低分可以先给最大值与最小值设定相同的初值然后利用For循环与后面各项进行比较，当最大值小于后面的值时，将其值赋于最大值，同理，当最小值小于后面的值时，将其值赋于最小值。直至循环执行完毕，即可找出所要的最大值与最小值。至于计算优、良、中、及格、不及格学生数及所占比例。可以设定成绩＞=90为优秀，80v二成绩＜90为良好，70v二成绩＜80为中等，60v二成绩V70为及格，其它为不及格。可以利用For循环与Elseif语句相结合实现选择的目的判断优、良、中、及格、不及格的人数，将人数与总人

4、数相除即是优、良、中、及格、不及格所占的比例。求平均分可以利用For循环，先将总分设定一个初值为0,然后将其与各个学生的成绩相加即可以将所有的的总分算出来，然后将总分除以总人数即是所要求的平均分。1.2程序流程图功能说明：首先在文本框Textl输入姓名，单击“查找”按Comniandl),将会在文本框Text2中显示对应学生的控制成绩。单击“统计”按钮(Command2),将会在文本框Text3,Text4,Text5,Text6,Text7,Text8,Text9,Text10,Textl1,Textl2,Text13,Textl4,Textl5中分别显示最高分、最低分、平均分、优秀人数、优

5、秀率、良好人数、良好率、中等人数、中等率、及格人数、及格率、不及格人数、不及格率。当单击“结束”按钮，则退出程序。査找程序统计程序开始max=cx(l,2),min二cx(l,2),total=0,i=l2.1编写程序代码并解释Dimcx(lTo36,1To2)AsVariant，输入数组数据，一个存放一个学生信息PrivateSubForm_Load()cx(l,1)=“汪俊”:cx(l,2)=87cx(2,l)=n任坤”:cx(2,2)=84cx(3,1)=“赵晖文”：cx(3,2)=77cx(4,1)=“罗启进”:cx(4,2)=86cx(5,1)=“黄瑜”：cx(5,2)=87cx(6

6、,1)=“杨建新”：cx(6,2)=82cx(7,1)=“张轩”:cx(7,2)=85ex(&1)=“付航”：ex(&2)=82cx(10,2)=84cx(l1,2)=94cx(12,2)=83cx(13,2)=86cx(14,2)=91cx(15,2)=79cx(9,1)=”李相超”:cx(9,2)=80cx(10,1)二”成军伟“cx(ll,1)=M熊小双“cx(12,1)二”朱关伟“cx(13,1)二”邓广新“cx(14,1)二”李牧野“cx(15,1)二”胡建龙“cx(16,1)=“高凡“：cx(16,2)=82cx(17,1)=”胡学术“:cx(17,2)=86cx(l&1)二”周啸

7、尘“:cx(l&2)=86cx(19,1)二”杨冰“:cx(19,2)=77cx(20,1)=”王珏“：cx(20,2)=71cx(21,1)=”王明勇n:cx(21,2)=89cx(22,1)=”谢迪“:cx(22,2)=93cx(23,1)=”宋小伟”:cx(23,2)=86cx(24,1)=”陈露”:cx(24,2)=85cx(25,1)=”聂臻“:cx(25,2)=83cx(26,1)=”