有如下事件过程：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，输出结果为

试卷相关题目

• 1下列程序段的执行结果为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

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

  A.1 5

  B.12 7

  C.a b

  D.10 25

  开始考试点击查看答案
• 3下列程序段的执行结果为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

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

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

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

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

  D.专门用于输出信息

  开始考试点击查看答案
• 5下列各选项说法错误的一项是

  A.文件对话框可分为两种，即打开(Open) 文件对话框和保存(Save As) 文件对话框

  B.通用对话框的Name属性的默认值为CommonDialogX，此外，每种对话框都有自己的默认标题

  C.打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件

  D.DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性

  开始考试点击查看答案
• 6下面程序段执行结果为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

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

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

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

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

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

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

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

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

  开始考试点击查看答案