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

[填空题] 下面程序运行后,单击命令按钮,输出的结果是。Private Sub Commandl

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

[填空题] 下面程序运行后,单击命令按钮,输出的结果是。Private Sub Commandl

[填空题] 下面程序运行后,单击命令按钮,输出的结果是【 】。Private Sub Commandl_Click( )   Dim a%(1 To 4) ,b%(2 To 6) ,i%,strl#,str2#   For i=1 To 4     a(i) =i   Next i   For i=2 To 6     b(i) =i   Next i   str1 =YAG(a)   str2 =YAG(b)   Print"strl";str1;"str2=";str2  End Sub  Function YAG (a()As Integer)   Dim T#,i%   t=1   For i=LBound(a) To UBound(a)   t=t * a(i)   Next i   YAG =t  End Function

正确答案:

strl=24 str2=720

参考解析:

程序首先调用循环语句为数组a、b赋值,其中a(i)=I;b(i)=I,且数 组a的上下界分别为1和4,数组b的上下界分别为2和6;接着将数组a作为参数调用 YAG过程,在YAG过程中,定义了两个变量t及I,I作为循环语句For的变量,它的初始 值和终值分别为数组的上下界,循环体为t=t * a(i),即将a(i)的值乘以t,然后再赋 给t,当循环结束后,程序返回的就是数组a中的各元素的积;同理程序将数组b作为参 数传递给YAG过程后返回数组b中各元素的积,运行程序结束后,输出结果为:strX=24 str2=720。

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

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

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