首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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 程序
编写如下程序: 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 程序
admin
2016-06-23
19
问题
编写如下程序:
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/lcLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
属性窗口主要是针对窗体和控件设置的。在VB中,窗体和控件被称为______。每个对象都可以用一组属性来刻画其特征,而属性窗口就是用来设置窗体或窗体中的控件属性。
请填写下列空白以实现运行后形成一个主对角线上元素值为l,其他元素为0的6×6阶矩阵。PrivateSubCommand1_Click()Dims(6,6)Fori=1To6Fori=1To6If
与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件,当用户按下并且释放一个键后,这三个事件发生的顺序是
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() C="ABCD" Forn=1To4 Print______ Nex
在窗体上画1个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load() Open"d:\temp\dat.txt"ForOutputAs#1 Text1.Text=""EndSu
在窗体上绘制一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click() DimiAsInteger,xAsInteger Fori_1T06
以下程序段执行后整型变量n的值为()。n=0Fori=1to20Step5n=n+1Nexti
语句Form2.Show0表示_____;语句Form3.Show1表示_____;
以下关系表达式中,其值为False的是()。
把数学表达式表示为正确的VB表达式应该是()。
随机试题
属于非胸腺依赖性抗原的是
X线下见右上肺有多发的厚壁空洞,周围有较广泛的纤维条索影。应首先考虑的是X线下见右下肺出现大片的浓密阴影,具内见一个含有液平面的圆形空洞,洞内壁光整,洞壁较厚。应首先考虑的是
描述传染病流行病学特征,不正确的是()
企业信用标准宽松,则()。
李某从人贩子手中买得一被拐卖妇女,立即把该女关在屋内不许出门,并于当晚强行与该女子发生了性关系,第二天,李某见该女可怜,最终没有阻止此女回乡,放她回去了,则对李某的行为构成()
在VisualFoxPro中以下叙述错误的是()。
Wasthebikerepaired?
Atsometimeinyourlifeyoumayhaveastrongdesiretodosomethingstrangeorterrible.However,chancesarethatyoudon’t
TheWesthasbeguntotakemorenoticeoftheEast.Thefifth【C1】______ofanenormous【C2】______reassessingtheChinesecont
Onlinesocialnetworksaremassivelyinfluential,yetweunderstandverylittleabouttheimpacttheyhaveonourbrains.Recent
最新回复
(
0
)