Question

（VB程序改错）用VB程序判断数字正负还是零，程序有三处错误

Dim a As Integer, py As String
a = val(Text1.Caption)
If a > 0 Then
py="正数"

else If a < 0 Then
py="负数"
else
py=“零”
end if
label1.Caption=“py”
请把改好的程序代码发出来，谢谢

Answer 1

第一点：
第二行代码错误，文本框没有Caption属性，应改为：a=val(text1.text);
第二点：
第五行代码格式错误，elseif 应该连写，else与if之间不能存在空格；
第三点：
最后一行语义出错，当前代码显示结果为label1显示py两个字母，编程希望显示的是“正数”“负数”“零”，所以代码应改为label1.caption=py ' 希望输出变量则不应添加双引号“”。
完整代码为：
Dim a As Integer, py As String
a = val(Text1.Text)
If a > 0 Then
py="正数"
ElseIf a < 0 Then
py="负数"
Else
py=“零”
End if
Label1.Caption=py

望采纳，谢谢。

Answer 2

Dim a As Integer, py As String
a = val(Text1.text)
If a > 0 Then
py="正数"

elseIf a < 0 Then
py="负数"
else
py=“零”
end if
label1.Caption=py