Найти произведение N сомножителей - Visual Basic .NET
Формулировка задачи:
Дано целое число N (> 0). Найти произведение
1.1 · 1.2 · 1.3 · …
(N сомножителей).
Помогите решить в Visual Basic.Net
Решение задачи: «Найти произведение N сомножителей»
textual
Листинг программы
Dim n As Integer = 0 Dim result As Double = 1 If TextBox1.Text <> "" Then If IsNumeric(TextBox1.Text) Then n = TextBox1.Text For i = 1 To n result = result * ((i + 10) / 10) Next TextBox2.Text = result End If End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д