A.0
B.25
C.50
D.100
[单选题]有如下函数过程。F.unction Fun(By Val x As Integer,By Val y As Integer)As IntegerD.o While y<>0reminder=x Mod yx=yy=reminderLoopF.un=xE.nd Function以下调用函数的事件过程,该程序的运行结果是Private Sub Command7_Click()D.im a As Integer,b As Integera=100:b=25x=Fun(a,B)Print x
[单选题]有如下函数过程:F.unction Fun(By Val x As Ingeger,ByVal y As Integer) As IntegerD.O While …y<>0reminder=x Mod yx=yy=reminderLoopF.un=xE.nd Function以下是调用该函数的事件过程,该程序的运行结果是Private Sub Command1_Click()D.im a As IntegerD.im b As Integera=100:b=25x=Fun(a,B)Print
[单选题]有如下函数过程:F.unction Fun(By Val x As Ingeger, ByVal y As Integer)As IntegerD.o While … y <>0reminder=x Mod yx=yy=reminderLoopF.un=xE.nd Function以下是调用该函数的事件过程,该程序的运行结果是Private Sub Command1D.im a As IntegerD.im b As Integera=100:b=25x=Fun(a,b)Print
[单选题]有如下函数过程: 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) Prin
[单选题]有如下函数过程: Function Fun(By Val x As Ingeger,ByVal y As Integer)As Integer Do While…Y<>0 reminder=x Mod Y x=y y=reminder Loop Fun=X End Function 以下是调用该函数的事件过程,该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b)
[单选题](27)有下列函数过程( )。 Function fun1(By Val x As Integer,By Valy As Integer) As Integer Do While y<>0 reminder=x Mody x=y y=reminnder Loop Fun1=x End Function 在下列按钮单击事件中调用该函数,则该程序的运行结果是。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a
[单选题]有如下函数过程: 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 fn(By Val hum AS Long) Dim k As Long k=l num=Abs(nam) Do While nnm k=k*(nnm Mod 10) num=num/10 Loop fn=k End Function 以下是一个调用该函数的事件过程,运行程序后,在输入对话框输入数字“123”,该过程的运行结果是( )。 PrivateA.12B.6C.3D.1
[单选题]有如下函数过程: Function lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮,名为Commandl,编写事件过程调用该函数,输出结果为 ( )。 Private Sub Commandl_lick()A.25B.35C.45D.55
[单选题]有如下函数过程: Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y<>0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数,则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=