2. 计算机
  3. 下面程序的功能是由随机函数产生100个在200～700之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100 a(j)=Int(Rn

下面程序的功能是由随机函数产生100个在200～700之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100 a(j)=Int(Rn

admin2013-04-11  39
问题 下面程序的功能是由随机函数产生100个在200～700之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。    Dim a(100)    For j=1 To 100       a(j)=Int(Rnd*501+200)：Print a(j)    Next j : Print    p=1 : max= ______    For j=2 To 100       If 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
答案2
解析 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)。
转载请注明原文地址:https://kaotiyun.com/show/iOhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)