首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
52
问题
在窗体上画一个名称为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全国计算机二级
相关试题推荐
设有如下程序:PrivateSubCommand1_Click()DimCAsInteger,dAsIntegerc=4d=InputBox(“请输入一个整数”)DoWhi
执行以下程序段DimxAsInteger,iAsIntegerx=0Fori=20ToStep-2x=x+i\5Nexti后,x的值为
假定有如下事件过程:PrivteSubForm_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:PrivateSubCommand1_Click()n=Text1.TextSelectCa
在窗体上建立一个单选按钮组Option1和一个图片框Picture1,如图所示。当选择不同的单选按钮时,图片框中填充不同的图案,请填写程序的空白处,使程序完整。PrivateSubOption1_Click(______)DimH
下列程序段运行后,a的值为______。a=600b=50a=a+bb=a-ba=a-b
关系数据库管理系统能实现的专门关系运算包括选择、连接和______。
执行语句Open"TC,dat"ForRandomAs#1Len=50后,对文件TC.dat中的数据能执行的操作是()。
在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,请选择空白处合适的语句()。PrivateSu
在数据库设计中,将E-R图转换为关系模式的过程属于()。
随机试题
居民委员会每届任期__________年,届满其成员可以连选连任。
钢绞线用于预应力混凝土,其极限强度主要有()MPa。
民用建筑营业厅的设置不正确的是()。
对经济业务事项按其性质加以归类、确定会计分录,并据以登记会计账簿的凭证是( )。
多式联运提单主要是由承担海运区段运输任务的承运人签发,如果贸易双方同意,并在信用证中明确规定,也可由其他运输区段的承运人签发。()
甲企业2011年年初未分配利润的贷方余额为1000万元,本年度实现的净利润为500万元,分别按10%和5%提取法定盈余公积和任意盈余公积。假定不考虑其他因素,该企业2011年末未分配利润的贷方余额应为()万元。
根据《民法通则》的规定,下列选项中,属于无效民事行为的是()(2006年)
“投资有风险,入市需谨慎。”投资股票,高风险和高收益同时存在,投资股票的风险可能有()。①上市公司的破产与倒闭②股票价格波动的不确定性③银行存贷款利率的变动④国家宏观经济政策的变动
“一.二八”事变
Completethesummarybelow.ChooseNOMORETHANTWOWORDSfromthepassageforeachanswer.Writeyouranswersinboxes33-36on
最新回复
(
0
)