欢迎光临爱时尚女性网
 

ASP网页石头、剪子、布小游戏源码

2012-11-21 编辑:knwz 来源:爱时尚女性网 阅读次数:785
  导读: 石头、剪子、布小游戏 玩家:------电脑: 请选择你的武器: 石头 剪子 布   ...
<%
Function ComputerChoose()
Dim RandomNum
Dim choice
Randomize
RandomNum=int(rnd*3)+1
if RandomNum=1 then
燾hoice="R"
elseif RandomNum=2 then
燾hoice="S"
else
燾hoice="P"
end if
ComputerChoose=choice
End Function


Sub DetermineWinner(playerChoice,computerChoice)
if playerChoice="R" then
爄f computerChoice="R" then
response.write "石头-----石头
"
response.write "我们平手了"
爀lseif computerChoice="S" then
response.write "石头-----剪子
"
response.write "恭喜你,你赢了"
爀lseif computerChoice="P" then
response.write "石头-----
"
response.write "恭喜你,你赢了"
爀nd if
elseif playerChoice="S" then
爄f computerChoice="R" then
response.write "剪子-----石头
"
response.write "恭喜你,你赢了"
爀lseif computerChoice="S" then
response.write "剪子-----剪子
"
response.write "我们平手了"
爀lseif computerChoice="P" then
response.write "剪子-----
"
response.write "恭喜你,你赢了"
爀nd if
elseif playerChoice="P" then
爄f computerChoice="R" then
response.write "-----石头
"
response.write "恭喜你,你赢了"
爀lseif computerChoice="S" then
response.write "-----剪子
"
response.write "这次我赢了"
爀lseif computerChoice="P" then
response.write "-----
"
response.write "我们平手了"
爀nd if
end if
End sub
%>

石头、剪子、布小游戏


玩家:------电脑:

<%
dim player
dim computer
player=request("choice")
if player="P" or player="R" or player="S" then
computer=ComputerChoose()
call DetermineWinner(player,computer)
end if
%>


请选择你的武器:

石头

剪子

布  







文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。