itgle.com

在窗体上有一个命令按钮Commandl，通用过程fun和命令按钮的事件过程如下： Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体

题目

在窗体上有一个命令按钮Commandl，通用过程fun和命令按钮的事件过程如下： Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出A.6 B.7 C.8 D.9

相似考题

1.在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(By Val m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Commandl_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。A． 6B．7C．8D．9

2.在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：程序运行后，单击命令按钮，其输出结果为__________。

3.在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer，s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是A．6B．7C．8D．9

4.窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。Private Sub Command1_Click()Dim x As Integerx=Val(InputBox(“输入数据”))Text1=Str(fun(x)+fun(x)+fun(x))End SubPrivate Function fun(ByRef n As Integer)Ifn Mod 3=0 Thenn=n+nElsen=n*nEnd If________=nEnd Function当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_______。

更多“在窗体上有一个命令按钮Commandl,通用过程fun和命令按钮的事件过程如下: Private Function fun(B ”相关问题

  • 第1题：

    窗体Forml上有一个名称为Commandl的命令按钮，以下对应窗体单击事件的事件过程是（ ）。


    正确答案：C
    B)    【解析】窗体的单击事件不同于其他控件的单击事件，在事件过程头中不出现窗体名字，而是统一使用Form. Click0。

  • 第2题：

    在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：

    Private Function fun(ByVal m As Integer)

    Ifm Mod2=0 Then

    fun=2

    Else

    fun=1

    End If

    End Function

    Private Sub Command1_Click()

    Dim i As Integer,s As Integer

    s=0

    For i=1 To 5

    s=s+fun(i)

    Next

    Prints

    End Sub

    程序运行后，单击命令按钮，则窗体上输出( )。

    A．6

    B．7

    C．8

    D．9


    正确答案：B
    解析：本题比较简单，只要根据程序的执行条件和顺序就可以运算出该程序的最后输出结果。程序运算过程为：当i=1时，s=s+fun(i)=1；当i=2时，s=s+fun(i)=3；当i=3时，s=s+fun(i)=4；当i=4时，s=s+fun(i)=6；当i=5时，s=s+fun(i)=7。

  • 第3题：

    在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() y = 8 Print fun1(1 + fun1(fun1(fun1(y)))*10) End Sub Private FLinctiOn fUnl(A)funl(A)= 1 + a End Function 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．112

    B．2

    C．909090

    D．1001


    正确答案：A
    解析：此题目主要是多次循环调用函数funl，处理过程如下：fun1(1+fun1(fun1(fun1(8)))*10=fun1(1+fun1(fun1(9))*10)=fiat(1+fun1(10)*10)=fun1(1+11*10)，fun1(111)=112。逐层计算即可返回正确结果。

  • 第4题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程； Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。

    A．6

    B．7

    C．8

    D．9


    正确答案：B
    解析：子函数的功能为：当m为偶数时返回2，当m为奇数时返回1。1～5中有2个偶数，3个奇数，变量s的值为1+2+1+2+1=7。

  • 第5题：

    在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Cliek() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出( )。

    A．6

    B．7

    C．8

    D．9


    正确答案：B
    解析：本题比较简单，只要根据程序的执行条件和顺序就可以运算出该程序的最后输出结果。程序运算过程为：当i=1时，s=s+fun(i)=1当i=2时，s=s+fun(i)=3,当i=3时，s=s+fun(i)=4；当i=4时，s=s+fun(i)=6；当i=5时，s=s+fun(i)=7。

相关内容