首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
25
问题
编写如下程序:
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/KeQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:PrivatesubForm_Click()Open“d:\test\smtextl.txt”ForInputAs
有如下程序:PrivateSubForm_Click()n=10i=0Doi=i+nn=n-2Loopwhilen>2PrintiEndsub程序运行后,单击窗体,输出结果为【】。
窗体上有一个名为Commandl的命令按钮,并有下面的程序:PrivateSubCommand1_Click()Dimart(5)AsIntegerFork=1TO5arr(k)=kNextkprogart()Fork=1
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序PrivateSubCommand1_click()Dim11IfTextl.Text”123456”Thenn=n+1print“口夸输入错误”&n&次”End
有F面的程序段.其功能是按图1所示的规律输出数据Dima(3,5)AsIntegerFori=1To3Fori=1To5a(i,j)=i+jPrinta(i,j);NextPrintNext若要按图2所示的规律继续输出数
有两个关系R和T如下:则由关系R得到关系T的操作是
在考生文件夹下有一个工程文件sj5.vbp,相应的窗体文件为sj5.frm,此外在考生文件夹下还有一个名为in5.txt的文本文件,其内容如下:10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,
随机试题
组成中不含熟地黄的方剂是
A.棘层松解,上皮内疱B.上皮下疱C.上皮内水肿D.上皮过度角化E.上皮萎缩天疱疮病理特点为
血浆中能促进红细胞缗钱状形成的主要物质是
关于乳腺摄影的解释,错误的是
一张汇票往往可以同时具备几种性质,因此,一张商业汇票同时又可以是银行即期汇票。()
可能发生劣币驱逐良币现象的货币制度是_______。
以下可能构成共同犯罪的是()。
假设某种不支付红利股票的市价为40元,无风险利率为10%,该股票的年波动率为30%,求该股票协议价格为50元、期限3个月的欧式看跌期权价格。
从中国传统法文化的角度,解释下面这段文字的真实含义。“本其事而原其志。志善而违于法者,免;志恶而合于法者,诛。”
США_____большуютерриториюСевернойАмерики.
最新回复
(
0
)