数组内数求余? 一数组m1(i) 输出小于30的i的余数, 如输入m1=(1,2,3),则输出. m2=(1,11,21,2,12,22,3,13,23) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 dim m1(2) as integerdim m2() as integerdim i as integer, n as integerm1(0)=1m1(1)=2m1(2)=3n = Ubound(m1)redim m2((n+1)*3-1)for i=0 to n m2(i*3)=m1(i) m2(i*3+1)=m1(i)+10 m2(i*3+2)=m1(i)+20next i VB6.0中文本框的问题 关于vb编译方式的问题 怎樣取得當前Sql的連接數目以及保持聯接的IP 地址 高分求助: 一个串口问题,在线等 为什么vb6.0+vbspk5.0都不能用水晶报表9.0中文版,请高手指点 在线求教! 请问用什么函数把integer类型的1,2,3,...对应转换为string类型的"1","2","3"..... 急用!各位大侠帮帮忙! 请教 VB6.0 有哪些高质量的皮肤控件 用VC编的DLL接口要符合什么要求才能供VB调用? vb如何或得本地和远程的MAC地址 怎样才可以看到以前有价值的帖子呢 ?
dim m2() as integer
dim i as integer, n as integerm1(0)=1
m1(1)=2
m1(2)=3n = Ubound(m1)
redim m2((n+1)*3-1)
for i=0 to n
m2(i*3)=m1(i)
m2(i*3+1)=m1(i)+10
m2(i*3+2)=m1(i)+20
next i