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

有如下函数过程。 Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer Do While y＜＞0 S=x/y x=y y

admin2010-03-30  52
问题 有如下函数过程。
   Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer
     Do While y＜＞0
        S=x/y
        x=y
        y=S
     Loop
     UNC=x
   End Function
   以下事件调用该函数，程序运行结果是【  】。
   Private Sub Command1_Click()
   Dim a As Integer
   Dim b As Integer
      a=12
      b=2
      x=UNC(a，b)
      Print x
   End Sub
选项
答案6
解析 本题考查函数调用和输出格式的语句。调用UNC的过程如下：
   x=12，y=2时，sic=6，x=2，y=6：
   x=2，y=6时，sic=0，x=6，y=0；
   y=0，所以跳出循环，输出x=6并结束程序。注意：过程的定义和调用。
转载请注明原文地址:https://www.kaotiyun.com/show/oO1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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