作者：何双江

本文适合读者主要是入门读者和对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 = "玩家出''''布'''' 电脑出

[1] [2] [3] [4]  下一页