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

题目

窗体上有一个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

相似考题

1.在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。Private Sub Form_Load（）Command1  Enabled=FalseEnd SubPrivate Sub Text1_ ________ （）Command1  Enabled=TrueEnd Sub

2.设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。A．BasicB．cisaBC．BASICD．CISAB

3.在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。

4.（ 7 ） 在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框 。 程序运行后 ， Command 1为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。Private Sub Form_Load()Command1.Enabled = FalseEnd SubPrivate Sub Text1_ 【 7 】 ()Command1.Enabled = TrueEnd Sub

参考答案和解析
正确答案：D
解析：本题考查的是动态变量与静态变量。原来的程序中无法使变量n的值保持到下一次的使用，只有D)选项符合要求，将n定义为静态局部变量，在程序执行到该对象的声明处时被首次初始化，每次执行后n的值都会被保存到内存中，所以答案D)是正确的；而A)选项只是对n赋初值，所以A)选项没有意义；B)选项和C)选项都没有达到改进的目的。
更多“ 窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序Private Sub Command1_click()Dim 11If Textl．Text”123456”Thenn=n+1print“”相关问题

  • 第1题：

    窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图1所示)，就可以把文本框中的内容写到文件Out．txt中，每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是（ ）。


    正确答案：C
    C)    【解析】本题考查文件的打开方式。题目中要求在命令按钮单击事件中，往文件中写入信息，并且是追加到原有信息的后面，因此，要用Append方式打开文件。

  • 第2题：

    在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：程序运行后，单击命令按钮，在文本框中显示的是（ ）。

    A. 2

    B. 3

    C. 4

    D. 5


    正确答案：B
    B)    【解析】本题考查循环程序的分析。题中循环变量为i，步长为1，循环体中i每次变化都增加3，因此执行一次循环后，i的值增加4，当i大于10时退出循环，所以每次循环后i的值为：3，7，11。当i为11时退出循环，所以循环共执行了3次。

  • 第3题：

    窗体上有一-个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
    D。【解析】本题要实现的功能是当输入错误口令时，在窗体上显示输入错误口令的次数，本题若要正确记录输入错误的次数，应把n定义成静态变量n。

  • 第4题：

    在窗体上有一个名称为Command1的命令按钮，并有如下程序：程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为（ ）。

    A. 5 16

    B. 5 6

    C. 15 15

    D. 15 6


    正确答案：D
    D)    【解析】本题考查静态变量。静态变量的值有继承性，上一次调用的结果在下一次调用时还是有效的。题目中每次调用Y的值都被重新赋值了，因此单击3次以后Y的值仍然是6，而x每次调用的结果都保留，因此调用3次以后，结果为15。

  • 第5题：

    （ 24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序

    Private Sub Commandl_Click （）

    Dim n

    If Text1.Text<> " 23456 " 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

相关内容