[问答题] 完成下列问题:在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是产生20个0~1000的随机数,放入一个数组中,然后输出这20个整数的平均值。程序运行

13 查阅

[问答题] 完成下列问题:

在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是产生20个0~1000的随机数,放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可求出其平均值,并在窗体上显示出来(如图3所示)。这个程序不完整,清把它补充完整,并能正确运行。

要求:在程序中的横线处填写正确的内容,使其实现上述功能,但不能修改程序的其他部分,最后把修改后的文件按原文件名存盘。

[题目提供的源程序]

Option Base 1

Private Sub Command1_Click()

Dim arrN(20) As Integer

Dim Aver As Single

Dim Sum As Integer, i

Randomize

For i=1 To 20

arrN(i)=Int(Rnd* (1) )

Next i

Sum= (2)

For i=1 To 20

Sum= (3)

Next i

Aver= (4)

Print Aver

End Sub

参考答案:

[操作步骤] 第1步:打开工程sjt3.vbp。 第2步:修改程序。 第3步:调试、运行并保存程序。 [1]1001 [2]0 [3]sum+arrN(i) [4]sum/20

产生一个a~b之间的随机整数的方法是:Int(Rnd*(b-a+1)+a)。累加求和时先设一个用于存储总和的变量,该变量的初始值为0,如sum=0,累加的方法为sum=sum+m,其中m为需要累加的值。总数除以量的个数即可得到平均值。

计算机考试