2. 计算机
  3. 设有如下程序： Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1 Dim Min As Integer，i As

设有如下程序： Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1 Dim Min As Integer，i As

admin2009-02-13  17
问题 设有如下程序：
        Option Base 1
        Pfivme Sub Command1_Click(   )
             Dim arr1
             Dim Min As Integer，i As Integer
        arrl=Array(12，435，76，-24，78，54，866，43)
       Min=【  】
       For i=2 TO 8
         If arr1(i)＜Min Then【  】
       Next i
       Print“最小值是：”；Min
    End Sub
    以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。
选项
答案srr1(0) , Min=arr1(i)
解析 此题的功能是计算数组中的最小值，首先，把数组的第一个元素给Nin，然后分别和剩下的元素进行比较，如果哪一个元素比Min小，就交换，把这个元素的值给Min，直到最后。所以[12]应该是把数组的第一个元素给Min，即Min=arrl(0)。[13]是把和 Min比较后较小的值赋给Min，所以为Min=arr1(i)。
转载请注明原文地址:https://jikaoti.com/ti/bHq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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