2. 计算机
  3. 在考生文件夹下有一个工程文件vbsj5.vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，如图1－329所示，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users 中，注册用户数（最多10个）放在全局变

在考生文件夹下有一个工程文件vbsj5.vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，如图1－329所示，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users 中，注册用户数（最多10个）放在全局变

admin2019-01-16  32
问题 在考生文件夹下有一个工程文件vbsj5.vbp，含三个窗体，标题分别为“启动”、“注册”、“登录”，运行时显示“启动”窗体，如图1－329所示，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users 中，注册用户数（最多10个）放在全局变量n中（均已在标准模块中定义）。注册时用户名不能重复，且“口令”与“验证口令”须相同，如图1－330所示，注册成功则在“启动”窗体的标签中显示“注册成功”，否则显示相应错误信息。登录时，如图1－331所示，检验用户名和口令，若正确，则在“启动”窗体的标签上显示“登录成功”，否则显示相应错误信息。标准模块中函数finduser 的功能是：在 users数组中搜索用户名（即参数ch），找到则返回该用户名在users 中的位置，否则返回0。已经给出了所 有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的“?”改为正确的内容。

     注意：不得修改已经存在的程序和控件的属性；最后，程序按原文件名存盘。
    程序源码：
    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
    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 Text1 ＝ "" Then
    MsgBox ("必须输入用户名！")
    Text1.SetFocus
    ’    ElseIf
    finduser(Trim$(Text1)) > ? Then
    MsgBox ("此用户名已经存在!")
    ElseIf Text2 ＜＞ Text3 Then
    MsgBox ("口令验证错误!")
    Else
    writeusers
    ’    ?  ＝ "注册成功！"
    Form2.Hide
    End If
    End Sub
    Private Sub Command1_Click()
    k ＝ finduser(Trim$(Text1))
    ’    If k ＝ ? Then
    MsgBox ("没有注册！")
    ’    ElseIf Trim$(Text2) ＜＞
    users( ? ) Then
    MsgBox ("口令错误！")
    Else
    Form1.Label1.Caption ＝ "登
    录成功！"
    Form3.Hide
    End If
    End Sub
    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
选项
答案【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： ’---注册窗体Form2－ n = n + 1 ElseIf finduser(Trim$(Text1)) > 0 Then Form1.Label1.Caption = "注册成功！" ’---登录窗体Form3－ If k = 0 Then ElseIf Trim$(Text2) <> users(k, 2) Then 步骤2：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/luFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)