输入一个数如果大于0输出为正数如果小于0输出为负数如果等于0输出为0 vb程序

求VB代码，输入10个数,计算正数,负数,0的个数，输出在窗体？~

Private Sub Command1_Click()
Form1.Cls
Dim num(10), i, countA, countB, countC As Integer
countA = 0
countB = 0
countC = 0
For i = 1 To 10
num(i) = Val(InputBox("请输入第" & i & "个数："))
If num(i) > 0 Then
countA = countA + 1
Else
If num(i) < 0 Then
countB = countB + 1
Else
countC = countC + 1
End If
End If
Next i
Print "大于0的数有：" & countA & "个!"
Print "小于0的数有：" & countB & "个!"
Print "等于0的数有：" & countC & "个!"
End Sub

a = InputBox("a=", "输入一个数字")
If a > 0 Then
Print "该数为正数"
Else
If a < 0 Then
Print "该数为负数"
Else
Print "该数为0"
End If
End If

Private Sub Command1_Click()

   Dim n As Double

   n = Val(InputBox("请输入一个数！"))

   If n > 0 Then

     MsgBox "正数"

   ElseIf n < 0 Then

     MsgBox "负数"

   Else

     MsgBox "0"

   End If

End Sub

扩展资料：

注意事项

1、对于正整数而言，可以带+号，第一个数字不能为0。

2、 对于负整数而言，必须带负号，第一个数字也不能为0。

3、对于整数而言，实际是由0，正整数和负整数组成的，用前两个方法一起判断。

4、对于正小数而言，可以考带+号，并考虑两种情况，第一个数字为0和第一个数字不为0，第一个数字为0时，则小数点后面应该不为0，第一个数字不为0时，小数点后可以为任意数字。

5、对于负小数而言，必须带负号，其余都同上。

6、对于小数，可以带正负号，并且带小数点就行了，但是至少保证小数点有一边不为空。

7、实数比较简单，，要么是整数，要么是小数。

Private Sub Command1_Click()

Dim a As Double

If IsNumeric(Text1.Text) = True Then  ‘判断输入数据的是否为数值

a = CDbl(Text1.Text)

Else

MsgBox "请输入一个数值！", 16, "提示"

Text1.SetFocus

Exit Sub

End If

Select Case a

Case Is > 0

MsgBox "输入的为正数", , "提示"

Case Is = 0

MsgBox "输入的为0", , "提示"

Case Is < 0

MsgBox "输入的为负数", , "提示"

End Select

End Sub

Private Sub Command1_Click()
   Dim n As Double
   n = Val(InputBox("请输入一个数！"))
   If n > 0 Then
     MsgBox "正数"
   ElseIf n < 0 Then
     MsgBox "负数"
   Else
     MsgBox "0"
   End If
End Sub

---

呈贡县18325135778： c语言写程序,从键盘输入一个数字,若大于零则输出正数,若小于零则输出负数,为零则输出零 - ？
虫命三乐： #include <stdio.h> int main() {int n;scanf(＂%d＂, &n);if(n > 0) printf(＂正数＂);else if(n < 0) printf(＂负数＂);else{printf(＂零＂);}return 0; }

呈贡县18325135778： 从键盘输入一个数,判断他是正数,负数,还是零 - ？
虫命三乐： var a:integer; beginreadln(a); {读入需要判断的a}if a>0 then writeln('a is zhengshu') else {如果a>0,则输出“正数”}if a<0 then writeln('a is fushu') else writeln('a is 0'); {否则如果a<0,则输出“负数”,如果a=0,则输出“是0“} end.

呈贡县18325135778： 编一个程序当输入数据大于0时输出为1,等于0时输出0,小于0时输出为 - 1 - ？
虫命三乐： 没说用那个编程软件啊?我用matlab编程会答了.k=input('enter a number') if k>0 n=1; elseif k==0; n=0; else k n=-1; end n

呈贡县18325135778： C语言if语句的嵌套 和 提供一些关于if else的小程序 - ？
虫命三乐： 三、if--else if--else结构. if(表达式1) 语句1; else if(表达式2) 语句2; else if(表达式3) 语句3; . . . else 语句n; 这种结构是从上到下逐个对条件进行判断,一旦发现条件满点足就执行与它有关的语句, 并跳过其它剩余阶梯;若没有一个条件...

呈贡县18325135778： 设计一个程序,要求输入一个数,如果次数大于0,显示“输入的为整数”,负责显示“输入的为负数”.？
虫命三乐：#include <stdio.h> void main() { printf(＂请输入一个整数＂); int a; scanf(＂%d＂,&a); if(a==0) { printf(＂输入的0＂); } if(a>0) { printf(＂输入的为正数＂); } if(a<0) { printf(＂输入的为负数＂); } } 其实你应该到C语言板块去提问的...

呈贡县18325135778： 用类C语言中的if - else语句编写算法 - ？
虫命三乐： int a;scanf(＂%f＂,&a);if(a

呈贡县18325135778： c#程序输入若干个数,如果大于零则显示＂正数＂,如果小于零则显示＂负数＂ - ？
虫命三乐： while (true){Console.WriteLine(＂请输入数字＂);int num = Convert.ToInt32(Console.ReadLine());if (num > 0){Console.WriteLine(＂{0}是正数＂,num);}else if (num < 0){Console.WriteLine(＂{0}是负数＂,num);}}

呈贡县18325135778： 输入一个数,然后判断输出这是一个正数,或者这是一个负数,或者这是0 c语言 - ？
虫命三乐： 题目是求一个整数的二进制中1的个数.具体分析如下: 1. 例如输入10,由于其二进制表示为1010,有两个1,因此输出2.2. 先判断整数的最右边一位是不是1.接着把整数右移一位,原来处于右边第二位的数字现在被移到第一位...

呈贡县18325135778： 在C语言中,怎样定义一个函数,使得任意输入一个整数,若为正数,则输出,否则直到得数>0为止 - ？
虫命三乐： #include<stdio.h> void f(void) { printf(＂输入一个数:＂); int n; while(1) { scanf(＂%d＂,&n); if(n>0) { printf(＂%d\n＂,n); return; } printf(＂重输!!\n＂); } } void main() { f(); }

呈贡县18325135778： Vf设计程序 输入一个数,大于零,输出正数,否则输出该数 求详细答案 - ？
虫命三乐： para aaa if aaa>0?＂+＂+ltrim(str(aaa)) else?aaa endif * 将文件保存为abc.prg,执行时:do abc with 要输入的数;或:?abc(要输入的数)