社区
VB基础类
帖子详情
怎样将str=acd转换成 x(0)=a,x(1)=c ,x(2)=d
sailorhdx2001
2002-06-19 10:19:08
怎样将str=acd转换成 x(0)=a,x(1)=c ,x(2)=d
...全文
29
2
打赏
收藏
怎样将str=acd转换成 x(0)=a,x(1)=c ,x(2)=d
怎样将str=acd转换成 x(0)=a,x(1)=c ,x(2)=d
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Cham
2002-06-19
打赏
举报
回复
Dim str As String, i As Integer, ilen As Integer
Dim x() As String * 1
str = Trim(Text1.Text)
ilen = Len(str)
ReDim x(ilen)
For i = 1 To ilen
x(i) = Mid(str, i, 1)
MsgBox CStr(i) + "," + x(i)
Next i
junwhj
2002-06-19
打赏
举报
回复
dim str as string
dim x() as string
str="abcdefg"
redim x(len(str)-1)
for i= to len(str)
x(i-1)=mid(str,i,1)
next i
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章