抛硬币投机股票游戏

我们假设有两个角色，A和B，在玩硬币游戏。我给你最简单的代码来实现。

' Dim a As Integer '角色A获胜的次数。

' Dim b As Integer '角色b获胜的次数。

Dim c为整数，c为硬币的正面和背面

对于i=1到10 '游戏玩10次谁会赢？

C = Rnd * 2 '生成一个0到1之间的随机数作为硬币的正反面。

如果c=0，那么‘如果0，A赢，

A=a+1 '为a积累一定数量的胜利。

msgbox“A赢得这场比赛”

' OtherwElsee '是1，那么B赢。

B=b+1 '为b积累一定数量的胜利。

msgbox“B赢得这场游戏”

如果…就会结束

接下来我

如果a & gt然后Msgbox“A赢得了这场比赛”

如果b & gta然后Msgbox“B赢得了这场比赛”

如果b = a，那么Msgbox“AB平了这场比赛”

嗯，这样写应该就清楚了。

如果想让游戏永远持续下去，可以把for循环改成Do循环。