3. 综合应用（1小题，计30分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　在考生文件夹下有一个工程文件sjt5.vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。

　　注册信息放在全局数组users中，注册用户数（最多10个）放在全局变量n中（均已在标准模块中定义）。

　　注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。

　　标准模块中函数finduser的功能是：在users数组中搜索用户名（ 即参数ch），找到则返回该用户名在users中的位置，否则返回0。

　　已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的改为正确的内容。

　　注意：

　　不得修改已经存在的程序和控件的属性；最后，程序按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，并打开窗体文件sjt52.frm。

　　由于所提供的窗体控件不完整，在“确定”按钮的Private Sub Command2_Click()事件过程中，有二处地方需要修改。

　　1) 将语句

　　’ElseIf finduser(Trim$(Text1)) > ? Then

　　改为

　　ElseIf finduser(Trim$(Text1)) > 0 Then

　　2) 将语句

　　’? = "注册成功！"

　　改为

　　Form1.Label1 = "注册成功！"

　　在Sub writeusers()事件过程中，有一处地方需要修改。

　　1) 将语句

　　’n = n + ?

　　改为

　　n = n + 1

　　打开窗体文件sjt53.frm。

　　由于所提供的窗体控件不完整，在“登录”按钮的Private Sub Command1_Click()事件过程中，有二处地方需要修改。

　　1) 将语句

　　’If k = ? Then

　　改为

　　If k = 0 Then

　　2) 将语句

　　’ElseIf Trim$(Text2) <> users( ? ) Then

　　改为

　　ElseIf Trim$(Text2) <> users(k, 2) Then

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt5.vbp、sjt51.frm、sjt52.frm、sjt53.frm、sjt5.vbw

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt5.vbp文件并运行。