Разработка простейших циклических алгоритмов (вычислить выражение) - VB

Формулировка задачи:

Найти Р= П(снизу под П: i=1, а сверху n) , где n заданное число. (просто формула не скопировалась и пришлось так писать) Я студент, мне осталось только зачет перездать по Visual Basic и больше его не открою никада)причем я экономист) я ничего не понимаю в вижуал бейсик) составьте пожалуйста код для решения и присвойте окна и значения) чтобы я открыл вижуал бейсик, вставил код программы и он работал ато я вообще 0) или залейте скрины скока каких окошек делать) чтобы я зделал эти окошки, вставил код программы и все пошло работать)

Решение задачи: «Разработка простейших циклических алгоритмов (вычислить выражение)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Private Sub Command1_Click()
Dim i, n, p As Single: p = 1
n = InputBox("Введите n")
For i = 1 To n
p = p * 1 / n
Next i
Print p
End Sub