首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序代码: Private Sub Command1_Click() Dim numl As Integer,hum2 As Integer Dim x As Integer numl:InputBox("请输入第一个
有如下程序代码: Private Sub Command1_Click() Dim numl As Integer,hum2 As Integer Dim x As Integer numl:InputBox("请输入第一个
admin
2020-06-30
37
问题
有如下程序代码:
Private Sub Command1_Click()
Dim numl As Integer,hum2 As Integer
Dim x As Integer
numl:InputBox("请输入第一个正整数:")
num2=InputBox("请输入第二个正整数:")
x=numl Mod hum2
Do While x<>0
num1=hum2
num2=x
x=numl Mod num2
Loop
Print hum2
End Sub
程序的功能是:从键盘输入任意两个正整数,并输出它们的( )。
选项
A、最大公约数
B、任意一个公约数
C、最小公倍数
D、较小数
答案
A
解析
程序中定义了3个整型变量num1、num2和x。num1和num2变量用于接收inputBox输入的两个整数,x变量保存numl和num2两个整数取余的结果。接着程序使用Do While循环判断循环变量x的值是否为0。若不为0,则进入循环体,循环体中将num2赋值给numl,将x赋值给num2,然后继续将numl和num2进行取余,并将结果赋值给循环变量x,循环如此执行下去,直到循环变量x的值等于0,结束循环。根据循环执行的特点可以判断出:该程序是利用Do While循环,求得numl和num2两个整数的最大公约数,故A选项符合题意。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/c1Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图2.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
以下关于变量的叙述中,错误的是
构成计算机软件的是
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
以下叙述中错误的是( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最大值”,如图所示),即
以下叙述中错误的是( )。
数据模型的三个要素是()。
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为
下列运算符中,优先级别最低的是()。
随机试题
小蒋是一位中学教师,在教务处负责初一年级学生的成绩管理。由于学校地处偏远地区,缺乏必要的教学设施,只有一台配置不太高的PC可以使用。他在这台电脑中安装了MicrosoftOffice,决定通过Excel来管理学生成绩,以弥补学校缺少数据库管理系统的不足。
简述评议笔录的概念和功用。
汪、钱、潘、刘共同投资设立了一个有限合伙企业,其中汪、钱为普通合伙人,潘、刘为有限合伙人。后因该合伙企业长期拖欠供货商货款,企业资产不足以清偿到期债务。依照我国相关法律的规定,下列哪些选项是正确的?()
消火栓数量最少应为:
水泥混凝土路面施工摊铺混凝土时,板厚大于22cm的混凝土应分二次摊铺,下部摊铺厚度宜为总厚的(),
A公司是在B市设立的一家中外合资经营企业。2013年5月,A公司接到通知,B市财政局将时该公司会计工作情况进行检查。公司董事长兼总经理王某不以为然,认为作为中外合资经营企业,不受《中华人民共和国会计法》的约束,财政部门无权对本公司进行检查。要求
根据规定,下列情形中,适用行政处罚听证程序的是()。
“功盖三分国,名成八阵图”一句的作者是()。
A、 B、 C、 D、 E、 D将分子中相邻的两个数两两结合,结果是一个等差数列,利用求和公式得到分子,即12一22+32一42+52一62+72一82+92一102=-3—7—11—15—19=
Whereitnotfortheirassistance,we____________(不会有资格)thishonorableawardfightnow.
最新回复
(
0
)