首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1_Click() Dim x%, y%, z% x=InputBox("请输入第1个整数") y=InputBox("请输入第2个整数")
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1_Click() Dim x%, y%, z% x=InputBox("请输入第1个整数") y=InputBox("请输入第2个整数")
admin
2019-03-14
66
问题
窗体上有1个名称为Command1的命令按钮,事件过程如下:
Private Sub Command1_Click()
Dim x%, y%, z%
x=InputBox("请输入第1个整数")
y=InputBox("请输入第2个整数")
Do Until x=y
If x>y Then x=x-y Else y=y-x
Loop
Print x
End Sub
运行程序,单击命令按钮,并输入2个整数169和39,则在窗体上显示的内容为( )。
选项
A、11
B、13
C、23
D、39
答案
B
解析
程序中Do循环比较输入的两个数的大小,把较大的数值减去较小的数值后再与较小的值比较,直到两个数值相等。程序中输入169和39,则x=169-39=130,130>y即130>39,因此x=130-39=91,如此循环x=91-39=52-39=13,此时13>39为假,执行y=y-x=39-13=26,循环y=26-13=13,此时x、y都为13,循环结束,因此窗体上显示为13。
转载请注明原文地址:https://kaotiyun.com/show/lOFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,一个名称为List1的列表框。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Open"c:\f1.txt"ForInputAs#1DoWh
要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是( )。
下面程序的功能是输出100以内所有素数:PrivateSubCommand1_Click()Forn=2To100isprime=Truek=2DoWhilek
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件灾下的in5.dat文件中
如果要在语句:a=Array(1,2,3,4,5)的前面声明变量a,则正确的声明是
编写如下程序:PrivateSubCommand1Click()DimnAsLong,sAsStringn=InputBox(“输入一个数”)DoWhilen0S=S&nMod10:s=S&n\10Mod10n=n
把数学表达式2y—b表示为正确的VB表达似乎应该是
对下列二叉树进行前序遍历的结果是
窗体上有1个名称为List1、含有3个项目的列表框,1个名称为Text1的文本框,以及1个Interval属性值为1000的计时器控件Timer1。某人编制了以下程序,希望程序运行时,每隔1秒,Listl中的3个项目能够依次在Text1中循环显示。
随机试题
形成依恋的重要阶段是()。
交易性金融资产和可供出售金融资产的相同点是都按公允价值进行后续计量,且公允价值变动计入当期损益。()
阅读《谏逐客书》中的一段文字,然后回答下列问题。臣闻地广者粟多,国大者人众,兵强则士勇。是以泰山不让土壤,故能成其大;河海不择细流,故能就其深;王者不却众庶,故能明其德。是以地无四方,民无异国,四时充美,鬼神降福,此五帝三王之所以无敌也。今乃弃黔首以资敌
张某因涉嫌恐怖主义犯罪被立案侦查,在侦查期间患病死亡,针对其财产的处置下列说法正确的是:()
招标投标定价机理的经济学假设主要包括()。
所有被删除的文件都可以从回收站中恢复。()
借款人刘某是国企男员工,今年47岁,离异。刘某2年前已全款购买一套普通住房,现计划在某现房项目再购买一套面积为90平米的商品住房,每平米价格为1.2万元,每平米物业费2元,并向银行申请个人住房贷款。该银行首套房贷款最低执行利率为基准利率9折(5年以上贷款基
法律风险仅限于因监管措施和解决民商事争议而支付罚款、罚金或者进行惩罚性赔偿所导致的风险敞口。()
Spaceisadangerousplace,notonlybecauseofmeteors(流星),butalsobecauseofraysfromthesunandotherstars.Theatmosph
PassageOneAccordingtothepassage,whatissmallchildren’sfeature?
最新回复
(
0
)