窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序 Private Sub Command1_click() Dim 11 If Textl.Text”123456”Then n=n+1 print“口夸输入错误”&n&次” End

admin2010-04-10  29

问题 窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序
Private Sub Command1_click()
Dim 11
If Textl.Text<>”123456”Then
n=n+1
print“口夸输入错误”&n&次”
End If
End Sub
希望程序运行时得到左图所示的效果,即:输入口令,单击“确认口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是

选项 A、在Dim n语句的下面添加一句:n=O
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/TJg0FFFM
0

最新回复(0)