问题
单项选择题
下面程序的功能是由随机函数产生100个在200～700之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100a(j)=Int(Rnd*501+200)：Print a(j) Next j : Print p=1 : max= ______ For j=2 To 100If a(j)＞max Then max=a(j) : p=j Next j Print "The largest number is " ; max Print "The position is"; p End
A．0
B．a(1)
C．1.7E+38
D．1.7E-38
答案
参考答案：B
解析： Rnd随机数函数产生一个在(0，1)区间的任意一个单精度随机实数(不含0和1)。 Int函数返回不大于自变量的最大整数。数组a用来存放100个随机数。此程序的第一个For循环，其中Int(Rnd*501)产生0～500的随机整数，Int(Rnd*501)+200产生200～700的随机整数，该For循环的功能是产生100个在200～700间的整数，并将它们存放在一维数组a中。程序的后半部分的功能是在数组中依照从第一个元素到最后一个元素的顺序，查找最大的一个数并将之赋值给max，并且找出最大数所在的位置，并把它赋值给p。max是当前查找的元素中的最大值，p记录该元素的位置，显然在下划线处应填写数组的第一个元素，即a(1)。