UC知道一题VB编程问题，很急啊啊啊。
来源：百度知道 编辑：UC知道 时间：2024/06/03 21:31:51
在19号（本星期四）前就需要因为马上要会考了><
题目是：在TEXT1中输入一个数。如果此数为正数，则在TEXT2中输出“正数”；如果此数为负数，则在TEXT2中输出“负数”；如果此数为0，则在TEXT2中输出“0”
PS：这是今天上电脑课的时候做的题目。下面贴的是我自己编的代码，调试时并没有错误。但课上上交之后的得分没有满分。不知道错在哪个细节。希望帮帮忙啊~先谢谢了。
Private Sub Command1_Click()
Dim a As Integer
a = Text1.Text
If a > 0 Then Text2.Text = "正数" Else Text2.Text = "负数"
If a = 0 Then Text2.Text = 0
End Sub
题目是：在TEXT1中输入一个数。如果此数为正数，则在TEXT2中输出“正数”；如果此数为负数，则在TEXT2中输出“负数”；如果此数为0，则在TEXT2中输出“0”
PS：这是今天上电脑课的时候做的题目。下面贴的是我自己编的代码，调试时并没有错误。但课上上交之后的得分没有满分。不知道错在哪个细节。希望帮帮忙啊~先谢谢了。
Private Sub Command1_Click()
Dim a As Integer
a = Text1.Text
If a > 0 Then Text2.Text = "正数" Else Text2.Text = "负数"
If a = 0 Then Text2.Text = 0
End Sub
这样改：
Private Sub Command1_Click()
Dim a as double
a = val(Text1.Text )
If a > 0 Then
Text2.Text = "正数"
Elseif a<0 then
Text2.Text = "负数"
else
Text2.Text = 0
end if
End Sub
text1.text是字符串，你要先求值再比较大小
a=val(text1)