Question

在VB中,怎么用IF语句编写程序

当x <0 ,则sgn(x)=-1, 当x >0 ,则sgn(x)=+1, 当x =0 ,则sgn(x)=0
通过text1把数据转化成text2,这个转化通过command1实现.
注意:text1是要输入的数据,text2是输出的.
在编写代码的时候用上sgn()函数

Answer 1

晕，sgn函数本身就是实现这段代码的功能的呀，如果用了sgn，还要这段代码干什么？直接
text2.text=sgn(x)就可以了

用select case做更方便
private sub command1_click()
dim x as integer

x=text1.text
select case x
case x<0
text2.text="-1"
case x>0
text2.text="1"
case x=0
text2.text="0"
end select
end sub

用if 也可以
private sub command1_click()
dim x as integer

x=text1.text
if x<0 then text2.text="-1"
if x=0 then text2.text="0"
if x>0 then text2.text="1"
end sub

Answer 2

Private Sub Command1_Click()
Dim x
x = Val(Text1.Text)
b = Sgn(x)
Print b
End Sub

Answer 3

if val(text1)<0 then
text2=-1
else val(text1)=0 then
text2=0
else val(text1)>0 then
text2=1
end if