niusouti.com

（ 24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序Private Sub Commandl_Click （）Dim nIf Text1.Text<> " 23456 " Thenn=n ＋ 1Print " 口令输入错误 " & n & " 次 "End IfEnd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击 “ 确认口令 ” 命令按钮 ， 若输入的口令不是 “ 123456 ” ，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示

题目

（ 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

相似考题

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

2.（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

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

更多“ （ 24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序Private Sub Commandl_Click （）Dim nIf Text1.Text " 23456 " Th”相关问题

  • 第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的命令按钮，并编写有如下事件过程：程序运行后，单击命令按钮，在文本框中显示的是（ ）。

    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题：

    （26）设窗体上有一个名为Text 1的文本框和一个名为Command 1的命令按钮，并有以下

    事件过程：

    Private Sub Commandl Click()

    x！=Val(Text 1.Text)

    Select Case x

    Case Is＜-10，Is＞=20

    Prini"输入错误"

    Case Is＜0

    Print 20-x

    Case Is＜10

    Print 20

    Case Is＜＝20

    Print x+10

    End Select

    Bud Sub

    程序运行时，如果在文本框中输入一5}则单击命令按钮后的输出结果是

    A）5

    B）20

    C）25

    D）输入错误


    正确答案：C

  • 第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() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是

    A． Visual

    B．Basic

    C．Program

    D．出错


    正确答案：C
    解析：Text是文本框的默认属性。

  • 第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

相关内容