Salut ! Tout le monde, je vous représente d’ici un jeu de programmation intéressant que nous avons réalisé en utilisant VB pendant ce semestre à l’université. Pour qu’on peut partager les expériences et se progresser.
Sujet : Le jeu de l’ultimatum se présente de la façon suivante :
2 individus (A et B) se partagent une somme S = 100 ;
A (le proposant) [...]
See this post in : English Version or Chinese Version
Private Sub Command1_Click()
r = InputBox(“Entrez un chiffre pour vérifier, SVP”)
For i = 2 To r
If Val(r) Mod i = 0 And i <> Val(r) Then ‘Ici donne une condition pour les non premiers nombres
MsgBox (“Ce n’est pas un premier nombre”)
Exit Sub
End If
Next i
MsgBox (“C’est un premier nombre”)
End [...]
See this post in : English Version or French Version
Private Sub Command1_Click()
r = InputBox(“请输入您要判断的数字”)
For i = 2 To r
If Val(r) Mod i = 0 And i <> Val(r) Then ‘这里给出了非质数的条件
MsgBox (“此数为非质数”)
Exit Sub
End If
Next i
MsgBox (“此数为质数”)
End Sub
See this post in: Chinese Version or French Version
Private Sub Command1_Click()
r = InputBox(“Enter a number please”) ‘ Enter a number to verify
For i = 2 To r
If Val(r) Mod i = 0 And i <> Val(r) Then ‘ this phase give a condition which is not a prime number
MsgBox (“The numbered you entered is not a prime [...]