2 u012637537 u012637537 于 2014.08.16 08:19 提问

vb 数组问题,求各位大神搞定,谢谢
vb

Private Sub Command1_Click()

Dim strDataValue() As String
Dim stray() As String
Dim strss As String
Dim ar1() As String
Dim sss As String
Dim i As Integer

strss = "12,45,1,21,443,43,76,76,76,4"

ar1 = Split(strss, ",")

For i = 0 To UBound(ar1)
sss = ar1(i)

stray(i) = sss

strDataValue(i, 11) = stray(i)

Next i

End Sub

1个回答

xisgod
xisgod   2014.08.16 10:43

...要达到什么效果呢。。。

u012637537
u012637537 项目需要看的VB程序,问题已经解决了,谢谢!
大约 3 年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片