首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体,标题分别为“启动”、“注册”、“登录”,程序运行时显示“启动”窗体,单击窗体上按钮时弹出对应窗体进行注册或登录。 注册信息放在全局数组users中,注册用户数(小于或等于10个)放在全局变量
在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体,标题分别为“启动”、“注册”、“登录”,程序运行时显示“启动”窗体,单击窗体上按钮时弹出对应窗体进行注册或登录。 注册信息放在全局数组users中,注册用户数(小于或等于10个)放在全局变量
admin
2017-09-20
24
问题
在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体,标题分别为“启动”、“注册”、“登录”,程序运行时显示“启动”窗体,单击窗体上按钮时弹出对应窗体进行注册或登录。
注册信息放在全局数组users中,注册用户数(小于或等于10个)放在全局变量n中(均已在标准模块中定义)。
注册时用户名不能重复,且“口令”与“验证口令”必须相同,注册成功则在“启动”窗体的标签中提示“注册成功”,否则提示相应错误信息。登录时,检验用户名和口令,若正确,则在“启动”窗体的标签上提示“登录成功”,否则提示相应错误信息。
标准模块中函数finduser的功能是:在users数组中搜索用户名(参数ch),找到则返回该用户名在users中的位置,否则返回0。
文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把Form2、Form3窗体文件中的?改为正确的内容。
注意:不得修改已经存在的程序和控件的属性;最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 ’Form2窗体代码 Private Sub Command1_Click()’清空重置 Text1=”” Text2=”” Text3=”” End Sub Sub writeusers()’向数组users中写入新用户信息 n=n+1’用户数目自增 users(n,1)=Text1’保存用户的用户名、密码 users(n,2)=Text2 End Sub Private Sub Command2_Click() If Text1=””Then MsgBox(“必须输入用户名!”) Text1.SetFocus’Text1重新获得焦点 ElseIf finduser(Trim$(Textl))>0 Then ’如找到相同名,则返回位置一定大于0 MsgBox(”此用户名已经存在!”) ElseIf Text2<>Text3 Then’比较口令与验证口令是否相同 MsgBox(”口令验证错误!”) Else writeusers Form1.Label1=”注册成功!” ’当注册成功后Label1显示成功信息 Form2.Hide End If End Sub ’Form3窗体代码 Private Sub Commandl_Click() k=finduser(Trim$(Textl)) If k=0 Then’验证用户名是否存在 MsgBox(”没有注册!”) ElseIf Trim$(Text2)<>users(k,2)Then.验证输入的密码是否正确 MsgBox(”口令错误!”) Else Form1.Labell.Caption=”登录成功!” Form3.Hide End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/Xdy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若要求输入密码时文本框中只显示“*”号,则应当在文本框的属性窗口中设置______属性。
下面程序的功能是统计字符串中"i"的个数,请填空。SubCOU()DimnAsInteger a$="BeijingUniversityofTechnology" n=Len(a$) Fori=
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮,并有以下事件过程:PrivateSubCommandl一Click()x!==Val(Textl.Text)SelectCasexCas
以下关于保存工程的说法正确的是
下列程序段的执行结果为______。K=0ForI=1To3A=I^I^KPrintA;NextI
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timerl。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimer1_________TxtTime.text=TimeEndSub在下
在程序的空白行处填写适当的语句,完成以下功能:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。DoWhileList2.ListCount________
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFuncdonf(mAsInteger)IfmMod2=0Thenf=mE1Se
假定有一个文本框,其名称为Text1,为了使该文本框具有焦点,应执行的语句是______。
随机试题
“祸起萧墙”一语出自()
A.手足麻木,突然口角歪斜,语言不利;半身不遂,苔薄白,脉弦细B.素有头晕目眩,突然口角歪斜,舌强语蹇,半身麻木不遂,舌红苔黄,脉弦滑C.突然昏仆,不省人事,牙关紧闭,两手握固,肢体强直,呼吸气粗,躁动不安,舌红苔黄,脉弦滑数
ESWL治疗尿路结石后,若需要再治疗,两次间隔时间至少是
(2011年)2010年10月某体育馆发生如下业务:举办文艺演出取得门票收入20000元,出租部分摊位取得租金收入50000元,餐饮部取得经营收入60000元。2010年10月该体育馆应纳营业税()元。
下列关于无形资产摊销的表述不正确的有()。
软件程序员接受企业的任务,独立完成了某应用软件的开发和设计,其软件著作权属于软件程序员。()
19世纪末,首先沦为帝国主义“势力范围”的地区是我国的东北。()
公共政策过程的公众参与主要强调的是整个政策过程的参与。我国公民参与公共政策过程,主要有制度性和非制度性两种渠道。下列属于非制度性的公民参与形式的是()。
银行信息系统实现的目标不包括________________。
A、MainlyfromLondon.B、Fromdifferentcountries.C、MainlyfromEngland.D、Fromcharityorganizations.B
最新回复
(
0
)