VB程序设计实验报告44104.docVIP

齐齐哈尔大学计算中心 实 验 报 告 课程名称：Visual Basic程序设计 实验项目：Visual Basic程序设计综合实验 实 验 室： 15教406（九室） 实验台号： 45 班 级： 姓 名： 实验日期： 2007 年 7 月 1 日 实验目的： 利用VB控件、流程控制、数组、文件等知识解决一个具体问题，从而初步达到综合应用VB语言的能力。 实验仪器及器材： 硬件：CPU: P4 2.80GHz 硬盘80GB RAM 256KB 软件：Windows XP Visual Basic 6.0 中文版 实验内容（程序清单、算法或框图） 一、程序功能简介 该程序是一个计算机考试成绩与成绩计算的程序，包括封面的一个用户菜单界面，一个登陆系统，一个计算机考试成绩的文件，以及一个考试成绩计算系统。 用户菜单带有下拉列表，能够更方便，直观的访问其他系统。登陆界面能检验用户登陆是否正确，并可以删除错误信息，提示用户操作，并且能够进入下一个系统。计算机考试成绩的数据项包括学号，姓名，计算机基础，VB成绩，能够储存数据，并能按学号或姓名检索成绩。成绩计算系统包括数据的输入，运算和输出，可以在界面上显示出运算结果。 二、程序清单 登陆系统： 窗体设置如下图 程序代码如下： Private Sub Command1_Click()Dim i As Integer If Text2.Text = 062 Theni = MsgBox(欢迎您登陆，请点击登陆按钮)Elsei = MsgBox(密码错误 , 5 + vbExclamation, 输入密码)End IfIf i = 2 ThenEndElseText2.Text = Text2.SetFocusEnd IfEnd Sub Private Sub Command2_Click()Form1.HideForm2.ShowEnd Sub 计算机成绩系统： 窗体设置如下图 模块代码如下： Type personno As String * 6name As String * 10score1 As Singlescore2 As SingleEnd TypePublic student As personOption ExplicitDim length As Long, num As LongDim filenum As Integer 程序代码如下： Private Sub command1_Click()Dim i As Integernum = LOF(filenum) / length + 1If Text1.Text = And Text2.Text = And Text3.Text = And Text4.Text = Then MsgBox 无输入数据, , 输入数据ElsePut #filenum, num, studentText1.Text = Text2.Text = Text3.Text = Text4.Text = End IfEnd Sub Private Sub command2_click()Dim readnum As Longreadnum = 0CloseIf Text1.Text = ThenMsgBox 请输入学号, , 输入学号Text1.SetFocusElse Open c:\temp\学生成绩 For Random As filenum Len = lenthSeek #filenum, 1Do While Not EOF(filenum) And readnum LOF(filenum) / lengthreadnum = readnum + 1Get #filenum, readnum, studentIf RTrim(student.no) = RTrim(Text1.Text) ThenText2.Text = student.nameText3.Text = student.score1Text4.Text = student.score2End IfLoopEnd IfClose #filenum End Sub Private Sub command3_click()Dim readnum As LongCloseIf Text2.