有如下函数过程：Function HFC（ByVal x As Integer, ByVal y As Integer） As IntegerDo While y 0sic=x / yx=yy=sicLoopHFC=xEnd Function以下是该函数的调用过程，该程序的运行结果是Private Sub Command1_Click（）Dim a As IntegerDim b As Integera=12b=2x=HFC（a, B．Print xEnd Sub（ ）。A．0B．6C．2D．80
有如下函数过程：
Function HFC（ByVal x As Integer, ByVal y As Integer） As Integer
Do While y <> 0
sic=x / y
x=y
y=sic
Loop
HFC=x
End Function
以下是该函数的调用过程，该程序的运行结果是
Private Sub Command1_Click（）
Dim a As Integer
Dim b As Integer
a=12
b=2
x=HFC（a, B．
Print x
End Sub（ ）。
A．0
B．6
C．2
D．80
相关考题：
有如下函数过程： FunctiOngyS(By Val X As Integer，ByValy As Integer)As Integer DOWhiley＜＞0 reminder=x Mody X=y y=reminder Loop gys=x End FunctiOn 以下是调用函数的事件过程，该程序的运行结果是，( )。 PriVate Sub Command7_Click() DimA．0B．25C．50D．100
有如下函数过程： Function Fun(By Val x As Integer，By Val y As Integer)As Integer Do While Y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub Command7_Click() Dim a As Integer，b As Integer a=100:b=25 x=Fun(a,B) Print x End SubA．0B．25C．50D．100
有如下函数过程。Function UNC(ByVal x As Integer，ByVal y As Integer)As IntegerDo While y＜＞0S=x/yx=yy=SLoopUNC=xEnd Function以下事件调用该函数，程序运行结果是【 】。Private Sub Command1_Click()Dim a As IntegerDim b As Integera=12b=2x=UNC(a，b)Print xEnd Sub
有如下函数过程。 Function Fun( By Val x As Integer,By Val y As Integer) As Integer Do While y ＜＞ 0 reminder = x Mod y xmy y = reminder Loop Fun = x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub CommandT_Click( ) Dim a As Integer,b As Integer a = 100:b =25 x =Fun(a,B)Print x End SubA．0B．25C．50D．100
有如下函数过程： Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer Do While y ＜ ＞ 0 sic=x/y X=y y=sic Loop HFC=x End Function 以下是该函数的调用过程，该程序的运行结果是 Private Sub Command1 _ Click( ) Dim a AS Integer Dim b As Integer a=12 b=2 x=HFC(a，B)Print x End SubA．0B．6C．2D．80
【单选题】在VB.NET中,以下正确的函数定义形式是（）。A．Function fun(ByVal x as Integer;ByValy as Integer)B．Function fun(ByVal x as Integer,ByValy as Integer)C．Function fun(x as Integer;y as Integer);D．Function fun(x,y as Integer)
在VB.NET中,以下正确的过程定义形式是（）。A．Sub proc(ByVal x as Integer;ByValy as Integer)B．Sub proc(ByVal x as Integer,ByValy as Integer)C．Sub proc(x as Integer;y as Integer);D．Sub proc(x,y as Integer)
1、在VB.NET中,以下正确的过程定义形式是（）。A．Sub proc(ByVal x as Integer;ByValy as Integer)B．Sub proc(ByVal x as Integer,ByValy as Integer)C．Sub proc(x as Integer;y as Integer);D．Sub proc(x,y as Integer)
2、在VB.NET中,以下正确的函数定义形式是（）。A．Function fun(ByVal x as Integer;ByValy as Integer)B．Function fun(ByVal x as Integer,ByValy as Integer)C．Function fun(x as Integer;y as Integer);D．Function fun(x,y as Integer)