vb随机生成10个[-50,50]之间整数,分别统计其中正数之和和负数之和

'第一题：
Private Sub Command1_Click()
   Dim va As Long, vb As Long
   Dim i As Long, vt As Long
   Me.Cls
   va = 0: vb = 0
   Me.Print "10个整数是："
   For i = 1 To 10
      vt = Rnd() * 100 - 50
      Me.Print vt;
      If (vt > 0) Then
         va = va + vt
      Else
         vb = vb + vt
      End If
   Next
   Me.Print vbLf & "正数之和：　" & va
   Me.Print "负数之和：　" & vb
End Sub

'第二题：
Private Sub Command2_Click()
   Dim va As Long, vb As Long
   Dim i As Long, vt As Long
   
   i = Val(Text1)
   Me.Cls
   va = 1: vb = 1
   Do
      vt = vb + va
      If (vt > i) Then Exit Do
      Me.Print vt;
      va = vb: vb = vt
   Loop
End Sub

cvcvxdfxxfdv