Select Case语句与随机数应用示例.pdfVIP

用可视化基础第二十八课：‘SelectCase’和

第一部分：‘SelectCase’

[SelectCase语句在第2]课中已详细探讨过

‘SelectCase’语句非常适合用于设置变量的值，这些变量的取值依赖于另一个变量的特定范围。

下面的例子来自hangman.doc示例。

‘其他代码

SelectCase(Len(word))‘根据单词长度设置尝试次数

Case3To5次尝试=6

Case6To8次尝试=8

CaseIs8次尝试=10

EndSelectSet‘其

他代码

在这里，玩家拥有的尝试次数取决于单词的长度。如果是一个较短的单词，每个字母对应的尝试次数会；

如果是一个较长的单词，尝试次数则会减少，因为玩家有的机会选中正确的字母。这提高了游戏的可玩性。

第二部分：‘随机数’

我们在第13和14课中较深入地研究过随机数。在下面的hangman.doc示例中，该功能已被扩展，用于在最小

值[2]和最大值[21]的范围内返回10个不同的随机数。这可以用来在游戏中选择多个不同的单词。

DimNewNumbers(10)AsInteger

PublicSubgetnewnumber()获取介于2和21之间的10个不同数字

newnum=FalseWhilenewnum=FalsenewNumber=randNum(2,21)For

Count=1To10IfnewNumberNewNumbers(Count)Thennewnum=

TrueElsenewnum=FalseCount=10EndIfNextCountWendEndSub

FunctionrandNum(min,

max)Randomize初始化Rnd函数

randNum=Int((max‑min+1)*Rnd+min)randNum现已获得一个值

EndFunction

这里，函数‘RandNum(min,max)’返回的随机数被放入临时变量‘newNumber’中，然后检查数组‘NewNumbers(Count)’

是否已包含该‘newNumber’。如果存在，

VISUALBASICFORAPPLICATIONS

SONTWENTYEIGHT:‘SelectCase’andRandomNumbersREVISITED

SECTIONONE:‘SelectCase’

[TheSelectCasestatementwaslookedatindetailinson2]