VB-Simulation du jeu ultimatum

 24 May 2008 0 Comments

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

More »

Comment vérifier un premier nombre dans VB

 27 Feb 2008 0 Comments

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

More »

VB中如何判断是否为质数

 27 Feb 2008 0 Comments

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

More »

How to verify a prime number in VB

 27 Feb 2008 0 Comments

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

More »