编写程序，用随机数产生32个三位正整数，计算并输出这32个数的和。要求输出数据时，每8个数一行。
Private Sub Command 1 _Click()Dimi,j, sum As Integer,a(32)As IntegerFor i=1 To 32a(i)=Int(100+900*Rnd)Nextsum=0For i= To 32sum=sum+a(i)Print a(i)If Mod 8=0 Then PrintNextPrintPrint“这32个数的总和为：”,sumEnd Sub
