| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1117 人关注过本帖
标题:数组问题
只看楼主 加入收藏
TZTJ
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:737
专家分:115
注 册:2008-1-15
结帖率:100%
收藏
 问题点数:0 回复次数:1 
数组问题
我能用以下代码把随机抽取出来的试题号保存到数组中去吗?
 select st
recall all
For lnCnt=1 To tmun2
 Do While .T.
    lnRecord=Int(Rand()*Reccount()+1)
    Go lnRecord
      If !Deleted()
      Delete
      Exit
    EndIf
  EndDo
EndFor
dime asth1(tmun2)
store 试题号 to asth1(tmun2)
另外,asth1(1),asth1(2).....asth1(tmun2)是不是表示第一个,第二个,......的试题号吗?
搜索更多相关主题的帖子: 试题 lnRecord dime Rand Exit 
2008-02-19 11:43
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
select st
recall all
Dimension asth1(tmun2)
For lnCnt=1 To tmun2
  Do While .T.
    lnRecord=Int(Rand()*Reccount()+1)
    Go lnRecord
    If !Deleted()
      Delete
      store 试题号 to asth1(lnCnt)
      Exit
    EndIf
  EndDo
EndFor

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-02-19 13:53
快速回复:数组问题
数据加载中...
 
   



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

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