首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
65
问题
编写如下程序:
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://www.kaotiyun.com/show/JcUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应川程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Frame1、标题为“目的地”的框架,在框架中添加三个复选框,名称分别为Cheek1、Cheek2、Check3,其标题分别
考生文件夹下有一个数据库文件“samp2.accdb”,其中存在已经设计好的3个关联表对象“tStud”、“tCourse”和“tScore”及表对象“tTemp”。请按以下要求完成设计。(1)创建一个查询,查找并显示学生的“姓名”、“课程名”和
在考生文件夹下的“samp1.accdb”数据库文件中已建立表对象“tVisitor”,同时在考生文件夹下还有“exam.accdb”数据库文件。请按以下操作要求,完成表对象“tVisitor”的编辑和表对象“tLine”的导入。(1)设置“游客
不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是()。
在窗体上有2个图片框,名称分别为Picture1和Picture2,Picture2中添加了香蕉图片(见图3),且将Picture2.DragMode属性设置为1。要求程序运行时,可以用鼠标把Picture2拖拽到Picture1中(见图4)。以下可以实现
下列不属于软件工程3个要素的是()。
为达到把a、b中的值交换后输出的目的,某人编程如下:PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b)Printa,bEndSubPrivateSubswap(ByValaAs
以下关于框架的叙述中,错误的是
表达式Str(Len("123"))+Str(77.7)的值是()。
以下说法中正确的是()。
随机试题
A、toothacheB、touchC、benchD、butcherA选A画线部分读[k],其他选项画线部分读[t]。
预制场地的总体布置,应根据预制()合理分区,满足生产安全和环境保护的要求。
背景材料:某城市郊区新建一级公路长3km,路面设计宽度15m,含中型桥梁一座。路面面层结构为沥青混凝土。粗粒式下面层厚8cm,中粒式中面层厚6cm,细粒式上面层4cm。经批准的路面施工方案为:沥青混凝土由工厂集中厂拌(不考虑沥青拌和厂设
根据《建设工程工程量清单计价规范》GB50500--2013,施工企业综合单价的计算有以下工作:①确定组合定额子目并计算各子目工程量;②确定人、料、机单价;③测算人、料、机的数量;④计算清单项目的综合单价;⑤计算清单项目的管理费和利润;⑥计算清单项目的人
依照《建设工程工程量清单计价规范》规定,以下关于工程量清单的说法中正确的是()。
在房地产市场环境调研中,对居民消费结构和消费水平的调研属于()调研。
山东省地方戏曲被列为第一批国家级非物质文化遗产的是()。
私塾
软件设计的主要任务是设计软件的结构、过程和模块,其中软件结构设计的主要任务是要确定(53)。
LichensTobecertain,alichenisnotthemostconspicuousofplants.Lichensgrowinunassumingfashiononrocks,logsand
最新回复
(
0
)