窗体上有一-个Text1文本框，一个Command1命令按钮，并有以下程序：Private Sub Command1 Click（ ） Dim n If Text1．Text<>"123456"Then n=n+1 Print"口令输入错误”＆n＆”次" End If End Sub希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令’’命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是（ ）

题目

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

相似考题

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 11If Textl．Text<>”123456”Thenn=n+1print“口夸输入错误”＆n＆次”End IfEnd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是A．在Dim n语句的下面添加一句：n=OB．把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”+n+“次”C．把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”＆Str(n)＆“次”D．把Dim n改为Static n

3.设窗体上有一个文本框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

4.（24）在窗体上有文本框Text1和命令按钮Command1,并有下列事件过程： Private Sub Command1_Click() Dim i As Integer For j=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮，程序运行后，在文本框中显示的值是 A.2 B.3 C.4 D.5

参考答案和解析
正确答案：D
D。【解析】本题要实现的功能是当输入错误口令时，在窗体上显示输入错误口令的次数，本题若要正确记录输入错误的次数，应把n定义成静态变量n。
更多“ 窗体上有一-个Text1文本框，一个Command1命令按钮，并有以下程序：Private Sub Command1 Click（ ） Dim n If Text1．Text"123456"Then n=n+1 ”相关问题

  • 第1题：

    设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程： Private Sub Command1 Click（ ） X!=Val(Text1．Text) Select Casc x Case Is<-10，Is>=20 Print"输入错误" Case Is<0 Print 20-x Case Is<10 Print 20 Case Is<=20 Print x+10 End Seleet End Sub 程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（ ）。

    A.5

    B.20

    C.25

    D.输入错误


    正确答案：C
    C。【解析】当输入-5时，Is<0，所以直接执行20-X，即20-(-5)=25。

  • 第2题：

    在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮，程序运行后，在文本框中显示的值是( )。

    A．2

    B．3

    C．4

    D．5


    正确答案：C
    解析：For循环是指定循环次数的循环，但是有时候可能需要在循环变量到达终值前退出循环，这可以使用ExitFor语句来实现。在一个For循环中，可以含有一个或多个ExitFor语句，并且它可以出现在循环体的任何位置。本题中，当i大于10的时候，就退出For循环，不管循环变量j是否达到终值50。程序执行过程如下：第1次循环，即j=0时：i=3，n=1：第2次循环，即j=1时：i=6，n=2：第3次循环，即j=2时：i=9，n=3：第4次循环，即j=3时：i=12，n=4：此时i＞10成立，执行ExitFor语句退出循环。

  • 第3题：

    在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub

    A．2

    B．3

    C．4

    D．5


    正确答案：C
    解析：For循环是指定循环次数的循环，但是有时候可能需要在循环变量到达终值前退出循环，这可以使用Exit For语句来实现。在一个For循环中，可以含有一个或多个Exit For语句，并且它可以出现在循环体的任何位置。本题中，当i大于10的时候，就退出For循环，不管循环变量j是否达到终值50。程序执行过程如下：第1次循环，即j=0时；i=3，n=1第2次循环，即j=1时：i=6， n=2第3次循环，即j=2时：i=9，n=3第4次循环，即j=3时：i=12， n=4；此时i＞10成立，执行Exit For语句退出循环。

  • 第4题：

    在窗体上面显示一个名称为Text1的文本框和一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() Text1.Text="Visual" ME．Text1="Basic" Text1="Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是______。

    A．Visual

    B．Basic

    C．Program

    D．出错


    正确答案：C

  • 第5题：

    在窗体上有文本框Text1和命令按钮Command1，并有下列事件过程：

    Private Sub Command1_Click()

    Dim i As Integer,n As Integer

    For i=0 To 50

    i=i+3

    n=n+1

    If i>10 Then Exit For

    Next

    Text1.Text=Str(n)

    End Sub

    单击命令按钮，程序运行后，在文本框中显示的值是( )。

    A．2

    B．3

    C．4

    D．5


    正确答案：C
    解析：For循环是指定循环次数的循环，但是有时候可能需要在循环变量到达终值前退出循环，这可以使用Exit For语句来实现。在一个For循环中，可以含有一个或多个Exit For语句，并且它可以出现在循环体的任何位置。本题中，当i大于10的时候，就退出For循环，不管循环变量j是否达到终值50。程序执行过程如下：第1次循环，即j=0时：i=3，n=1；第2次循环，即j=1时：i=6，n=2；第3次循环，即j=2时：i=9，n=3；第4次循环，即j=3时：i=12，n=4；此时i>10成立，执行Exit For语句退出循环。

  • 第6题：

    在窗体上添加一个命令按钮Command1和一个文本框Text1，并在命令按钮的Click事件过程中编写如下代码： Private Sub Command1_Click（) A = 1.2 C = Len（Str$（A) + Space（10)) Text1.Text = C End Sub 程序运行后，单击命令按钮，在文本框中显示（）。

    A．3

    B．8

    C．14

    D．10


    C

相关内容