Есть форма, на ней Label1 и кнопка Command1
При запуске программы переменной <А> присваивается случайное число от 1 до 3
При нажатии на кнопку Command1 если А=1 кнопка исчезает и Label1="Выпала 1"
если А=2 кнопка исчезает и Label1="Выпала 2"
если А=2 кнопка исчезает и Label1="Выпала 3"



Private Sub Form_Load()
Randomize
A = Int((3 * Rnd) + 1)
End Sub

Private Sub Command1_Click()
Command1.Visible = False
If A = 1 Then Label1 = "Выпала 1"
If A = 2 Then Label1 = "Выпала 2"
If A = 3 Then Label1 = "Выпала 3"
End Sub

Но при нажатии на Command1, Label1 остается пустой...
в чем проблема?

А переменная А у тебя не объявленна.
Объяви ее в разделе Declaration кода формы: Dim A As Integer

Declaration
Dim A As Integer

Private Sub Form_Load()
Randomize
A = Int((3 * Rnd) + 1)
End Sub

Private Sub Command1_Click()
Command1.Visible = False
If A = 1 Then Label1 = "Выпала 1"
If A = 2 Then Label1 = "Выпала 2"
If A = 3 Then Label1 = "Выпала 3"
End Sub

НЕ РАБОТАЕТ

Попробуй так

Код

Declaration  Option explicit      Dim a as integer

Declaration
Option Explicit
Dim a As Integer

Private Sub Form_Load()
Randomize
a = Int((3 * Rnd) + 1)
End Sub

Private Sub Command1_Click()
Command1.Visible = False
If a = 1 Then Label1 = "Выпала 1"
If a = 2 Then Label1 = "Выпала 2"
If a = 3 Then Label1 = "Выпала 3"
End Sub


выдает ошибку !!! Declaration

Код

Option Explicit Dim A As Integer ______________________________ Private Sub Command1_Click() Command1.Visible = False Dim A As Integer A = Val(Text1.Text) If A = 1 Then Label1 = "Выпала 1" If A = 2 Then Label1 = "Выпала 2" If A = 3 Then Label1 = "Выпала 3" End Sub __________________________________ Private Sub Form_Load() Randomize [A] = Int((3 * Rnd) + 1) End Sub

Я тут написал пример, но тебе надо кинуть на форму ещё Техт1
и при вводе в него цифру от одного до трёх получается то что хотел
а по другому я пока и сам не знаю как???
Да относительно

Цитата

выдает ошибку !!! Declaration

Тебе не надо писать это слово, тебе надо зайти в
(General) (Declaration) и там прописать
Option Explicit
Dim A As Integer

Уважаемый Гость. Перед тем, как заниматься программированием, советую хоть чуть-чуть почитать книги! А то в последнее время столько ...тупых... вопросов от гостей стало поступать... прямо жуть

а для чего еще форум?

Цитата

а для чего еще форум?

Если тебе дали на работе задачу, ты ее решаешь и что-то не получается - тогда на форум, а вопросы, "как мне поместить Label на форму" - для этого есть учебники/справочники.

Voldemar2004

Цитата

"как мне поместить Label на форму"

Да ладно не злись он вроде не о том, лучше если знаеш подскажи как без Техт1 обойтись

Цитата

Я тут написал пример, но тебе надо кинуть на форму ещё Техт1 и при вводе в него цифру от одного до трёх получается то что хотел а по другому я пока и сам не знаю как???

Цитата

Есть форма, на ней Label1 и кнопка Command1 При запуске программы переменной <А> присваивается случайное число от 1 до 3 При нажатии на кнопку Command1 если А=1 кнопка исчезает и Label1="Выпала 1" если А=2 кнопка исчезает и Label1="Выпала 2" если А=2 кнопка исчезает и Label1="Выпала 3"

Вадян!, тебе не кажется, что

Код

Randomize [A] = Int((3 * Rnd) + 1)

будет всегда выдавать одно и тоже значение равное нулю.

Цитата

лучше если знаеш подскажи как без Техт1 обойтись

Код

Option Explicit Dim A As Integer Private Sub Command1_Click() Select Case A Case 1 Label1.Caption = "Выпала 1" Case 2 Label1.Caption = "Выпала 2" Case 3 Label1.Caption = "Выпала 3" End Select If A = 1 Then Command1.Visible = False End Sub Private Sub Form_Load() Randomize [A] = Int((3 * Rnd) + 1) End Sub

Не очень понял зачем вам TextBox, вы в нем что ли хотели выводить "Выпала 3", "Выпала 2" и т.п.?

может вот так вот уже или я чегото непонял?

Код

Option Explicit Dim A As Integer Private Sub Command1_Click() Command1.Visible = False If A = 1 Then Label1.Caption = "1" If A = 2 Then Label1.Caption = "2" If A = 3 Then Label1.Caption = "3" End Sub Private Sub Form_Load() Randomize: A = Int((3 * Rnd) + 1) End Sub

а то я чегото непонял что за строчка у вас такая

Цитата

Randomize [A] = Int((3 * Rnd) + 1)

чёто она помойму неработает или я отупeл за всё ето время

Это сообщение отредактировал(а) M.E.G.U.S - 15.5.2005, 14:17

Private Sub BB1_Click()
BB1.Visible = False
If LB1 = "B" Then Label5 = "Найден выход.": level = level + 1: GoTo XXX100:
End Sub


GoTo XXX100: - если поместить за пределами

Private Sub BB1_Click()
....
End Sub

то переход туда не происходит. Почему ?

то есть вот так

Private Sub BB1_Click()
BB1.Visible = False
If LB1 = "B" Then Label5 = "Найден выход.": level = level + 1: GoTo XXX100:
End Sub

XXX100:
текст программы.....

Цитата

GoTo can branch only to lines within the procedure where it appears.

и вообще

Цитата

Note  Too many GoTo statements can make code difficult to read and debug. Use structured controlstatements (Do...Loop, For...Next, If...Then...Else, Select Case) whenever possible.

А можешь просто сделать отдельную функцию и выполнять ее по условию...

Модератор: Пожалуйста, один топик - один вопрос.