Il y a une façon pour avoir la division:
dans le Command1 de la form 5, place le code suivant.
Private Sub Command1_Click()
If Option1 = True Then
num = 49
num2 = 5
score = 1
End If
If Option2 = True Then
num = 199
num2 = 10
score = 3
End If
If Option3 = True Then
num = 499
num2 = 40
score = 5
End If
Randomize
Label3.Caption = Int(Rnd * num) + 1
Label2.Caption = Label3.Caption * (Int(Rnd * num2) + 2)
End Sub
dans le Command1 de la form 5, place le code suivant.
Private Sub Command1_Click()
If Option1 = True Then
num = 49
num2 = 5
score = 1
End If
If Option2 = True Then
num = 199
num2 = 10
score = 3
End If
If Option3 = True Then
num = 499
num2 = 40
score = 5
End If
Randomize
Label3.Caption = Int(Rnd * num) + 1
Label2.Caption = Label3.Caption * (Int(Rnd * num2) + 2)
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.