2. 计算机
  3. 当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是【 】。 Private Sub Form_Click() Dim x As Integer，y As Integer x=Val(InputBox

当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是【 】。 Private Sub Form_Click() Dim x As Integer，y As Integer x=Val(InputBox

admin2009-02-13  30
问题 当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是【  】。
   Private Sub Form_Click()
      Dim  x  As  Integer，y As  Integer
      x=Val(InputBox("输入整数72"))
      y=Val(InputBox("输入整数24"))
      z=fun1(x，y)
      MsgBox Str(Z)
   End Sub
   Private  Function  funl(ByVal  a  As  Integer， ByVal  b  As  Integer)As  Integer
      Do
         r=a Mod b
         a = b
         b = r
      Loop Until r=0
      funl=a
   End Function
选项
答案24
解析 由“欧几里德”求最大公约数的算法可知，当余数r为零时，a为a和b的最大公约数。72和24的最大公约数为6。“Mod”运算符用来对两个数做除法运算并且只返回余数。
转载请注明原文地址:https://jikaoti.com/ti/B8q0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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