首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个Textl文本框,一个Commandl命令按钮,并有以下程序: Private Sub Commandl_click() Dim n IfTextl.Text<>”123456”Then
窗体上有一个Textl文本框,一个Commandl命令按钮,并有以下程序: Private Sub Commandl_click() Dim n IfTextl.Text<>”123456”Then
admin
2019-07-30
27
问题
窗体上有一个Textl文本框,一个Commandl命令按钮,并有以下程序:
Private Sub Commandl_click()
Dim n
IfTextl.Text<>”123456”Then
n=n+l:Print”口令输入错误”&n&”次”
End If
End Snb
希望程序运行时得到左图所示的效果,即:输入口令,单击“确认口令”命令按钮,若输入的口令不是“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/iqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Frame1、标题为“目的地”的框架,在框架中添加三个复选框,名称分别为Check1、Check2、Check3,其标题分别是“上海
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“等级考试”,BorderStyle属性为1,可以根据标题自动调整大小;然后再画一个命令按钮,其名称和标
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图3—116所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第一个素数,并
(1)考生文件夹下有一个工程文件sjt3.vbp,其窗体上有1个名称为Text1的控件数组;一个标题为"排序"的命令按钮。程序运行时,在文本框数组中输入8个整数,如图3—29(a)所示;然后单击”排序”按钮,则8个整数按降序排序,如图3—29(b)所示。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1,标题为“滚动条属性设置”的窗体上画1个名称为VScroll1的垂直滚动条,设置属性,使得滚动块在最上面时,其位置值为10;滚动块在最下面时,其位置值为
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Frame1、标题为“项目”的框架;框架内有1个名称为opt1的控件数组,该控件数组含有三个标题分别为“篮球”“排球”“足球”的单选
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
设在窗体上有一个名称为Check1的复选框数组,并有以下事件过程:PrivateSubCheck1_Click(IndexAsInteger)…EndSub则下面叙述中错误的是
有下面程序代码:PrivateSubCommand1_Click()a=Array(1,2,3,4,5,6,7,8,9,10)n=UBound(a)Fork=0ToUBound(a)/2Print
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsString)AsIntegerEndFunction若已有变量声明:Dimx(5)AsInteger,nA
随机试题
A、0B、1C、2D、3C
乙型脑炎(简称乙脑)的主要传染源是
威灵仙加工时太子参加工时
张某在2007年进入某有限责任公司工作,2012年该公司因经营不善而协议解散。在此期间,甲与其所在公司都按照规定缴纳了相应的社会保险费用。张某领取失业保险金的期限最长为()。
关于实证主义法学和非实证主义法学对法的概念所持的观点,下列哪些说法是正确的?()
下列属于中国银行业自律组织的是()。
因校舍使用不当或失修造成房屋倒塌造成学生伤亡事故的,主要责任人应追究()。
程序测试是一项复杂的工作,一般测试者在进行测试时都需要设计
Apowerfulpersonalgrowthtoolisthe30-daytrial.ThisisaconceptIborrowedfromthesharewareindustry,whereyoucan【W1】
A、10,000.B、7,950.C、240.D、4,750.D细节题。根据文中提到的ThenumberofpeopletakingtheirownlifewasalreadyincreasingintheUS,butt
最新回复
(
0
)