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

admin2018-10-20 32

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

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

答案A

解析程序开始时，f1和f2的值分别是从文本框Text0和Text1中输入的值15和25，然后利用if语句判断f1和f2两个数的大小，变量i中存放f1和f2中较小者的值，flag初始值为true，程序进入Do While循环语句，首先判断循环条件“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/auMp777K

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

0

二级Access

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)