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 (le proposant) offre à B (le répondant) une part X de cette somme, c’est à dire,
A reçoit une somme (S-X) ; B reçoit une somme X ;
Si répondant B accepte la proposition, les 2 gagent la somme indiquée au-dessus;
Si répondant B n’accepte pas, les 2 n’obtiennent rien du tout;

    (Au sens de la théorie des jeux, s’ils sont rationnels, la proposition (X=1 ; S-X=99) est un équilibre parfait).     On suppose que l’on a 49 individus qui répètent ce jeu un certain nombre de fois :

A chaque fois, chaque individu joue le rôle de proposant avec un répondant choisi au hasard.

    La stratégie de chaque individu est la suivante :

Choisir 2 nombres entiers au hasard mais entre 0 et 100, prop et accept ; Quand il est proposant il offre toujours prop à l’autre; Quand il est répondant il accepte si et seulement si la répartition offerte est supérieure ou égale à accept.

Read the rest of this entry »

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 Sub

Read the rest of this entry »

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

Read the rest of this entry »

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 number”)
　　　　Exit Sub
　　　End If
　Next i
　MsgBox (”The numbered you entered is not a prime number”)
End Sub

Read the rest of this entry »