节日快乐:散分168,加一个数组问题

已知数组:  
  a1="1,   2,   4,   9,   11,13"  
  a2="3,5,10,12,15,18"  
  a3="6,7,8,10,14,16,17"  
   
  现有一数x(1-->18),怎样用一函数判断x是在哪个数组里? 问题点数：168、回复次数：41Top

1 楼chinaworker（网络混混 bokele.com）回复于 2004-05-04 10:12:53 得分 6

asp   不懂Top

2 楼liuyangxuan（阿轩）回复于 2004-05-04 10:18:21 得分 10

<%  
  function   chknum(num)  
  for   i=0   to   UBound(a1)  
  If   a1(i)=num   Then  
  Response.Write"位于数组a1"  
  End   Function  
  End   If  
  Next  
  for   i=0   to   UBound(a2)  
  If   a1(i)=num   Then  
  Response.Write"位于数组a1"  
  End   Function  
  End   If  
  Next  
  for   i=0   to   UBound(a3)  
  If   a1(i)=num   Then  
  Response.Write"位于数组a1"  
  End   Function  
  End   If  
  Next  
  %>Top

3 楼stayhere（且留连）回复于 2004-05-04 10:18:25 得分 10

function   juge(s,arr)   'arr是数组,s是待判断的值  
    for   each   key   in   arr  
            if   s=k   then  
                  juge=true  
                  exit   for  
                  exit   function  
            end   if  
    next  
    juge=false  
   
  end   functionTop

4 楼tangxufeng（变幻之风）回复于 2004-05-04 10:19:05 得分 6

<%a(1)=a1  
  a(2)=a2  
  a(3)=a3  
  for   i=1   to   3  
    for   j=1   to   5  
    if   a(i,j)=x   then  
      response.write   x&"在"&"a"&i&里面  
    end   if  
    next  
  next%>Top

5 楼stayhere（且留连）回复于 2004-05-04 10:21:39 得分 1

for   each   k   in   arr,写错了Top

6 楼mygia（www.gzcost.com）回复于 2004-05-04 10:24:29 得分 5

不懂，帮你up吧，顺便接分！呵呵。。。Top

7 楼xiaoshitou81（小石头）回复于 2004-05-04 10:26:38 得分 8

可以用VB   Script判断啊。  
   
  <%  
  for   i=0   to   5  
  if   (a1(i)=x)   then   response.write   "x在数组a1里"  
  next    
  %>  
  <%  
  for   i=0   to   5  
  if   (a2(i)=x)   then   response.write   "x在数组a2里"  
  next    
  %>  
  <%  
  for   i=0   to   5  
  if   (a3(i)=x)   then   response.write   "x在数组a3里"  
  next    
  %>Top

8 楼stayhere（且留连）回复于 2004-05-04 10:27:55 得分 2

如果数组固定长度,固定个数,tangxufeng(变幻之风)的效率最高Top

9 楼diveas（枫）回复于 2004-05-04 10:44:50 得分 4

upTop

10 楼lubaixu（六百(lubai)）回复于 2004-05-04 10:55:25 得分 5

已知数组:  
  a1="1,   2,   4,   9,   11,13"  
  a2="3,5,10,12,15,18"  
  a3="6,7,8,10,14,16,17"  
   
  现有一数x(1-->18),怎样用一函数判断x是在哪个数组里?  
   
  ::  
  for   i=0   to   ubound(a1)  
      if   x=a(i)   then   response.write   "in   this"  
  next  
  嘻嘻。  
  就这样其它两个数据类似写法！  
   
  Top

11 楼postfix2（风间真）回复于 2004-05-04 11:06:31 得分 4

放假中,无心看,帮你UP~~~  
   
  接分了Top

12 楼enaking（伽楠居士）回复于 2004-05-04 11:15:51 得分 4

xiaoshitou81(小石头)做的好Top

13 楼soso119（soso119）回复于 2004-05-04 11:21:41 得分 4

xiaoshitou81(小石头)做的最好理解.但效率不高呀.  
  stayhere(且留连)寫的不錯~呵呵Top

14 楼xuwenfu（bb）回复于 2004-05-04 11:24:59 得分 4

厉害Top

15 楼lhdnxx（！白菜！）回复于 2004-05-04 11:41:58 得分 4

接分UPTop

16 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-05-04 11:44:00 得分 8

来个JavaScript版本的.  
   
  <script>  
  a1=[1,   2,   4,   9,   11,13]  
  a2=[3,5,10,12,15,18]  
  a3=[6,7,8,10,14,16,17]  
  function   baobao(s)  
  {  
      for(i=1;i<=3;i++)  
      {  
            tmp=eval("a"+i);  
            if((s).test(tmp))alert(s+"在"+tmp+"数组中")  
      }  
  }  
  baobao(/18/)  
  </script>Top

17 楼calmer18（WEB开发群(8906533)）回复于 2004-05-04 11:48:02 得分 4

还是JAVASCRIPT强啊     接分Top

18 楼ken1（小林）回复于 2004-05-04 11:54:49 得分 3

-_-  
  我只会用c写  
   
  不过   也   来   蹭分   。Top

19 楼yymzzl（吃得苦中苦，方为人上人！）回复于 2004-05-04 12:08:11 得分 4

来蹭分啊!!     顺便学东西!  
   
  节日快乐Top

20 楼einyu（郁树）回复于 2004-05-04 12:11:20 得分 3

学习Top

