单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click()Print MyFund(20, 18)End SubPublic Function MyFund(m As Integer, n As Integer) As IntegerDo While m <> nDo While m > n: m=m - n: LoopDo While m < n: n=n - m: LoopLoopMyFund=mEnd Function

试卷相关题目

• 1单击按钮时，以下程序运行后的输出结果是Private Sub proc1(x As Integer, y As Integer, z As Integer)x=3 * zy=2 * zz=x + yEnd SubPrivate Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx=1: y=2: z=3Call proc1(x, x, z)Print x; x; zCall proc1(x, y, y)Print x; y; yEnd Sub

  A.6 6 126 10 10

  B.9 5 105 10 10

  C.9 6 129 10 15

  D.9 10 105 4 10

  开始考试点击查看答案
• 2单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click()Dim x As Integer, y As Integerx=50: y=78Call PPP(x, y)Print x; yEnd SubPublic Sub PPP(ByVal n As Integer, ByVal m As Integer)n=n ＼ 10m=m ＼ 10End Sub

  A.08

  B.5078

  C.450

  D.7850

  开始考试点击查看答案
• 3定义过程的格式中，Static关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static关键字，则

  A.每次调用此过程，该过程中的局部变量都会被重新初始化

  B.在本过程中使用到的，在其他过程中定义的变量也为Statci型

  C.每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值

  D.定义了该过程中定义的局部变量为"自动"变量

  开始考试点击查看答案
• 4下面程序段执行结果为x=Int(Rnd() + 3)Select Case xCase 5Print "excellent"Case 4Print "good"Case 3Print "pass"Case ElsePrint "fail"End Select

  A.excellent

  B.good

  C.pass

  D.fail

  开始考试点击查看答案
• 5有如下事件过程：Private Sub Command1_Click()b=10Do Until b=-1a=InputBox("请输入a的值")a=Val(A)b=InputBox("请输入b的值")b=Val(b)a=a * bLoopPrint aEnd Sub程序运行后，依次输入数值30，20，10，－1，输出结果为

  A.6000

  B.－10

  C.200

  D.-6000

  开始考试点击查看答案
• 6要将名为MyForm的窗体显示出来，正确的使用方法是

  A.MyForm.Show

  B.Show.MyForm

  C.MyForm Load

  D.MyForm Show

  开始考试点击查看答案