大佬们求教这题
vb6.0吧
全部回复
仅看楼主
level 1
贴吧用户_GQPZy87 楼主
2025年03月13日 13点03分 1
level 4
惊鸿0_0
[啊] 二级都多少年不能考了还在学呢
2025年03月14日 09点03分 2
level 4
惊鸿0_0
Private Sub Command1_Click()
Dim a() As String, i As Integer
If Text1.Text = "" Then Exit Sub
a = Split(Text1.Text, " ")
For i = 0 To UBound(a)
If a(i) <> "" Then List1.AddItem a(i)
Next
End Sub
2025年03月14日 10点03分 3
1