首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Commandl_Click() Dim m As Integer,n As Integer m=1:n=0 Do While m
编写如下程序: Private Sub Commandl_Click() Dim m As Integer,n As Integer m=1:n=0 Do While m
admin
2020-01-02
49
问题
编写如下程序:
Private Sub Commandl_Click()
Dim m As Integer,n As Integer
m=1:n=0
Do While m<20
n=m+n:in=3*m+1
Loop
Print m,n
End Sub
程序运行后,单击命令按钮Command1,输出结果为
选项
A、40 18
B、40 19
C、20 64
D、21 64
答案
A
解析
本题的Do循环是一个先判断条件型的循环,在循环中将循环变量m的值每次改变。分析循环可看出,在4次循环中m的值分别为1、4、13、40,而只有前三次循环中的m值被累加到n中,最后一次循环由于不满足m<20而跳出。
转载请注明原文地址:https://www.kaotiyun.com/show/c1Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗口上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommmand1_Click()x=InputBox(“Input”)SelectCasexCase1,3
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:OptionBase1PrivateSubCommandl_Click()Dimaa=Array(1,2,3,4):j=1For
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFile1_DblClick()x=Shell(File1.FileName,1)EndSub以下关于该程序的叙述中,错误的是
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是
下面关于VB应用程序的叙述中正确的是
下列程序的功能是调用字体对话框来设置文本框中的字体,单击Command1按钮弹出对话框,进行相应的字体、字号等的设置,然后单击“确定”按钮退出对话框,则文本框中将发生哪些变化()。PrivateSubCommand1_click()
下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str=“ABCDABCD”,ch=“B”,则函数的返回值为:“ACDACD”Functiondelchar(strAsString,chAs
对于某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是()。
设栈的顺序存储空间为S(1:m),初始状态为top=0。现经过一系列正常的入栈与退栈操作后,top=m+1,则栈中的元素个数为()。
数据库(DB)、数据库系统(DBS)和数据库管理系统(DBMS)之间的关系是()。
随机试题
背景:某商业工程,地下2层,地上4层,建筑面积为24000m2,紧邻已建好投入使用的小区,且为该小区的商业配套工程,合同规定“由于施工引起的扰民或民扰问题由施工单位处理”,因此施工单位对文明施工和环境保护做出了大量的工作,从前期现场规划到施工期间的沟通、
“历史不过是追求自己目的的人的活动而已。”这句话表明()。
《中华人民共和国海关法》规定:海关多征的税款,海关发现后应当立即退还;纳税义务人自缴纳税款之日起()内,可以要求海关退还。
关于平均资本成本权数的确定,下列说法不正确的是()。
内部员工公关应该以内部员工为中心,重点做好()等工作。
()令移动用户在改换移动电话运营公司时,仍可保留原有的移动电话号码,这有助于增强移动业务市场的竞争性。
在4位有效信息上增加3位校验位后得到码长7位的海明校验码,它的检、纠错能力是()。
In1999,thepriceofoilhoveredaround$16abarrel.By2008,ithad【1】the$100abarrelmark.Thereasonsforthesurge【2】fro
Whilethemissionofpublicschoolshasexpandedbeyondeducationtoincludesocialsupportandextra-curricularactivities,the
在数据流图(DFd)中,带有名字的箭头表示_______。
最新回复
(
0
)