首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Do While b>=0 a=Val(InputBox("请输入a的值")) b=Val(InputBox("请输入b的值"
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Do While b>=0 a=Val(InputBox("请输入a的值")) b=Val(InputBox("请输入b的值"
admin
2010-03-22
78
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1 Click()
Do While b>=0
a=Val(InputBox("请输入a的值"))
b=Val(InputBox("请输入b的值"))
c=a+b
Loop
MsgBox c
End Sub
程序运行后,依次输入3,2,1,0,-1,-2,则输出结果是______。
选项
答案
-3
解析
本题考查VBA中循环的知识。对于这种循环结构,首先看条件判断是在循环体的前面还是后面,如果是先判断条件,则有可能一次也不执行循环体;如果是后判断条件,则无论条件如何至少执行一次循环体。在 Until循环中条件为False时执行循环体;条件为True时退出循环;在While循环中条件为True时执行循环体,条件为False时退出循环,这一点要注意区分清楚。本题是一个先判断条件的While循环,每次循环中有两次输入,共循环3次;由于在每次循环中均会重新对a、b、c进行赋值,所以只需要考虑最后一次循环就可以,在最后一次循环中c等于最后两次输入的值之和也就是-3。
转载请注明原文地址:https://kaotiyun.com/show/mlwp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
有如下类定义:classCup{public:Cup(doubleval,stringcr="red"):price(val),color(cr){}//①~
有如下程序:#includeusingnamespacestd;voidfun(int&x,inty){intt=x;x=y;y=t;}intmain(){hata[2]={1,2}
下列函数模板的定义中,合法的是()。
在下面的类声明中,错误的是
一个工作人员可以使用多台计算机,而一台计算机可被多个人使用,则实体工作人员与实体计算机之间的联系是()。
下列说法正确的是()。
某二叉树共有845个结点,其中叶子结点有45个,则度为1的结点数为
请使用VC6或使用【答题】菜单打开考生文件夹proj2下的工程proj2,其中在编辑窗口内显示的主程序文件中定义有类Base和Derived,以及主函数main。程序文本中位于每行“//****found****”下面的一行内有一处或多处下画线标记,请在每
使用VC6打开考生文件夹下的源程序文件modi3.cpp。其中定义的类并不完整,按要求完成下列操作,将类的定义补充完整。完成以下功能:(1)基类Person完成打印功能,定义其中的打印函数为虚函数,请在注释//********1********后
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:PrivateSubCommandl_Click()Dima(10,10)Form=2To4Forn2To5a(m,n)=m*nNextnNextmMsgBoxa(2,5)+a(3,4
随机试题
论述管理咨询机构的后续服务主要表现在哪些方面。
下列可以用于虚体感冒的方剂有
胸骨左缘第二肋间隙属于胸骨左缘第三、四肋间隙属于
某项目部承建了总长为551m的斜坡式结构防波堤工程,基础底为淤泥质亚黏土。问题:在软土地基上抛石时其顺序如何?
在第三版巴塞尔协议中,提出的用来度量商业银行中长期流动性的量化监管指标是()。
“她一笑啊,我们就乖乖听话了。”2013年11月9日,四川资阳有网友发帖称,安岳有一位最漂亮的城管,说话温柔,长相甜美,“绝对是女神”。从10日到11日,美女城管熊朝蓉在网络上迅速走红。网友“一丝不挂”说,“要命了这个……春节回去一睹真容。”网友“哼哼熊”
中位数是()。
A.天疱疮B.多形渗出性红斑C.带状疱疹D.口腔白斑病E.口腔红斑属于变态反应性疾病的是()。
Drowning,abandoningofinfants
ANiceCupofTeaTheLegendaryOriginsofTeaA)ThestoryofteabeganinancientChinaover5,000yearsago.Accordingto
最新回复
(
0
)