Serenity

    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 [...]

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 [...]

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 [...]