《实验经济学》课件PPT第8讲 经济实验实施实例：电子商务信誉机制的有效性检验.ppt

作业： Programming with Visual Basic 6.0 Enhanced Edition, Diane Zak, Tutorial 5，Tutorial 6 and Tutorial 10 (三周时间) 一、背景环境 Bolton，Katok and Ockenfels （2004）的研究采用如下博弈来刻画电子商务交易过程： 销售者和购买者手中各有35元。 销售者向购买者出售标价为35元的商品，该商品对购买者而言价值50元。 销售者从供货渠道获得产品、直到将产品运送到购买者手中全部过程所产生的成本为20元。 购买者有两种可能的选择：购买或不购买。 如果购买者选择不购买，则销售者和购买者各自保有自己的35元。 如果购买者选择购买，则购买者把自己的35元交付给销售者。 销售者在得到购买者的35元之后也有两种选择，发货或不发货。 如果销售者选择不发货，则销售者得到70元而购买者得到0元。 如果销售者选择发货，则销售者的所得是自己的35元加上购买者支付的35元再减去发货成本20元，共计50元；而此时购买者得到了对她而言价值50元的产品，即所得也为50元。 电子商务中，购买者处于不利地位。 交付货款后，购买者面临着销售者欺诈（即不发货）的风险。 建立信誉机制的目的是为了提高市场效率。 如果购买者能看到销售者在以往的交易中的发货记录，那么购买者只会从记录良好的销售者手中购买商品。 交易中的欺诈将直接反映在销售者的发货记录中，从而直接降低该销售者以后成交的可能性。 二、实验设计 我们需要足够的实验局。 每个实验局我们征召8个实验参加者。这8个实验参加者博弈重复进行14轮。 在每一轮中，8个参加者被随机分成4组。 每一组中，销售者/购买者随机决定。 从第2轮起，购买者能看到当前遇到的销售者以往的信誉记录。 如果该销售者以往与某个购买者发生了交易，记录将显示该销售者在交易中是否发货。 信誉记录信息需要购买者主动点击才会看到。 三、程序设计 服务器程序要实现的功能： 实验中信息传递的中转站 要生成数据文件以记录实验结果 要将实验结果通过电脑屏幕随时反映给监控实验的研究人员。 创建一个新的VB窗体Rep_Monitor.frm和VB工程Rep_Monitor.vbp，并存放到恰当的目录下。 针对服务器程序需要实现的功能，我们在窗体Rep_Monitor上添加若干个对象。 服务器程序的功能细化： 实验开始前，服务器要检查连接状态。当所有实验参加者都和服务器连上，且已作好实验准备时，服务器要发出使实验参加者进入实验状态的指令。 实验开始时，服务器要对参加者进行分组配对。 每一轮开始时，服务器要向参加者发送新一轮的信息。 每一轮结束时，服务器要记录本轮的实验结果。 在各轮进行过程中，服务器要处理购买者（甲）的决策、销售者（乙）的决策，并记录购买者使用信誉系统得情况。 实验参加者程序要实现向实验参加者传递信息和采集实验参加者的决策两大块功能。 我们创建一个新的VB窗体Rep_Subject.frm和VB工程Rep_Subject.vbp，并存放到恰当的目录下。 四、程序代码和文档 1. 服务器程序Rep_Monitor 1.1 对变量和变量组进行定义 Option Explicit Dim Period As Integer Dim Arrangement(1 To 14, 1 To 4, 1 To 2) As Integer Arrangement(period, group, role) Dim Choice(1 To 14, 1 To 8) As String choice(period, id) Dim Random(1 To 8) As Single, Position(1 To 8) As Integer Dim Group(1 To 8) As Integer, Role(1 To 8) As Integer Dim FChoice(1 To 8) As String, SChoice(1 To 8) As String Dim FPayoff(1 To 8) As Integer, SPayoff(1 To 8) As Integer, _ TPayoff(1 To 8) As Integer Dim SumUse(1 To 8) As Integer, InfoUse(1 To 8) As Integer Dim CountSChoices As Integer 1.2 窗体载入：初始化和实验参加者之间的配对 Private Sub Form_Load() Period = 0 frmMonitor.To