Juego de vb
Private Sub Command1_Click()
Label2 = Int(Rnd * 10)
Label3 = Int(Rnd * 10)
Label4 = Int(Rnd * 10)
Label1.Visible = False
Image1.Visible = False
If Label2 = 7 And Label3 = 7 And Label4 =7 Then
Label1.Visible = True
Image1.Visible = True
End If
End Sub
Private Sub Command2_Click()
End
End Sub
LONGITUDES
Private Sub calcular_Click()
If Option1.Value = True Then
IfOption8.Value = True Then
RESULTADO = valor
End If
If Option9.Value = True Then
RESULTADO = valor * 10 ^ -1
End If
If Option10.Value = True Then
RESULTADO =valor * 10 ^ -2
End If
If Option11.Value = True Then
RESULTADO = valor * 10 ^ -3
End If
If Option12.Value = True Then
RESULTADO = valor * 10 ^ -4
End IfIf Option13.Value = True Then
RESULTADO = valor * 10 ^ -5
End If
If Option14.Value = True Then
RESULTADO = valor * 10 ^ -6
End If
End If
If Option2.Value = TrueThen
If Option9.Value = True Then
RESULTADO = valor
End If
If Option8.Value = True Then
RESULTADO = valor * 10 ^ -5
End If
If Option10.Value = True ThenRESULTADO = valor * 10 - 4
End If
If Option11.Value = True Then
RESULTADO = valor * 10 ^ -3
End If
If Option12.Value = True Then
RESULTADO = valor * 10 ^ -2End If
If Option13.Value = True Then
RESULTADO = valor * 10 ^ -1
End If
If Option14.Value = True Then
RESULTADO = valor * 10
End If
End If
IfOption3.Value = True Then
If Option10.Value = True Then
RESULTADO = valor
End If
If Option8.Value = True Then
RESULTADO = valor * 10 ^ -4
End If
If Option9.Value =True Then
RESULTADO = valor * 10 ^ -3
End If
If Option11.Value = True Then
RESULTADO = valor * 10 - 2
End If
If Option12.Value = True Then
RESULTADO =...
Regístrate para leer el documento completo.