VB 编写程序,先将文本框(Text1)中输入的数值赋予变量X,然后在结论便签(Ladel1)中显示X是，正数负，数还是
1个回答
展开全部
Private Sub Text1_Change()
If IsNumeric(Text1.Text) Then
x = Val(Text1.Text)
If x >0 Then
Label1.Caption = "正数"
ElseIf x < 0 Then
Label1.Caption = "负数"
Else
Label1.Caption = "零"
End If
Else
Label1.Caption = ""
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
