Question

Visual Basic编写程序，先将文本(text1)中输入的数值赋予变量x求解答

Visual Basic编写程序，先将文本(text1)中输入的数值赋予变量x求解答Visual Basic编写程序，先将文本(text1)中输入的数值赋予变量x,然后在结论标签(Label1)中显示x是"正数"、"负数"还是"零"。

Answer 1

（1,2）、（2,2）-----------------F5---

Private Sub Text1_Change()

Dim x

x = Val(Text1.Text)

If x > 0 Then Label1.Caption = "正数"

If x < 0 Then Label1.Caption = "负数"

If x = 0 Then Label1.Caption = " 零 "

End Sub