题目内容

有下列函数过程：
Function fun1(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=fun1(a,B)Print x
End Sub

A. 0
B. 25
C. 50
D. 100

查看答案

搜索结果不匹配？点我反馈

更多问题

有下列事件过程：
Private Sub Command1_Click()
b=10
Do Until b=-1
a=InputBox("请输入a的值")
a=Val(A)
b=InputBox("请输入b的值")
b=Val(B)a=a*b
Loop
Print a
End Sub
程序运行后，依次输入数值30,20,10,-1后，输出结果是()。

A. 6000
B. -10
C. 200
D. -6000

单击命令按钮执行下列程序，其输出结果是()。
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
a=3
b=4
c=5
Prim SecProc(c,b,A)
End Sub
Function FirProc(x As Integer,y As Integer,z As Integer)
FirProc=2x+y+3z
End Function
Function SecProc(x As Integer,y As Integer,z As Integer)
SecProc=FirProc(z,x,y)+x
End Function

A. 20
B. 22
C. 28
D. 30

基金托管人职责终止时，无须聘请会计师事务所对基金财产进行审计。 ()

A. 正确
B. 错误

根据移动平均法，如果某只股票价格超过平均价的某一百分比时，应该卖出。()

A. 正确
B. 错误