Question

vb取文本框里的内容去掉空格，进来看看，谢谢

我现在有个文本框text1,我要在里面输入:20 30 31 32 50 06 09

我要让它实现去掉空格，然后计算每个数的异或。谢谢。

Answer 1

Private Sub Form_Click()
Dim s As String
s = Text1.Text
s = Replace(s, " ", "")
Text1.Text = s
End Sub
就是replace 这个函数

Answer 2

Private Sub Command1_Click()
    Dim strInput As String
    Dim strTmp() As String
    Dim flag As Boolean
    
    strInput = Text1.Text
    strTmp = Split(strInput, " ")
    
    For i = 0 To UBound(strTmp) - 1
        flag = Val(strTmp(i)) Xor Val(strTmp(i + 1))
        Print strTmp(i) & "  XOR " & strTmp(i + 1) & " 的结果：" & flag
     Next
End Sub

追问

可运行，但flag返回是true,我要的是去空格后再异或，比如说 30 40 后的值是70
因为我基础差，我的提问可能让人误会了，很感谢您的回答

追答

坑爹不？异或是比较两个数是否相同，如果相同则为false，不相同为true，你这是要求两个数的和！！！

Answer 3

Private Sub Command1_Click()
MsgBox TrimBlank("aa bb cc")
End Sub

Public Function TrimBlank(ByVal sTxt As String) As String
Do While InStr(sTxt, " ") <> 0
sTxt = Replace(sTxt, " ", " ")
Loop
TrimBlank = sTxt
End Function

Answer 4

究竟是去空格还是异或呢？