在线等...

[hc99]

一个变量rc
把rc分成1,...,rc这样的序列如何做啊
...是平均分的并且...中不包含小数,即1,...,rc全是正数如何做啊
哥们怎么整不出来啊
望指教啊

[king2410]

Dim i,str
str = "1"
for i = 2 to rc
str = str & "," & i
next

[hc99]

不好意思我没有说清楚啊
还有一个条件就是1,...,rc的个数是个定值n=20啊
就是如果rc>20则n就是20
否则n=rc啊

[king2410]

Dim i,str,rn
str = "1"
if rc > 20 then
rn = 20
else
rn = rc
end if
for i = 2 to rc
str = str & "," & i
next

[hc99]

我的x轴要求都是正数啊!!!

[king2410]

正数？难道你的rc是负的？

[hc99]

rc不是负的,但是你用xLen \ rc得到的值他不是有小数吗??
哦 是整数错了

[hc99]

抱歉这么长时间才回复您,
其实您还是没有搞明白我的意思
我数据库中记录的条数是一个不确定的量,我要用vml显示出他来,x轴共有20个点,如何实现平均显示的问题,如果rc大于20那么x轴为从1到rc但是点数还是20,当rc小于20时我就显示全部数据,就一个这样的程序,望指教!!!

[king2410]

设需要显示的总长度为xLen
Dim rn ' 每次x轴的递增值
if rc > 20 then
rn = xLen \ 20
else
rn = xLen \ rc
end if