2. 计算机
  3. 设有以下程序： Option Base 1 Private Sub Command1_Click( ) Dim arr1 ,Max as Integer art1 = Array(12

设有以下程序： Option Base 1 Private Sub Command1_Click( ) Dim arr1 ,Max as Integer art1 = Array(12

admin2009-03-15  53
问题 设有以下程序：
       Option Base 1
       Private Sub Command1_Click( )
           Dim arr1 ,Max as Integer
           art1 = Array(12,435,76,24,78,54,866,43)
       【  】= arr1(1)
          For i = 1 To 8
           If arrl(i)＞Max Then【  】
           Next i
           Print "最大值："； Max
       End Sub
   以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
选项
答案Max , Max＝arr1(i)
解析 Max＝arr1(1)是先将第1个元素设为最大值，然后在循环中逐一和数组元素arr1(i)进行比较，如果比当前的Max值大，则更新Max。  以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
转载请注明原文地址:https://www.kaotiyun.com/show/nG1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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