首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base0 Private Sub Command1_Click() Dim A1(4)As Integer,A2(4)As Integer For k=0To2 A1(k+
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base0 Private Sub Command1_Click() Dim A1(4)As Integer,A2(4)As Integer For k=0To2 A1(k+
admin
2016-12-13
25
问题
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
Option Base0
Private Sub Command1_Click()
Dim A1(4)As Integer,A2(4)As Integer
For k=0To2
A1(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
解析
本题的关键之处在于抓住每次具体给哪个数组元素进行了赋值,第一环中输入的4被赋给了A1(2)和A2(2),第三次循环中输入的6被赋给了A1(3)和A2(1),跳出循环时k的值为3,所以最后输出2。
转载请注明原文地址:https://jikaoti.com/ti/pXy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有以下函数过程:Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum
假定建立了一个名为Comrnandl的命令按钮数组,则下列说法中错误的是()。
有下列事件过程:PrivateSubCommandlClick()b=10DoUntilb=-1a=InputBox(”请输入a的值”)a=Val(a)b=InputBox(”请输入b的值”)
在用通用对话框控件建立“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是()。
用Print方法在Forml窗体中显示出4个#号的正确代码为()。
在窗体上设计两个复选框,一个显示粗体,另一个显示斜体,通过对复选框的选择,在一个文本框中显示相应效果的文本,请完成下列程序。PrivateSubFormLoad()Check2.Caption=“显示斜体”Textl.T
在窗体上建立通用对话框需要添加的控件是()。
本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个整数0或1,相当于一次投币,1代表正面,0代表反面。在窗体上有3个文本框,名称分别是Textl、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图1所示
已知a=5,b=/,c=12,下列表达式的值为True的是()。
执行下列语句届,输出结果是__________。s$=“ABCDEFG”PrintInStr(s$,“efg”)Print1.Cas*$(s$)
随机试题
小宋失业多年,其母亲寻求社会工作者小王的帮助。之后,经过三个多月的服务,小王和小宋达成了服务目标,目前进入结案阶段。此时,小王适当的做法有()。
下列不属于肝癌的伴癌综合征病人的表现是
氮芥的作用原理二溴卫矛醇的作用原理
工程项目管理组织一般分为四个层次,按从上到下顺序第三个层次是()。
下列关于城市公共交通线路网综合规划的说法不正确的一项为()。
下列项目中,不属于货币性资产的是()。
()是人体必需的一种微量元素,也是体内含量最多的一种微量元素。
Astrangethingabouthumansistheircapacityforblindrage.Rageispresumablyanemotionresultingfromsurvivalinstinct,b
Somepeopleinsistonfindingfaultwiththeresultsofotherpeople’swork,withoutevermakingaconstructivecontributionto
TheAmericaneconomicsystemisorganizedaroundabasicallyprivateenterprise.It’s【B1】______economyinwhichconsumersdeter
最新回复
(
0
)