首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有单选钮和列表框控件。单击名称为Option1、标题为“国家”的单选钮,向列表框中添加国家名称,如下图所示。 Option1的单击事件过程如下: Private Sub Option1_Click() Dim arr arr
窗体上有单选钮和列表框控件。单击名称为Option1、标题为“国家”的单选钮,向列表框中添加国家名称,如下图所示。 Option1的单击事件过程如下: Private Sub Option1_Click() Dim arr arr
admin
2016-06-30
19
问题
窗体上有单选钮和列表框控件。单击名称为Option1、标题为“国家”的单选钮,向列表框中添加国家名称,如下图所示。
Option1的单击事件过程如下:
Private Sub Option1_Click()
Dim arr
arr=Array(”中国”,”日本”,”德国”,”美国”,”澳大利亚”)
List1.Clear
For i=0 To Ubound(arr)
List1.AddItem arr(i)
Next
End Sub
以下关于上述代码的叙述中,正确的是( )。
选项
A、程序有错,没有声明数组的维数及上下界
B、只有一维数组才能使用Array为数组赋初值
C、For循环的终值应为ListCount—1
D、For循环的初值应为1
答案
B
解析
程序没有错误。数组变量定义时可以不用声明上下界。List控件列表项的索引从0开始。Array函数只适用于一组数组,只能对一维数组进行初始化,不能对二维数组或多维数组进行初始化。因此叙述正确的是B选项。
转载请注明原文地址:https://kaotiyun.com/show/KlLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要将窗体定义成一个对话框,且具有以下属性:包含控制菜单框和标题栏,不包含最大化和最小化按钮,运行时不能改变尺寸。可以将窗体的BorderStyle属性设置为______。
用窗体的Caption属性可以设置窗体的______。
相对于数据库系统,文件系统的主要缺陷有数据关联差、数据不一致性和
从工程管理角度,软件设计一般分为两步完成,它们是()。
下面程序运行结果是()。PrivateSubForm_Click() DimxAsSingle,yAsSingle x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
数据库设计分为以下6个设计阶段:需求分析阶段、______、逻辑设计阶段、物理设计阶段、实施阶段及数据库运行和维护阶段。
下面程序段的运行结果是()。PrivateSubForm_Click() ForI=3to1step-1 PrintSpc(10-I); Forj=1to2*I-1 print"*
函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。FunctionFun1(bAsInteger) if______Then Fun1=0 Else Fun1=1
设有数组声明语句:OptionBase1DimA(2,-1To1)以上语句所定义的数组A为______维数组,共有______个元素,第一维下标从______到______,第二维下标从______到______。下列选项
将E-R图转换到关系模式时,实体与联系都可以表示成()。
随机试题
在Access中,______是使用Access宏或VisualBasicforApplications(VBA)代码为数据库添加功能的过程。
脑出血患者发生脑疝与下列哪项无关()。
A.血清前清蛋白下降B.血清游离脂肪酸上升C.血清游离脂肪酸下降D.尿肌酸,尿酐降低E.血清微量元素降低
用烧灼法治疗疣的方法最早见于哪本书
某公司依法发出收购要约,收购某上市公司的股票,进行上市公司收购活动,在该收购公司发出的收购要约期满时,收购人持有的被收购公司的股份数达到该公司已发行股份总数的多少以上时,其余仍持有被收购公司股票的股东,有权向收购人以收购要约的同等条件出售其股票,收购人应当
()监理组织形式适用于分为若干相对独立子项的大中型建设项目。
下列各项中,属于现代金融体系基本要素的有()。[2008年真题]
关于关系的完整性约束,由DBMS自动完成的是()。(1)实体完整性(2)用户定义的完整性(3)参照完整性(4)域完整性
光线在一年中所走的距离称为()。
TheProblemsofTakingEnglishCoursesThroughEnglishWhenstudentstakecoursesthroughthemediumofEnglish,theyhaveto
最新回复
(
0
)