End Sub
Private Function fact(n As Integer) As Single
Dim i As Integer, p As Single
p = 1
For i = 1 To n
p =p * i
Next I
fact=p
End Function
Процедура Sub.
Синтаксис процедури Sub:
[Private ½Public ½Static] Sub Ім'я([Список аргументів])
Блок операторів
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|