下面程序段执行结果为x=Int(Rnd() + 3)Select Case xCase 5Print "excellent"Case 4Print "good"Case 3Print "pass"Case ElsePrint "fail"End Select

试卷相关题目

• 1有如下事件过程：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

  开始考试点击查看答案
• 2下列程序段的执行结果为a=75If a > 60 Then I=1If a > 70 Then I=2If a > 80 Then I=3If a < 90 Then I=4Print "I="; I

  A.I＝1

  B.I＝2

  C.I＝3

  D.I＝4

  开始考试点击查看答案
• 3下列程序段的执行结果为a=1b=5Doa=a + bb=b + 1Loop While a < 10Print a; b

  A.1 5

  B.12 7

  C.a b

  D.10 25

  开始考试点击查看答案
• 4下列程序段的执行结果为I=4x=5DoI=I + 1x=x + 2Loop Until I>=7Print "I="; IPrint "x="; x

  A.I＝4x＝5

  B.I＝7x＝15

  C.I＝6x＝8

  D.I＝7x＝11

  开始考试点击查看答案
• 5用InputBox函数设计的对话框，其功能是

  A.只能接收用户输入的数据，但不会返回任何信息

  B.能接收用户输入的数据，并能返回用户输入的信息

  C.既能用于接收用户输入的信息，又能用于输出信息

  D.专门用于输出信息

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

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

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

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

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

  开始考试点击查看答案
• 7单击命令按钮时，下列程序的执行结果为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

  开始考试点击查看答案
• 8单击按钮时，以下程序运行后的输出结果是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

  开始考试点击查看答案
• 9单击命令按钮时，下列程序的运行结果为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

  A.0

  B.2

  C.4

  D.6

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

  A.MyForm.Show

  B.Show.MyForm

  C.MyForm Load

  D.MyForm Show

  开始考试点击查看答案