将一个字符分解如下:
procedure Disassemble()
dim StringA as string
dim i as integer
dim str(100) as string
for i=0 to 100 '给数组赋初值
str(i)="0"
next
for i=1 to len(StringA)
str(i)=mid(StringA,i,1) 'str(1)里是第一个字符,依次类推
next
end对不起了,其他的我没法试,我是在网吧里上网,一切只能靠记忆来写了:)
如果你还想把“数字、”给数字化,象普通数字一样,那可以把相应的str(i)转化就行了,好象是减去38吧。
procedure Disassemble()
dim StringA as string
dim i as integer
dim str(100) as string
for i=0 to 100 '给数组赋初值
str(i)="0"
next
for i=1 to len(StringA)
str(i)=mid(StringA,i,1) 'str(1)里是第一个字符,依次类推
next
end对不起了,其他的我没法试,我是在网吧里上网,一切只能靠记忆来写了:)
如果你还想把“数字、”给数字化,象普通数字一样,那可以把相应的str(i)转化就行了,好象是减去38吧。
VB6能容纳多少窗体我不太清楚,我想这与系统资源的多少关系大些,不会受到VB6本身的限制,不过三百多是不成问题的,我试过的。
第三个问题已解决,先给你记20分
to wulang
我指的是公共数组,我在“通用-声明”中用public state(-101 to 10101) as integer,
但总是得到错误提示。
如果用private或dim声明的话,不能在其它窗体中引用
to shane
用其它数组名也出错。