Что не так в программном коде ? - VB
Формулировка задачи:
вопрос на счет этой программы ,что тут не так?
постоянно какие-то ошибки ...
в условиях надо найти массив z и min (минимальный элемент массива z)
блок схема тут :Код по блок-схеме
Решение задачи: «Что не так в программном коде ?»
textual
Листинг программы
Option Explicit Private Sub cmdrun_Click() Dim n As Integer Dim i As Integer Dim y() As Integer Dim z() As Single Dim min As Single txty.Text = "" txtz.Text = "" Randomize n = InputBox("n =", "n", 5) ReDim y(1 To n) As Integer, z(1 To n) For i = 1 To n y(i) = InputBox("y(" & CStr(i) & ") =", "", Int(Rnd * 21 - 10)) txty.Text = txty.Text & CStr(y(i)) & ", " Next i For i = 1 To n If Abs(y(i)) > 1 Then z(i) = y(i) Else z(i) = 2 Next i min = Abs(z(1)) For i = 2 To n If Abs(z(i)) < min Then min = Abs(z(i)) Next i For i = 1 To n txtz.Text = txtz.Text & CStr(z(i)) & ", " Next i txtz.Text = txtz.Text & " min = " & min End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д