Foxtable(狐表)用户栏目专家坐堂 → [求助]转换数组


  共有1608人关注过本帖树形打印复制链接

主题:[求助]转换数组

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/14 10:04:00 [显示全部帖子]

Dim aa() As String = {"12","15","23","11"}  
Dim str As String = String.join("", aa)
msgbox(str)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/14 15:14:00 [显示全部帖子]

Dim aa() As String = {"12","15","23","11"}   '此数组为未知数
'用以下代码找出数组内的数值:
Dim bb(aa.length-1) As String
Dim bc As Integer = aa.length
For k As Integer = 0 To bc - 1
    bb(k) = aa(k)
Next

 回到顶部