如何使用Vb程序在窗体上建立一个命令按钮。当运行程序后，完成以下功能：（1）每单击一次按钮用InputBox函数输入一个整数后，再将输入的数据打印在窗体的同一行上。（2）分别统计所输

Question

如何使用Vb程序
在窗体上建立一个命令按钮。当运行程序后，完成以下功能：
（1）每单击一次按钮用InputBox函数输入一个整数后，再将输入的数据打印在窗体的同一行上。
（2）分别统计所输入的数据中正数和负数的个数。当输入数据为0，结束统计，在下一行位置打印正数和负数的个数。

Answer 1

Private Sub Command1_Click()
Dim a
Static zs, fs
a = InputBox("请输入数据，0结束")
Print a
If a <> 0 Then
If Val(a) > 0 Then zs = zs + 1 Else fs = fs + 1
Else
Print "正数个数="; zs, "负数个数="; fs
End If
End Sub