在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function fun(ByVal m As Integer) If m Mod 2=0 Then

admin2009-02-13  50

问题 在窗体上画一个名称为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 3         End Sub        程序运行后,单击命令按钮,在窗体上显示的是

选项 A、6
B、7
C、8
D、9

答案2

解析 本题中的通用过程fun(ByVal m As Integer)作用是判断参数m,如果 m为偶数则函数返回2,如果m为奇数则函数返回1。在i=1 To 5的fun(ByVal m As Integer)调用中,共有偶数两个,奇数三个,所以最后结果为7。
转载请注明原文地址:https://kaotiyun.com/show/EK2p777K
0

最新回复(0)