来个VB高手！！！！！急！！！！！谢谢！

来源：百度知道 编辑：UC知道 时间：2024/06/27 08:27:38
有如下10个数：
-2，73，82，-76，-1，24，321，-25，89，-20
编写一程序，打印出其中的每个负数，分别计算并输出正数及负数的和。
要求：
用for循环
用while循环
用do …loop循环

Private Sub Command1_Click() '用while ....wend循环实现。
Dim Sdata As String
Dim Vdata As Variant
Dim Ncount As Integer
Dim Zsum As Double
Dim Fsum As Double
Dim i As Integer
i = 0
Sdata = "-2，73，82，-76，-1，24，321，-25，89，-20"
Vdata = Split(Sdata, "，")
Ncount = UBound(Vdata)
While i < Ncount
If Vdata(i) < 0 Then
Print "负数：" & Vdata(i)
Fsum = Fsum + Val(Vdata(i))
Else
Print "正数：" & Vdata(i)
Zsum = Zsum + Val(Vdata(i))
End If

i = i + 1
Wend
Print "正数和=" & Zsum
Print "负数和=" & Fsum
End Sub

Private Sub Command2_Click() '用 do.....loop循环实现
Dim Sdata As String
Dim Vdata As Variant
Dim Ncount As Integer
Dim Zsum As Double
Dim Fsum As Double
Dim i As Integer
i = 0
Sdata = "-2，73，82，-76，-1，24，321，-25，89，-20"
Vdata