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

admin2018-01-25  48

问题 在窗体中有命令按钮Command1和三个文本框Text0、Text1、Text2,命令按钮对应的代码过程如下:
    Private Sub Command1_Click()
    Dim i,f1,f2 As Integer
    Dim flag As Boolean
    f1=Val(Me!Text0)
    t2=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=15,f2=20,i=15,Do While循环中,f1和f2不能同时整除i,一直循环执行i=i-1,直到i=5,满足f1和f2不能同时整除i,执行flag=False,则退出循环,Me!Text2=i,即为5。
转载请注明原文地址:https://jikaoti.com/ti/6K10FFFM
0

最新回复(0)