在窗体中有命令按钮Commandl和三个文本框Text0、Text1、Text2，命令按钮对应的代码过程如下： Private Sub Command1_Click() Dim i，f1，f2 As Integer Dim flag As Boolean

admin2018-10-20 26

问题在窗体中有命令按钮Commandl和三个文本框Text0、Text1、Text2，命令按钮对应的代码过程如下：
Private Sub Command1_Click()
Dim i，f1，f2 As Integer
Dim flag As Boolean
fl=Val(Me!Text0)
f2=Val(Me!Text1)
If f1＞f2 Then
i=f2
Else
i=f1
End If
flag=True
Do Whil ei＞1 And flag
If f1 Mod i=0And f2 Mod i=0Then
flag=False
Else
i=i-1
End If
Loop
Me!Text2=i
End Sub
运行程序，在文本框Text0和Text1中分别输入15和20，则文本框Text2中显示的结果是

选项 A、5
B、15
C、20
D、10

答案A

解析程序开始时，f1和f2的值分别是从文本框TextO和Textl中输入的值15和25，然后利用if语句判断f1和f2两个数的大小，变量i中存放f1和f2中较小者的值，flag初始值为true，程序进入DoWhile循环语句，首先判断循环条件“i＞1And flag"，结果为true，循环体中的if语句，只有当f1和f2同时能被i整除，flag才会被赋值为false，否则将变量i减1，继续进行Do While循环的条件判断，一旦f1和f2同时能被i整除，变量。flag被赋值为false，则整个循环结束，将变量i的值输出到文本框Text2中，所以只有当变量i为5时，才能同时被f1(15)和f2(25)整除。
本题程序的功能是求两个数的最大公约数，所以选项A正确。

转载请注明原文地址:https://kaotiyun.com/show/yuMp777K

本试题收录于：二级Access题库NCRE全国计算机二级分类

0

二级Access

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)