首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个Text1文本框,一个Commandl命令按钮,并有以下程序: Private Sub Commandl_click() Dim n If Text1.Text<>"123456"Then n=n+1:Print"口令输入错误"
窗体上有一个Text1文本框,一个Commandl命令按钮,并有以下程序: Private Sub Commandl_click() Dim n If Text1.Text<>"123456"Then n=n+1:Print"口令输入错误"
admin
2020-01-02
49
问题
窗体上有一个Text1文本框,一个Commandl命令按钮,并有以下程序:
Private Sub Commandl_click()
Dim n
If Text1.Text<>"123456"Then
n=n+1:Print"口令输入错误"&n&"次"
End If
End Sub
希望程序运行时得到左图所示的效果,即:输入口令,单击“确认口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上而的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是
选项
A、在Dim n语句的下面添加一句:n=0
B、把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C、把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)&"次"
D、把Dim n改为Static n
答案
D
解析
本题中题干部分的程序之所以会产生不合要求的结果,其原因是在单击事件中的第一条语句为Dim n,这样的话每次单击按钮时触发此事件,都将会执行这条语句,重新定义一个局部变量n并设其默认初值为0。Static语句在过程级别中使用,用于声明变量并分配存储空间,在整个代码运行期间都能保留使用Static语句声明的变量的值,因此此处应该使用Static n来声明变量。
转载请注明原文地址:https://www.kaotiyun.com/show/t1Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于数组的叙述中,错误的是
下列控件中,不响应Click事件的是
在窗体上画一个名为Command1的命令按钮,然后编写如下代码:OptionBase1PrivateSubCommandl_Click()Dimaa=Array(1,2,3,4):j
执行以下程序段aS=”VisualBasicProgramming”:b$=”C++”c$:UCase(LeR$(a$,7))&b$&RightS(aS,12)变量c$的值为
在文本框中,要设置显示的文本颜色,应该设置()属性。
在学校里,教师可以讲授不同的课程,同一课程也可由不同教师讲授,则实体教师与实体课程间的联系是()。
如果在列表框List1中没有选中项目,则List1.ListIndex的值为()。
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)
在关系数据库中,用来表示实体间联系的是
在数据库系统中,考虑数据库实现的数据模型是
随机试题
抽油机井合理()的选择,主要是确定合理的生产压差,包括沉没度的确定,泵径、冲程、冲次的匹配,合理工作制度的确定。
清热剂中,体现“火郁发之”思想的方剂是
11个月患儿,多汗,方颅,胸骨肋膈沟,血钙正常,血磷低,X线可见骨骺软骨增宽,干骺端临时钙化带模糊,并呈毛刷状改变,最可能的诊断是
新生入园的第一天,孩子们都来上幼儿园了,唯有小男孩源源没有来。一周过去了,他还是没有来。是什么原因导致源源一个星期不来上幼儿园呢?带着这份疑惑我去源源家进行了家访。家访中,源源父亲说出了自己的困惑:“源源从小一直由爷爷奶奶带大,爷爷奶奶的溺爱使他脾气很坏、
测验法是使用专门的测量工具来测量被试某一种心理品质的方法。()
Thegrowthofpopulationduringthepastfewcenturiesisnoproofthatpopulationwillcontinuetogrowstraightupwardtoward
(南京大学2013)限价委托方式的优点是()。
京剧人物脸谱
设n阶矩阵A=。证明:行列式|A|=(n+1)an。
ThereasonsgivenbelowaboutthepopularityofE-mailcanbefoundinthepassageexcept______.HowistheIntemetornetexp
最新回复
(
0
)