Написать программу с использованием операторов цикла с известным числом повторений (for i. to.next) - VB

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

Написать программу с использованием операторов цикла с известным числом повторений (for i... to..next) и создать блок схему по заданию

Модифицировать программу так, чтобы элементы массива меньше 10 стали равны 0.

                    Листинг программы
                
 
                        
                          
                    
n=inputBox("Ввести число")
Redim x(n)
Randomize
for i=0 to n 
x(i)=eval(inputbox("Число элементов массива"))
Next
s=1
for i=0 to n 
if x(i)<10 Then x(i)=0
Next 
MsgBox

Где ошибка?

Решение задачи: «Написать программу с использованием операторов цикла с известным числом повторений (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

Оцени полезность:

5 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы