这个VBS干什么用的??

来源:百度知道 编辑:UC知道 时间:2024/05/16 08:05:34
s=1
g=999
a = ","
For i=1 To 999
a = a & i & ","
Next
Randomize
b = ","
For i =1 to 1
k = Int(Rnd * UBound(Split(a, ",")))
Next
r=0
o="你共有十次机会"
t=1
Do Until r=10
r=r+1
m=10-r
q=InputBox(o&chr(10)&""&chr(10)&u,"cong制作","请输入"&s&"-"&g&"任一数字")
p=k-q
If p<0 and q<1000 and q>0 Then
u="大了. "
g=q
ElseIf p>0 and p<>k and q<1000 and q>0 Then
u="小了. "
s=q
ElseIf p=0 Then
r=10
t=0
MsgBox "好聪明!!答对了!!"&Chr(10)&""&Chr(10)&"你怎么知道答案是"&k&"的??",vbokonly,"cong制作"
ElseIf p=k Then
r=10
t=0
ElseIf q>1000 or q<0 Then
u="范围超出!!"
End If
o="你还有"&m&"次机会

这个vbs是一个猜数字的游戏~
k = Int(Rnd * UBound(Split(a, ",")))
这一句的意思先用split函数把变量a这个字符串以逗号为分界取出给一个临时数组,然后用ubound函数得到这个数组的最大下标,再然后用rnd函数得到一个随机值,再再然后用int函数把这个值变为整形,最后赋给变量k。
就这样