2012年计算机二级VB上机试题及解题思路第42套

　　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文件并运行。

　　相关推荐：

　　2012年计算机等考四级数据库工程师备考笔记汇总

　　2012年计算机等级考试二级VB重点知识汇总

　　2012年下半年计算机等级考试报名时间及入口汇总