首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有名称为Command1的命令按钮,其事件过程如下: Option Base 1 Private Sub Command1_Click() Dim a Dim b(10)As Integer a=Array(2
窗体上有名称为Command1的命令按钮,其事件过程如下: Option Base 1 Private Sub Command1_Click() Dim a Dim b(10)As Integer a=Array(2
admin
2019-08-22
40
问题
窗体上有名称为Command1的命令按钮,其事件过程如下:
Option Base 1
Private Sub Command1_Click()
Dim a
Dim b(10)As Integer
a=Array(2,4,7,3,9,6)
For i=LBound(A)To UBound(A)
b(i)=a(i)+i
Sum=Sum+b(i)
Next i
Print Sum
End Sub
运行程序,单击命令按钮时,窗体上显示的是( )。
选项
A、44
B、46
C、50
D、52
答案
D
解析
不同维数的数组缺省下界都是0或1,这取决于Option Base语句的没置。本题中有语句Option Base 1,所以LBound(A)=1,UBound(A)=6;For循环进行求和计算,结果为52,选D。
转载请注明原文地址:https://kaotiyun.com/show/azTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下事件过程:PrivateSubForm_Activate()Dimscore(1To3)AsIntegerDimiAsInteger.tAsVariantFori=3To1Step-1score(i)
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为()。
有以下程序代码:ConstNUMAsInteger=5PrivateSubFormClick()DimaAsInteger,bAsIntegera=1:b=NUMDoa=a+
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。程序代码如下:Dimcolor(3)A
在面向对象方法中,不属于“对象”基本特点的是()。
循环队列的存储空间为Q(1:100),初始状态为front=rear=100。经过一系列正常的入队与退队操作后,front=rear=99,则循环队列中的元素个数为()。
设一棵树的度为4,其中度为4,3,2,1的结点个数分别为2,3,3,0。则该棵树中的叶子结点数为()。
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndType
下面哪个属性不是框架控件的属性()。
随机试题
下列哪一种消毒剂不是高效水平消毒剂【】
男性,40岁,反复脓血便伴腹痛4年,有疼痛-便意-便后缓解的规律,每日大便4~5次,查体左下腹轻压痛,粪便细菌培养阴性,最可能的诊断是
有关HIV的描述哪项不正确( )。
墙体下的刚性条形混凝土(C15)基础如图所示。荷载效应标准组合基础底面处的平均压力值PK=180kPa。当基础厚度为H时,台阶宽度b的最大尺寸为()。
根据《建设工程质量管理条例》,建设单位在申领施工许可证之前,应当按照有关规定办理()。
在进行另类资产投资时,需承担的风险有()。
下列情况中属于特大旅游安全事故的是()。
在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下:窗体中有一个文本框和两个命令按钮。程序运行后,如果单击“读入并显示记录”按钮,则从考生文件夹下的in5.
设有下面程序代码:PlIivateSubCommandl_Click()DimstrAsString,chAsStringstr=”VisualBasicProgramming”
考生文件夹下存在一个数据库文件“samp1.accdb”,里面已经设计好表对象“tEmployee”。试按以下要求,完成表的编辑:在编辑完的表中追加以下一条新记录:
最新回复
(
0
)