设计一个算法VBVBVBVBVBVBVBVBVB

来源：百度知道 编辑：UC知道 时间：2024/09/23 06:03:10
设计一个算法计算并输出一批数据中的正数与负数的个数。这批数据由使用者从键盘输入，预先并不知道数据的个数，输入0时表示结束（数据中不包含0）
问题补充：得用VB做~~~谁能给下具体代码` 要完整的代码~~~~~~~!

建一个Command1,Text1 .
代码如下。
=========================
Private Sub Command1_Click()
Dim i As Integer, t As String, l1 As Long, l2 As Long
t = Text1.Text: l1 = Len(t)
For i = 0 To 9
l2 = Len(Replace(t, i, ""))
MsgBox i & "有" & l1 - l2 & "个"
l2 = l1
Next
End Sub 参考下吧.