您所在位置：主题：vbscript 问题 -----------请帮我看看-----------
成天 [专家分：80] 发布于 2005-12-07 00:20:00
类似一个抽奖(只弄了2位数)
机器自选一个00-99的数字,然后与输入的对照
头一位相同---3等奖
后一位相同---2等奖
两位都相同---1等奖
<html>
<head>
<script language="vbscript" for="b1" event="onclick">
dim box(1),bos(1),A,B,I,J,X
'定义一个0-99的随机数
B=form1.X.value
A=int(rnd()*99-0+1)+10
'抽 B 的每个字符数字
I=1
J=0
do
box(J)=mid(B,I,1)
I=I+1
J=J+1
if I>2 then
exit do
end if
loop
'抽 A 的每个字符上的数字
K=1
L=0
do
bos(L)=mid(A,K,1) '取字节数"MID(内容,抽取字节位置,抽取数量)"
K=K+1
L=L+1
if K>2 then
exit do
end if
loop
'进行判断
if box(0)=bos(0) and box(1)=bos(1) then
msgbox "厉害,奖号为:" & a & "你选择的数为:" & b
elseif box(0)<>bos(0) and box(1)=bos(1) then
msgbox "二等奖:奖号为:" & a & "你选择的数为:" & b
elseif box(0)=bos(0) and box(1)<>bos(1) then
msgbox "三等奖:奖号为:" & a & "你选择的数为:" & b
elseif box(0)<>bos(0) and box(1)<>bos(1) then
msgbox "没有奖:奖号为:" & a & "你选择的数为:" & b
end if
</script>
<body>
<form name="form1">
输入选号：<input type="text" name="X" size=4 maxlength="2">
<input type=button name="b1" value="抽奖">
</form>
</body>
</html>
问题:
1.在随机抽取0-99之间数字的时候会出现抽到 01-09的数字 然而0 做为数值不显示所以BOX(1)中的值为空,问如何将头一位数字设置成一个可以为0的数字?(希望不要用两个随机抽取后*10和*100)
2.由于是随机抽取数字,抽取的数字是伪随机,所以每次的 第一次 抽取都为相同数(后面也是一样) 我如何将伪随机改为真随机
3.我看书上写道"在使用随机前要加上Randomize声明,但是我没有用到会有什么后果?
4.有没有更简单的办法来写这个程序?
问题有点多,谢谢帮忙! ^_^
机器自选一个00-99的数字,然后与输入的对照
头一位相同---3等奖
后一位相同---2等奖
两位都相同---1等奖
<html>
<head>
<script language="vbscript" for="b1" event="onclick">
dim box(1),bos(1),A,B,I,J,X
'定义一个0-99的随机数
B=form1.X.value
A=int(rnd()*99-0+1)+10
'抽 B 的每个字符数字
I=1
J=0
do
box(J)=mid(B,I,1)
I=I+1
J=J+1
if I>2 then
exit do
end if
loop
'抽 A 的每个字符上的数字
K=1
L=0
do
bos(L)=mid(A,K,1) '取字节数"MID(内容,抽取字节位置,抽取数量)"
K=K+1
L=L+1
if K>2 then
exit do
end if
loop
'进行判断
if box(0)=bos(0) and box(1)=bos(1) then
msgbox "厉害,奖号为:" & a & "你选择的数为:" & b
elseif box(0)<>bos(0) and box(1)=bos(1) then
msgbox "二等奖:奖号为:" & a & "你选择的数为:" & b
elseif box(0)=bos(0) and box(1)<>bos(1) then
msgbox "三等奖:奖号为:" & a & "你选择的数为:" & b
elseif box(0)<>bos(0) and box(1)<>bos(1) then
msgbox "没有奖:奖号为:" & a & "你选择的数为:" & b
end if
</script>
<body>
<form name="form1">
输入选号：<input type="text" name="X" size=4 maxlength="2">
<input type=button name="b1" value="抽奖">
</form>
</body>
</html>
问题:
1.在随机抽取0-99之间数字的时候会出现抽到 01-09的数字 然而0 做为数值不显示所以BOX(1)中的值为空,问如何将头一位数字设置成一个可以为0的数字?(希望不要用两个随机抽取后*10和*100)
2.由于是随机抽取数字,抽取的数字是伪随机,所以每次的 第一次 抽取都为相同数(后面也是一样) 我如何将伪随机改为真随机
3.我看书上写道"在使用随机前要加上Randomize声明,但是我没有用到会有什么后果?
4.有没有更简单的办法来写这个程序?
问题有点多,谢谢帮忙! ^_^