问题描述: 单击窗体,用InputBox函数输入10个数与数组A中,输入后将这10个数显示在文本框中,并统计正数的个数,正数的和。负数的各个数,负数的和。用Print方法将结果打印在窗体上 大学作业 1个回答 分类:综合 2021-04-29 问题解答: 我来补答 程序源码: Private Sub Form_ Click() Dim Number(1 To 10)As Integer Dim ZSCount As Integer,FSCount As Integer Dim ZSSum As Integer,FSSum As Integer For I=1 To 10 Number(I)=Val(InputBox("请输入第”&I&"个数”,”数据统计"))'接收数并保存在Number数组中 Text1.Text=Text1.Text&Number(I)&"" ‘将数显示于文本框Text1中 If Number(I)>0 Then ’统计正数的个数和正数的和 ZSCount=ZSCount+1 ZSSum=ZSSum+Number(I) ElseIf Number(I)<0 Then '统计负数的个数和负数的和 FSCount=FSCount+1 FSSum=FSSum +Number(I) End If Next I CurrentX=500:CurrentY=1100 Print"正数的个数=”&ZSCount&"正数的和="&ZSSum Currentx=500:CurrentY=1400 Print"负数的个数=”&FSCount&”负数的和="&FSSum End Sub 展开全文阅读