首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序: Private Sub Command1_click() Dim n Ifllextl.Text”123456”Then n=n+1:Print”口令输入错误”&n&”次”
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序: Private Sub Command1_click() Dim n Ifllextl.Text”123456”Then n=n+1:Print”口令输入错误”&n&”次”
admin
2015-05-29
59
问题
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:
Private Sub Command1_click()
Dim n
Ifllextl.Text<>”123456”Then
n=n+1:Print”口令输入错误”&n&”次”
End If
Fnd 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://kaotiyun.com/show/4JQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在VisualBasic中传递参数的方法有______方式。
数据库管理系统常见的数据模型有层次模型、网状模型和【】三种;
在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:MicrosoftSubCommand1_Click()然后编写如下事件过程:PrivateSubCommand1_Cli
在窗体上绘制一个名称为Labell的标签,然后编写如下事件过程:PrivateSubForm_Click()Dimarr(10,10)AsIntegerDimiAsInteger,jAsInteger
在长度为n的顺序表的第i(1≤i≤n+1)个位置上插入一个元素,元素的移动次数为【】。
在窗体上画1个名为Text1的文本框和1个名为Label1的标签,再画4个名为Op1的单选按钮控件数组,其Index属性按季度顺序为0~3,如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击一个单选按
变量未赋值时,数值型变量的值为______,字符串变量的值为______。
执行以下程序段后,变量c$的值为______。a$=“VisualBasicPrograming”b$=“Quick”c$=b$&UCase(Mid$(a$,7,6))&Right$,(a$,11)
按条件f对关系R进行选择,其关系代数表达式为______。
系统符号常量的定义可以通过______获得。
随机试题
公务员福利制度主要包括________、________、________、________、________、________等。
属于特异性免疫治疗的方法包括
后尿道损伤其尿外渗常出现在
下列哪种情形构成诬告陷害罪?()(2007/2/13)
法律规定,抵押人以土地使用权、城市房地产权等财产作为抵押物时,当事人应到有关主管登记部门办理抵押物登记手续,抵押合同自()起生效。
以下不属于合同法的基本原则是()。
路基土质边坡的常见病害是土质边坡()。
会计规章的制定依据是会计法律和会计行政法规。()
合伙人在合伙企业清算前私自转移或者处分合伙企业财产的,合伙企业不得以此对抗善意第三人。()
OnNovember19,1863,AbrahamLincolnwenttoGettysburginPennsylvaniatospeakattheNationalSoldiersCemetery.TheCivil
最新回复
(
0
)