首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 al
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 al
admin
2013-04-11
48
问题
在窗体上画一个命令按钮Command1,然后编写如下程序:
Private Sub Command1_Click()
Dim arr()As Integer
ReDim arr(3)
For i=0 To 3
alt(i)=i
Next i
x=InputBox("请输入一个数字:")
If Val(x)>4 Then
Re Dim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【 】。
选项
答案
12
解析
用Redim语句重定义数组的维数时,原有维数内的内容将被破坏。除非用Redim Preserve来重新定义维数。本题中由于输入值x>4,动态数组在被重定义为包含4个元素的数组后(即Redim arry(3),此时arry(3)=3),重新被定义为包含5个元素的数组,而重定义时并未用Preserve关键字。故此时arry(3)=0(实际上arry(0)、 arry(1)、arry(2)的值也都为0,即Integer类型变量的初始值)。
转载请注明原文地址:https://kaotiyun.com/show/cdhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为______。N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJNextIPrintN;J;I
单击命令按钮时,下列程序代码的执行结果为______。PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10m=m/10EndSubP
下列程序段的执行结果为______。Forx=5To1Step-1ForY=1To6-xPrintTab(Y+5);"*";NextYPrintNextx
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是______。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
假设在窗体Form1上加一个通用对话框控件CommonDialog1,用语句CommonDialog1.ShowOpen建立打开文件对话框,那么从该对话框中单击“确定”按钮退出对话框时,为了得到用户所选择的文件的路径以及文件名,应该使用CommonDial
下列数据结构中,不是线性结构的是______。
某二叉树中度为2的结点有18个,则该二叉树中有【】个叶子结点。
下面说法不正确的是
不能退出VisualBasic的叙述是______。
随机试题
Koplik斑出现于麻疹发疹前________,于出疹后________迅速消失。
可致纵隔向患侧移位的疾病是
甲为自己的车向乙公司投保第三者责任险,保险期间内甲车与丙车追尾,甲负全责。丙在事故后不断索赔未果,直至事故后第3年,甲同意赔款,甲友丁为此提供保证。再过1年,因甲、丁拒绝履行,丙要求乙公司承担保险责任。关于诉讼时效的抗辩,下列哪些表述是错误的?(2013年
型式评价结论的确定原则和判断准则之一是:在系列产品中,凡有一种规格不合格的,判为__________。
______是道德发展的最高阶段。
如今高楼大厦正在显现着新的社会结构,__________着新的心理空间,但一般来说缺少个性,它以其水泥和玻璃,__________着每一个城市的__________和表情,不分南北地制定出彼此相似的生活图景。填入划横线部分最恰当的一项是:
政治社团:指的是在社会政治生活中,按照特定的利益集合在一起,有组织的参加、影响政府政策的制定、变动和执行的社会团体。根据上述定义,下列不属于社会团体的是:
ex展开成x一3的幂级数为_______.
TheVictorianAgewaslargelyanageof____,eminentlyrepresentedbyDickensandThackeray.
Therearetwotypesofpeopleintheworld.Althoughtheyhave【21】degreesofhealthandwealthandothercomfortsoflife,oneb
最新回复
(
0
)