首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1 y = 1 Do y = x * y If y > 10 T
编写如下程序: Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1 y = 1 Do y = x * y If y > 10 T
admin
2020-07-22
48
问题
编写如下程序:
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 1
y = 1
Do
y = x * y
If y > 10 Then
Exit Do
Else
x = x + 3
End If
Loop Until x <= 10
Print x; y
End Sub
程序运行后,单击命令按钮Command1,输出结果为
选项
A、1 1
B、4 1
C、4 2
D、7 28
答案
B
解析
Do…Loop Until循环当条件为真时循环执行循环体。代入初值进行计算可得结果。选B)。
转载请注明原文地址:https://kaotiyun.com/show/9AHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下函数:Functionfun(aAsInteger,nAsInteger)AsIntegerDimmAsIntegerWhilea>=na=a-n:m=m+1Wendfu
下面关于多重窗体的叙述中,正确的是()。
在窗体上有一个名称为CDl的通用对话框和一个名称为Commandl的命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗口的标题为“保存”,缺省文件名为“ABC”,在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是()。
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click() a=InputBox("Enteranintege
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
以下叙述中错误的是()。
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是()。
软件生命周期是指()。
一个教师可讲授多门课程,一门课程可由多个教师讲授。则实体教师和课程间的联系是( )。
一间宿舍可住多个学生,则实体宿舍和学生之间的联系是
随机试题
羊水栓塞的主要病理诊断依据是
女,65岁。常规体检发现脾左肋下5cm。化验:Hb135g/L,WBC117×109/L,分类中幼粒细胞5%,晚幼粒细胞12%,杆状核细胞22%,分叶中性粒细胞34%,嗜酸性粒细胞5%,嗜碱性粒14%,淋巴细胞14%,PLT560×109/L,NAP(一)
A.医疗机构B.乡镇卫生院C.城镇中的个体行医人员和个体诊所D.乡村中的个体行医人员和个体诊所E.药品销售人员
下列选项中,不能记账的有()。
H公司是日本一家电器公司,在20世纪初向“等离子”事业投入巨资,但在2005年前后,等离子已经失去了获胜的可能,因为液晶技术的质量飞速提升,价格也降得很快。H公司第三工厂在启用一年半以后便停产。现在,只有H公司第二工厂还在生产,开工率达
甲公司为从事石油化工及投资的大型企业。甲公司下属子公司乙公司于2013年在香港成功发行股票并上市。2016年9月乙公司购入总部位于英国的丙公司4.2%的股份。经过与丙公司的接触,乙公司认为,全面收购丙公司符合其长远发展目标。丙公司在尼日利亚的全资
“出淤泥而不染,濯清涟而不妖”,荷花的圣洁已经被人们称颂了近千年之久。现在,科学家们终于发现了荷叶一尘不染的秘密。这一发现不但令人们感叹大自然的精妙构思,还给材料科学家带来启发。一场自清洁材料的革命因此揭开了序幕,有望使人们摆脱污渍的烦恼。20世
ScienceandTruth"FINAGLE"(欺骗)isnotawordthatmostpeopleassociatewithscience.Onereasonisthattheimageofthes
whichsporthasthemostexpenses______trainingequipment,players’personalequipmentanduniforms?
Whichstorytakesthelongesttotell?
最新回复
(
0
)