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

admin2018-10-18  29

问题 在窗体中有命令按钮Command1和三个文本框Text0、Text1、Text2,命令按钮对应的代码过程如下:
    Private Sub Command1_Click()
    Dim i,f1,f2 As Integer
    Dim flag As Boolean
    f1=Val(MC Text0)
    f2=Val(Me!Text1)
    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和Text1中分别输入15和20,则文本框Text2中显示的结果是

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

答案A

解析 程序开始时,f1租f2的值分别是从文本框Text0和Text1中输入的值15和25,然后利用if语句判断f1和f2两个数的大小,变量i中存放住和f2中较小者的值,flag.初始值为true,程序进入Do While循环语句,首先判断循环条件“i>1 And flag”,结果为true,循环体中的.f语句,只有当住和f2同时能被i整除,flag才会被赋值为false,否则将变量i减1,继续进行Do-While循环的条件判断,一旦f1和f2同时能被i整除,变量flag被赋值为false,则整个循环结束,将变量i的值输出到文本框Text2中,所以只有当变量i为5时,才能同时被f1(15)和f2(25)整除。
    本题程序的功能是求两个数的最大公约数,所以选项A正确。
转载请注明原文地址:https://jikaoti.com/ti/xl10FFFM
0

最新回复(0)