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

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

admin2021-06-03  50
问题 在窗体中有命令按钮Commandl和3个文本框Text0、Text1、Text2，命令按钮对应的代
码过程如下：
Private Sub Commandl_Click()
Dim i，f1，f2 As Integer
Dim flag As Boolean
fl=Val(Me! Text0)
f2=Val(Me! Text1)
If f1>f2 Then
i=f2
Else
i=f1
End If
flag=True
Do While i>lAnd flag
If fl 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和20，则文本框Text2中显示的结果是(     )。
选项 A、15
B、5
C、20
D、10
答案B
解析 本题中程序的功能是对输入的两个数，找出二者的最大公约数。第一个If语句将输入的两个数的较小者保存到变量i中，然后使用Do While循环语句找到能同时整除输入的两个数(15和20)的最大值，最后输出最大公约数，即5，故B)选项正确。
转载请注明原文地址:https://www.kaotiyun.com/show/a4Sp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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