Question

我无法弄清楚如何在text1中为数据输入后计算校验和，以二进制字节输入除数的text1。我尝试过checksum.text = Text1.Text Xor Text2.Text但它不起作用，我已经在互联网上搜索但它只适用于C ++和java，是否可以在VB中使用？

Answer 1

你不能在字符串上XOR。你必须在2个数字上做，而不是字符串。

尝试：

checksum.text = CStr(Clng(Text1.Text) Xor CLng(Text2.Text))

Answer 2

@George

Private Sub Command1_Click()

    If Len(Text1.Text) & (Text2.Text) = 0 Or Text1.Text & Text2.Text) Like "[!0-1]" Then
        Text3 = "Wrong Input, Please Correct it!!"
    Else
        checksum.Text = CStr(CLng(Text1.Text) Xor CLng(Text2.Text))
        Trans(2).Text = (Text1.Text) + (checksum.Text) 
        Text3 = "Congratulation CRC is generated"
    End If 

End Sub

使用VB尝试在二进制输入后计算校验和

2 个答案: