未知题型
有如下函数过程： 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=funl(a，B)Print x End Sub
D.100
- A.0
B.25
C.50
【参考答案】
B
解析：可以通过两种方式来传递参数，即按值传递参数和按地址传递参数。按值传递参数时，传递的只是变量的副本。如果......
(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
点击查看答案
相关考题
-
单项选择题
在空间直角坐标系中,是( ) A. 圆 B. 球 C. 一点 D. 圆柱面 -
未知题型
下列程序代码实现生成20个0～100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段是( )，完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X ______ If X＞50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；'Sum='；Sum End SubA.Int(Rnd*99+1) In arrB.Int(RnD)In arrC.Int(Rnd*99+1) In arr()D.Int(RnD)In arr()
A.Text=Textl.Text
B.Int(Rnd*99+1)
C.Int(RnD)In
D.Int(Rnd*99+1)
E.Int(RnD)In -
多项选择题
建设工程勘察、设计注册执业人员同时受聘于2个以下建设工程勘察、设计单位，从事建设工程勘察、设计活动的，可以( )。
A.责令停止违法行为
B.没收违法所得
C.处违法所得2倍以上5倍以下的罚款
D.情节严重的，可以责令停止执行业务或者吊销资格证书
E.给他人造成损失的，依法承担连带责任
