2011级VB上机实习题.docx

2011级VB上机实习题

第一篇：2011级VB上机实习题一、用记事本新建一个文本文件，将本班的M名学生在本学期的N门考试课的成绩（要求用假想分数，并要求将自己的每门课的分数定在96分以上，放在第一列；而将别人的大多数课程的分数都定在96分以下）输入到这个文件中,建议按如下形式存放(注：20≤M≤50、5≤N≤8，下文以M=4,N=3为例):学号姓名英语VB数学1我自已9698992李某9196673王某7558564赵某586777二、将本学期的N门课程及其学分(16学时为1个学分)输入到另一个数据文件（文件类型同上题）中，建议如下列形式存放：编号课程名称课程学分1英语5.02vb程序设计43数学4.5三、请编写一个简单的学生成绩管理程序,要求完成以下功能:1)根据以上两文件内容分别计算每个学生N门课的加权平均分（保留2位小数，4舍5入）,按平均分排列名次，平均分相同则名次并列，如第1、2、2、4、5、5、7…名。用VB创建一个数据文件，存放班级的成绩表，建议按以下形式存放。学号姓名英语C程序设计数学平均成绩名次1张某76898980.522李某91966778.233王某75585688.814赵某58677768.542)分别统计全班每门课的平均分，并计算各分数段（60分以下；60～69；70～79；80～89；90分以上）的学生人数。用VB创建一个新的数据文件，在该文件中存放数据的格式如下：范围.英语VB......>=9035.......80-891012....................................3)打印每名学生成绩条（并将结果存放到用VB创建的一个新的数据文件中）。4)打印所有存在不及格课程学生的名单（含学号、不及格课程名称、课程的学分及成绩）。5)打印优等生名单（学号、Ｎ门课成绩、平均分名次）优等生条件：a)平均分90分b)名次在本班位于前三名c)平均分85分，并且有二门课的成绩都95分选做内容：打印每门课成绩分布图说明：所有输出结果应写入用VB创建的文件中，格式要整齐，并有适当的文字说明。实习报告要求：应包括分析设计与说明、部分过程（函数）的源程序清单、程序调试过程中遇到的问题及解决方法，有待改善或改进的意见，对本次实习的意见与建议、收获等。其中原始数据及程序运行的结果应作为附录附于实习报告之后。第二篇：VB上机考试习题以及答案VB上机考试1、利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。Dima(1To5,1To5)PrivateSubForm_Click()RandomizeFori=1To5Forj=1To5a(i,j)=Int(Rnd*(99910+1)+10)Printa;s=s+aNextiPrintAvg=s/25PrintAvgEndSub3、在窗体上按下鼠标的右键，记录其坐标。PrivateSubForm_Load()Label1.BorderStyle=1Label1.Alignment=2EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenLabel1.Caption=X&“,”&YEndIfEndSub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dima(1To25)PrivateSubForm_Click()ClsFori=1To25a(i)=Int(Rnd*(991Forj=1To251+1)+1)a(x)=a(x)+1NextjFori=1To6Printi&“出现了”&a(i);“次”NextiEndSub6、在文本框中输入一些英语单词，统计空格的个数。Dimn%,xAsString,s%PrivateSubForm_Click()n=Len(Text1.Text)x=Text1.TextFori=1TonIfMid(x,i,1)=“”Thens=s+1NextiPrint“共出现了”&s&“个空格”EndSub7、编程计算下列公式的值，其中n(10、用For…Next语句编程，双击窗体后，在屏幕上显示如图：PrivateSubForm_DblClick()Fori=1To3PrintTab(113*i);Forj=1To5Printx;NextjPrintNextiEndSub12、从文本框输入一个正整数，判断该数是否为素数。DimaAsLongPrivateSubForm_Click()a=Val(Text1.Text)Ifa=2ThenTag=TrueElseIfaMod2=0ThenTag=FalseElseTag=TrueFori=3T