| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 341 人关注过本帖
标题:求教一个数组问题,找了很久都没找到解决的方法!!
只看楼主 加入收藏
linglan
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-5-10
收藏
 问题点数:0 回复次数:2 
求教一个数组问题,找了很久都没找到解决的方法!!
做一个考试系统,一共有随机抽取的100道题,想把试题的id号及考生选择的答案放到一个数组里,然后将数组的每个元素之间以逗号隔开,放到accsee数据库里,请问应该怎么做啊~~
dim answer(100),id(100),correctans(100)

dim total=1 '定义每道题的分值.

for i = 1 to 100
answer(i) = request("answer("&i&")")
next

for i = 1 to 100
id(i) = request("id("&i&")")
next

for i = 1 to 100
correctans(i) = request("correctans("&i&")")
next

for i = 1 to 100
if correctans(i) = answer(i) then
total=total+1
end if
next
我是新手,大概是意思是这样的,不知道行不行得通,也不知道怎样将数组中的元素连成字符串,请大家帮帮忙!!! 谢谢!!!-----------在线等!!
2007-05-10 14:53
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
将数组的元素连成字符串循环数组就可以实现。
Dim TAry(3)
TAry(0)="a"
TAry(1)="b"
TAry(2)="c"
TAry(3)="d"
Dim i
Dim TStr
For i=0 To 3
TStr=TStr&TAry(i)&","
Next
TStr=Mid(TStr,1,Len(TStr)-1)
Response.Write TStr
2007-05-10 16:19
linglan
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-5-10
收藏
得分:0 
TAry(0)="a"
TAry(1)="b"
TAry(2)="c"
TAry(3)="d"

但是一个数组里就有100个元素,一共有3个数组,那个要写300多次
我看到有用join()方法的,好像可以将数组中的元素连成字符串,但怎么试都不行
还有其它比较少代码的方法吗?
2007-05-10 16:58
快速回复:求教一个数组问题,找了很久都没找到解决的方法!!
数据加载中...
 
   



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

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