将一个字符分解如下:
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吧。

解决方案 »

  1.   

    工程级?你是指公共变量吧,公共变量必须在模块中声明。
    VB6能容纳多少窗体我不太清楚,我想这与系统资源的多少关系大些,不会受到VB6本身的限制,不过三百多是不成问题的,我试过的。
      

  2.   

    to gameboy999
       第三个问题已解决,先给你记20分
    to wulang
       我指的是公共数组,我在“通用-声明”中用public state(-101 to 10101) as integer,
    但总是得到错误提示。
      

  3.   

    在窗体的“通用-声明”中不能用Public来定义变量或数组,改成Private就可以了。
      

  4.   

    state是一个关键字,不能做数组名,换一个名就行
      

  5.   

    to foolishtiger and ddiablo
      如果用private或dim声明的话,不能在其它窗体中引用
    to shane
      用其它数组名也出错。
      

  6.   

    要声明工程级的变量、数组,必须在模块中定义。在工程菜单中选择“添加”,然后选择“模块”,则会添加一个后缀为“.bas”的文件,在该文件中定义的变量、数组可在工程中的任何一个窗体中调用。