| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 315 人关注过本帖
标题:能帮忙看看这个剪刀石头布的小程序哪里错了吗?
取消只看楼主 加入收藏
yxtears
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-6-6
收藏
 问题点数:0 回复次数:0 
能帮忙看看这个剪刀石头布的小程序哪里错了吗?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
dim i,a
Randomize
s=0
do until i>=1 and i<=3
i=rnd()
i=CInt(x/1)
loop
a=request.Form("RadioGroup1")
if i=a then
response.Write("平手")
else if i=3 and a=1 then
response.Write("你赢了")
else
response.Write("你输了")
end if
end if
%>
<form id="form1" name="form1" method="post" action="1.asp">
  <p>
    <label>
      <input type="radio" name="RadioGroup1" value="1" />
      剪刀</label>
    <br />
    <label>
      <input type="radio" name="RadioGroup1" value="2" />
      石头</label>
    <br />
    <label>
      <input type="radio" name="RadioGroup1" value="3" />
      帕子</label>
    <br />
  </p>
  
  <label>
  <input type="submit" name="Submit" value="提交" />
  </label>
</form>
</body>
</html>
搜索更多相关主题的帖子: 石头 剪刀 
2008-06-07 14:26
快速回复:能帮忙看看这个剪刀石头布的小程序哪里错了吗?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015864 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved