作业帮 > 综合 > 作业

有一个具有十个元素的一维数组,编写程序来求10个元素的平均值,并且比平均值大的元素的个数,有完整的VB程

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 15:09:35
有一个具有十个元素的一维数组,编写程序来求10个元素的平均值,并且比平均值大的元素的个数,有完整的VB程
有一个具有十个元素的一维数组,编写程序来求10个元素的平均值,并且比平均值大的元素的个数,有完整的VB程
这么简单你还上来求助.
再问: 就是不会啊、、才学的、、麻烦你 告诉我谢谢了
再答: Private Sub Command1_Click() Dim i As Byte Dim a(11), sum, pingjunzhi As Single sum = 0 For i = 1 To 10 a(i) = 81 * Rnd + 10 '随机10个数 Print a(i) sum = sum + a(i) Next pingjunzhi = sum / 10 Print "平均值是:" & pingjunzhi For i = 1 To 10 If a(i) > pingjunzhi Then Print "大于平均值的数为: " & a(i) End If Next End Sub