首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下程序段运行的结果是: ______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer
以下程序段运行的结果是: ______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer
admin
2013-04-11
15
问题
以下程序段运行的结果是: ______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j
选项
A、20
B、7
C、35
D、8
答案
4
解析
该程序段的作用是给数组a的每个数组元素赋值True,具体实现的方式为: 每次从数组a的第一个元素开始判断,该元素是否为False,如果是,则令此元素为True,然后跳出循环,重新从数组a的第一个元素开始判断;如果当前元素不为False,则判断下一个元素。因此语句j=j+1将执行 1+2+3+4+5+6+7-28次,即j=28。然后再遍历一遍数组a的所有元素,最后结束程序段。所以j最终的值是: j=28+7=35。
转载请注明原文地址:https://kaotiyun.com/show/dihp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
瀑布模型将软件生存周期划分为【】、开发和运行3个阶段。
把窗体的KeyPreview属性设置为True,然后编写如下过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)E
在程序运行期间,如果拖动滚动条上的滚动框,则触发的滚动条事件是______。
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为Drive1、Dir1和File1。当改变目录列表框的内容时,要求文件列表框中显示当前选中的文件夹中的内容,则在Dirl—Change事件过程中应使用的语句是:______。
下列程序段的执行结果为______。N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJNextIPrintN;J;I
在文本框中,要使键入的所有字符都显示“*”号,这时应该设置______属性为“*”号。
编写如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If(ButtonAnd3)=3ThenPrint"AAAA"
在窗体上画一个命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1
下列不属于软件工程的3个要素的是
下面对对象概念描述错误的是______。
随机试题
A、Thesurfaceoftheearthismadeupby12hugeplates.B、Thesurfaceisthemostimportantpartoftheearth.C、Wecannowtel
使用CT增强扫描主要目的是
常用的可生物降解骨架材料是()
女孩青春期生长突增开始的年龄
案情:在一起放火案中,月亮服装厂的一仓库被他人放火焚烧,直接经济损失达60万元。事后经查明,放火者是另一服装厂的厂长。案件经公安机关侦查终结后,移送人民检察院审查起诉,月亮服装厂提出要委托诉讼代理人。人民检察院则说:公诉案件的被害人指的是自然人,不包括单位
某混凝土工程,9月份计划工程量为5000m3,计划单价为400元/m3;而9月份实际完成工程量为4000m3,实际单价为410元/m3,则该工程9月份的进度偏差为( )万元。
涵洞拱圈砌筑砂浆或混凝土强度达到设计强度的()时,方可拆除拱架,达到设计强度后,方可回填土。
结婚必备条件的规定,包括以下()。
企业投资期间,投资资产的成本在计算企业所得税应纳税所得额时不得扣除。()
Frenchfries,washeddownwithapintofsoda,areafavoritepartoffastfoodlunchesanddinnersformillionsofAmericanyou
最新回复
(
0
)