在窗体中有命令按钮Commandl和3个文本框Texto、Text1、Text2,命令按钮对应的代码过程如下: Private Sub Commandl_Click() Dim i,fl,f2 As Integer Dim flag

admin2017-02-21  30

问题 在窗体中有命令按钮Commandl和3个文本框Texto、Text1、Text2,命令按钮对应的代码过程如下:
    Private Sub Commandl_Click()
    Dim i,fl,f2 As Integer
    Dim flag As Boolean
    fl=Val(Me! Texto)
    f2=Val(Me! Text1)
    If fl>f2 Then
    i= f2
    Else
    i= fl
    End If
    flag=True
    Do While i>1 And flag
    If f1Mod i=0 And f2 Mod i=0 Then
    flag=False
    Else
    i=i—l
    End If
    Loop
    Me! Text2=i
    End Sub
    运行程序,在文本框Texto和Text1中分别输入15和20,则文本框Text2中显示的结果是(    )。

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

答案B

解析 本题中程序的功能是对输入的两个数,找出二者的最大公约数。第一个If语句将输入的两个数的较小者保存到变量i中,然后使用Do While循环语句找到能同时整除输入的两个数(15和20)的最大值,最后输出最大公约数,即5,故本题B选项正确。
转载请注明原文地址:https://jikaoti.com/ti/mVXiFFFM
0

随机试题
最新回复(0)