当前位置: 代码迷 >> ASP >> 编写石头、剪刀、布小游戏,该如何处理
  详细解决方案

编写石头、剪刀、布小游戏,该如何处理

热度:509   发布时间:2012-03-15 11:50:38.0
编写石头、剪刀、布小游戏
功能如下:
        玩家                                       电脑
                 
                    布                 石头
                        我们平手了(你输了)(你赢了)
                    请选择您的武器:
                        石头
                        剪刀
                        布
                       
                        提交

和电脑玩小游戏,选择单选按钮后,点击提交   ,救高手给出代码,小弟感激不尽!!!

------解决方案--------------------
主要考随机数的知识,可以参考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>
  相关解决方案