|
作者：何双江 本文适合读者主要是入门读者和对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] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
