首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m
admin
2016-08-24
27
问题
窗体上有Command1、Command2两个命令按钮。现编写以下程序:
Option Base 0
Dim a()As Integer,m As Integer
Private Sub Command1_Click()
m=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
Private Sub Command2_Click()
m=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
运行程序时,单击Command1后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是( )。
选项
A、5
B、6
C、10
D、11
答案
B
解析
程序中Option Base 0表示指定数组的下标默认下界为0。ReDim语句用来重新定义动态数组,按定义的上下界重新分配存储单元。在一个程序中,町以多次用ReDim语句定义同一个数组,随时修改数组中元素的个数。程序中先执行ReDim a(10),然后执行了ReDim a(5),因此数组a的下界为0,上界为5,共有6个元素。
转载请注明原文地址:https://jikaoti.com/ti/dpJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是()。
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
下面程序运行结果是()。PrivateSubForm_Click() DimxAsSingle,yAsSingle x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
设有如下程序:PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8:s=0Dos=s+n:n=n-1Loop
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger a=3:b=4:c=5 PrintSec
______的任务是诊断和改正程序中的错误。
设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为
软件设计模块化的目的是______
可以用InputBox函数产生“输入对话框”。若执行下列语句st$=InputBox("请输入字符串","字符串对话框","字符串")当用户输入完毕,按“确定”按钮后,st$变量的内容是()。
A=7,B=3,C=4,则表达式AMOD3+B^3/C\5的值为______。
随机试题
设z=xF’(y,x/y),其中函数f具有一阶连续偏导数,求全微分dz.
当使用硬膜外麻醉时,能加速局麻药起效和延长作用持续时间,并提供最大的感觉和运动阻滞深度的做法是
关于流行性脑脊髓膜炎的叙述,错误的是
社会主义的根本目的是()。
甲公司是一家提供社交媒体服务的互联网公司,乙公司是一家著名的电子商务公司。2015年,甲公司和乙公司签署交换彼此30%股份的战略合作协议。根据协议,双方将在网络支付服务方面进行合作,同时,甲公司将向乙公司提供社交媒体客户端的一级入口位置及其他主要平台的支持
(2014年)甲公司20×3年财务报表于20×4年4月10日对外报出。假定其20×4年发生的下列有关事项均具有重要性,甲公司应当据以调整20×3年财务报表的是()。
Sociologistsusethetermpowertorefertothecapacityofpeopleorgroupstocontrolorinfluencetheactionsofothers,whet
DothefollowingstatementsagreewiththeinformationgiveninReadingPassage2?Inboxes20-26onyouranswersheet,writeT
WhatisthenumberofurbanpopulationinChina?
Theylikedto______aroundtheblazedfirewhenitisbitterlycoldinthehouse.
最新回复
(
0
)