Как устранить ошибку в программном коде? - 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