首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,名称为Commandl,然后编写如下代码: Option Base 0 Private Sub Commandl_Click() Dim A1(4)As Integer,A2(4)As Integer
在窗体上画一个命令按钮,名称为Commandl,然后编写如下代码: Option Base 0 Private Sub Commandl_Click() Dim A1(4)As Integer,A2(4)As Integer
admin
2017-11-23
90
问题
在窗体上画一个命令按钮,名称为Commandl,然后编写如下代码:
Option Base 0
Private Sub Commandl_Click()
Dim A1(4)As Integer,A2(4)As Integer
For k=0 To 2
Al(k+1)=InputBox(”请输入一个整数”)
A2(3一k)=Al(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/gyGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及ModeL2组成。Model1代码如下:PublicxAsIntegerPublicyAsIntegerSubS1()
在窗体上画一个命令按钮,然后编写如下程序:Functionfunl(ByValBumAsLong)AsLongDimkAsLongk=0Bum=Abs(Bum)DoWhi
若要求从文本框中输入密码时在文本框中只显示“*”号,则应当在此文本框的属性窗口中设置
在程序的空自行处填写适当的语句,完成F列功能:依次自动将列表榧List2巾所有列表硕目移入列表梃Listi巾。并将移人Listl中的项目从List2;f1删除。DoWhikList2ListCountList2.Removehem
设窗体中有一个文本框Textl,若在程序中执行了Textl.SetFocus,则触发
阅读如下程序;PrivateSubFormClick()msg1$=“继续吗?”msg2$=“操作对话框”r=MsgBox(msg1$,vbYesNoOrvbDefaultButton2,msg2$
在窗体上画1个命令按钮和1个通用对话框,其名称分别为Command1和CommonDialog1,然后编写如下事件过程:PrivateSubCommand1Click()CommonDialog1.【】="打开文件""CommonDial
下列叙述不正确的是()。
表达式Abs(-5)+Len("ABCDE")的值是
随机试题
为使肌肉松弛可设法抑制神经一肌接头处
某肝性脑病患者需要灌肠,最适宜的灌肠液为()。
急性肠梗阻,大量呕吐,脉搏细弱,血压下降长期禁食,每日通过静脉补液,四肢软瘫,肠麻痹
臂梁AB由三根相同的矩形截面直杆胶合而成,长为l,材料的许可应力为[σ]。若胶合面开裂,假设开裂后三根杆的挠曲线相同,接触面之间无摩擦力。则在梁承载能力范围之内开裂前后的B端挠度之比为()。
评价对象完善自身安全管理、应用安全技术等方面的技术件指导文件是()。
Treesshouldonlybepruned(修剪)whenthereisagoodandclearreasonfordoingsoand,fortunately,thenumberofsuchreasonsis
劳动法律行为包括()。
(2014吉林政法干警25)我们急需讨论一下“改革是什么”,可能有人会觉得这样的动议________。中国已经进入全面而深入的改革阶段,“改革是什么”的问题不是已经得到解决了吗?填入画横线部分最恰当的一项是:
将一枚硬币独立地掷两次,引进事件:A1={掷第一次出现正面},A2={掷第二次出现正面},A3={正反面各出现一次},A4={正面出现两次},讨论下列事件组的独立性:A2,A3,A4.
Itseemstohappenwithdepressingfrequency—sunnyskiesturntorainjustastheweekendarrives.NowSpanishresearcherssayt
最新回复
(
0
)