Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
stasy liv
0 / 0 / 0
Регистрация: 04.12.2010
Сообщений: 8
#1

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

04.12.2010, 22:25. Просмотров 638. Ответов 3
Метки нет (Все метки)

во второй строке постоянно выдает ошибку, не знаю что делать, в задании сказано найти разницу между максимальным элементом и минимальным значением.

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
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2010, 22:25
Я подобрал для вас темы с готовыми решениями и ответами на вопрос как устранить ошибку в программном коде? (VB):

Устранить ошибку в коде. Массивы
Dim x() As Single, y() As Single, Msg As String, D As Single, Y1() As Single,...

Как записать в программном коде два массива?
Здравствуйте , подскажите пожалуйста , как записать в программном коде вод двух...

Иероглифы в коде, как устранить?
Не могу запустить базу данных access, ругается на какой то OLE и ActiveX На...

Как устранить возникшие ошибки в коде
Function Amp(ByVal x As Variant) A = K * Sqr((A1 * x(i) ^ 2 + A3) ^ 2 + (A0 *...

Ошибка в программном коде
Подскажите пожалуйста что тут не так , где ошибка . Private Sub...

Крякозябры в программном коде
Подскажите пожалуйста как исправить это

3
MC_Shinoda
11 / 11 / 3
Регистрация: 18.04.2010
Сообщений: 90
04.12.2010, 22:54 #2
Это походу не в тему паскаля а в визуал бэйсик.
0
stasy liv
0 / 0 / 0
Регистрация: 04.12.2010
Сообщений: 8
04.12.2010, 23:46  [ТС] #3
Цитата Сообщение от MC_Shinoda Посмотреть сообщение
Это походу не в тему паскаля а в визуал бэйсик.
спасибо за помощь капитан очевидность)))))))))))
0
Alex77755
10695 / 3270 / 543
Регистрация: 13.02.2009
Сообщений: 9,647
05.12.2010, 08:21 #4
во второй строке постоянно выдает ошибку, не знаю что делать, в задании сказано найти разницу между максимальным элементом и минимальным значением.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2010, 08:21
Привет! Вот еще темы с решениями:

Что не так в программном коде ?
вопрос на счет этой программы ,что тут не так? постоянно какие-то ошибки ... ...

Подскажите как устранить ошибку run-time error -2147023067(80070725)
Подскажите как устранить ошибку run-time error -2147023067(80070725) ...

Есть ли какие-нибудь правила расстановки отступов в программном коде для его удобочитаемости?
Есть ли какие-нибудь правила расстановки отступов в программном коде для его...

Как устранить ошибку [Microsoft][ODBC driver for oracle][Oracle]ORA-20003
При работе в программе возникает вот такая ошибка ORA-20003 что это может быть?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru