vb程序设计实验报告57947

vb程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 实验 报告 软件系统测试报告下载sgs报告如何下载关于路面塌陷情况报告535n,sgs报告怎么下载竣工报告下载 57947 齐齐哈尔大学计算中心 课程名称: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" Then i = MsgBox("欢迎您登陆，请点击登陆按钮") Else i = MsgBox("密码错误 ", 5 + vbExclamation, "输入密码") End If If i = 2 Then End Else Text2.Text = "" Text2.SetFocus End If End Sub Private Sub Command2_Click() Form1.Hide Form2.Show End Sub 计算机成绩系统: 窗体设置如下图 模块代码如下: Type person no As String * 6 name As String * 10 score1 As Single score2 As Single End Type Public student As person Option Explicit Dim length As Long, num As Long Dim filenum As Integer 程序代码如下: Private Sub command1_Click() Dim i As Integer num = LOF(filenum) / length + 1 If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" And Text4.Text = "" Then MsgBox " 无输入数据", , "输入数据" Else Put #filenum, num, student Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End If End Sub Private Sub command2_click() Dim readnum As Long readnum = 0 Close If Text1.Text = "" Then MsgBox "请输入学号", , "输入学号" Text1.SetFocus Else Open "c:\temp\学生成绩" For Random As filenum Len = lenth Seek #filenum, 1 Do While Not EOF(filenum) And readnum < LOF(filenum) / length readnum = readnum + 1 Get #filenum, readnum, student If RTrim(student.no) = RTrim(Text1.Text) Then Text2.Text = student.name Text3.Text = student.score1 Text4.Text = student.score2 End If Loop End If Close #filenum End Sub Private Sub command3_click() Dim readnum As Long Close If Text2.Text = "" Then MsgBox "请输入姓名", , "输入姓名" Text1.SetFocus Else Open "c:\temp\学生成绩" For Random As filenum Len = length Seek #filenum, 1 Do While Not EOF(filenum) And readnum < LOF(filenum) / length readnum = readnum + 1 Get #filenum, readnum, student If RTrim(student.namme) = RTrim(Text2.Text) Then Text1.Text = student.no Text3.Text = student.score1 Text4.Text = student.score2 End If Loop End If Close #filenum End Sub Private Sub command4_click() Close #filenum End End Sub Private Sub form_load() filenum = FreeFile length = Len(student) Open "c:\temp\学生成绩" For Random As filenum Len = length End Sub Private Sub text1_change() student.no = Text1.Text End Sub Private Sub text2_change() student.name = Text2.Text End Sub Private Sub text3_change() student.score1 = Val(Text3.Text) End Sub Private Sub text4_change() student.score2 = Val(Text4.Text) End Sub 成绩计算系统 窗体设置如下图: 程序代码如下: Private Sub Command1_Click() Dim no%, c1%, c2%, c3%, i As Integer Open "c:\2.text" For Output As #1 For i = 1 To 5 no = InputBox("请输入学号") c1 = InputBox("请输入数学成绩") c2 = InputBox("请输入语文成绩") c3 = InputBox("请输入外语成绩") Write #1, no, c1, c2, c3 Next i Close #1 Open "c:\2text" For Input As #1 For i = 1 To 5 Print #1, no, c1, c2, c3, c1 + c2 + c3, (c1 + c2 + c3) / 3 Next i Close #1 End Sub Private Sub Command2_Click() End End Sub 用户菜单的MDI窗体 窗体设置如下图: 程序代码如下: Option Explicit Private Sub e_Click() Form2.Show End Sub Private Sub r_Click() Form3.Show End Sub Private Sub t_Click() End End Sub Private Sub w_Click() Form1.Show End Sub 实验数据记录: 程序运行时的记录大致入下几个图片: 用户界面: 登陆界面: 当出现密码错误情况， 计算机成绩系统: 成绩计算系统: 结果讨论: 此程序是一个多程窗体程序，窗体运行采用的是Show方法，它有加载和显示窗体两种功能。也就是说，在执行Show时，如果窗体不在内存中，则Show自动把窗体装入内存，然后再显示出来。其形式如下: <窗体名称>.Show<模式> 在设置登陆界面的时候，Text的MaxLength属性要从默认的0改成6或略微打点的数。Text2的PasswordChar的属性改为“*”，则输入字符时就会显示成“*”，如果改成“9”，假如你输入密码“062”，就会显示成“999”。 进入下一个系统时Form1用了Hide方法，该方法用来将窗体暂时隐藏起来，但并没有从内存中删除。其形式如下: <窗体名称.>Hide 在登陆系统，运行时，如果密码输入错误，会提示，如果此时点“重试”按钮，文本框里的文字会被删除，采用的代码是“ Text2.Text = "" ” ""l里面没有数字，则文本框被清空。 ,,处理文件有很多种方法，即可以直接读写文件，同时又提供了大量与文件管理有关的语句和函数。 在数据处理时，经常是数组和循环语句结合使用。数组必须先声明后使用，声明数组名，类型，维数和组数大小。在指定条件下多次重复执行一组语句，可以通过循环结构实现。 指导教师评语: 总分: 签字: 年 月 日