首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序代码: Private Sub Form_Click() Dim a(10) As Integer, b(5) As Integer For i = 1 To 10 a(i) = i Next i
有如下程序代码: Private Sub Form_Click() Dim a(10) As Integer, b(5) As Integer For i = 1 To 10 a(i) = i Next i
admin
2019-04-29
52
问题
有如下程序代码:
Private Sub Form_Click()
Dim a(10) As Integer, b(5) As Integer
For i = 1 To 10
a(i) = i
Next i
For j = 1 To 5
b(j) = j * 20
Next j
a(5) = b(2)
Print a(5)
End Sub
运行程序,单击窗体,输出结果是
选项
A、40
B、20
C、10
D、5
答案
A
解析
a(10)数组下标从0到10,a(5)被赋值5;b(5)数组下标从0到5,b(2)被赋值40,题目中要求a(5) = b(2),即b(2)赋值给a(5)。故正确答案为选项A。
转载请注明原文地址:https://www.kaotiyun.com/show/zGUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。要求:在窗体上建立一个单选按钮数组optItem,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态。如图3
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称Shape1的形状控件,在属性窗口中将其设置为圆形。画一个名称为List1的列表框,并在属性窗口中设置列表项的值分别为1、2、3、4、5。
在考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的20个整数读入数组a中,同时显示在Text1文本框中;②单击“变换”按钮,则数组a中元素的位置自动对调(即第一个数组元素
在考生文件夹下有一个工程文件sjt4.vbp。窗体上有一个名称为List1的列表框,名称为Timer1的计时器,名称为Label1的标签,如图3-66所示。请通过属性窗口向列表框添加四个项目,分别是“第一项”、“第二项”、“第三项”、“第四项”。程序运行后
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()Fori=lTo4X=4Forj=1To3X=3Fork=1to2X
函数过程F1的功能是:如果参数a为奇数,则返回值为1,否则返回值为0。以下能正确实现所述功能的代码的是()。
设在工程中有一个标准模块,并定义了如下类型:TypeStutypeinoAsIntegerstmameAsString*20strsexAsString*2smarkAsSingle
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
下列叙述中正确的是()。
三角形的构成条件是:任意2边之和大于第3边。设变量a、b、c是3条直线的长度,要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断,另一个不能正确判断的是
随机试题
A.δ—氨基—γ—酮戊酸合酶B.HMG—CoA还原酶C.磷酸果糖激酶D.HMG—CoA合成酶E.6—磷酸葡萄糖脱氢酶磷酸戊糖途径的关键酶是()
下列说法正确的是
背景某学院综合楼项目经有关部门批准由业主自行进行工程施工招标。该工程邀请A、B、C、D四家施工企业进行总价投标。业主确定的招标工作程序为:成立招标工作小组;发出投标邀请书;编制招标文件;编制标底;发放招标文件;招标答疑;组织现场踏勘;接受投标文件;开标
有效的战略风险管理应当()。
服务文化可以分为哪些层面?
若已知一个栈的入栈序列是1,2,3,…,n,其输出序列为P1,P2,P3,…,Pn,若P1=n,则Pi是()。
甲公司期末原材料的账面余额为100万元,数量为10吨。该原材料专门用于生产与乙公司所签合同约定的20台Y产品。该合同约定:甲公司为乙公司提供Y产品20台,每台售价10万元(不含增值税)。将该原材料加工成20台Y产品尚需加工成本总额为95万元。估计销售每台Y
社会主义初级阶段的含义是
数据库系统的核心是
Thestoryhappened______aclassroom.Bill’sfaceturnedredbecauseheknew______heardwhathesaid.
最新回复
(
0
)