当 X>0 时 Y=2X+1
当 X=0 时 Y=0
当 X<0 时 Y=-1

我不会写了,汗!!!!

if x>0 then
Y=2X+1
if x=0 then
Y=0
else
Y=-1
end if
end if

楼上的语句..有问题.

if x>0 then
y=2x+1
elseif x=0 then
y=0
else
y=-1
end if

也可以用select case 语句..

select case x
case >0
y=2x+1
case =0
y=0
case else
y=-1
end select

楼上的楼句有问题.

If x > 0 Then y = 2 * x
y = y + Sgn(x)

我师傅的程序没问题我试过了
Private Sub Command1_Click()
Dim x As String

x = Val(InputBox("请输入数字"))
Select Case x
Case Is > 0
Text1.Text = 2 * x + 1
Case Is = 0
Text1.Text = 0
Case Else
Text1.Text = -1
End Select

End Sub



不信你试试输入:case >0 按回车会如何
是不是变成这样了
case is >0

没问题就好.