vb编程 输入n个数 求其正数和 负数和 谢谢
1个回答
展开全部
PrivateSubForm_Load()DimiAsInteger,nAsDoubleDimn1AsLong,n2AsLong,n3AsLongFori=1To10n=Val(InputBox("请输入第"&i&"个数"))Ifn>0Thenn1=n1+1ElseIfn<0Thenn2=n2+1Elsen3=n3+1EndIfNextMsgBox"正数"&n1&"个，负数"&n2&"个，零"&n3&"个"EndSub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
