首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序: Private Sub Command1 Click() Dim n IfText1.Text”123456”Then n=n+1 Prin
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序: Private Sub Command1 Click() Dim n IfText1.Text”123456”Then n=n+1 Prin
admin
2018-10-18
28
问题
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:
Private Sub Command1 Click()
Dim n
IfText1.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://jikaoti.com/ti/RKm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于文件的叙述中,错误的是
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
以下关于键盘事件的叙述中,错误的是()。
窗体上有名称为Command1的命令按钮,其事件过程如下:OptionBase1PrivateSubCommand1_Chck()DimaDimb(10)AsInteger
某人为计算n!(0<n<=12),编写了下面的函数过程:PrivateFunctionfun(nAsInteger)AsLongDimpAsLongp=1Fork=n-1T
以下关于控件数组的叙述中,正确的是()。
现有如下语句:x=IIf(a>50,Int(a\3),aNod2)当a=52时,x的值是()。
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
VisualBasic源程序的续行符为
随机试题
烧伤抗休克补液时,第一个24h输液量从何时计算()
钱某是民营企业家,并开办了一家自己的工厂甲厂。2003年甲厂与乙公司订立了一份客车买卖合同,约定由甲厂向乙公司提供客车30台,乙公司向甲厂支付货款600万元。甲厂履行了合同,乙公司却拒不支付货款。甲厂于2009年6月20日向辽宁省某市中级人民法院提起诉讼,
良等品细部测量为()。
(2006年)图8—39所示电路中,变压器视为理想的,R2=R1,则输出电压与输入电压的有效值之比为()。
某企业2011年2月1日购入需要安装的生产设备一台,价款2000万元,增值税税款340万元,款项均已支付。3月1日开始安装工程,领用企业生产的产品一批,实际成本为480万元;分配工程人员工资540万元。2011年9月20日安装完成并交付使用。该设备估计可使
在加涅总结的信息加工模式中不包含的结构是
阅读下文,完成下列5题。。约言之,藏书的①当能铸冶治学的风气,影响学风,②学术思想的活跃,学术思想的活跃又进一步③学风,并给著述提供津梁。战国时期学术的百家争鸣的出现,无疑与图书事业的发展有千丝万缕的联系。。梁代萧绎出任荆州称帝江陵,,招致饱学之
下列活动图中可以同时执行的活动是_____________。
WhatislackinginNorthAmerica’sretailindustry?
Man:Bill,haveyouheardthelatestnews?Itappearsthatwewon’tbelaidoffafterall.Woman:Oh,somewhatI’mtiredofwork
最新回复
(
0
)