2. 计算机
  3. 以下程序的功能是计算并输出两个整数的最大公约数。 Private Sub a1() Dim x As Integer，y As Integer，t As Integer x=InputBox("请输入x的值") y=InputBox("请输入y的值") D

以下程序的功能是计算并输出两个整数的最大公约数。 Private Sub a1() Dim x As Integer，y As Integer，t As Integer x=InputBox("请输入x的值") y=InputBox("请输入y的值") D

admin2018-12-05  43
问题 以下程序的功能是计算并输出两个整数的最大公约数。
Private Sub a1()
Dim x As Integer，y As Integer，t As Integer
x=InputBox("请输入x的值")
y=InputBox("请输入y的值")
Do
【    】
x=y
y=t
Loop While(t＜＞0)
Debug．Print【    】
End Sub
有如下语句：
①t=x
②t=y
③t=x＼y
④t=x Mod y
⑤x
⑥y
⑦t
⑧x／y
程序中有两个【    】，将程序补充完整的正确语句是
选项 A、①⑦
B、②⑥
C、③⑧
D、④⑤
答案D
解析 求两个整数×和y的最大公约数的算法是：令t等于x除以y的余数，若t=0，则y为x和y的最大公约数。若t不为0，则可以肯定最大公约数必为小于y的数，则可令x=y，y=t，再返回开始状态，执行t=x mod y。直到t=0时，x为最大公约数。因此程序中Do和Loop之间为循环体，第一个空应填t=x mod y，第二个空为输出语句，应该输出x，所以选择选项D。
转载请注明原文地址:https://www.kaotiyun.com/show/HMMp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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