2011-03-22 23:52
程序代码：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<title>下拉列表随机选中测试 </title>
<script type="text/vbscript" language="vbscript">
'判断是否数字
Function IsNum(val)
On Error Resume Next
IF VarType(CInt(val))<>2 Then
IsNum=False
Else
IsNum=True
End IF
End Function
'生成下拉列表选项按钮事件
Function MarkSelect_Click()
Dim MaxLen,i
'获得文本框OptionNum输入的内容
MaxLen=document.getElementById("OptionNum").value
'判断文本框输入的是否正确
IF MaxLen="" Then
MsgBox "不能为空"
Exit Function
End IF
IF Not IsNum(MaxLen) Then
MsgBox "输入的非整数"
Exit Function
End IF
IF MaxLen>1000 Then
MsgBox "最大数值为1000"
Exit Function
End IF
IF MaxLen<=0 Then
MsgBox "不能小于0"
Exit Function
End IF
'生成下拉列表选项代码
selShow.options.length=0'初始化下拉选项个数为0
'循环添加下拉列表选项
For i=0 To MaxLen
Dim opt
Set opt=document.createElement("option")'创建一个下拉列表选项
'给创建的下拉列表选项赋值
opt.text=i
opt.value=i
selShow.add opt '将创建的选项添加入下拉列表
Next
End Function
'随机选择事件按钮
Function Random_Click()
Dim selLen,rndNum
Randomize '初始化随机数
selLen=selShow.options.length '获得下拉列表的选项个数
IF selLen<=0 Then Exit Function '判断选项个数是否小于0
rndNum=Int((selLen*Rnd)+0)'在下拉列表的选项中产生一个随机数
selShow.options(rndNum).selected=True'设置某项被选中
End Function
</script>
</head>
<body>
<p>下拉列表随机选中测试
</p>
<p>
<input type="text" id="OptionNum"/>
输入选项个数<input id="MarkSelect" onclick="MarkSelect_Click()" type="button" value="生成选项" /></p>
<p>
<select id="selShow">
</select>
<input type="button" id="Random" onclick="Random_Click()" value="开始"/>
</p>
</body>
</html>
2011-03-23 13:03
程序代码：<script language="vbscript">
function pk()
document.getElementById("option1").checked = false
document.getElementById("option2").checked = false
document.getElementById("option3").checked = false
dim x,y,a,w
randomize
x = int(rnd()*3)+1
select case x
case 1
document.getElementById("option1").checked = true
case 2
document.getElementById("option2").checked = true
case 3
document.getElementById("option3").checked = true
end select
end function
<input name="option1" type="radio" value="1" />
剪刀</p>
<p>
<label></label>
<input type="radio" name="option2" value="2" />
石头 </p>
<p>
<input type="radio" name="option3" value="3" />
布</p>我自己研究了一个，可以显示，我想知道你怎么看这段代码，给点意见，我多做改进。
2011-03-23 17:10
程序代码：<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script type="text/vbscript">
function pk()
dim r,l,i
randomize
l=document.getElementsByName("opt").length'获得一共有几个复选框
r= int(rnd()*l)+0'产生随机数
document.getElementsByName("opt")(r).checked=True'随机选中一个复选框
end function
</script>
</head>
<body>
<input name="opt" type="radio" value="1" /> 剪刀
<input type="radio" name="opt" value="2" /> 石头
<input type="radio" name="opt" value="3" />布
<input type="button" name="pkbtn" onclick="pk()" value="pk"/>
</body>
</html>
要学会善于用数组和循环
2011-03-23 22:10
2011-03-23 23:06