Question

vb中的取反

已经算出Text2的值，现在想通过点击command4,得出Text4=（Text2取反值）：

Private Sub Command4_Click()
Dim s As Long
Dim i As Long
For i = 0 To 31
If (Val(Text2) And 2 ^ i) = 0 Then s = s + 2 ^ i
Next i
Text4.Text = s

End Sub

但是现在一直提示我“实时错误6 溢出”，怎么整？

Answer 1

long 类型放不下你的数据 你就试试double 如果还不行。那你只能自己把数值当做字符串去计算结果

追问

还是不行，好难搞啊!>>>

Answer 2

C语言_084_取反运算