首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
33
问题
在窗体上画一个名称为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/WyQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请在【】和【
单击命令按钮时,下列程序代码的执行结果为______。PrivateFunctionPickMid(xStrAsString)AsStringDimtempStrAsString
每个ActiveX控件都是扩展名为______的独立文件。
下面程序执行的结果是______。PrivateSubForm_Click()A$=“123”:B$=“456”C=Val(A$)+Val(B$)Print
只能用来显示字符信息的控件是______。
软件开发环境是全面支持软件开发全过程的【】集合。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommAnd1_Click()Fori=1To4x=0Forj=1To3x=j
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text=""Text2.Text=""
下列叙述中,不属于测试的特征的是()
使用通用对话框控件时,要在打开的对话框的标题栏上显示“保存文件”,应把这4个汉字赋给的属性变量是
随机试题
PASSAGETHREEWhatwasDoris’reactionwhenthedoctorlookedupandshookhishead?
毛细血管中还原血红蛋白超过多少时,皮肤黏膜司出现发绀()
A、差错造成患者暂时性伤害,需要采取预防措施B、患者已使用,但未造成伤害C、差错对患者的伤害可导致患者住院或延长住院时间D、差错导致患者永久性伤害E、差错导致患者死亡用药错误分为A-I级。G级错误是指()。
糖尿病患者最常见的致盲原因是()
声环境现状监测布点应()评价范围。
应当在会计档案销毁清册上签名的有()。
拟发行上市公司应与其实际控制人在股东协议、公司章程等文件中规定避免同业竞争的措施。()
某酒厂为增值税一般纳税人,2015年6月发生以下业务:(1)将上月委托加工收回的5吨葡萄酒,4吨加工成药酒对外销售,取得不含税价款25万元;剩余1吨本企业招待客户使用,按同类葡萄酒的不含税销售价折合为6万元(不高于受托方计税价格)。(2)向某商贸企业销
依次填入下列句子括号内的词语,与句意最贴切的一组是()。妈妈无言的()让我在紧张的学习、生活中始终不敢有一丝(),只有那份对未来的憧憬和执着。
Priortothe20thcentury,manylanguageswithsmallnumbersofspeakerssurvivedforcenturies.Theincreasinglyinterconnected
最新回复
(
0
)