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

1.6.2 处理甲（购买者）所发送的信息 If MessageType = FChoice Then strContent = Message Choice(Period, Subject) = strContent For i = 1 To 4 If Arrangement(Period, i, 1) = Subject Then Partner = Arrangement(Period, i, 2) End If Next i FChoice(Subject) = strContent FChoice(Partner) = strContent Exit Sub End If FChoice(Subject) = strContent FChoice(Partner) = strContent If strContent = A Then Choice(Period, Partner) = O SChoice(Subject) = O SCh