Написать программу с использованием операторов цикла с известным числом повторений (for i. to.next) - VB
Формулировка задачи:
Написать программу с использованием операторов цикла с известным числом повторений (for i... to..next) и создать блок схему по заданию
Модифицировать программу так, чтобы элементы массива меньше 10 стали равны 0.
Где ошибка?
Решение задачи: «Написать программу с использованием операторов цикла с известным числом повторений (for i. to.next)»
textual
Листинг программы
Private Sub Комманда1_Click()
n = Val(InputBox("Число элементов массива", "Размерность", Int(5 * Rnd + 10)))
Dim S
ReDim x(n)
Randomize
For i = 0 To n
x(i) = InputBox("Ввести число", "число № " & i + 1, Int(10 * Rnd + 5))
S = IIf(i = 0, "Исходный массив:" & vbCrLf & x(i), S & ";" & x(i))
Next
For i = 0 To n
If x(i) < 10 Then x(i) = 0
S = IIf(i = 0, S & vbCrLf & "Искомый массив:" & vbCrLf & x(i), S & ";" & x(i))
Next
MsgBox S, 64, "Результат"
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д