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

* 2.6.3 新轮次的开始 * If MessageType = NewPeriod Then Period = Period + 1 lblRound.Caption = 第 Period 轮 lblSummary.Caption = 无相关信息 txtInfo.Text = 无相关信息 lblSummary.Visible = False txtInfo.Visible = False lblFChoice.Visible = False NumTrustee = 0 NumReturn = 0 strContent = Message Exit Sub End If * strContent = Message If CInt(strContent) = 1 Then Role = 甲 cmdA.Caption = A cmdB.Caption = B lblRole.Caption = 你在本轮为甲 Else Role = 乙 cmdA.Caption = C cmdB.Caption = D lblRole.Caption = 你在本轮为乙 End If * lblRole.Caption = 你在本轮为乙 End If If Period 1 Then If Role = 甲 Then lblYourChoice.Caption = 你的决策是： lblYourChoice.Visible = True cmdA.Visible = True cmdB.Visible = True lblInfo.Visible = True cmdSum.Visible = True cmdInfo.Visible = True cmdA.Enabled = True cmdB.Enabled = True cmdSum.Enabled = True cmdInfo.Enabled = True Else cmdA.Enabled = False cmdB.Enabled = False cmdSum.Enabled = False cmdInfo.Enabled = False lblYourChoice.Visible = False cmdA.Visible = False cmdB.Visible = False lblInfo.Visible = False cmdSum.Visible = False cmdInfo.Visible = False End If End If Exit Sub End If * 2.6.4 甲（购买者）的决策 * If MessageType = FChoice Then strContent = Message If strContent = A Then lblFChoice.Visible = True FChoice = A SChoice = -- OwnPayoff = 35 PartnerPayoff = 35 TPayoff = TPayoff + O