VB上机实践系统.docVIP

VB上机实践系统 综合设计分工及小组成员： 邓宇杰：负责Form1的编写以及总结的起草。 葛金星（组长）：整体框架的搭建和Form3的编写。 蒋金星：Form2的编写和整个程序的美化。 刘海：Form4的编写和资料的收集。 王果：Form5的编写和资料的收集。 问题概述 由于受到上学期计算机期末考试系统的启发，我们小组经研究决定也开发一个类似的系统。VB试题库应运而生。该程序一共包含了一个登录窗体，五个普通窗体。Form1到Form5分别是目录窗体、注册窗体、答题窗体，成绩显示窗体和参考答案窗体。此外还有一个定义变量的模块。 问题分析 由于我们要做的是一个个人试题库，所以我们首先就想到了需要一个登陆个人帐号和密码的窗体。完成以后，便进入了答题的阶段。我们把试题分成单选题和填空题两种题型，还分别划出了变量、控制结构、数组和过程四个章节，以便能系统的做题。点击开始答题，程序便开始计时。在给出答案方面，我们决定在程序外部建立几个TXT格式的文档存放参考答案，经程序调用，可以在参考答案窗体中显示。结束答题以后，成绩显示窗体会弹出答对的题目数，并给出评估。点击菜单栏上的参考答案或右键单击答题框，可以选择需要的参考答案。 功能模块描述及功能模块图 标准模块：定义全局变量和数组。 源程序清单 登录窗体 代码： Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() Dim a As Boolean Dim b As Boolean Dim c As Boolean Dim i As Integer Close Open App.Path + yonghu.txt For Random As #1 Len = Len(pass) i = LOF(1) / Len(pass) For j = 1 To i Get #1, j, pass If Trim(txtUserName) = Trim() Then If Trim(txtPassword) = Trim(pass.code) Then a = True Exit For End If End If Next If a Then Form1.Show Unload frmLogin Else MsgBox (输入信息有误，请重新输入。) txtUserName = txtPassword = txtUserName.SetFocus End If Close End Sub Private Sub Command1_Click() form2.Show frmLogin.Hide End Sub Form1 代码： Dim tim As Long Dim i As Long Dim daan1 As String Dim daan2 As String Private Sub bianliang() Close Open App.Path 变量单选.txt For Input As #1 Text3 = Text4 = Do While Not EOF(1) Line Input #1, str1 Text3 = Text3 + str1 + vbCrLf Loop Open App.Path 变量填空.txt For Input As #2 Do While Not EOF(2) Line Input #2, str2 Text4 = Text4 + str2 + vbCrLf Loop End Sub Private Sub shuzu() Close Open App.Path 数组单选.txt For Input As #3 Text3 = Text4 = Do While Not EOF(3) Line Input #3, str3 Text3 = Text3 + str3 + vbCrLf Loop Open App.Path 数组填空.txt For Input As #4 Do While Not EOF(4) Line Input #4, str4 Text4 = Text4 + str4 + vbCrLf Loop End Sub Private Sub kzjg() Close Open App.Path 控制结构单选.txt For Input As #5 Text3 = Text4 = Do While Not EOF(5) Line Input #5, str5 Text3 = Text3 + str5