广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 3822 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
Mysteltainn 手机
个人头像
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x14
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Asp][讨论] 读取变数有问题
<%
dim intnum(4)
intnum(0)=request.form("number1")
intnum(1)=request.form("number2")
intnum(2)=request.form("number3")
intnum(3)=request.form("number4")
intnum(4)=request.form("number5")
response.write(intnum(0))
response.write(intnum(1))
response.write(intnum(2))
response.write(intnum(3))
response.write(intnum(4))
response.write "<br>"
%>
<%
dim ran(4)

     for inti=0 to 4 step 1
           Randomize()
           ran(inti)=Int(Rnd*9)+1
     next
response.write(ran(0))
response.write(ran(1))
response.write(ran(2))
response.write(ran(3))
response.write(ran(4))
response.write("<br>")
%>
<%
dim inti,intj,intfrequency
intfrequency=0
for inti=0 to 4 step 1
     select case intnum(inti)
     case ran(0): intfrequency=intfrequency+1
     case ran(1): intfrequency=intfrequency+1
     case ran(2): intfrequency=intfrequency+1
     case ran(3): intfrequency=intfrequency+1
     case ran(4): intfrequency=intfrequency+1
     end select
next
response.write(intfrequency)
%>

请问为什么我在测试列印response.write(intfrequency)
他都只显示0
是在select case里面有错吗?还是其他地方?
还有各位觉得我还有什么地方可以改进的吗?
我写的是1~9号的乐透
新手上路还望多多指教 表情



献花 x0 回到顶端 [楼 主] From:台湾中华电信 | Posted:2006-01-07 23:36 |
kevinkuo 手机
个人头像
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖 终身成就奖
小有名气
级别: 小有名气 该用户目前不上站
推文 x1 鲜花 x76
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

select case ran(inti) 这个地方应该是你要输入的判断条件

case 是你所对应的值

所以你的程式要修改成下面这样

<%
dim inti,intj,intfrequency
intfrequency=0
for inti=0 to 4 step 1
  select case ran(inti)
  case 1: intfrequency=intfrequency+1
  case 2: intfrequency=intfrequency+1
  case 3: intfrequency=intfrequency+1
  case 4: intfrequency=intfrequency+1
  case 5: intfrequency=intfrequency+1
  case 6 intfrequency=intfrequency+1
  case 7: intfrequency=intfrequency+1
  case 8: intfrequency=intfrequency+1
  case 9: intfrequency=intfrequency+1
  case 0: intfrequency=intfrequency+1
  end select
next
response.write(intfrequency)
%>


献花 x0 回到顶端 [1 楼] From:台湾中华电信 | Posted:2006-02-07 09:52 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.014922 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言