2. 计算机
  3. 有如下程序代码： 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("请输入第一个

admin2020-06-30  21
问题 有如下程序代码：
    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://jikaoti.com/ti/QqS0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)