2. 计算机
  3. 在窗体中有命令按钮Commandl和3个文本框Texto、Text1、Text2，命令按钮对应的代码过程如下： Private Sub Commandl_Click（） Dim i，fl，f2 As Integer Dim flag

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

admin2017-02-21  52
问题 在窗体中有命令按钮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://www.kaotiyun.com/show/FrBD777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)