向高手求助

xgngg · 发表于 2004-5-12 21:23:00

我需要textbox1中的数据来决定 “AA”的大小

如 textbox1=1 则 aa=a

textbox1=2 则 aa=a+b

textbox1 =3 则 aa+a+b+c

.........

数据比较长，我想不起好的办法

mccad · 发表于 2004-5-12 21:30:00

注意发问时把主题写清楚

mikewolf2k · 发表于 2004-5-12 21:33:00

for i=1 to textbox1.text

aa=aa+chr(65+i)

next i

雪山飞狐_lzh · 发表于 2004-5-12 23:02:00

估计楼主要的不是字符相加吧，请楼主把问题表述清楚，a/b/c到底是什么？

mccad · 发表于 2004-5-13 06:50:00

本帖最后由作者于 2004-5-13 20:25:37 编辑

如果是数值，则定义成数组： Dim aas(1 to 15) As Double '这里15可以按照实际需要的位数做调整
'这里开始做数组的赋值，如
aas(1)=20 '相当于a
aas(2)=5 '相当于b
'.........
for i=1 to textbox1.text
aa=aa+aas(i)
next i

mikewolf2k · 发表于 2004-5-13 20:00:00

"这里15可以按照爸爸需要的位数做调整"?!

老大，你家宝贝看得懂么？

账号		自动登录	找回密码
密码			注册