首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序: Private Sub commandl_Click() Dim n If Text1.Text"123456"Then n=n+1 Pri
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序: Private Sub commandl_Click() Dim n If Text1.Text"123456"Then n=n+1 Pri
admin
2016-08-24
27
问题
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:
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
解析
本题考查的是动态变量与静态变量。原来的程序中无法使变量n的值保持到下一次的使用,只有D选项符合要求,将n定义为静态局部变量,在程序执行到该对象的声明处时被首次初始化,每次执行后n的值都会被保存到内存中,所以答案D是正确的;而A选项只是对n赋初值,所以A选项没有意义;B选项和C选项都没有达到改进的目的。
转载请注明原文地址:https://jikaoti.com/ti/ARJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:OptionBase1PrivateSubForm_Click() Dimart,Sum Sum=0 art=Array(1,3,5,7,9,11,13,15,17,19) For
下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。PrivateSubForm_Click()DimiAsInteger Open______As#1 Fori=1To
函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。FunctionFun1(bAsInteger) if______Then Fun1=0 Else Fun1=1
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() CommonDialog1.Flags=vbOFNHideReadOnly
在窗体上有一个文本框控件,名称为TextTime;--个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimer1_______() TxtTime.text=TimeE
假定有下面的过程:FunctionFunc(aAsInteger,bAsInteger)AsIntegerStaticmAsInteger,iAsIntegerm=0i=2i=i+m+1
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
下列关于队列的叙述中正确的是
以下语句用于打开一个顺序文件Open“C:\MyFile.txt”ForOutPut,但是该语句的一个重要错误是没有
同一概念在一处为实体而在另一处为属性或联系的冲突在视图集成中叫()。
随机试题
组成褶皱的基本单位是岩层褶曲的()弯曲。
A嗜酸性粒细胞B嗜碱性粒细胞C单核细胞DT淋巴细胞EB淋巴细胞主要与体液免疫有关的是
治疗肝郁气滞之癃闭,宜选
龈牙组纤维根间组纤维
人民法院于2014年8月10日受理某企业破产案件。在进行破产清算时,下列选项中,管理人可请求人民法院行使撤销权的有:()
下列总图图例中哪项表示铁路跨道路?[2006-3]
机器设备的综合精度可用()进行评价。
根据《银行账户管理办法》的规定,存款人的工资、奖金等现金的支取,只能通过()办理。
依次填入下面这段话横线处的词语,最恰当的一组是:阅读优秀作品,_________其语言,感受其思想、艺术魅力,不仅可以_________大自然和人生的多姿多彩,还可以激发_________自然、热爱生活的感情。
(2011南京财经大学)试论述保险人的权利和义务。
最新回复
(
0
)