Как сделать это? - VB
Формулировка задачи:
e^n/n! это на visual basic нужно цикл написать
Решение задачи: «Как сделать это?»
textual
Листинг программы
Private Sub Command1_Click()
Dim i As Integer, n As Long, y As Long, fact As Long
Dim j As Integer
Dim t As Double
Dim e As Double
e = 2.7182818
n = Round(Val(InputBox("n")))
For i = 1 To n
fact = 1
For j = 1 To i
fact = fact * j
Next j
y = y + fact
Next i
t = e ^ n / y
MsgBox t
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д