Что не так в программном коде ? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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