在考生文件夹下有一个工程文件sjt5.vbp，其中含3个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上的按钮时将弹出对应窗体以进行注册和登录。
注册信息放在全局数组users中，注册用户数(最多10个)放在全局变量n中(均已在标准模块中定义)。
注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应的错误信息。
标准模块中函数finduser()的功能是：在users数组中搜索用户名(即参数ch)，找到则返回该用户名在users中的位置，否则返回0。
已经给出了所有控件和程序，但程序不完整，在Form2、Form3窗体文件中的横线处填写正确的内容。
注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。
[题目提供的源程序]
1．标准模块源程序
Option Base 1
Public users(10,2) As String
Public n As Integer
Public Function finduser(ch As String) As Integer
For k=1 To 10
If users(k,1)=ch Then
finduser=k
Exit Function
End If
Next k
finduser=0
End Function
2．Form1源程序
Private Sub Command1_Click()
Form2.Text1=""
Form2.Text2=""
Form2.Text3=""
Label1.Caption=""
Form2.Show
End Sub
Private Sub Command2_Click()
Form3.Text2=""
Label1.Caption=""
Form3.Show
End Sub
3．Form2源程序
Private Sub Command1_Click()
Text1=""
Text2=""
Text3=""
End Sub
Sub writeusers()
n=n+ (1)
users(n,1)=Text1
users(n,2)=Text2
End Sub
Private Sub Command2_Click()
If Text1="" Then
MsgBox("必须输入用户名!")
Text1.SetFocus
ElseIf finduser(Trim $ (Text1))＞ (2) Then
MsgBox("此用户名已经存在!")
ElseIf Text2＜＞Text3 Then
MsgBox("口令验证错误!")
Else
writeusers
(3) ="注册成功!"
Form2.Hide
End If
End Sub
4．Form3源程序
Private Sub Command1_Click()
k=finduser(Trim $ (Text1))
If k= (4) Then
MsgBox("没有注册!")
ElseIf Trim $(Text2) ＜＞ users( (5) ) Then
MsgBox("口令错误!")
Else
Form1.Label1.Caption="登录成功!"
Form3.Hide
End If
End Sub
