![[多项选择题] 在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是随机产生20个0～1000的整数，将其放入一个数组中，然后输出这20个整数的平均值。程序运行后，,第1张](/aiimages/%5B%E5%A4%9A%E9%A1%B9%E9%80%89%E6%8B%A9%E9%A2%98%5D+%E5%9C%A8%E8%80%83%E7%94%9F%E6%96%87%E4%BB%B6%E5%A4%B9%E4%B8%8B%E6%9C%89%E4%B8%80%E4%B8%AA%E5%B7%A5%E7%A8%8B%E6%96%87%E4%BB%B6sjt3.vbp%EF%BC%8C%E7%9B%B8%E5%BA%94%E7%9A%84%E7%AA%97%E4%BD%93%E6%96%87%E4%BB%B6%E4%B8%BAsjt3.frm%E3%80%82%E5%85%B6%E5%8A%9F%E8%83%BD%E6%98%AF%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F20%E4%B8%AA0%EF%BD%9E1000%E7%9A%84%E6%95%B4%E6%95%B0%EF%BC%8C%E5%B0%86%E5%85%B6%E6%94%BE%E5%85%A5%E4%B8%80%E4%B8%AA%E6%95%B0%E7%BB%84%E4%B8%AD%EF%BC%8C%E7%84%B6%E5%90%8E%E8%BE%93%E5%87%BA%E8%BF%9920%E4%B8%AA%E6%95%B4%E6%95%B0%E7%9A%84%E5%B9%B3%E5%9D%87%E5%80%BC%E3%80%82%E7%A8%8B%E5%BA%8F%E8%BF%90%E8%A1%8C%E5%90%8E%EF%BC%8C.png "[多项选择题] 在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是随机产生20个0～1000的整数，将其放入一个数组中，然后输出这20个整数的平均值。程序运行后，,第1张")
[多项选择题] 在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是随机产生20个0～1000的整数，将其放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮(名称为Command1，标题为“输出平均值”)，即可求出其平均值，并显示在窗体上(如图所示)。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
正确答案：
[解题思路] 表达式Int(Rnd*A000)可生成0～A000范围内随机整数。根据题意求出B0个随机整数的平均值，须用For循环语句逐一将数组中的各元素累加到变量Sum，然后求出平均值。[ *** 作步骤] 步骤A：打开本题工程文件。 步骤B：分析并编写程序代码。 程序提供代码 Option base A Private Sub CommandA_Click( ) Dim arrN(B0) As Integer Dim Aver As Single Dim Sum As Integer, i
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）