功能如下:
玩家 电脑
布 石头
我们平手了(你输了)(你赢了)
请选择您的武器:
石头
剪刀
布
提交
和电脑玩小游戏,选择单选按钮后,点击提交 ,救高手给出代码,小弟感激不尽!!!
------解决方案--------------------
主要考随机数的知识，可以参考randomize
下面例子举例说明如何使用 Randomize 语句:
Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int((6 * Rnd) + 1) ' 产生 1 到 6 之间的随机数。
MsgBox MyValue
Response = MsgBox ( "Roll again? ", vbYesNo)
Loop
------解决方案--------------------
用随机数实现很简单的。
只需要三个即可：
randomize
n=int(rnd*3)
定义规则：0 <1 <2 <0
加入条件语句即可。
------解决方案--------------------
<html> <body>
<%
If Request.ServerVariables( "HTTP_METHOD ") = "POST " Then
Dim weapon, myWeapon, s
s = " "
weapon = CInt(Request.Form( "weapon "))
Randomize
myWeapon = Int(3 * Rnd)
Response.Write "玩家 电脑 " & " <br/> "
Response.Write getName(weapon) & " " & getName(myWeapon) & " <br/> "
Select Case (weapon - myWeapon)
Case 0 s = "我们平手了 "
Case -1 s = "你赢了 "
Case 1 s = "你输了 "
Case -2 s = "你输了 "
Case 2 s = "你赢了 "
End Select
Response.Write s & " <br/> "
End If
Function getName(s)
Select Case s
Case 0 getName = "石头 "
Case 1 getName = "剪刀 "
Case 2 getName = "布 "
End Select
End Function
%>
<br>
请选择您的武器:
<form action= " " method= "post ">
<br/>
<input type= "radio " value= "0 " name= "weapon "> 石头 <br/>
<input type= "radio " value= "1 " name= "weapon "> 剪刀 <br/>
<input type= "radio " value= "2 " name= "weapon "> 布 <br/>
<input type= "submit " value= "提交 ">
</form>
<body> </html>