1.
Código:
Private Sub Command1_Click()
Dim num As Integer
Picture1.Cls
Randomize
num = Int(Rnd() * 10)
Picture1.Print num
If num = 7 Then
Picture2.Picture = LoadPicture("")
Picture2.Cls
Picture2.Picture = LoadPicture("E:\Escola\11º Ano\PSI\Ficha nº10\1\moedas.jpg")
Else
Picture2.Picture = LoadPicture("")
Picture2.Cls
Picture2.Print "Tente outra vez..."
End If
End Sub
Private Sub Command2_Click()
End
End Sub
2.
Código:
Private Sub Command1_Click()
Dim num As Integer, num2 As Integer, num3 As Integer
Picture1.Cls
Picture3.Cls
Picture4.Cls
Randomize
num = Int(Rnd() * 10)
num2 = Int(Rnd() * 10)
num3 = Int(Rnd() * 10)
Picture1.Print num
Picture3.Print num2
Picture4.Print num3
If num = 7 Or num2 = 7 Or num3 = 7 Then
Picture2.Picture = LoadPicture("")
Picture2.Cls
Picture2.Picture = LoadPicture("E:\Escola\11º Ano\PSI\Ficha nº10\1\moedas.jpg")
Else
Picture2.Picture = LoadPicture("")
Picture2.Cls
Picture2.Print "Tente outra vez..."
End If
End Sub
Private Sub Command2_Click()
End
End Sub
3.
Código:
Private Sub Command1_Click()
Dim num As Integer, num2 As Integer, num3 As Integer
Picture1.Cls
Picture3.Cls
Picture4.Cls
Randomize
num = Int(Rnd() * 10)
num2 = Int(Rnd() * 10)
num3 = Int(Rnd() * 10)
Picture1.Print num
Picture3.Print num2
Picture4.Print num3
If num = 7 And num2 = 7 Or num = 7 And num3 = 7 Or num2 = 7 And num3 = 7 Then
Picture2.Picture = LoadPicture("")
Picture2.Cls
Picture2.Picture = LoadPicture("E:\Escola\11º Ano\PSI\Ficha nº10\1\moedas.jpg")
Else
Picture2.Picture = LoadPicture("")
Picture2.Cls
Picture2.Print "Tente outra vez..."
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Sem comentários:
Enviar um comentário