一个简单问题，很着急的，希望各位大哥关注一下，谢谢！！

[EastBuBai]

我想把一个整形的数，先判断它的符号位　是正负，
如是负，把它减1，取反，然后显示
如是正，直接显示
代码怎么写呀

[aalei]

if left(数字,1)="-" then....................
else
...............................
end if

[flc]

添加一个按钮，两个TEXTBOX 控件。
Private Sub Command1_Click()
If Left(Text1, 1) = "-" Then
Text1 = Text1 - 1
Text1 = -Text1
Text2 = Text1
Else
Text2 = Text1
End If
end sub

[sysroger]

Public function AAA(Byref num1 as integer) as integer
if left(num1,1)="-" then
num1=ABS(num-1)
endif
end function

[mmcgzs]

if numb<0 then
msgbox (not (numb-1))
else
msgbox numb
end if
是这样吗》

[FlystarColl]

我同意楼上的。很简单的直接判断是大于 0 还是小于 0 嘛！
把值显示在标签label1上
if num<0 then
label1.caption=var((num-1)*(-1))
elseif num>0 then
label.caption=var(num)
end if

[FlystarColl]

不好意思。我上面写错了。不是var 是str转换成字符型

[boydgmx]

我想把一个整形的数，先判断它的符号位　是正负，
如是负，把它减1，我想把一个整形的数，先判断它的符号位　是正负，
如是负，把它减1，取反，然后显示
如是正，直接显示
代码怎么写呀，然后显示
如是正，直接显示
代码怎么写呀
-------------------------------------------
取反是逻辑反，还是数学反？？
也就是说，加入这个数字是 -2，你取反之后是不是2？？

如果是2，那就很好办。
用 sign 函数判定正负，然后相应处理

[boydgmx]

如果是逻辑反，那就要用Not，但是得到的结果可能不是预期的。
比如-2
用八位二进制有符号书数表示应该是 1000 0010
Not运算之后就是：
0111 1101
这个显然不是2

[yqydaful]

boydgmx(梦霄)
分析的很对