首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim m As Integer, n As Integer m=1: n=0 Do While m
编写如下程序: Private Sub Command1_Click() Dim m As Integer, n As Integer m=1: n=0 Do While m
admin
2015-08-28
48
问题
编写如下程序:
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m=1: n=0
Do While m<20
n=m+n
m=3 * m+1
Loop
Print m, n
End Sub
程序运行后,单击命令按钮Command1,输出结果为( )。
选项
A、40 18
B、40 19
C、20 64
D、21 64
答案
A
解析
循环中各变量值变化如下:
n=m+n=1+0=1 , m=3*m+1=3+1=4,4小于20继续循环;
n=m+n=4+1=5 , m=3*m+1=12+1=13,13小于20继续循环;
n=m+n=13+5=18 , m=3*m+1=39+1=40,40不小于20,循环结束。此时m=40,n=18。
转载请注明原文地址:https://kaotiyun.com/show/emLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个通用对话框,程序运行后,通过ShowOpen方法显示“打开”对话框,要求在该对话框的“文件类型”栏中只显示扩展名为.DOC的文件,则对通用对话框的Filter属性的正确设置是______。
下列程序段的执行结果为______。A=0:B=0ForI=-1To-2Step-1ForJ=1To2B=B+1NextJA=A+1
下列程序段的执行结果为______。Dimm(3,3)AsIntegerDimiAsIntegerDimjAsIntegerDimxAsIntegerFori=1To3
若在Shape控件内以FillStyle属性所指定的图案填充区域,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由BackStyle属性填充,则应______。
下列SQL语句中,用于修改表结构的是______。
设有如下变量声明:DimTestDateAsDate为变量TestDate正确赋值的表达方式是______。
首先执行循环体,然后再进行条件判断,决定是否结束循环的循环语句是______。
随机试题
水甲胎蛋白测定,最适宜于诊断下列哪项
某商业企业(增值税一般纳税人)2016年2月发生如下业务:(1)取得日用品不含税销售收人400万元,采取以旧换新方式销售冰箱100台,新冰箱的零售价格为1.17万元/台,旧冰箱的含税作价为0.2万元/台,收取的含税差价款为0.97万元/台。(2)采取预
等同于贷款的授信业务转换系数为()。
国际礼仪是人们在长期交际往来之中,逐渐建立起来的行为举止规范,其遵循的原则是()
他是这个世界上我想见的最后一个人。
德育是培养良好的思维习惯;智育是培养细节的行为习惯。()
犯罪客体是()。
管弦乐:音乐家
掌管天文历法的机构叫()。
The(i)______withwhichmerchantsandlandownersinearly-nineteenth-centuryMarylandandVirginia(ii)______JoshuaJohnston’sp
最新回复
(
0
)