vb编程的问题

qq2541213430 发布于 2017-11-26 21:30， 1154 次点击

从键盘输入20个整数数据，将其中的负数以及负数的和显示出来这题

我编写的代码负数会显示出来了，可是负数的和不会显示出来，求告知怎么改

Private Sub Form_Click()
fushu = 0
fuhe = 0
For i = 1 To 20
fushu = Val(InputBox(t))
If fushu < 0 Then
fhushu = fuhe + fushu
Print fhushu
End If
Next i
Print fuhe
End Sub

1 回复

xyxcc1772017-11-27 08:00

Private Sub Form_Click()
fushu = 0
fuhe = 0
For i = 1 To 20
fushu = Val(InputBox(t))
If fushu < 0 Then
fuhe= fuhe + fushu
Print fushu
End If
Next i
Print fuhe
End Sub