niusouti.com

在窗体上绘制一个名称为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 程序运行

题目

在窗体上绘制一个名称为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．6

B．7

C．8

D．9

相似考题

1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．VVVB．VisC．sicD．11

2.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) a=12345 Print Format $(a，"000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是A．123.45B．12345.00C．12345D．00123.45

3.设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A. 30B. 25C. 20D. 15

4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function fun（ByVal m As Integer）If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd FunctionPrivate Sub Command1_Click（）Dim i As Integer, s As Integers = 0For i = 1 To 5s = s + fun（i）NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是（ ）。A．6B．7C．8D．9

参考答案和解析
正确答案：B
解析：本题考查通用过程的调用以及Mod函数的用法。“Mod”表示取模，fun过程的功能是当m可以被2整除时，返回2，否则返回1。程序利用了一个For,循环来调用该过程，最后的输出结果是1+2+1+2+1=7，选项B正确。
更多“在窗体上绘制一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private ”相关问题

  • 第1题：

    在窗体上画一个名称为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。

  • 第2题：

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

    A． 11

    B．10

    C．9

    D．8


    正确答案：C
    解析：本题的结果取决于函数f，而f的作用是如果参数为偶数返回实值，如果为奇数则返回1。

  • 第3题：

    在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

    Private Sub Command1_Click（）

    a = 12345

    Print Format$（a, "000.00"）

    End Sub

    程序运行后，单击命令按钮，窗体上显示的是（ ）。

    A．123.45

    B．12345.00

    C．12345

    D．00123.45


    正确答案：B

  • 第4题：

    在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是

    A． 123.45

    B．12345.00

    C．12345

    D．00123.45


    正确答案：B
    解析：对于符号“0”，实际数字小于符号位数时，数字前后加0；大于时，若要显示数值表达式的整数部分位数多于格式字符串的位数，按实际数值显示。若小数部分的位数多于格式字符串的位数，按四舍五入显示。

  • 第5题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Privme Sub Command1_Click( ) a$="VisualBasic" Print String(3，a＄) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

    A．VVV

    B．Vis

    C．sic

    D．11


    正确答案：A
    解析：String返回n个字符。如果为字符串，则返回n个字符串的首字符。返回3个"VisualBasic”的首字母“V”。

相关内容