1.事件的名称(A).
A、都是由系统预先定义
B、有的由用户定义,有的由系统定义 C、是不固定的 D、都要由用户定义
2.在程序代码中修改滚动条的value 属性时将激发滚动条的(A)事件.
A、change B、gotfocus C、scroll D、dragdrop
3.要在窗体上显示图片,需设置窗体的(C)属性.
A、ControlBox B、Caption C、Picture D、Icon
4.以下叙述中错误的是(D).
A、移动鼠标时,会触发MouseMove事件 B、双击鼠标可以触发DblClick事件 C、控件的名称可以由编程人员设定
D、窗体或控件的事件的名称可以由编程人员确定
5.在窗体Form1的Click事件过程中有以下语句: Label1.Caption=\
若本语句执行之前,标签控件的Caption属性为默认值,则标签控件 的Name属性和Caption属性在执行本语句之前的值分别为(D).
A、\、\B、\、\
C、\、\D、\、\
6.下列对象中没有焦点属性的是(B).
A、单选框控件 B、窗口控件 C、文本框控件 D、命令按钮控件
7.语句PRINT\的输出结果为(B).
A、INT(-13.2)=-13.2 B、INT(-13.2)=-14 C、INT(-13.2)=-13 D、INT(-13.2)=13.2
8.如果要在菜单中添加一个分隔线,则应将其Caption属性设置为(D).
A、& B、* C、= D、-
9.MSGBOX函数中有4个参数,其中必须写明的参数是(D).
A、指定对话框中显示按钮的数目 B、设置对话框标题 C、所有参数都是可选的 D、提示信息
10.要想返回文本框中输入的内容则可利用其(C)属性进行编程.
A、righttoleft B、caption C、text D、name
11.任何控件都具有的属性是(A).
A、NAME B、TEXT C、CAPTION D、FORECOLOR
12.假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是(B).
A、BOOLVAR=#TRUE# B、BOOLVAR=3<4 C、BOOLVAR=.TRUE. D、BOOLVAR='TRUE'
13.要获得当前驱动器应使用驱动器列表框的哪个属性(C).
A、Dir B、Path C、Drive D、Patten
14.下列赋值语句正确的是(C).
A、Text1.name=Text1.Name+Text2.Name B、Text1.Enable=Text1.Enable+Text2.Enable C、Text1.text=Text1.text+Text2.text
D、Text1.Caption=Text1.Caption+Text2.Caption
15.表达式25.28Mod6.99的值是(C).
A、5 B、1 C、4 D、出错
16. X=2:Y=8:PRINT X+Y=10的结果是__True___.
17. 在过程调用中,参数的传递可分为两种方式,其中按__地址___传递方式是默认的. ____.
18. 如果:I=12:J=3:I=int(-8.6)+I\\J+13/3 MOD 5,则I值是__-1___. 19. '【程序改错】
'------------------------------------------------
'题目：以下程序段用于计算货物运费。设货物运费每吨 ' 单价p元与运输距离s公里之间有如下关系：
'------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------
Private Sub Form_Click() Dim w!, s!
Dim p As Currency, t As Currency w = InputBox(\请输入货物重量\s = InputBox(\请输入托运距离\Select Case s Case Is < 100 p = 30
'**********ERROR********** Case Is <= 200 and Is>=100 p = 27.5 Case Is < 300 p = 25
Case Is < 400 p = 32.5
'**********ERROR********** Else p = 20
'**********ERROR********** End If
t = p * w * s
Print \总运费:\元\End Sub
【改错1】 错误 【学生答案】
Case Is <= 200 and Is>=100
【参考答案】 Case Is < 200
20. '------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：统计一顺序文件test.txt中的空格、字母、数字和其它字符个数。
'------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------
Private Sub Command1_Click() Dim s As String, C As String
Dim I As Integer, L As Integer, spac As Integer, character As Integer, digit As Integer, other As Integer '**********ERROR**********
Open App.Path & \ '**********ERROR********** Do Until EOF(0)
Line Input #1, s L = Len(s) For I = 1 To L
C = Mid(s, I, 1)
If C >= \ character = character + 1 ElseIf C = \ spac = spac + 1
'**********ERROR**********
ElseIf C >= \ digit = digit + 1 Else
other = other + 1 End If Next I Loop Close #1
Print \字符个数为：\数字个数为：\ Print \空格个数为：\其它个数为：\
End Sub
【改错1】 错误 【学生答案】
Open App.Path & \
【参考答案】
Open App.Path & \
Open \
四、、【程序填空】
'-------------------------------------------------------
'题目：从键盘输入学生分数，统计学生总人数和各分数段人数， ' 即优秀（90-100）、良好（80-89）、中等（70-79）、 ' 及格（60-69）、不及格（60以下）的人数。
'------------------------------------------------------- Private Sub Form_Click()
Dim score%, n1%, n2%, n3%, n4%, n5% msg = \请输入分数（-1结束）\msgtitile = \输入数据\
score = Val(InputBox(msg, msgtitle)) '**********Fill********** do While 【?】
total = total + 1
'**********Fill********** Select Case 【?】 Case Is >= 90 n1 = n1 + 1 Case Is >= 80 n2 = n2 + 1 Case Is >= 70 n3 = n3 + 1 Case Is >= 60 n4 = n4 + 1 Case Else n5 = n5 + 1
'**********Fill********** 【?】
score = Val(InputBox(msg, msgtitle))