回覆列表
-
1 # 被囚禁的王者
-
2 # 使用者5864399721549
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 "這裡表示n0的情況下，那麼
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
Private Sub Command1_Click() Print pl(3, 7) "這裡的pl(3,7)就是呼叫下面的Function函式pl， "前後兩個引數值分別是x=3,n=7End SubPublic 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 IfEnd Function