|
楼主 |
发表于 2023-5-7 14:42
|
显示全部楼层
Private Sub Command1_Click()
Dim A, B, c
A = DeleteSpace(Trim(Text1))
B = DeleteSpace(Trim(Text2))
c = qksmimo(10, Trim(A), Trim(B))
Text3 = c
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Public Function DeleteSpace(Tmp As String) As String
Dim i As Long, j As Long, k As Long
A = Trim(Tmp)
B = ""
k = Len(A)
For i = 1 To k
j = Asc(Mid(A, i))
If j <> 10 And j <> 13 And j <> 32 And j <> Asc(" ") Then '最后一个条件是全角空格
B = B & Chr(j)
End If
Next
DeleteSpace = B
End Function
|
|