单击窗体，用InputBox函数输入10个数与数组A中,输入后将这10个数显示在文本框中,并统计正数的个数,正数的和

程序源码：

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