ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Тест по информатике
3 сообщений из 3, страница 1 из 1
Тест по информатике
    #38493815
Викторияя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Викторияя
Гость
Не получается сделать тест по информатике, помогите пожалуйста. Выдает Run-time error 9 subscript out of range

Вот мой код
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim v() As String
Dim Otv() As String
Dim n As Integer
Dim i As Integer

Private Sub cmd_click()
i = 1
n = 1
Open "C:\test.txt" For Input As #1
Do Until EOF(i)
Input #1, v(i)
Input #1, Otv(i)
i = i + 1
Loop
Close #1
n = i - 1
End Sub
...
Рейтинг: 0 / 0
09.12.2013, 11:39
| Ответить | Цитировать | Написать  
Тест по информатике
    #38493848
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
у массивов v() Otv() размер не указан, вот и выдает

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
09.12.2013, 11:54
| Ответить | Цитировать | Написать  
Тест по информатике
    #38494566
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
Викторияя,

абсолютно неясно назначение переменной n. в программе должен быть лишь 1 верный ответ, поэтому записывать в файл "верно" или "неверно" после каждого вопроса не нужно. к тому же от тебя не требуется использовать внешние источники данных. зачем усложнять себе жизнь.
за 250р могу написать прогу за тебя
...
Рейтинг: 0 / 0
09.12.2013, 19:30
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Тест по информатике
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=50&tid=2156650]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 15ms
total:  152ms
созд. / загр.: 152ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]