将就看下吧
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=10">
<title>Document</title>
</head>
<body>
<button id="buySelef">买一张(自选)</button>
<button id="buyRandom">买一张(机选)</button>
<button id="result">买一张(开奖)</button>
<div id='resultList'>
<span>结果</span>
</div>
</body>
</html>
<script src=">
Dim a(0 To 4) As Integer
Private Sub Command1_Click()
For i = 1 To 30
If i = 30 Then
t = t & i
Else
t = t & i & ","
End If
Next
For i = 0 To 4
j = Split(t, ",")
Randomize
temp = Int(Rnd (UBound(j) + 1) + 0)
Text1(i) = j(temp)
If temp <> UBound(j) Then
t = Replace(t, "," & j(temp) & ",", ",")
Else
t = Replace(t, "," & j(temp) & ",", "")
End If
Next
End Sub
Private Sub Command2_Click()
For i = 1 To 30
If i = 30 Then
t = t & i
Else
t = t & i & ","
End If
Next
For i = 0 To 4
j = Split(t, ",")
Randomize
temp = Int(Rnd (UBound(j) + 1) + 0)
a(i) = j(temp)
If temp <> UBound(j) Then
t = Replace(t, "," & j(temp) & ",", ",")
Else
t = Replace(t, "," & j(temp) & ",", "")
End If
Next
Print "中奖号码为：" & a(0) & vbTab & a(1) & vbTab & a(2) & vbTab & a(3) & vbTab & a(4)
For i = 0 To 4
For k = 0 To 4
If a(i) = Text1(k) Then n = n + 1
Next
Next
If n <> 0 Then
MsgBox "恭喜你中了" & 6 - n & "等奖"
Else
MsgBox "很遗憾，您没中奖"
End If
End Sub
Private Sub cmdStart_Click()
Dim i As Integer‘定义i为整形变量
For i = 0 To 4’i从0 到 4 进行5次循环
If option1(i)Value Then‘如果选中了第i+1注（单选框第一到第五注是option1（0） 到option1（4））
Exit For’如果满足，退出for循环
End If‘结束判断
Next’for循环的结束语句
base = i 7‘上面利用一个循环把你选中的第几注赋值给了i 此时把i7赋值给变量base cmdStopEnabled = True’把停职按钮的可用性变为true 即让停止按钮可用
cmdStartEnabled = False‘让开始按钮不可用
cmdAutoEnabled = False‘让自动按钮不可用
cmdStopSetFocus’让停止按钮获得焦点（就是那一圈围着按钮的特别细的虚线）
start = True’令变量start的逻辑属性为真
Do While start‘这是一个do loop循环 如果start为真就一直循环
Randomize Timer’让随机数每次都不一样，
i = Rnd() 6‘让i取1到6的随机数
lblNum(i + base)Caption = Trim(Str(Int(Rnd() IIf(i = 6, 5, 10))))
'这里lblNum(i + base)Caption 指的是第几个幸运号码框，base是之前判定了的你选的第几注乘以了6（每行6个），也就是从第几行开始，i是随机的，后面的代码trim是去掉两边的空格，str是把内容改为字符串格式，int是取整，后面那个没看太懂，个人觉得这块有错，
DoEvents‘转让控制权，以便让 *** 作系统处理其它的事件
If auto Then’如果auto为真（就是点了自动按钮）
If Timer - sTime > sDiff Then‘这缺少相应的在通用声明区的定义语句，看不太懂
Exit Do’跳出do loop循环
End If‘结束判断
End If’结束判断
Loop
End Sub
Private Sub cmdStop_Click()’停止按钮的单击事件
cmdStopEnabled = False‘停止按钮不可用
i = 0’让i=0
Do While True‘do loop循环，这个循环判定条件一直是真，通过内部的结束循环语句来结束循环
lblNum(i + base)Caption = Trim(Str(Int(Rnd() IIf(i = 6, 5, 10))))’同之前的
i = i + 1‘i从0开始依次累加
If i = 7 Then
Exit Do’如果i=7 结束循环
End If
p = Rnd / 5‘在0 到02中随机取值
N = Timer’n为系统计时器数值
Do While Timer - N < p‘
Randomize Timer
r = Rnd() (6 - i) + i’让r在i到6-i间随机取值
lblNum(r + base)Caption = Trim(Str(Int(Rnd() IIf(r = 6, 5, 10))))
DoEvents‘转让控制权，以便让 *** 作系统处理其它的事件
Loop
Loop
start = False‘start属性变为false
cmdStartEnabled = True’开始按钮可用
cmdAutoEnabled = True‘自动按钮可用
cmdStartSetFocus‘开始按钮得到焦点
End Sub
Private Sub Form_Load()’窗体加载事件
cmdStopEnabled = False‘停止按钮不可用
For i = 0 To 34
lblNum(i)Caption = ""
Next’把34个数值全清空
End Sub
Private Sub lblNum_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)‘lblNum的鼠标按下事件
Dim r As Integer
If (Not start) And (Not auto) Then’如果没开始，没点自动
r = Index Mod 7‘index意思是第几个，从0开始，比如第一行的第二个index就是1，第二行的第一个index就是7 mod 7 就是对7 取余取出来的数值表示他是这一行的第几个。
manu = True’令menu为真
Do While manu
lblNum(Index) = Trim(Str(Int(Rnd() IIf(r = 6, 5, 10))))
DoEvents‘转让控制权，以便让 *** 作系统处理其它的事件
Loop
End If
End Sub
Private Sub lblNum_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
manu = False‘鼠标松开时，menu为假，停止上面鼠标按下事件当中的循环。
End Sub
就这些了，望采纳
<html>
<script>
function $(obj){return documentgetElementById(obj);}
var n , _startNum , _endNum ,currIndex, numArr ;
function randomNum( )
{
var t= new Date();
var ms = tgetMilliseconds();
var s = tgetSeconds();
var m = tgetMinutes();
var h = tgetHours();
var luck = parseInt( $("luckNum")value,10) ;
var bm = parseInt( $("mm")value,10) ;
var bd = parseInt( $("dd")value,10) ;
var delayRondom = h + m + s + ms - Mathceil( (ms/4)3 );
var randomNum =( ms + s + luck + bm + bd ) % (_endNum + (ms%2) );
var isExist=false;
for(var i=0; i<numArrlength ; i++)
if( numArr[i] == randomNum )isExist=true;
if( !$("reNum")checked )
{
if( isExist==false && randomNum >= _startNum )
{
numArrpush( randomNum );
}
else
{
setTimeout( "randomNum()" , delayRondom );
return ;
}
}
var span = documentcreateElement("span");
spaninnerHTML= "第"+ currIndex + "个号码:" + randomNum + "<br>";
$("showNum")appendChild(span);
if( currIndex < n )
{
setTimeout( "randomNum()" , delayRondom );
currIndex ++ ;
}
}
function makeNum()
{
var strN = $("numCount")value;
var strStartNum = $("startNum")value;
var strEndNum = $("endNum")value;
$("showNum")innerText="";
currIndex=1;
numArr = new Array();
if( !isNaN( strN + strStartNum + strEndNum ) )
{
n = parseInt(strN,10);
_startNum = parseInt(strStartNum,10);
_endNum = parseInt(strEndNum,10);
if( (_endNum - _startNum)>n )
randomNum();
else alert("设置错误！范围必须大于生成个数！");
}
else alert("请设置正确的范围和生成个数！");
}
function initSelect(sel, _begin, _end)
{
for(var i=_begin; i<=_end; i++)
{
seloptionsadd( new Option( i , i) );
}
}
windowonload=function( )
{
initSelect( $("luckNum") ,0,100);
initSelect( $("mm") ,1,12);
initSelect( $("dd") ,1,31);
}
</script>
<body>
<h1>彩码生成程序</h1>
<div id=showNum ></div>
<br>
<input type=checkbox id=reNum >重复码(打钩是可重复码)
<br>
你需要:<input id=numCount value="7" >个码
<br>
范围从:<input id="startNum" value="0" >至
<input id="endNum" value="36" >小于1000
<br>
请输入你的生日:<select id=mm ></select>月
<select id=dd ></select>日
<br>
请输入你的幸运数字:<select id=luckNum ></select>
<br>
<input type=button value ="生成**码" onclick="makeNum()">
</body>
</html>
以上就是关于使用JavaScript设计一个彩票摇奖程序全部的内容，包括:使用JavaScript设计一个彩票摇奖程序、帮忙用C语言编写一个类此彩票3D生成的随机数的程序、vb彩票摇奖 编写一个简易的30选五彩票摇奖程序。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）