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

admin2021-06-03 27

问题在窗体中有一个命令按钮Command1，三个文本框Text0、Text1个Text2，命令按钮对应的代码过程如下：
Private Sub Command1_Click( )
Dim i， f1， f2 As Integer
  Dim flag As Boolean
fl = Val(Me! Text0)
f2 = VaI(Me! Text1)
If f1 ＞ f2 Then
1 = f2
Else
1 = 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和25，单击按钮后文本框Text2中显示的结果是( )。

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

答案A

解析 Text0中输入15，Text1中输入25，分别赋值给变量f1和f2，使用If—Else语句将f1和f2中较小的值赋给变量i；Do while … Loop循环语句的执行过程是：如果条件为真( True)，则执行语句块，当执行到Loop语句时，将返回到While语句并对“条件”再次进行判断，如果仍为真(True)，则重复前述过程。如果条件为假( False)，则不执行语句块，而执行Loop之后的语句，本题中使用变量i和标志变量flag作为循环的条件，当i＞1并且flag为true时，循环执行，循环体中使用If—Else语句，只有当fl或f2被i整除时，置标志变量flag为false，则循环结束，否则将变量i减1，循环执行结束时变量i中保存f1和f2的最大公约数，所以本题的结果为5，故本题选择A选项。

转载请注明原文地址:https://kaotiyun.com/show/Bzvp777K

本试题收录于：二级Access题库NCRE全国计算机二级分类

0

二级Access

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)