首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Form_Click() Dim a(5) As Integer, b(3) As Integer Dim k As Integer k = 1 For i = 1 To 5
编写如下程序: Private Sub Form_Click() Dim a(5) As Integer, b(3) As Integer Dim k As Integer k = 1 For i = 1 To 5
admin
2019-06-20
63
问题
编写如下程序:
Private Sub Form_Click()
Dim a(5) As Integer, b(3) As Integer
Dim k As Integer
k = 1
For i = 1 To 5
a(i) = i
Next i
For i = 1 To 3
b(i) = 2 * a(i)
Next i
For i = 1 To 3
k = k + b(i) * 2
Next i
Print k
End Sub
运行程序,单击窗体,输出结果是
选项
A、31
B、32
C、25
D、30
答案
C
解析
通过For循环,对整型数组a和b分别赋值,a=[1,2,3,4,5],b=[2,4,6],k是在原值基础上再加b每个元素值得两倍,故k=1+2*2+4*2+6*2=25,故选C项。
转载请注明原文地址:https://kaotiyun.com/show/JcUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sit5.vbp,其窗体上有一个文本框,名称为Text1,可以多行显示:有一个名称为CD1的通用对话框;还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“打外文件”、“转换”、“存盘”,如图2.235所示。命令按钮的功能
(1)有一个名为samp1.accdb的数据库。试修改职工表“employee”的结构,在“职工号”字段后增加“姓名”字段,其数据类型为文本型,长度为6,并对应职工号添加其姓名,见表2.6。(2)判断并设置表“employee”的主键,刚时将上
下面正确使用动态数组的是()。
有下列程序,运行后的结果为()。X=2.4:Y=3:Z=5Print"A(";X+Y*Z;")"
下列不属于软件工程3个要素的是()。
为了使名称为Command1的命令按钮右移200,应使用的语句是()。
执行下面的程序段后,变量S的值为()。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
下面的程序执行完毕后,组合框中数据项的值是()。PrivateSubForm_Click()Fori=1To6Combo1.AddItemiNextiFori=1To3Combo1.RemoveItemiNextiE
以下关于框架的叙述中,错误的是
设a=2,b=3,c=4,d=5,表达式Nota
随机试题
阅读王安石《答司马谏议书》中的一段文字,然后回答问题。盖儒者所争,尤在于名实,名实已明,而天下之理得矣。今君实所以见教者,以为侵官、生事、征利、拒谏,以致天下怨谤也。某则以谓:受命于人主,议法度而修之于朝廷,以授之于有司,不为侵官;举先王之政,以
在下列题中求各微分方程的通解或特解
女性,7岁。胸骨左缘第3、4肋间听到响亮而粗糙的收缩期杂音,应考虑的疾病是
男孩,3岁。自幼人工喂养,食欲差,有时腹泻,身高85cm,体重7500g,皮肤干燥、苍白,腹部皮下脂肪厚度约0.3cm,脉搏缓慢,心音较低钝。假设此患儿清晨突然面色苍白、神志不清、体温不升,首先应考虑最可能的原因是
信用公司债属于无担保证券范畴。()
甲公司为上市公司,适用企业所得税税率为25%,甲公司2×20年度实现利润总额5330万元,在申报2×20年度企业所得税时涉及以下事项: (1)甲公司与乙企业签订了一项租赁协议,将其原先自用的一栋写字楼出租给乙企业使用,租赁期开始日为2×20年3月31日。
一、注意事项1.本次申论考试分题本和答题纸两部分,题本提供有关资料及问题,答题纸供你作答时使用。2.考生姓名、准考证号务必填写在答题纸密封线内指定位置,答题纸上不准做与答题无关的标记符号。注意:所有作答都必须填写在答题纸指定位置上,否则无效。3.用蓝
如果把一些中国象征只是当做“元素”,就有点儿像把文化和传统当作装饰性的小挂件,看上去______但“如七宝楼台,眩人眼目,碎拆下来,不成片段。”
Weallconsiderhimamanofdynamicpersonalities.
Woulditbepossibleformetohaveacloserlookatyoursamples?
最新回复
(
0
)