首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
假定有如下程序: Private Sub Form_Click() Dim a(4)As Integer,b(4)As Integer For k=0 To 2 a(k+1)=Val(InputBox(”请输入一个整
假定有如下程序: Private Sub Form_Click() Dim a(4)As Integer,b(4)As Integer For k=0 To 2 a(k+1)=Val(InputBox(”请输入一个整
admin
2017-11-23
125
问题
假定有如下程序:
Private Sub Form_Click()
Dim a(4)As Integer,b(4)As Integer
For k=0 To 2
a(k+1)=Val(InputBox(”请输入一个整数:”))
b(3一k)=a(k+1)
Next k
Print b(k)
End Sub
运行程序,单击窗体,依次输入3、6、9,输出结果为
选项
A、3
B、6
C、9
D、1
答案
A
解析
本题在循环中输入数据,当第一次输入3的时候a(1)=3,b(3)=a(1)=3;当第二次输入6的时候a(2)=6,b(2)=a(2)=6;当第三次输入9的时候a(3)=6,b(1)=a(3)=9,跳出循环后k的值为3,将输出b(3)的值。
转载请注明原文地址:https://kaotiyun.com/show/H8Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下哪个关键字声明的局部变量在整个程序运行中其值一直保留
在Activate事件过程中,写入下面的程序:PrirateSubForm_Activate()DimSAsString,aAsString,bAsStringa="*":b="$"Fori=1To4
使用PublicConst语句声明一个全局的符号常量时,该语句应放在______。
设有如下程序:PrivateSubForm_Click()Clsa$="ABCDFG"Fori=1To6PrintTab(12-i);【】NextiEndSub程序运行后,单击窗体,结果如图所示,请填空。
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
在窗体上画两个组合框,其名称分别为Combo1、Comb02,然后画两个标签,名称分别为Label1、Labe12。要求程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。PrivateSubCo
在代码中定义了一个子过程:SubP(a,B)...EndSub下面______调用该过程的格式是正确的。
在面向对象程序设计中,从外面看只能看到对象有外部特征,而不知道也无须知道数据的具体结构以及实现操作的算法,这称为对象的______。
执行以下程序段后,变量c$的值为______。a$="VisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,12)
在名称为Forml的窗体上画一个标签,其名称为Labl;再画一个列表框,其名称为Ll,通过属性窗口向列表框中添加若干项目,每个项目的具体内容不限,编写适当的事件过程。程序运行后,如果双击列表框中的任意一项,则把列表中的项目数在标签中显示出来。程序运行情况如
随机试题
Notuntil______thewholethingtohim______thathewaswrong.
下述平滑肌的结构中,哪一项相当于横纹肌的横小管()
患者,女性,56岁,肝炎30年。近1个月来肝区疼痛,食欲减退,进行性消瘦,肝呈进行性增大,质硬,触诊有结节,面部有蜘蛛痣,腹膨隆。首先应考虑为
属医疗用毒性药品的是
关于刑事诉讼法定代理人与诉讼代理人的区别,下列哪些选项是正确的?(2009年卷二67题,多选)
(2007年)在单缝夫琅禾费衍射实验中,若单缝两端处的光线到达屏幕上某点的光程差为δ=2.5λ,(λ为入射单色光的波长),则此衍射方向上的波阵面可划分的半波带数量和屏上该点的衍射条纹情况是()。
()是发展人民民主的切入点和关键。
=______.
WorkingMothersCarefullyconductedresearchesthathavefollowedthechildrenofworkingmothershavenotbeenabletoshow
TheidealrurallifestylereflectedintheartandliteratureisagreatcharacteristicinChinesecivilization.Itislargelya
最新回复
(
0
)