问答题 在考生文件夹下有一个工程文件sit5.vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数（最多10个）放在全局变量n中（均已在标准模块中定义）。注册时用户名不能重复，且“口令”与“验证口令”须相同，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。标准模块中函数finduser的功能是：在users数组中搜索用户名（即参数ch），找到则返回该用户名在users中的位置，否则返回0。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的？改为正确的内容。注意：不得修改已经存在的程序和控件的属性。最后，程序按原文件名存盘。
【正确答案】无
【答案解析】①打开本题工程文件。　　②分析并编写程序代码。程序提供代码如下：
　　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
　　Form2
　　Private Sub Command1_Click()
　　Text1=""
　　Text2=""
　　Text3=""
　　End Sub
　　Sub writeusers()
　　′n=n+?
　　users(n,1)=Text1
　　users(n,2)=Text2
　　End Sub
　　Private Sub Command2_Click()
　　If Text=""Then
　　MsgBox("必须输入用户名！")
　　Text1.SetFocus
　　′ElseIf finduser(Trim＄(Text1))>?Then
　　MsgBox("此用户名已经存在！")
　　ElseIf Text2<>Text3 Then
　　MsgBox("口令验证错误!")
　　Else
　　writeusers
　　′?="注册成功"
　　Form2.Hide
　　End If
　　End Sub
　　Form 3
　　Private Sub Command1_Click()
　　k=finduser(Trim＄(Text1))
　　′If k=?Then
　　MsgMox("没有注册！")
　　′ElseIf Trim＄(Text2)<>users(?)Then
　　MsgBox("口令错误！")
　　Else
　　Form1.Lable1.Caption="登录成功！"
　　Form3.Hide
　　End If
　　End Sub
　　程序结束
　　【参考答案】
　　Form2中第1个？处：1
　　Form2中第2个？处：0
　　Form2中第3个？处：Form1.Label1
　　Form3中第1个？处：0
　　Form3中第2个？处：k，2
　　③调试并运行程序，关闭程序后按题目要求存盘。