首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10,12,21,32,2
在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10,12,21,32,2
admin
2009-03-15
50
问题
在窗体上画一个名称为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
答案
4
解析
本题的循环过程如下:
i=1时,x(1)=10,d=-10,c=10;
i=2时,x(2)=12,d=2,c=12;
i=3时,x(3)=21,d=23,c=21;
i=4时,x(4)-32,d=55,c=32;
i=5时,x(5)=24,d=23,c=32;
转载请注明原文地址:https://kaotiyun.com/show/QH1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
线程是程序运行时的一个执行流,是由CPU运行程序代码并操作【】所形成的。
阅读下列代码publicclassJixiangwu{publicstaticvoidmain(String[]args){String[]stars={"贝贝","晶
下面是一个Applet程序,其功能是建立两个文本区域,一个为编辑区,一个为只读区;建立两个按钮,一个实现将编辑区中被鼠标选定的文本内容复制到只读区中,一个实现将只读区的全部文本内容清空。请更正题中带下划线的部分。注意:不改变程序的结构,不得增行或删
本程序的功能是监听对于菜单项和工具条按钮的操作。主窗口中有菜单、工具条和一个文字标签,菜单中有“文件”项,“文件”菜单中包括菜单项“新建”、“保存”、“打印”、“页面设置”和“退出”,工具条上包括按钮“新建”、“保存”、“打印”、“页面设置”和“退出”。单
下面是一个Applet程序,其功能是接收用户输入的两个整数,比较它们的大小,并在用户按下“比较”按钮后,将Applet中的显示的“请先输入两个待比较的整数”,改为“两个整数中最大值:x”,x是两个数中的最大值。请改正程序中的错误(有下划线的语句)并将程序填
下列程序要求在对话框中打印“欢迎您参加考试!”。请将程序填写完整。注意:不改动程序结构,不得增行或删行。importjavax.swing.JOptionPane;publicclassex1{publi
下列程序中,给出两个整数4和6,分别求4除以6和4乘以6的结果,要求调用类exl的方法method()来输出相应的结果,请将程序补充完整。程序运行结果如下:0.666666666666666624注意:不改动程序结构,不得增行或删行
随机试题
购买处方药的凭据是
A.通过肌组织发出营养支,垂直穿透深筋膜至皮下组织及皮肤B.营养皮肤的动脉在穿处深筋膜后与皮肤表面平行,走行于皮下组织内,并沿途发出小支以供养皮下组织及皮肤C.动脉走行于肌间隔内,发出分支至皮肤,并与其他皮肤动脉吻合D.由动脉干上直接发出许多微细的血
心肺复苏的步骤是
根据《财政违法行为处罚处分条例》的规定。下列各项中,属于财政违法行为执法主体的有( )。
根据企业所得税法律制度的规定,下列食业中,适用25%的企业所得税税率的是()。
甲、乙、丙共有一套房屋,各自所占的份额均为1/3。为提高房屋的价值,丙主张将此房内部进行豪华装修,甲表示赞同,但乙反对。经查,甲、乙、丙之前对此情形并没有约定。下列说法中正确的是()。
5,64,13,96,21,144,29,()
ASP程序运行时数据在服务器和()之间进行交互。
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_load()ShowText1.Text="":Text1.SetFocusEndSubPrivateSubForM_MouseUp(Bu
以下程序的执行结果是()。#includeclassTestClass2{public:TestClass2(){};TestClass2(inti,i
最新回复
(
0
)