2. 计算机
  3. 设有程序： Option Base 1 Private Sub Command1_Click() Dim arr1,Max as Integer arr1＝Array(12,435,76,24,78,54,866,43) 【

设有程序： Option Base 1 Private Sub Command1_Click() Dim arr1,Max as Integer arr1＝Array(12,435,76,24,78,54,866,43) 【

admin2010-03-30  27
问题 设有程序：
   Option Base 1
   Private Sub Command1_Click()
   Dim arr1,Max as Integer
   arr1＝Array(12,435,76,24,78,54,866,43)
   【  】＝arr1(1)
   For i＝1 To 8
   If arr1(i)＞Max Then【  】
   Next i
   Print"最大值是:";Max
   End Sub
   以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
选项
答案 Max,Max＝arr1(i)
解析 程序中用Array函数给变体变量 arr1赋了一组数，由于程序有Option Base 1语句，因此，数组元素的下标下界从1开始，接着把第一个数组元素赋给变量Max，这样为进行比较创造了条件，程序中的For循环控制比较次数，每次循环中，根据题目要求，若arr1(i)＞Max，则arr1(i)较大，应该用arr1(i)替代 Max，所以程序中[13]处应填语句Max＝arr1 (i)。
转载请注明原文地址:https://kaotiyun.com/show/t1mp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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