窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click() Private Function p(x As Integer)As Boolean

admin2018-10-18  32

问题 窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下:
    Private Sub Command1_Click()          Private Function p(x As Integer)As Boolean
    Dim i As Integer                          If x Mod 7<>0 Then
    For i=1 To 500                                 p=True
    Ifp(i)Then s=s+1                          Else
    Next                                           p=False
    Print s                                   End If
    End Sub                                End Function
    关于上述程序,以下叙述中正确的是

选项 A、程序功能是统计1-500范围内能被7整除的整数个数
B、Command1 Click事件过程中lf语句的条件表达式不完整
C、Function过程定义有误,函数过程p的名称与该过程中的变量名p相同
D、函数过程p的返回值为Boolean类型

答案D

解析 调用Function过程要返回一个值,因此可以像内部函数一样在表达式中使用。如果在Function过程中省略“过程名=表达式”,则该过程返回一个默认值(数值函数过程返回0值;字符串函数过程返回空字符串)。因此,通常要在过程体中给“过程名”赋值。本题中函数p的返回值为Boolean类型,功能是判断参数x是否能被7整除,如果不能整除返回True,否则返回False。Command1_Click事件过程中使用了单行的If语句,不需要Else分支和Endlf语句。程序功能是统计1-500范围内不能被7整除的整数个数。
转载请注明原文地址:https://jikaoti.com/ti/bBm0FFFM
0

最新回复(0)