21 楼chinesefeng（chinesefeng）回复于 2004-05-04 12:19:49 得分 3

看不懂，能详细分析一下~Top

22 楼lhzyn（无心睡眠）回复于 2004-05-04 12:32:12 得分 3

接分：）Top

23 楼Ranmei（转向java）回复于 2004-05-04 13:02:05 得分 4

我不现丑了。  
  节日玩得开心。Top

24 楼QQgenie（妖魔鬼怪）回复于 2004-05-04 13:50:03 得分 0

用   liuyangxuan,xiaoshitou81(小石头)   的试过:  
   
  采用for的方法有问题:  
   
  只会在最前面的For...Next中执行,后面两个For不被执行,如x=10,得不到结果  
     
  从程序上看不出毛病  
   
  <%  
  a11="1,   2,   4,   9,   11,13"  
  a21="3,5,10,12,15,18"  
  a31="6,7,8,14,16,17"  
  a1=split(a11,",")  
  a2=split(a21,",")  
  a3=split(a31,",")  
   
  chknum(2)     '//正确  
  chknum(10)     '//无显示  
  chknum(16)     '//无显示  
  chknum(11)     '//正确  
   
  %>  
  <%  
  function   chknum(num)  
   
  for   i=0   to   UBound(a1)  
  If   a1(i)=num   Then  
  Response.Write"位于数组a1"  
  rearr   =   1  
  Exit   Function  
  End   If  
  Next  
  for   i=0   to   UBound(a2)  
  If   a2(i)=num   Then  
  rearr   =   2  
  Response.Write"位于数组a2"  
  Exit   Function  
  End   If  
  Next  
  for   i=0   to   UBound(a3)  
  If   a3(i)=num   Then  
  rearr   =   3  
  Response.Write"位于数组a3"  
  Exit   Function  
  End   If  
  Next  
   
  chknum   =   rearr  
  End   Function  
  %>Top

25 楼kiccleaf（凯晰叶子(http://www.openzj.com)）回复于 2004-05-04 16:43:43 得分 4

上面的都说明了!  
   
  我来接点分过日子!!!谢谢了!Top

26 楼qwater（qwater）回复于 2004-05-04 17:42:06 得分 3

upTop

27 楼shadow22（堂主）回复于 2004-05-04 18:04:42 得分 3

接分Top

28 楼yymzzl（吃得苦中苦，方为人上人！）回复于 2004-05-04 18:10:17 得分 3

UPTop

29 楼QQgenie（妖魔鬼怪）回复于 2004-05-04 19:15:37 得分 0

已无问题:  
   
  a11="1,   2,   4,   9,   11,13,"  
  a21="3,5,10,12,15,18,"  
  a31="6,7,8,14,16,17,"  
   
  是后面多了一个","Top

30 楼darkdragon1981（darkdragon1981）回复于 2004-05-04 19:32:51 得分 4

我也要分！，呵呵Top

31 楼liuyu202（学无止境）回复于 2004-05-04 20:39:00 得分 4

接分！Top

32 楼BlueDestiny（Design Life - never-online.net）回复于 2004-05-04 21:24:23 得分 4

ubound  
  接分Top

33 楼diveas（枫）回复于 2004-05-05 14:27:15 得分 4

帮你ding上去Top

34 楼qizu（沁竹）回复于 2004-05-05 14:37:11 得分 3

接分啊Top

35 楼yslcuk（ylc）回复于 2004-05-05 14:50:36 得分 3

接分Top

36 楼zhouguoyao（飞鸟）回复于 2004-05-05 15:22:56 得分 4

<%a(1)=a1  
  a(2)=a2  
  a(3)=a3  
  for   i=1   to   3  
    for   j=1   to   5  
    if   a(i,j)=x   then  
      response.write   x&"在"&"a"&i&里面  
    end   if  
    next  
  next%>  
  Top

37 楼huidan（坏蛋）回复于 2004-05-05 16:13:25 得分 4

UBound()  
  Top

38 楼chhwang（浩浩*好想早日拥有闪耀的星星*★★★★★）回复于 2004-05-05 16:25:24 得分 4

要么For   i=0   to   ubound(..)-1  
   
  要么For   i=1   to   ubound(..)Top

39 楼chhwang（浩浩*好想早日拥有闪耀的星星*★★★★★）回复于 2004-05-05 16:26:13 得分 4

这样就不需要再最后加一个,号了。。。。接点分。。。。Top

40 楼sfply（随风飘零叶）回复于 2004-05-05 17:48:37 得分 4

问题简单  
  回答N多  
  markTop

41 楼sunhuiming（小冬）回复于 2004-05-05 17:56:22 得分 4

upTop

相关问题

• 数组
• juge
• arr
• 判断
• 问题
• next
• function

• 帖主：QQgenie
• chinaworker
• liuyangxuan
• stayhere
• tangxufeng
• stayhere
• mygia
• xiaoshitou81
• stayhere
• diveas
• lubaixu
• postfix2
• enaking
• soso119
• xuwenfu
• lhdnxx
• wanghr100
• calmer18
• ken1
• yymzzl
• einyu
• chinesefeng
• lhzyn
• Ranmei
• kiccleaf
• qwater
• shadow22
• yymzzl
• darkdragon1981
• liuyu202
• BlueDestiny
• diveas
• qizu
• yslcuk
• zhouguoyao
• huidan
• chhwang
• chhwang
• sfply
• sunhuiming

• Web开发类图书