首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base 0 Private Sub Command1_Click() Dim A1(4)As Integer,A2(4)As Integer
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base 0 Private Sub Command1_Click() Dim A1(4)As Integer,A2(4)As Integer
admin
2018-10-18
18
问题
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
Option Base 0
Private Sub Command1_Click()
Dim A1(4)As Integer,A2(4)As Integer
For k=0 To 2
Al(k+1)=InputBox("请输入一个整数")
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为
选项
A、0
B、1
C、2
D、3
答案
C
解析
本题的关键之处在于抓住每次具体给哪个数组元素进行了赋值,第一次循环中输入的2被赋给了A1(1)和A2(3),第二次循环中输入的4被赋给了A1(2)和A2(2),第三次循环中输入的6被赋给了A1(3)和A2(1),跳出循环时k的值为3,所以最后输出2。
转载请注明原文地址:https://kaotiyun.com/show/9RFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger m=1:n=0 DoWhilem
下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是( )。
以下关于变量作用域的叙述中错误的是( )。
以下关于VB特点的叙述中,错误的是( )。
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。命令按钮的事件过程如下:PrivateSubCommand1_Click(IndexAsIntege
在窗体模块的声明部分声明变量时,不能使用的关键字是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Dimx1AsInteger,x2AsInteger,x3AsIn
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerFori=1To4
能够产生1到50之间(含1和50)随机整数的表达式是( )。
能够产生1到50之间(含1和50)随机整数的表达式是( )。
随机试题
TheUnitedStatesiswidelyrecognizedtohaveaprivateeconomybecauseprivatelyownedbusinessesplay【C1】________roles.TheA
下列因素与肾结石形成有关,但除外
临床为单纯疱疹病毒感染的首选药
A.豹骨B.紫草C.蟾酥D.当归E.黄牛角依照《野生药材资源保护管理条例》及《国家重点保护野生药材物种名录》属于资源严重减少的常用野生药材是
差额净现值是评价哪种方案的指标()。
2015年11月,A公司赊销一批商品给B公司,含税价为15万元,双方约定应于2016年5月31日结清货款。由于B公司发生财务困难,到期无法偿付该应付账款。2016年6月1日,A公司与B公司进行债务重组,A公司同意B公司以其普通股3万股抵偿该项债务,该股票每
ABC会计师事务所接受委托,负责审计上市公司甲银行2015年度财务报表,并委派A注册会计师担任审计项目合伙人。相关事项如下:(1)A注册会计师是新晋升的合伙人,首次负责银行审计项目,以前一直从事房地产行业的审计。(2)B注册会计师担任甲银行2015年度
有以下四种说法,①甲数比乙数多20%,那么乙数比甲数少20%;②圆柱的侧面展开图不一定是长方形;③负数都比0小;④a2一定大于a。其中正确说法有()个。
经典条件反射
Liketime,spaceisperceiveddifferentlyindifferentcultures.SpatialconsciousnessinmanyWesternculturesisbasedonape
最新回复
(
0
)