键盘输入10个数，分别求正数与负数之和 vb的代码要怎么写 5
1个回答
展开全部
Dim Sum1 As Long, Sum2 As Long, N As Long
For i = 1 To 10
N = Val(InputBox("输入第 " & i & "个数"))
If N > 0 Then
Sum1 = Sum1 + N
Else
Sum2 = Sum2 + N
End If
Next
Debug.Print "正数和为：" & Sum1 & vbCrLf & "负数和为：" & Sum2
For i = 1 To 10
N = Val(InputBox("输入第 " & i & "个数"))
If N > 0 Then
Sum1 = Sum1 + N
Else
Sum2 = Sum2 + N
End If
Next
Debug.Print "正数和为：" & Sum1 & vbCrLf & "负数和为：" & Sum2
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
