有如下事件过程：Private Sub Command1_Click（）Dim i As IntegerFor i=1 To 2DCNext iEnd SubSub DC（）Dim x As Integer, m As StringStatic y, nx=x + 1y=y + 1m=m &"*": n=n & "#"Print x, y, m, nEnd Sub程序运行后，输出的结果是（ ）。A．1 1 * #1 1 * #B．1 1 * #1 2 * #C．1 1 * #1 1 * ##D．1 1 *

题目

有如下事件过程：

Private Sub Command1_Click（）

Dim i As Integer

For i=1 To 2

DC

Next i

End Sub

Sub DC（）

Dim x As Integer, m As String

Static y, n

x=x + 1

y=y + 1

m=m &"*": n=n & "#"

Print x, y, m, n

End Sub

程序运行后，输出的结果是（ ）。

A．1 1 * #

1 1 * #

B．1 1 * #

1 2 * #

C．1 1 * #

1 1 * ##

D．1 1 * #

1 2 * ##

相似考题

1.有一过程如下:Sub Sub1(m As Integer,total As Long)Dim i As Integertotal=1For i=1 To mtotal=total*iNextEnd Sub调用它的事件过程如下:Private Sub Command1_Click()Dim tot As Long,a As Integera=Val(InputBox("请输入数据"))Call Sub1(a,tot)Print totEnd Sub则输入数据5,运行结果为【 】。

2.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编如下事件过程：Private Sub Command1_Click()Dim i As Integer, n As Integern=0For i=0 To 50i=i+3n=n+1If i＞10 Then Exit ForNext iText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是______。

3.有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为A．120B．60C．80D．100

4.在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Sum =0For i=3 T0 7Sum =i+2Next iMsgBox sum+iEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是______。

更多“有如下事件过程: PrivateSubCommand1_Click() DimiAsInteger Fori=1To2 DC Nexti EndSu ”相关问题

  • 第1题：

    在窗体上添加十个命令按钮，然后编写如下事件过程：

    Private Sub Command1_Click()

    sum＝0

    For i＝3 To 7

    sum＝i+2

    Next i

    MsgBox sum+i

    End Sub

    打开窗体后，单击命令按钮，消息框的输出结果是______。


    正确答案：17
    17 解析：本题考查循环的知识。这个问题本来比较简单，只是具有一定的迷惑性。在循环内部为变量sum赋值，由于赋的值只和循环变量i有关，所以只有最后一次循环中为sum赋的值才有效，这个值会覆盖掉前面各次循环为sum赋的值；还有就是要注意，循环退出后循环变量必然处于不满足循环条件的状态，例如本题的循环退出后i的值应该为8。所以最终答案为9+8＝17。

  • 第2题：

    在窗体上画1个命令按钮，并编写如下事件过程： private Sub Command1_Click（ ） For i=5 To 1 Step-0．8 Print Int(i)； Next i End Sub 运行程序，单击命令按钮，窗体上显示的内容为（ ）。

    A.5 4 3 2 1 1

    B.5 4 3 2 1

    C.4 3 2 1 1

    D.4 4 3 2 1 1


    正确答案：A
    A。【解析】step可以设置For循环的步长，所以程序执行6次，Int(i)是求不大于自变量i的最大整数。

  • 第3题：

    若有如下程序： Private Sub Command1_Click() Dim i As Integer, k As Integer k=2 For i = 1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+j End Function 单击命令按钮，执行程序，输出结果是( )。

    A．2 3 4

    B．3 4 5

    C．5 6 7

    D．3 5 6


    正确答案：B
    解析：函数H中定义了一个静态变量b，被Static修饰的变量，其生命周期为程序的整个执行过程，所以它能够累计记录三次调用函数H的变化。第1次调用H函数后，b值为 1，函数的返回值3；第2次b值为2，函数的返回值4；第3次b值为3，函数的返回值5。

  • 第4题：

    有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。

    A．100

    B．120

    C．200

    D．50


    正确答案：B
    解析：本题难点是实、虚参数传递的问题。tot按ByRef参数传递。子过程的功能是计算n!，“5!=120”。

  • 第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语句退出循环。

  • 第6题：

    有如下程序： For i=10 To 1 Step 0 k=k+1 Next i 循环体的执行次数为（）。


    B

相关内容