天津博物馆长征:求助vb高手,编写一个函数(或过程)
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/06 02:41:38
具体功能
把一个字符串中的每个字符(从左到右的顺序)赋给一个字符串数组。
比如:strtem为要转换的字符串假设初值为"abcd",arrstr为存放结果的数组,运行上面的函数后变成
arrstr(0)="a"
assstr(1)="b"
assstr(2)="c"
assstr(3)="d"
该怎样实现?
把一个字符串中的每个字符(从左到右的顺序)赋给一个字符串数组。
比如:strtem为要转换的字符串假设初值为"abcd",arrstr为存放结果的数组,运行上面的函数后变成
arrstr(0)="a"
assstr(1)="b"
assstr(2)="c"
assstr(3)="d"
该怎样实现?
Dim i As Integer
Dim Str As String
Dim Arr_Str() As String
Str = "hello world"
ReDim Arr_Str(Len(Str)) '重新定义数组大小,以免浪费内存
'输入
For i = 1 To Len(Str)
Arr_Str(i) = Mid(Str, i, 1)
Next
'输出
Dim S
For i = 1 To Len(Str)
S = S & Arr_Str(i)
Next
MsgBox S
以上程序在XP Home Profession+VB 6.0下面通过
Dim w, b, i
w = "aklsjdfljer"
b = Len(w)
Dim a(b) As String
For i = 1 To b
a(i) = Microsoft.VisualBasic.Mid(w, i, 1)
Next i
dim asstr(10)
strtem = "a|b|c|d|e"
redim asstr(len(strtem))
asstr = split ( strtem, "|" )
'ps :思路如下,语法不一定正确,vbscript格式
dim a(1)
sub tochars(str)
dim l=len(str)
dim i
redim a(l)
for i=0 to l
a(i)=mid(str,i,1)
next
end sub