（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

题目

（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

相似考题

1.在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2.17 n=Len(Str$(m)＋Space(5)) Me!Text1=n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示______。A．5B．8C．9D．10

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

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

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

更多“(24)在窗体上有文本框Text1和命令按钮Command1,并有下列事件过程: Private Sub Command1_Click() ”相关问题

  • 第1题：

    在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

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

    A．2

    B．3

    C．4

    D．5


    正确答案：B
    题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。

  • 第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循环是指定循环次数的循环，但是有时候可能需要在循环变量到达终值前退出循环，这可以使用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语句退出循环。

  • 第3题：

    （ 32 ） 在窗体上添加一个命令按钮 （ 名为 Command1 ） 和一个文本框 （ 名为 Text1 ） ， 并在命令按钮中编写

    如下事件代码：

    Private Sub Command1_Click( )

    m=2.17

    n=Len(Str$(m)+Space(5))

    Me!Text1 =n

    End Sub

    打开窗体运行后，单击命令按钮，在文本框中显示

    A ） 5

    B ） 8

    C ） 9

    D ） 10


    正确答案：D

  • 第4题：

    在窗体上有文本框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语句退出循环。

  • 第5题：

    在窗体上有文本框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语句退出循环。

相关内容