首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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-08-28
57
问题
在窗体上画一个名称为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/A4Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Textl的文本框,其高、宽分别为400、2000。运行后的窗体如图1-109所示。请在属性框中设置适当的属性满足以下要求:①Tex
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为Fl和F2,标题分别为“交通工具”和“到达目标”。在Fl中画两个单选按钮,名称分别为Opl和Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按钮,名称分别为Op3
在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Forml的窗体上画两个命令按钮,其名称分别为C1和C2,标题分别为“读入数据”和“计算”(如图1-133所示)。程序运行后,如果单击“读入数据”按钮:则调用题目
对用MsgBox显示的消息框,下面______是错的。
在软件工程中,白箱测试法可用于测试程序的内部结构。此方法将程序看做是______。
有下列二叉树,对此二叉树前序遍历的结果为()。
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是______。
二分法查找仅限于这样的表:表中的数据元素必须有序,其存储结构必须是______。
在面向对象程序设计中,从外面看只能看到对象有外部特征,而不知道也无须知道数据的具体结构以及实现操作的算法,这称为对象的______。
设x为整型变量,以下不能正确表达数学关系式2<x<5的VisualBasic表达式为_______。
随机试题
全蝎配蜈蚣属于药物七情中的()(2010年第31题)
(2017年德州经开区)教育心理学的主要研究对象是()
A.癌前病变B.恶性肿瘤C.良性肿瘤D.交界性肿瘤黑色素瘤属于
患者全身水肿而发亮,伴胸腹痞闷,烦热口渴,尿短赤,便干结,苔黄腻,脉沉数,宜选用何方
下列各项,不是甲状腺功能亢进症手术并发症的是
某公司2011~2015年甲产品实际销售量资料如下表:要求:结合(2)的结果,取平滑指数0.46,采用指数平滑法预测该公司2016年的销售量。
根据《合伙企业法》的规定,合伙企业解散,需指定清算人的,须经全体合伙人中的一定比例同意。该比例是()。
既属于用益物权,又属于从物权的是()。
LastweekIwenttothetheatre.Ihadaverygoodseat.Theplaywasvery(11)Ididnotenjoyit.Ayoungmanandayoungwo
TheHomeSewingAssociation(HSA)callsonpeopleto______.Ms.Kidmanbecameinterestedinmakingclothesbyherselfbecauseth
最新回复
(
0
)