VB题:通过输入框输入X值,编程判断该数是正数、负数还是0.并通过文本框(Text1)显示出来。

[复制链接]
查看11 | 回复2 | 2010-9-9 15:14:33 | 显示全部楼层 |阅读模式
满意给分。

回复

使用道具 举报

千问 | 2010-9-9 15:14:33 | 显示全部楼层
用sgn(x)函数就行了,当sgn(x)>0则x为正数,当它<0时则为负数,sgn(x)=0时则为x=0
回复

使用道具 举报

千问 | 2010-9-9 15:14:33 | 显示全部楼层
Private Sub Form_click()
Dim a#
a = Val(InputBox("请输入一个数:", "输入数字"))
If a = 0 Then
Text1 = "零"
ElseIf a = Abs(a) Then
Text1 = "正数"
Else
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行