首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体,标题分别为“启动”、“注册”、“登录”,运行时显示“启动”窗体,单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中,注册用户数(最多10个)放在全局变量n中(均已在标准模块中
在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体,标题分别为“启动”、“注册”、“登录”,运行时显示“启动”窗体,单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中,注册用户数(最多10个)放在全局变量n中(均已在标准模块中
admin
2020-06-30
40
问题
在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体,标题分别为“启动”、“注册”、“登录”,运行时显示“启动”窗体,单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中,注册用户数(最多10个)放在全局变量n中(均已在标准模块中定义)。
注册时用户名不能重复,且“口令”与“验证口令”须相同,注册成功则在“启动”窗体的标签中显示“注册成功”,否则显示相应错误信息。登录时,检验用户名和口令,若正确,则在“启动”窗体的标签上显示“登录成功”,否则显示相应错误信息。标准模块中函数finduser的功能是:在users数组中搜索用户名(即参数ch),找到则返回该用户名在users中的位置,否则返回0。已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把Form2、Form3窗体文件中的“?”改为正确的内容。
注意:不得修改已经存在的程序和控件的属性,最后程序按原文件名存盘。
选项
答案
步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: ’---注册窗体Form2- n=n+1 Else If finduser(Trim$(Text1))>0 Then Form1.Label1.Caption="注册成功!" ’----登录窗体Form3- If k=0 Then Else If Trim$(Text2)<>users(k,2)Then 步骤2:按要求将文件保存至考生文件夹中。
解析
本题源程序在“注册”窗体的“确定”按钮的单击事件过程中,先判断是否输入用户名,若没有输入则弹出提示信息,否则通过调用标准模块中的finduser函数,检查输入用户是否存在于users数组中(条件表达式为:finduser(17rim$(Text1))>0),若该用户存在则弹出提示信息,否则进一步检查前后两次输入的密码是否一致,若前后不一致则弹出提示信息,否则通过调用过程writeusers将该用户名及密码写入数组user。s中,并在“启动”窗体的标签(Form1.Label1)中显示“注册成功”。每调用一次过程writeusers,全局变量n将记录新增一个用户,即n=n+1。
在“登录”窗体的“登录”按钮的单击事件过程中,通过调用标准模块中的finduser函数,检查输入用户是否存在于users数组中,若不存在(条件表达式为:k=0)则弹出提示信息,否则进一步检查该用户的密码输入是否正确(条件表达式为:Trim$(Text2)<>users(k,2)),若不正确则弹出提示信息,否则在“启动"窗体的标签(Form1.Label1)中显示“登录成功”。
转载请注明原文地址:https://kaotiyun.com/show/6nHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下叙述中错误的是( )。
下列关于算法复杂度叙述正确的是
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:PrivateSubCommand1_Click() s=0 Fori=1To15 x=2*i-1 IfxMod
有一个数列,第一个数和第二个数分别为0和1,其后每一个数均为前两个数之和。下面是输出该数中小于10000的最大数的程序:PrivateSubForm_Click()a=0b=0DoWhileb>10000
数据库系统的三级模式不包括( )。
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是( )。
以下说法中正确的是
己知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1Click()DimsumAsInteg
一个教师讲授多门课程,一门课程由多个教师讲授。则实体教师和课程间的联系是
构成计算机软件的是
随机试题
Hardly______tothebusstopwhenthebussuddenlypulledaway.
控制破伤风病人痉挛发作最主要的措施是( )。
采用路面横断面仪测定沥青路面车辙的步骤包括()。
大气环境影响监测时,一级评价项目,监测点应包括评价范围内有代表性的环境空气保护目标,点位不少于()个。
用于室内排水的立管与排出管端部的连接应采用()。
下列关于应急预案的修订的表述中,错误的是()。
下列有关杠杆效应的表述不正确的是()。
研究表明,人们总是做带有倾向性的内归因或外归因,对自己的成绩常做__________归因,而对他人的成绩出于嫉妒,可能做__________归因。
设A=,已知线性方程组Ax=b存在两个不同的解。求λ,a。
TheEnglishlanguagecontainsa(n)______ofwordswhicharecomparatively______usedinordinaryconversation.
最新回复
(
0
)