有一个具有十个元素的一维数组,编写程序来求10个元素的平均值,并且比平均值大的元素的个数,有完整的VB程
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/24 22:35:28
有一个具有十个元素的一维数组,编写程序来求10个元素的平均值,并且比平均值大的元素的个数,有完整的VB程
![有一个具有十个元素的一维数组,编写程序来求10个元素的平均值,并且比平均值大的元素的个数,有完整的VB程](/uploads/image/z/15320288-56-8.jpg?t=%E6%9C%89%E4%B8%80%E4%B8%AA%E5%85%B7%E6%9C%89%E5%8D%81%E4%B8%AA%E5%85%83%E7%B4%A0%E7%9A%84%E4%B8%80%E7%BB%B4%E6%95%B0%E7%BB%84%2C%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%E6%9D%A5%E6%B1%8210%E4%B8%AA%E5%85%83%E7%B4%A0%E7%9A%84%E5%B9%B3%E5%9D%87%E5%80%BC%2C%E5%B9%B6%E4%B8%94%E6%AF%94%E5%B9%B3%E5%9D%87%E5%80%BC%E5%A4%A7%E7%9A%84%E5%85%83%E7%B4%A0%E7%9A%84%E4%B8%AA%E6%95%B0%2C%E6%9C%89%E5%AE%8C%E6%95%B4%E7%9A%84VB%E7%A8%8B)
这么简单你还上来求助.
再问: 就是不会啊、、才学的、、麻烦你 告诉我谢谢了
再答: 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
再问: 就是不会啊、、才学的、、麻烦你 告诉我谢谢了
再答: 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
利用VB,编写一个3*4的二维数组输入任意整数,求所有数组元素和及平均值
【c语言】编写程序,求数组a中前n个元素的最大值max、最小值min及平均值avg.
VB程序编写:某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.
用VB函数 计算一维数组所有元素的平均值.要求,子函数实现求平均值,主函数实现数据输入及平均值输出
vb编写程序:一个具有10个元素的一维数组,下标从1到10,要求用inputbox从键盘上输入其元素值,并找出最小的那个
用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计
定义一个整型数组a,a包括20个元素,每五个元素求平均值,将平均值放入数组b中,将b中元素输出.要不该大挂了啊!用C编的
用C语言编写 在数组x的10个数中求平均值v,找出和v绝对值相差最小的数组元素
已知一个长度为100的一维数组,求数组中所有元素平均值并输出.
利用matlab,编写一个函数,该函数依次输出数组的最大值,最小值,平均值,元素总数
在VB中生成有n(n≥10)个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值
编写c程序,任意输入20个数在一维数组a中,求20个数的平均值.