Найти произведение 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
