使用Split函数提取字符串数据

Private Sub Command10_Click() Dim arr() As String '定义了数组 arr() = Split(Me.Label1.Caption, "") '截取 Dim i As Integer Dim s As String For i = 0 To UBound(arr) '循环数组最大值 s = s & ";" & arr(i) Me.List11.RowSourceType = "Value List" '列表框内容为值列表 Me.List11.RowSource = s Next i End Sub