VB 6.0 遍历字符串 - VB / 基础类
我现在有一个字符串为 101010 的字符串，现在我要求把他遍历出来！！结果为
1
0
1
0
1
0
现在我的思路是将这个字符串转换成数组，然后在将它用循环迭代出来！！
我现在的问题是不知道怎么样能将它转化成数组！！我看了很多相关函数可是都没有解决
忘各位高手相助
当然我这个思路或许不是唯一的！如果各位高手有别的办法可以帮我实现也非常的感谢！！
我现在很急的用这个了！！
谢谢！！！！
VB code:
dim j() as integer
dim i as integer
dim h as string
i=1
h=101010
for i=1 to len(h)
j=MID(h,i,1)
next i
VB code:
Private Sub Command1_Click()
Dim a As String，i as integer
a = "101010"
For i = 1 To Len(a)
Print Mid(a, i, 1)
Next
End Sub
VB code:
Private Sub Command1_Click()
Dim str As String
str = "101010"
Dim b() As Byte
b = StrConv(str, vbfromUnicode)
Dim i As Long
For i = 0 To UBound(b)
Debug.Print b(i), Chr(b(i))
Next
End Sub
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
