Как устранить ошибку в программном коде? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д