非常简单的问题！！！

Question

Sub Form_Load () Dim x As String
Dim y As Variant x = "fffe"
y = CLng("&H" & x) If y < 0 Then y = y + 65536    ' returns 65534

MsgBox yEnd Sub
* Converting a string to an integer: Cal StoverDim SomeVariable as Integer
SomeVariable = CInt(Label2.Caption) + 100Dim SomeVariable as Single
SomeVariable = CSng(Val(Label2.Caption) + 100)

Answer 1

大侠就是大侠，果真厉害！谢谢，赐教！！