Question

在窗体上画一个名称为Command1的命令按钮，编写如下程序： Private Sub Command1_Click()

Print pl(3,7)
End Sub
Public Function pl(x As Single,n As Integer) As Single
If n=0 Then
pl=1
Else
If n Mod 2=1 Then
pl=x*x+n
Else
P1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的结果是（D）
A)2
B)1
C)0
D)16
看不懂额。。大神可否教教我

Answer 1

Private Sub Command1_Click()
    Print pl(3, 7)
    '这里的pl(3,7)就是调用下面的Function函数pl，
    '前后两个参数值分别是x=3,n=7
End Sub

Public Function pl(x As Single, n As Integer) As Single
    If n = 0 Then
    '如果参数n=0，显然我们传入的参数是n =7
       pl = 1
    Else   '这里表示n<>0的情况下，那么
       If n Mod 2 = 1 Then
       'mod 是求余函数，表示 n除以2的余数
       '因为除数为2的余数只有1和0，
       '所以我们通常使用 n mod 2来判断奇偶数
       '余数为1则表示奇数
       
       '所以这个判断条件是如果n为奇数
       '而7显然是奇数，所以
            pl = x * x + n
            
            'pl = 3 * 3 + 7 = 16
            '所以Print Pl(3,7) = 16
       Else    '这里表示n为偶数
            P1 = x * x - n
       End If
    End If
End Function