fuction Factorial
Function Faktorial(ByVal y As Integer) ‘Deklarasi nama fungsi
If y = 0 Then
Faktorial = 1
Exit Function
End If
y = y - 1
Faktorial = Faktorial(y) * (y + 1)
End Function
Sub NilaiFaktorial() 'Deklarasi nama prosedur
Dim x, y As Single 'Deklarasi nama variable bertipe single
x = InputBox("Masukan Nilai yang akan dicari faktorialnya :", "Faktorial")
y = Faktorial(x) 'pemakaian fungsi yang hasilnya disimpan di variable
MsgBox ("Nilai faktorial dari " & x & " adalah " & y)
End Sub
konvensi suhu
Function KonversiSh(Pil As String, _ Suhu As Single) As Single
Select Case Pil
Case "CF"
KonversiSh = CtoF(Suhu)
Case "CK"
KonversiSh = CtoK(Suhu)
Case "CR"
KonversiSh = CtoR(Suhu)
Case "FC"
KonversiSh = FtoC(Suhu)
Case "KC"
KonversiSh = KtoC(Suhu)
Case "RC"
KonversiSh = RtoC(Suhu)
End Select
End Function