首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行后,单击命令按钮,输出的结果是 Pivate Sub Cornmand1_Click() Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2# For i=1 To 4 a(i)=
下面程序运行后,单击命令按钮,输出的结果是 Pivate Sub Cornmand1_Click() Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2# For i=1 To 4 a(i)=
admin
2012-03-22
46
问题
下面程序运行后,单击命令按钮,输出的结果是 Pivate Sub Cornmand1_Click() Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2# For i=1 To 4 a(i)=i Next For i=2 To 6 b(i)=i Next str1=YAG(a) str2=YAG(b) Print"str1=";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 YAG=t End Function
选项
A、str1=24 str2=720
B、str1=12 str2=360
C、str1=24 str2=180
D、str1=36 str2=720
答案
A
解析
[命题目的] 考查数组作为过程参数的使用方法。
[解题要点] 程序首先调用循环语句为数组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。
转载请注明原文地址:https://kaotiyun.com/show/0hhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序段:booleana=false;booleanb=true;booleanc=(a&&b)&&(!b);booleanresult=(a&b)&(!b);执行完后,正确的结果是()。
下面程序段的输出结果是______。publicclassTest{publicstaticvoidmain(Stringargs[]){intx,y;
检查软件产品是否符合需求定义的过程称为( )。
已经建好一个Frame类的对象myfrm,要为其设置标题,需要调用下面()方法。
下列叙述中正确的是()。
键码的定义:在关系的范围内惟一标识______。
3下列代码中,将引起一个编译错误的行是()。1)publicclassTest{2)intm,n;3)publicTest(){}4)publicTest(inta){m=a;}5)public
在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,如图所示,请填空。PrivateSubOption1
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()a$=“VisualBasic”PrintString(3,a$)EndSub程序运行后,
随机试题
有关地方戏与发源地之间的对应关系,错误的一项是()。
行政违法的主体是()。
催化剂中毒有()两种情况。
简述加工出口战略的概念及优缺点。
A、翼外肌功能亢进主要表现B、翼外肌痉挛主要表现C、咀嚼肌群痉挛主要表现D、肌筋膜痛主要表现E、滑膜炎主要表现疼痛和张口受限,无弹响
护理蛲虫患儿的重要措施是
羁押工作仅限于对被依法判处有期徒刑罪犯进行关押看守的工作。()
请看下图回答以下问题:简述这类实验的显著性检验方法。
在香农定理中,决定信道最大数据传输率的参数主要有信噪比和(12)。
下列关于Winmail邮件服务器描述中,错误的是()。
最新回复
(
0
)