?? fuc.bas
字號:
Attribute VB_Name = "fuc"
'Jiecheng函數就一個整數n的階乘
Public Function JieCheng(n As Integer) As Double
Dim i As Integer
Dim result As Double
result = 1
If n = 0 Then
result = 1
Else
For i = 1 To n Step 1
result = result * i
Next i
End If
JieCheng = result
End Function
Public Function CiFang(Di As Double, Zhi As Integer) As Double
Dim i As Integer
Dim result As Double
result = 1
If Di = 0 Then
MsgBox "輸入的底數不可為0", vbOKOnly, "錯誤提示"
Exit Function
ElseIf Zhi = 0 Then
result = 1
Else
For i = 1 To Zhi
result = result * Di
Next i
End If
CiFang = result
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -