Как устранить ошибку в программном коде? - VB

Узнай цену своей работы

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

во второй строке постоянно выдает ошибку, не знаю что делать, в задании сказано найти разницу между максимальным элементом и минимальным значением. Option Compare Text Private Sub Command1_Click() Dim A(12) As Integer N As Integer i As Integer Max As Integer imin As Integer R As Integer N = InputBox('Введите N = ", "Количество элементов") For i = to N A(i) = InputBox('Введите A(" & i & ")=", "Ввод элементов") Next i Max = 12 imin = A(i) R = 0 For i = 1 To 12 do begin() If A(i) < Min Then imin = A(i) If If A(i) > Max Then Max = A(i) End If Writeln('Разница', max - min) If R = Max - imin Next i lblMax = 'Максимальный элемент" lblimin = 'Минимальное значение" lblR = 'Разница" txtMas = 'исходный массив" For i = 1 To N txtMas = txtMas & A(i) & '," Next i End Sub

Решение задачи: «Как устранить ошибку в программном коде?»

textual
Листинг программы
Option Compare Text
 
Private Sub Command1_Click()
 
    Dim A(12) As Integer
     N As Integer
     i As Integer
     Max As Integer
     imin As Integer
     R As Integer
 
 
    N = InputBox('Введите N = ", "Количество элементов")
    [B]    For i = to N[/B] не установлен нижний предел цикла
        A(i) = InputBox[B]('В[/B]ведите A(" & i & ")=", "Ввод элементов") Должна быть кавычка, а не апостроф
    Next i
 
    Max = 12
    imin = A(i)
    R = 0
 
    For i = 1 To 12[B] do 
        begin()[/B] это, наверное Паскаль остался
 
        If A(i) < Min Then
            imin = A(i)
        If
                If A(i) > Max Then
                    Max = A(i)
                End If
              [B]  Writeln('Разница', max - min)[/B] похоже тоже остатки из паскаля
        If
                    R = Max - imin
    Next i
 
    lblMax =[B] 'Мак[/B]симальный элемент" Должна быть кавычка, а не апостроф
    lblimin =[B] 'М[/B]инимальное значение" Должна быть кавычка, а не апостроф
    lblR = [B]'Р[/B]азница" Должна быть кавычка, а не апостроф
 
    txtMas =[B] 'ис[/B]ходный массив" Должна быть кавычка, а не апостроф
    For i = 1 To N
        txtMas = txtMas & A(i) &[B] ',[/B]" Должна быть кавычка, а не апостроф
    Next i
 
End Sub

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


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

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

11   голосов , оценка 4.091 из 5
Похожие ответы