Ветвление,цикл For - VB
Формулировка задачи:
пожалуйста,помогите написать программу!
вот задание:
Задача : Дано: натуральное n ( 1 <= n <= 12 )., действительные y1,..,yn.
Найти: z1^2+z2^2+...+zn^2 , где zi= yi при 0<yi<10 или zi=1 в противном случае.
Последовательность чисел ввести с помощью элемента функции InputBox(). Вычисления производить после нажатия командной кнопки «Вычислить». Результат отобразить на форме с помощью элемента управления метка. Перебор значений реализовать с помощью оператора цикла FOR
Решение задачи: «Ветвление,цикл For»
textual
Листинг программы
Option Explicit Dim y() As Single Dim n As Integer Dim z As Single Dim i As Integer Dim str As String Private Sub btnIn_Click() n = Val(InputBox("Введите значение переменной n (от 1 до 12)", "Окно ввода 1")) ReDim y(n) str = "" For i = 1 To n y(i) = Val(InputBox("Введите значение переменной y(" & i & ")", "Окно ввода 2")) str = str & " " & y(i) Next i End Sub Private Sub btnCalc_Click() Me.Cls For i = 1 To n If y(i) > 0 And y(i) < 10 Then z = z + y(i) ^ 2 Else z = z + 1 End If Next Label1.Caption = "Результат вычисления равен " & z End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д