举例通过VB编写猜拳游戏来讲述条件语句

来源：互联网发布：yy直播伴侣mac版编辑：程序博客网时间：2024/04/29 22:42

作者：何双江

本文适合读者主要是入门读者和对VB入门教学有兴趣的朋友。

条件判断是计算机编程中完成主要逻辑结构的流程控制语句。在VB中提供了

IF 条件表达式1 then

[代码部分]

elseIf 条件表达式2 then

[代码部分]

else

[代码部分]

end IF

的控制流程来控制程序的执行结构。条件表达式决定了执行条件的判断。这里我们来举个例子说明该控制流程的工作方法。

本例通过用VB实现一个猜拳程序来分析条件判断语句。首先我们先来分析一下基本的猜拳规则：

1. 猜拳包括三个基本的拳（石头，剪刀，布）

2. 胜负规则：石头>剪刀剪刀>布布>石头

然后我们来考虑猜拳游戏的实现，首先猜拳是由选手和电脑之间的比赛进行的，电脑的猜拳我们通过随机数来生成vb的随机输函数rnd函数可以生成0～1之间的随机数我们通过Int(rnd()*3)+1来实现生成【1～3】的随机数，表示（石头，剪刀，布），而选手选择的拳记录在变量中playerGuess，然后我们再来编写规则来实现。对于编写规则我们就可以运用到上面所介绍的条件判断的流程控制了。通过条件判断的流程控制我们可以做如下比较，如果电脑出（石头，剪刀，布）的一种，选手出的（石头，剪刀，布）的一种，那么就有9种组合规则，因此这里就需要嵌套的条件判断。

Dim guess As String

GuessTimer.Enabled = False

guess = randGuess(Int(Rnd() * 3) + 1)

RandLabel.Caption = guess

If guess = "石头" Then

If playerGuess = "Rock" Then

TitleLabel.Caption = "玩家出'石头' 电脑出'石头' 双方平"

Draw = Draw + 1

ElseIf playerGuess = "Forfex" Then

TitleLabel.Caption = "玩家出'布' 电脑出'石头' 玩家赢"

Win = Win + 1

Else 'playerGuess="Cloth"

TitleLabel.Caption = "玩家出'剪刀' 电脑出'石头' 电脑赢"

Own = Own + 1

End If

ElseIf guess = "剪刀" Then

If playerGuess = "Rock" Then

TitleLabel.Caption = "玩家出'石头' 电脑出'剪刀' 玩家赢"

Win = Win + 1

ElseIf playerGuess = "Forfex" Then

TitleLabel.Caption = "玩家出'剪刀' 电脑出'剪刀' 双方平"

Draw = Draw + 1

Else 'playerGuess="Cloth"

TitleLabel.Caption = "玩家出'布' 电脑出'剪刀' 电脑赢"

Own = Own + 1

End If

Else 'guess="布"

If playerGuess = "Rock" Then

TitleLabel.Caption = "玩家出'石头' 电脑出'布' 电脑赢"

Own = Own + 1

ElseIf playerGuess = "Forfex" Then

TitleLabel.Caption = "玩家出'剪刀' 电脑出'布' 玩家赢"

Win = Win + 1

Else 'playerGuess="Cloth"

TitleLabel.Caption = "玩家出'布' 电脑出'布' 双方平"

Draw = Draw + 1

End If

ResultLabel.Caption = "赢：" & Win & "场" & "平：" & Draw & "场" & "负：" & Own & "场"

同时我们统计赢，平，负的场数。

整个程序设计：

程序界面设计

程序源代码：

Private playerGuess As String

Private randGuess() As String

Private Win As Single

Private Own As Single

Private Draw As Single

Private Sub ClothCommand_Click()

playerGuess = "Cloth"

GuessTimer.Enabled = True

TitleLabel.Caption = "玩家准备出'布'"

End Sub

Private Sub ForfexCommand_Click()

playerGuess = "Forfex"

GuessTimer.Enabled = True

TitleLabel.Caption = "玩家准备出'剪刀'"

End Sub

Private Sub Form_Load()

ReDim randGuess(3)

randGuess(1) = "石头"

randGuess(2) = "剪刀"

randGuess(3) = "布"

ResultLabel.Caption = "赢：" & Win & "场" & "平：" & Draw & "场" & "负：" & Own & "场"

Dim sum As Single

sum = 0

For i = 1 To 12

sum = sum + i

Next i

MsgBox sum

End Sub

Private Sub GuessCommand_Click()

Dim guess As String

GuessTimer.Enabled = False

guess = randGuess(Int(Rnd() * 3) + 1)

RandLabel.Caption = guess

If guess = "石头" Then

If playerGuess = "Rock" Then

TitleLabel.Caption = "玩家出'石头' 电脑出'石头' 双方平"

Draw = Draw + 1

ElseIf playerGuess = "Forfex" Then

TitleLabel.Caption = "玩家出'布' 电脑出'石头' 玩家赢"

Win = Win + 1

Else 'playerGuess="Cloth"

TitleLabel.Caption = "玩家出'剪刀' 电脑出'石头' 电脑赢"

Own = Own + 1

End If

ElseIf guess = "剪刀" Then

If playerGuess = "Rock" Then

TitleLabel.Caption = "玩家出'石头' 电脑出'剪刀' 玩家赢"

Win = Win + 1

ElseIf playerGuess = "Forfex" Then

TitleLabel.Caption = "玩家出'剪刀' 电脑出'剪刀' 双方平"

Draw = Draw + 1

Else 'playerGuess="Cloth"

TitleLabel.Caption = "玩家出'布' 电脑出'剪刀' 电脑赢"

Own = Own + 1

End If

Else 'guess="布"

If playerGuess = "Rock" Then

TitleLabel.Caption = "玩家出'石头' 电脑出'布' 电脑赢"

Own = Own + 1

ElseIf playerGuess = "Forfex" Then

TitleLabel.Caption = "玩家出'剪刀' 电脑出'布' 玩家赢"

Win = Win + 1

Else 'playerGuess="Cloth"

TitleLabel.Caption = "玩家出'布' 电脑出'布' 双方平"

Draw = Draw + 1

End If

ResultLabel.Caption = "赢：" & Win & "场" & "平：" & Draw & "场" & "负：" & Own & "场"

End Sub

Private Sub GuessTimer_Timer()

RandLabel.Caption = randGuess(Int(Rnd() * 3) + 1)

End Sub

Private Sub RockCommand_Click()

playerGuess = "Rock"

GuessTimer.Enabled = True

TitleLabel.Caption = "玩家准备出'石头'"

End Sub

总结：

本程序是一个简单易懂的VB入门程序，通过该程序使刚起步的朋友在兴趣中了解程序的基本逻辑结构同时抛开了C的机器复杂性。