发布网友 发布时间:2022-04-20 04:49
共3个回答
热心网友 时间:2023-07-17 10:45
dim i as integer
dim b(10) as string,c as string
for i =0 to list1.listcount-1
b(i) = Me.List1.List(i)
c = c & b(i) & vbcrlf
next
msgbox c
热心网友 时间:2023-07-17 10:45
b已经是数组了,就是一列,想连接的话用这个
c=join(b,",")
热心网友 时间:2023-07-17 10:46
Private Sub Form_Click()
Dim i As Integer
Dim b(10) As String
For i = 0 To List1.ListCount - 1
b(i) = Me.List1.List(i)
Next i
MsgBox Join(b, vbCrLf)
End Sub