2. 计算机
  3. 有如下函数过程： Function gys(ByVal x As Integer，ByVal y As Integer)As Integer Do While y＜＞0 preminder=x/y x=Y

有如下函数过程： Function gys(ByVal x As Integer，ByVal y As Integer)As Integer Do While y＜＞0 preminder=x/y x=Y

admin2009-03-15  69
问题 有如下函数过程：
   Function gys(ByVal x As Integer，ByVal y As Integer)As Integer
     Do While y＜＞0
        preminder=x/y
        x=Y
        y=preminder
     Loop
   gys=x
   End Function
   以下是调用该函数的事件过程，该程序的运行结果是【  】。
   Private Sub Command1_Click()
   Dim a As Integer，b As Integer
      a=10：b=2
      x=gys(a，b)
      Print x
   End Sub
选项
答案5
解析 本题的难点是Do While…Loop循环控制问题。y=2、5、0.4的过程中，最后x=5。
转载请注明原文地址:https://kaotiyun.com/show/7R1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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