单选题在窗体中有一个命令按钮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!Textl) If f1>f2 Then i=f2 Else i=f1 End If flag=True Do While i>1 And flag If f1 Mod i=0 And f2 Mod i=0 Then flag=False Else i=i-1 End If Loop Me!Text2=i End Sub 运行程序，在文本框Text0和Textl中分别输入15和25，单击按钮后文本框Text2中显示的结果是

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

【正确答案】 A

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