Visual basic помогите, пожалуйста, с кодом

[gon71]

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)= “как наперерез ему выбегает”



Если не сложно, подправьте код и скажите, что я делаю не так?

[eoln]

1)

Int(1+2*Rnd()) //всего же 3 варианта

2)

ddDeistvie2 = Deistvie2(h) //индекс не указан

3) Randomize Timer
4) Кавычки не везде. Кстати, такие кавычки проходят в бейсике (негде проверить)
5) А не проще ли двумерным массивом? -Да, проще
5.5) Пробелы ещё надо добавить местами

[gon71]

Сообщение от eoln

1)

Int(1+2*Rnd()) //всего же 3 варианта

2)

ddDeistvie2 = Deistvie2(h) //индекс не указан

3) Randomize Timer
4) Кавычки не везде. Кстати, такие кавычки проходят в бейсике (негде проверить)
5) А не проще ли двумерным массивом? -Да, проще
5.5) Пробелы ещё надо добавить местами

Всё, подправил эти мелкие косячки, но программа всё еще отказывается работать.
Про двумерный массив - не задумывался, писал по примеру преподавателя.
У меня у самого бейсик странный, как то раз через раз работает, но сейчас не компилирует, не могу понять почему.

[eoln]

Почему не компилирует это сам бейсик должен сказать. Может включена опция обязательного объявления переменных, может ещё что-то (включая ошибки на сервере пентагона)
В VBA (в ворде, например) нормально работает

 Dim Ponimanie(3) As String
 Dim Zaklychenie(3) As String
 Dim Vstuplenie(3) As String
 Dim Geroi(3) As String
 Dim Antigeroi(3) As String
 Dim Deistvie1(3) As String
 Dim Deistvie2(3) As String
 Dim Deistvie3(3) As String
 Dim Vstrecha(3) As String
 
Private Sub CommandButton1_Click()

Randomize Timer
 a = Int(1 + 2 * Rnd())
 vvstuplenie = Vstuplenie(a)

 b = Int(1 + 2 * Rnd())
 ggGeroi = Geroi(b)

 D = Int(1 + 2 * Rnd())
 ddDeistvie1 = Deistvie1(D)

 E = Int(1 + 2 * Rnd())
 wVstrecha = Vstrecha(E)

 f = Int(1 + 2 * Rnd())
 aaAntigeroi = Antigeroi(f)

 h = Int(1 + 2 * Rnd())
 ddDeistvie2 = Deistvie2(h)

 i = Int(1 + 2 * Rnd())
 ddDeistvie3 = Deistvie3(i)

 k = Int(1 + 2 * Rnd())
 ppPonimanie = Ponimanie(k)

 m = Int(1 + 2 * Rnd())
 zzZaklychenie = Zaklychenie(m)

 Label1.Caption = vvstuplenie + ggGeroi + "." + ddDeistvie1 + wVstrecha + aaAntigeroi + "." + aaAntigeroi + ddDeistvie2 + ggGeroi + "." + ddDeistvie3 + ggGeroi + ppPonimanie + "." + zzZaklychenie
End Sub

Private Sub UserForm_Activate()
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) = "как наперерез ему выбегает"
End Sub

Кстати, Dim Geroi(3) As String - размер массива на 4 элемента (нулевой в программе не используется)

[gaw4]

у меня работает

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()
 Randomize (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(h)

 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) = "как наперерез ему выбегает”"
 End Sub

[gon71]

Всё заработало, спасибо огромное )