首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面运行程序后,单击命令按钮,输出的结果是 【 】 。 Private Sub Command1_Click() Dim a%(1 To 5),i%, s# For i=1 To 5 a(i)=i Next s=Fun(a) Print "s
下面运行程序后,单击命令按钮,输出的结果是 【 】 。 Private Sub Command1_Click() Dim a%(1 To 5),i%, s# For i=1 To 5 a(i)=i Next s=Fun(a) Print "s
admin
2013-01-23
25
问题
下面运行程序后,单击命令按钮,输出的结果是 【 】 。
Private Sub Command1_Click()
Dim a%(1 To 5),i%, s#
For i=1 To 5
a(i)=i
Next
s=Fun(a)
Print "s="; s;
End Sub
Function Fun(a() As Integer)
Dim t#, i%
t=1
For i=LBound(a) To UBound(a)
t=t a(i)
Next
Fun=t
End Function
选项
答案
S=120
解析
程序首先调用循环语句为数组a、b赋值,其中a(i)=i;b(i)=i,且数组a的上下界分别为1和5,接着将数组a作为参数调用Fun过程,在Fun过程中,定义了两个变量t及i,i作为循环语句For的变量,它的初始值和终值分别为数组的上下界,循环体为t = t*a(i),即将a(i)的值乘以t,然后再赋给t,当循环结束后,程序返回的就是数组a中各元素的积,输出结果为:s=120。
转载请注明原文地址:https://jikaoti.com/ti/T9O0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:PrivateSubCommand1_Click()n=Val(Text1.Text)
在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A.PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<65or
关于VB中的过程,下列说法正确的是()。
关系模型有三类完整性约束:实体完整性、参照完整性和用户定义的完整性。定义外键实现完整性是()。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有一个标签L1,请画一个单选按钮数组,名称为Op1,含三个单选按钮,它们的Index属性分别为0、1和2,标题依次
设有如下变量声明DimTestDateAsDate为变量TestDate正确赋值的表达方式是______。
设在菜单编辑器中定义了—个菜单项,名为menul。为了在运行时隐藏该菜单项,应使用的语句是______。
在VisualBasic中传递参数的方法有______方式。
在所有排序方法中,关键字比较的次数与记录的初始排列次序无关的是______。
在窗体上画两个单选按钮,名称分别为Option1和Option2,标题分别为“黑体”和“楷体”;一个复选框,名称为Check1,标题为“粗体”。要求程序运行时,“黑体”单选按钮和“粗体”复选框被选中,则能够实现上述要求的语句序列是()。
随机试题
心悸不安,胸闷气短,动则尤甚,面色苍白,形寒肢冷,舌淡苔白,脉象虚弱或沉细无力。证机概要为
甲状腺危象时,首先选用的药物是
设u=ex2sin,则аu/аx=()。
【背景资料】某省重点工程项目全额使用国拨资金进行建设。该工程计划于2014年年底投入使用。由于工程复杂,技术难度高,一般施工队伍难以胜任,业主自行决定采取邀请招标方式。于2013年9月8日向通过资格预审的A、B、C、D、E五家施工承包企业发出了投
下列关于会计电算化岗位设置的说法,正确的有()。
在项目投资假设条件下,经营期计入财务费用的利息费用不属于现金流出量的内容,但在计算固定资产原值时,必须考虑建设期资本化利息。( )
外存储器用来存放暂时不用的程序和数据,且以()的形式存储。
《中华人民共和国义务教育法》第二十六条规定,学校实行__________负责制。
甲将史某骗至阳台后,将阳台门从外面锁上,拿走史的手机和钱包,史眼睁睁看着却无法反抗。甲的行为是()
YouwillheararadiointerviewwithMarthaFlowers,theManagingDirectoroftheMAXchainofsandwichbars.Foreachquestion
最新回复
(
0
)