首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序: Private Sub command1_Click() Dim n If Text1.Text"123456"Then n=n+1 Print "口令输入
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序: Private Sub command1_Click() Dim n If Text1.Text"123456"Then n=n+1 Print "口令输入
admin
2020-07-22
67
问题
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:
Private Sub command1_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://kaotiyun.com/show/BNHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1,如图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在Tex
在设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:PrivateSubCommand1_Click() CD1.DialogTitle="打开文件" CD1.InitDir="C:" CD1.Filte
函数过程F1的功能是:如果参数a为奇数,则返回值为1,否则返回值为0。以下能正确实现所述功能的代码的是()。
下面不能作为结构化方法软件需求分析工具的是
以下关于VB特点的叙述中,错误的是( )。
下列关于计时器控件的描述中,正确的是()。
对于能够获得焦点的控件,若要使其不能接收焦点,应该
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
假定有以下循环结构:DoUntil条件表达式循环体Loop则以下正确的描述是()。
随机试题
下列关于犯罪嫌疑人、被告人申请法律援助说法错误的是()。
在Word文档的编辑中,能够进行的工作是
下列关于MicrosoftInternetExplorer的叙述,正确的是()。
请根据所提供的单据,完成相关的判断题。东莞三星视界有限公司与韩国一家公司签订一份购货合同,合同规定中方从韩方购买一批电池芯,用于生产加工电子钟,货物于2006年6月15日到达深圳口岸。东莞该公司报检员持合同、发票、提单向深圳检验检疫机构报检。
对下列历史事件发生背景描述准确的是()。
下列成语与古代事件对应正确的一组是:
甲、乙一同栽树要8小时完成,甲先栽3小时,乙再栽1小时,还剩没有完成。已知甲比乙每小时多栽7棵树,问这批树共有多少棵?()
设X1,X12,X3,X4是来自总体X的样本,EX=μ,则()是μ的最有效估计。[浙江工商大学2012研]
设A,B都是n阶正定矩阵,则:AB是正定矩阵A,B乘积可交换.
Asawidelyusedfinancialstatement,abalancesheetshowsthefinancialpositionofabusinessataspecificdate,andeveryb
最新回复
(
0
)