栏目分类:
子分类:
返回
名师互学网用户登录
快速导航关闭
当前搜索
当前分类
子分类
实用工具
热门搜索
名师互学网 > IT > 面试经验

[填空题] 设有如下程序:Option Base 1Private Sub Commandl Click()Dim arrlDim Min As Integer,i As Integerarrl=Ar

面试经验 更新时间: 发布时间: IT归档 最新发布 模块sitemap 名妆网 法律咨询 聚返吧 英语巴士网 伯小乐 网商动力

[填空题] 设有如下程序:Option Base 1Private Sub Commandl Click()Dim arrlDim Min As Integer,i As Integerarrl=Ar

[填空题] 设有如下程序:Option base 1Private Sub Commandl Click()Dim arrlDim Min As Integer,i As Integerarrl=Array(12,435,76,-24,78,54,866,43)Min=()For i=2 To 8If arrl(i)<Min Then()NextPrint"最小值是:";MinEnd Sub以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。


参考答案:

arrl(1);Min=arrl(i)

问题解析:

[评析] 由于有Option base 1语句,所以数组下标是从1开始。本题的功能是查找8个数中的最小值,首先使用Array语句给数组赋值,然后把第一个值赋值给最小值变量,及Min=arrl(1),然后从第二个数开始循环与最小值比较,如果比最小值小,则把这个值赋值给Min,即Min=arrl(i)。
转载请注明:文章转载自 www.mshxw.com
本文地址:https://www.mshxw.com/it/257962.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

版权所有 (c)2021-2022 MSHXW.COM

ICP备案号:晋ICP备2021003244-6号