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

[填空题] 设有如下程序:Option Base 1Private Sub Command1

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

[填空题] 设有如下程序:Option Base 1Private Sub Command1

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

正确答案:

arrA(A) , Min = arrA(i)

参考解析:

由于有 Option base 1 语句,所以数组下标是从 1 开始。本题的功能是查找 8 个数中的最小值,首先 使用 Array 语句给数组赋值,然后把第一个值赋值给最小值变量,及 Min = arr1(1),然后从第二个数开始循 环与最小值比较,如果比最小值小,则把这个值赋值给 Min,即 Min = arr1(i)。

转载请注明:文章转载自 www.mshxw.com
本文地址:https://www.mshxw.com/it/481358.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

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

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