下列程序的功能是：单击窗体时将随机生成10个1～100之间的数 求出它们的总和及平均数。请填空。 O
下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。 Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【 】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【 】 Print sum,aver End Sub
请帮忙给出正确答案和分析，谢谢！
参考解答
471***263
2023-07-21 09:34:48
正确答案：Randomize aver=aver／10
本题首先定义了一个具有10个元素的数组a，然后通过For循环给该数组的每个元素赋一个随机数，并把该数加到变量Sum中。For循环执行后，用总和除去元素个数就得到平均值。要产生随机数，可先使用Randomize进行随机数初始化，所以[12处应填“Randomize”。循环过后应求平均值，故[13处应填“aver=aver/10”。
相似问题
下列程序实现的功能是：从键盘上输入10个整数 并把它们写到“D：”盘“a1．dat”文件中 然后从中
下列程序实现的功能是：从键盘上输入10个整数，并把它们写到“D：”盘“a1．dat”文件中，然后从中读出第5个数并输出。 Private Sub Form_Click() Di
语句Static x(7 8)As Double定义了【 】个元素。请帮忙给出正确答案和分析 谢谢！
语句Static x(7，8)As Double定义了【 】个元素。请帮忙给出正确答案和分析，谢谢！
假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl 如图20-10所示。当改变了
假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl，如图20-10所示。当改变了驱动器列表框中的驱动器时，希望在目录列表框中显示相应驱动器
算法一般都可以用选择结构 循环结构和【 】结构组合而成。请帮忙给出正确答案和分析 谢谢！
算法一般都可以用选择结构、循环结构和【 】结构组合而成。请帮忙给出正确答案和分析，谢谢！
编写如下通用过程： Sub proc(By Val num As Long ByRef ren As
编写如下通用过程： Sub proc(By Val num As Long，ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(
