Sub poczatek()
Dim a, b, c As Integer
Range("a1").Offset(7, 0).Value = Int(Rnd * 100) 'losowanie
a = Val("a1")
Label1.Caption = "wylosowano. podaj liczbę"
End Sub

Private Sub CommandButton1_Click()
b = Val(TextBox1.Text)
If a = b Then
Label1.Caption = "You are a winner!"
Else
If a > b Then
Label1.Caption = "za mało"
Else
Label1.Caption = "za dużo"
End If
End If
End Sub
'Dim x As Integer
'If x = 5 Then

'Else
' For x = 0 To 5
' Range("a1").Offset(x, 0).Value = TextBox1.Text
' Next x
'End If

Private Sub TextBox1_Change()

End Sub
Wyszukiwarka

Podobne podstrony:
daily technical report 2012 10 01
2012 10 01
dowcipy 10 01 2008
TI 98 10 01 T pl(1)
10 01
plan posilkow26,10 01,11
WM Cw3 Instrukcja sciskanie v12 student 10 01 07
10 01 Plan BOZiS v1 1
TI 01 10 01 T pl
10 01
TI 01 10 01 T pl(1)
TI 01 10 01 T pl(1)
wykład 11 10 01 2013
II SA Bk 358 Wyrok WSA w Białymstoku z 2009 10 01

więcej podobnych podstron