2. 计算机
  3. 设有程序： Option Base 1 Private Sub Command1 Click() Dim arrl，Max as Integer arrl=Array(12，435，76，24，78，54，866，43)

设有程序： Option Base 1 Private Sub Command1 Click() Dim arrl，Max as Integer arrl=Array(12，435，76，24，78，54，866，43)

admin2010-03-30  27
问题 设有程序：
   Option Base 1
   Private Sub Command1 Click()
     Dim arrl，Max as Integer
     arrl=Array(12，435，76，24，78，54，866，43)
     ______ =arrl(1)
     For i=1 To 8
       If arrl(i)＞Max Then_______
     Next i
     Print“最大值是：”；Max
   End Sub
   以上程序的功能是：用Atray函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
选项
答案Max,Max=arrl(i)
解析 本题综合考查数组的初始赋值与For循环控制语句。根据题意，先用Array函数为数组arr1赋值，然后令变量Max等于arr1(1)，相当于给Max赋了一个初始值。在For循环中，进行8次循环，逐一遍历比较arr1(i)值与Max值的大小，如果arr1(i)＞Max，则令Max值等于此时的arr1(i)值。通过这个过程，求出arr1数组中的最大元素。故第12空填：Max。根据上面的分析，第13空应该把arrl(i)赋给 Max，故填：Max=arrl(i)。
转载请注明原文地址:https://jikaoti.com/ti/Ouq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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