VB猜词游戏程序代码

str= " "

e=1

win=0

使不规则化

对于i=1到4

a(I)= int((9-0+1)* rnd(1))+0

对于j=1到(i-1)

如果cstr(a(i))=cstr(a(j))，则i=i-1

然后

然后

点心

尺寸b(4)

尺寸c，d

do while e=1

Sum=inputbox("请输入要猜测的数字:"，"输入猜测值")。

如果cstr(sum)= "，则退出do

对于i=1到4

b(i)=mid(sum，I，1)

然后

c=0

d=0

对于i=1到4

对于j=1到4

如果cstr(a(i))=cstr(b(j))且i=j，则c=c+1

如果cstr(a(i))=cstr(b(j))且i & lt& gtj那么d=d+1

然后

然后

如果c=4，那么

win=1

出口do

如果…就会结束

str = str+chr(13)+B(1)+B(2)+B(3)+B(4)+space(2)+CSTR(c)+" A "+CSTR(d)+B "

wscript.echo字符串

环

如果win=1，那么wscript.echo“你猜对了。”Else wscript.echo“你没猜中。”

////////////////////////////////

以上是我写的一个小游戏。将对角线以上的部分复制到文档中，将后缀改为*。vbs，并直接双击看效果:)