Visual Basic

[_ГэЛ_]

Dim n As Integer
Dim a As Integer
Private Sub Command1_Click()
Label1.Caption = Int(Rnd * 5)
Label2.Caption = Int(Rnd * 5)
If Label1.Caption = Label2.Caption Then
Label3.Caption = "win"
a = a + 1
Else
Label3.Caption = "loose"
n = n + 1
End If
Label3.Caption = "vsego" + Str(n) + "won" + Str(a)
End Sub

Comments

[_ГэЛ_]

На Богему)
Private Sub Command1_Click()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Randomize
If Image1.Left < 7000 Or Image2.Left < 7000 Or Image3.Left < 7000 Or Image4.Left < 7000 Or Image5.Left < 7000 Then
Image1.Left = Image1.Left + Rnd * 200
Image2.Left = Image2.Left + Rnd * 200
Image3.Left = Image3.Left + Rnd * 200
Image4.Left = Image4.Left + Rnd * 200
Image5.Left = Image5.Left + Rnd * 200
Else
Timer1.Interval = 0
If Image1.Left > Image2.Left And Image1.Left > Image3.Left And Image1.Left > Image4.Left And Image1.Left > Image5.Left Then
Label1.Caption = "Miko won!))"
End If
If Image2.Left > Image1.Left And Image2.Left > Image3.Left And Image2.Left > Image4.Left And Image2.Left > Image5.Left Then
Label1.Caption = "Nighta won!))"
End If
If Image3.Left > Image1.Left And Image3.Left > Image2.Left And Image3.Left > Image4.Left And Image3.Left > Image5.Left Then
Label1.Caption = "Omen won!))"
End If
If Image4.Left > Image1.Left And Image4.Left > Image2.Left And Image4.Left > Image3.Left And Image4.Left > Image5.Left Then
Label1.Caption = "Riddle won!))"
End If
If Image5.Left > Image1.Left And Image5.Left > Image2.Left And Image5.Left > Image3.Left And Image5.Left > Image4.Left Then
Label1.Caption = "Slyness won!))"
End If
End If
End Sub

[_ГэЛ_]

мультяшки

Dim a As Integer
Private Sub Command1_Click()
Timer1.Interval = 150
End Sub
Private Sub Timer1_Timer()
If a < 12 Then
Image1.Picture = Image2(a).Picture
a = a + 1
Else
a = 0
End If
End Sub