首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个Text1文本框和一个Command1命令按钮。程序的功能是在文本框中输入密码后单击命令按钮则进行密码确认,若密码正确,弹出信息框显示"密码正确",若密码错误,弹出信息框显示"密码错误,请重新输入",但最多允许输出3次,若还不正确,则弹出信息框
窗体上有一个Text1文本框和一个Command1命令按钮。程序的功能是在文本框中输入密码后单击命令按钮则进行密码确认,若密码正确,弹出信息框显示"密码正确",若密码错误,弹出信息框显示"密码错误,请重新输入",但最多允许输出3次,若还不正确,则弹出信息框
admin
2015-10-23
62
问题
窗体上有一个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全国计算机二级
相关试题推荐
在程序运行期间可以将图形装入窗体、图片框或图像框的函数是
设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是
设有如下三个关系表下列操作中正确的是
假定当前日期为2002年12月16日,星期一,则执行以下语句后,输出结果是16、12、2002______。PrintDay(Now)<CR>PrintMonth(NOW)<CR>PrintYear(Now)<CR>PrintW
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFUel_DblClick()x=Shell(File1_ileName,1)EndSub以下关于该程序的叙述中,错误的是()。
下列语句都是在Form中定义的,其中错误的是
设有如下语句:Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码的叙述中,错误的是()。
文本框控件中将Text的内容全部显示为所定义的字符的属性项是
软件是指
随机试题
胶带纸思维:指使用各种表面上看似比较简单、笨拙的临时性手段,有效解决实际问题的方式。下列不属于胶带纸思维的是:
双代号时标网络计划中虚箭头表示()
某施工单位2007年2月购入一台设备,共支付价款及相关税费10万元,则这笔款项属于企业的( )。
会计人员对不真实的原始凭证有权不予接受。
为了规范监管行为,检验监管工作成效,在总结国内外银行监管工作经验的基础上,银监会成立之初,提出了良好监管的六条标准,其中包括()
until,die,miss,on,necessarily,chance,happy,try,everything,shoesTherearemomentsinlifewhenyou【K1】______someone
3/2,5/4,7/6,9/8,11/10,( )
最早使用日记描述法的是()。
简述共同犯罪的特征。
Oursocialdevelopmentwasencouragedthroughteamwork.Weworkedingroupswithpeoplewe’dnevermet【1】.Welearnttolistent
最新回复
(
0
)