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

设有程序： Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【 】=arrl

admin2010-09-11  44
问题 设有程序：
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
以上程序的功能是，用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
选项
答案Max ,Max=arrl(i)
解析 当定义变量Max以后，系统自动给其赋初值为0。将数组第一个元素值赋值给Max，再将它与其他各数组元素逐个进行比较。若某个元素值比Max大，就将其赋值给Max，从而保证Max中始终是最大的值。
转载请注明原文地址:https://www.kaotiyun.com/show/0ump777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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