|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
18.03.2014, 12:48 | #1 |
Регистрация: 14.05.2013
Сообщений: 4
|
Visual basic помогите, пожалуйста, с кодом
Dim Ponimanie(8) As String
Dim Zaklychenie(8) As String Dim Vstuplenie(8) As String Dim Geroi(8) As String Dim Antigeroi(8) As String Dim Deistvie1(8) As String Dim Deistvie2(8) As String Dim Deistvie3(8) As String Dim Vstrecha(8) As String Private Sub Command1_Click( ) Randome Timer a = Int(1+6*Rnd()) vvstuplenie = Vstuplenie(a) b = Int(1+6*Rnd()) ggGeroi = Geroi(b) D = Int(1+6*Rnd()) ddDeistvie1 = Deistvie1(D) e = Int(1+6*Rnd()) wVstrecha = Vstrecha(e) f = Int(1+6*Rnd()) aaAntigeroi = Antigeroi(f) h = Int(1+6*Rnd()) ddDeistvie2 = Deistvie2() i = Int(1+6*Rnd()) ddDeistvie3 = Deistvie3(i) k = Int(1+6*Rnd()) ppPonimanie = Ponimanie(k) m = Int(1+6*Rnd()) zzZaklychenie = Zaklychenie(m) Label1.Caption = vvstuplenie + ggGeroi + “.” + ddDeistvie1 + wVstrecha + aaAntigeroi + “.” + aaAntigeroi + ddDeistvie2 + ggGeroi + “.” + ddDeistvie3 + ggGeroi + ppPonimanie + “.” + zzZaklychenie. End Sub Private Sub Form_Load() Ponimanie(1)= “потому что он был тактичнее” Ponimanie(2)= “потому что был сильнее” Ponimanie(3)= “так как его готовили к трудностям всю жизнь” Zaklychenie(1)= “Конец!” Zaklychenie(2)= “Сказка ложь, да в ней намек, добрым молодцам урок! Zaklychenie(3)= “Этим и закончилась эта история.” Vstuplenie(1)= “Однажды в России” Vstuplenie(2)= “Был жаркий летний день” Vstuplenie(3)= “Хочу поведать вам историю, которая случилась со мной относительно недавно” Geroi(1)= “Медведь” Geroi(2)= “Простой Парень” Geroi(3)= “Мужик” Antigeroi(1)= “Волк” Antigeroi(2)= “Охотник” Antigeroi(3)= “Маньяк” Deistvie1(1)= “Гулял по лесу” Deistvie1(2)= “Гулял по городу” Deistvie1(3)= “Вышел из дому” Deistvie2(1)= “боролся, сжав челюсти” Deistvie2(2)= “дрался до последней капли крови” Deistvie2(3)= “сцепился” Deistvie3(1)= “Выиграл” Deistvie3(2)= “Победил” Deistvie3(3)= “Легко скрутил” Vstrecha(1)= “и тут он встречает” Vstrecha(2)= “через пару минут он встретил” Vstrecha(3)= “как наперерез ему выбегает” Если не сложно, подправьте код и скажите, что я делаю не так? |
18.03.2014, 13:21 | #2 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
1)
Код:
Код:
4) Кавычки не везде. Кстати, такие кавычки проходят в бейсике (негде проверить) 5) А не проще ли двумерным массивом? -Да, проще 5.5) Пробелы ещё надо добавить местами |
18.03.2014, 13:34 | #3 | |
Регистрация: 14.05.2013
Сообщений: 4
|
Цитата:
Про двумерный массив - не задумывался, писал по примеру преподавателя. У меня у самого бейсик странный, как то раз через раз работает, но сейчас не компилирует, не могу понять почему. |
|
18.03.2014, 13:50 | #4 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Почему не компилирует это сам бейсик должен сказать. Может включена опция обязательного объявления переменных, может ещё что-то (включая ошибки на сервере пентагона)
В VBA (в ворде, например) нормально работает Код:
Последний раз редактировалось eoln; 18.03.2014 в 13:53. |
18.03.2014, 13:59 | #5 |
Форумчанин
Регистрация: 31.05.2010
Сообщений: 407
|
у меня работает
Код:
icq 584 308 611
|
18.03.2014, 14:15 | #6 |
Регистрация: 14.05.2013
Сообщений: 4
|
Всё заработало, спасибо огромное )
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Пожалуйста помогите!!!Задача в Visual Basic !!! | Irisha | Помощь студентам | 13 | 27.06.2008 21:45 |
Помогите пожалуйста!!!!Задача в Visual Basic ! | Irisha | Microsoft Office Excel | 3 | 27.06.2008 02:19 |