VB-Simulation du jeu ultimatum

    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.

Continue reading

Comment vérifier un premier nombre dans VB

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

Continue reading

VB中如何判断是否为质数

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

Continue reading

How to verify a prime number in VB

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

Continue reading

↑ Back to top