首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10, 12, 21, 32, 24) For i=
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10, 12, 21, 32, 24) For i=
admin
2015-06-30
40
问题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click()
d=0
c=10
x=Array(10, 12, 21, 32, 24)
For i=1 To 5
If x(i)>c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为( )。
选项
A、89
B、99
C、23
D、77
答案
C
解析
程序中Option Base 1语句指定数组下标下限从1开始。程序通过赋初值定义变量x为含有5个元素的数组,元素值依次为10, 12, 21, 32, 24。For循环的功能是把这5个元素中大于10且大于前一个元素的值累加到变量d中,如果小于等于10或前一个元素则从变量d减去10或前一个元素的值。因此d=0-10+12+21+32-32=23。
转载请注明原文地址:https://kaotiyun.com/show/ugQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行以下程序段DimxAsInteger,iAsIntegerx=0Fori=20ToStep-2x=x+i\5Nexti后,x的值为
以下声明语句中错误的是
在窗体上建立一个单选按钮组Option1和一个图片框Picture1,如图所示。当选择不同的单选按钮时,图片框中填充不同的图案,请填写程序的空白处,使程序完整。PrivateSubOption1_Click(______)DimH
在窗体上添加一个命令按钮,名为Command1,其单击事件中有如下程序段,则事件过程执行后,文本框中输出()。Fori=1To4Forj=1To3x=3Fork=1T
假设有以下程序段:Fori=1To3Forj=5To1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是______,i的值为______,j的值为___
在窗体上画一个名称为“Command1”,标题为“计算”的命令按钮,再画7个标签,其中5个标签组成.名称为Labell的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空:标签Label3的标题为“计算结果”。运行程序时会
在新建一个VisualBasic工程时,将新建窗体的Name属性设置为TheFirst,则默认的窗体文件名为()。
下列关于队列的叙述中正确的是______。
(1)在窗体Forml上画一个名称为Textl的文本框和一个名称为Labell的标签,程序运行时,在文本框Textl中输入字符,文本框中的字符将值赋到Labell中。注意,本程序代码中不得使用任何变量。程序运行时的窗体界面如图50—l所示。注意:
随机试题
肝左动脉起源于
患儿,男,5岁。双侧腮腺反复肿胀伴不适6个月,肿胀数月发作1次。检查:腮腺轻度水肿,皮肤潮红,挤压腺体可见导管口有胶冻状液体流出,含少许脓液。X线造影显示末梢导管呈点状、球状扩张,排空迟缓,主导管和腺内导管无明显异常。拟诊
感染邪毒型产后发热,治疗首选方为
犯罪嫌疑人甲于1994年因琐事将邻居捅成轻伤后逃跑。2000年春节他以为没事,回家过年。被害人发现后到当地公安机关报案,要求追究其刑事责任,公安机关决定立案侦查,并将其拘留,报请人民检察院批准逮捕。那么,对此案应当如何处理?(2003—2—92,任)
城市对区域经济发展的影响,主要表现在()的影响三个方面。
税务登记的内容包括( )。
流动资金贷款申请应具备的条件包括()。
某金店是增值税的一般纳税人,2015年3月采取以旧换新方式销售纯金项链10条,每条新项链的不含税销售额为4000元,收购旧项链的不含税金额为每条2000元,该笔业务的销项税额为()元。
下列程序段的执行结果为a=3:b=1Fori=1To3f=a+b:a=b:b=fPrintfNextI
在Access数据库中,与关系模型中的术语"属性"对应的概念是
最新回复
(
0
)