Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim a() As Integer
Dim sum As Integer
n = InputBox("请输入多少个数","第一步","10")
ReDim a(n)
For i = 1 To n
a(i) = InputBox("请输入第" & i & "个数","第二步","10")
sum = sum + a(i)
Next
Debug.Print sum / n
End Su
最新问答： 教室的地面是长8米宽6米的长方形，能铺边长为5分米的正方形地板砖______块． 请帮我做一下下面的无机化学（固相反应）的题目好吗? 关于生物固氮的定义?希望答案简洁一些,这是初三的生物方面的知识 已知一个碳12原子的质量是a kg ,如果另一种原子的质量为b kg且每个原子中有c个质 She ___they are funny and relaxing.空格处填什么? 男子组合 英语怎么说他是一个很火的男子组合成员之一 【 英语怎么说?求翻译!标准的!别用翻译器】 一个数乘以1.4后,比原来增加了4.8,原来这个数是? 在奇迹这篇文章中朱莉亚以为的奇迹是什么?奇迹真正的含义是什么?奇迹为什么会发生?从朱莉亚、收银员和一位面容和善的先生的表 求一篇关于in interent good for our life的作文 100字左右 某校五年级三班上体育课排队时,体育老师发现,排成两行时,队尾多出1人；排成三行时,队尾多出2人；排成四行时,多出3人；排 根对无机盐的吸收,消不消耗能量要讲明理由! 我懂你对我的爱 同样爱你的我 的英文怎么说? “不用谢”、“打扰一下,那是一把直尺吗?”用英语怎么说 Look!How many sheep there are on the small hill!I have never 我最喜欢的打扮英语作文80字作文 一吨燃气锅炉,2吨燃气锅炉、三吨燃气锅炉及四吨燃气锅炉的供暖面积各是多少?各自每小时燃气多少? 心中的明灯 作文文体不限,600字 细胞在低渗溶液中外膜涨破,原理是?答案是渗透作用,答吸水涨破不对吗 下列有关病毒的说法中，不正确的是（ ） A．病毒的个体很小，要用电子显微镜才能观察到 B．病毒没有细胞结构，只有寄生在 1.— Hello,I would like to open an account.— _______
相关问答： 计算
