首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim n()As Integer Dim a,b As Integer
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim n()As Integer Dim a,b As Integer
admin
2018-10-18
58
问题
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
Private Sub Command1_Click()
Dim n()As Integer
Dim a,b As Integer
a=InputBox("Enter the first number")
b=InputBox("Enter the second number")
ReDim n(a Tob)
For k=LBound(n)To UBound(n)
n(k)=k
Print n(k);
Next k
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2和3,输出结果为( )。
选项
A、1 2
B、2 3
C、3 4
D、4 5
答案
B
解析
输入2和3后,n被重新定义,下标为2,上标为3。For循环执行2次,k=2和k=3。因此选B。
转载请注明原文地址:https://kaotiyun.com/show/QRFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionFun(xStrAsString)AsString DimtStrAsString,strLAsInteger tStr="" strL=Len(xStr) i=
用来设置文字字体是否斜体的属性是( )。
在窗体上画一个名称为List1的列表框,然后编写如下程序:PrivateSubForm_Click()Fori=1To10Item="Item"&iList1.AddItemItem
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
以下关于VB对象属性的叙述中,错误的是
假定有以下循环结构:DoUntil条件表达式 循环体Loop则以下正确的描述是( )。
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是( )。
随机试题
患者男性,36岁,呼吸困难,查体:心尖搏动减弱,心音遥远,有奇脉,该患者最可能是
A.肥达反应B.粪便培养C.血培养D.粪便镜检E.胆汁培养
某机场的机械师张某对机场领导人员心怀不满,在某次为等待执行任务的一架波音747客机进行机械检修时,故意对飞机的发动机装置进行了破坏但恰好这架飞机此次没有投入运营在第二天运营前机械师陈某在对飞机进行检修时发现了故障及时进行了排除下列选项中对张某的行为认定正确
设f(x)有连续的导数,则下列关系中正确的是()。
期货公司申请金融期货结算业务资格,应当具备下列哪些基本条件?()
某工业企业大量生产甲产品,生产费用在完工产品与在产品之间的分配采用约当产量法。本月有关成本资料如下:(1)甲产品本月完工5000件,月末在产品1000件,原材料在开工时一次投入,在产品的完工程度为50%。(2)月初在产品成本和本月生产费用合计为1
已知α1=[1,2,-3,1]T,α2=[5,-5,a,11]T,α3=[1,-3,6,3]T,α4=[2,-1,3,a]T.问:a为何值时,向量组α1,α2,α3,α4线性相关;
在考生文件夹下,存在两个数据库文件和一个照片文件,数据库文件名分别为“sampl.accdb”和“dResearch.accdb”,照片文件名为“照片bmp”。请按以下操作要求,完成表的建立和修改。(1)将考生文件夹下“dResearch.accdb”数
ThemovieactorArnoldSchwargenegger,whoisrunningforgovernorofCalifornia,belongstotheconservativeDemocraticParty.
A、Becausemanyyoungpeoplehavemovedintocomfortableapartments.B、Becausemanyoldhousesinthebadpartofthetownareno
最新回复
(
0
)