首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个Text1文本框和一个Command1命令按钮。程序的功能是在文本框中输入密码后单击命令按钮则进行密码确认,若密码正确,弹出信息框显示"密码正确",若密码错误,弹出信息框显示"密码错误,请重新输入",但最多允许输出3次,若还不正确,则弹出信息框
窗体上有一个Text1文本框和一个Command1命令按钮。程序的功能是在文本框中输入密码后单击命令按钮则进行密码确认,若密码正确,弹出信息框显示"密码正确",若密码错误,弹出信息框显示"密码错误,请重新输入",但最多允许输出3次,若还不正确,则弹出信息框
admin
2015-10-23
38
问题
窗体上有一个Text1文本框和一个Command1命令按钮。程序的功能是在文本框中输入密码后单击命令按钮则进行密码确认,若密码正确,弹出信息框显示"密码正确",若密码错误,弹出信息框显示"密码错误,请重新输入",但最多允许输出3次,若还不正确,则弹出信息框显示"密码错误,不能再输入",且命令按钮变为无效。某人编写了如下程序:
Private Sub Command1_Click()
Dim num As Integer
num = num + 1
If Text1.Text = "123456" Then
MsgBox "密码正确"
ElseIf num = 3 Then
Command1.Enabled = False
MsgBox "密码错误,不能再输入"
Else
MsgBox "密码错误,请重新输入"
End If
End Sub
调试时发现有错误需要修改,下面正确的修改方案是
选项
A、把ElseIf num = 3 Then 改为ElseIf num >3 Then
B、把Command1.Enabled = False 改为Command1.Enabled = True
C、把Dim num As Integer 改为Static num As Integer
D、把num = num + 1 改为 num = num + 3
答案
C
解析
变量,,dim定义的变量称为"自动变量",当引用Dim定义变量时,变量值会被重新设置(数值变量重新设置为0,字符串变量被设置为空)。也就是说,下次再使用此变量,其值为初始值;而static定义变量,每次运用该静态变量后,其值会继续保留,作为下一次引用时该变量的初始值。每次运行Command1_Click()后,num的值都需保留,故选择D项。
转载请注明原文地址:https://kaotiyun.com/show/yPLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
将一个窗体设置为MDI子窗体的方法是
编写如下两个事件过程。PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_KeyPres
能够将文本框控件隐藏起来的属性是【】。
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
使图像(Image)控件中的图像自动适宜控件的大小需要
下列叙述正确的是
下列各种形式的循环中,输出"*"的个数最少的循环是
下列是软件调试技术的是()。
为了使列表框中的项目分为多列显示,需要设置的属性为()。
随机试题
关于正催化剂,下列说法中正确的是()。
有一名颅内压增高的患者,病情有加剧表现,处理的关键措施是
甲国A公司向乙国B公司出口一批货物,双方约定适用20lO年《国际贸易术语解释通则》中CIF术语。该批货物由丙国C公司“乐安”号商船承运.运输途中船舶搁浅,为起浮抛弃了部分货物。船舶起浮后继续航行中又因恶劣天气。部分货物被海浪打入海中。到目的港后发现还有部分
采取下列哪些措施可减少钢结构发热?
某股份有限公司于2011年7月1日,以65万元的价格转让一项无形资产,同时发生相关税费5万元。该无形资产于2008年7月1日购入并投入使用,其人账价值为200万元,预计有效年限为5年,无净残值,采用直线法进行摊销。出售该无形资产产生的净损失为()万
某企业被债权人申请重整并被受理,债权人会议对重整计划草案进行表决时,普通债权组共有9位债权人出席,该组通过重整计划草案的条件之一是()。
“地球不是我们从父辈那里继承来的,而是我们从后辈那借来的。”这句话体现的辩证法原理是()。
蔡元培先生认为,美育具有育德、促智、健体之功能,这是美育的()功能。
一位西方旅行家如果于二十世纪初来到中国,他不可能看到下列哪一处景观?
Hewaskeptinappallingconditionsinprison.Theunderlinedpartmeans_____.
最新回复
(
0
)