C.文件(#F)                                                            D.文件(%F)

二、判断题（本大题共10小题，每小题1分，共10分）

判断下列各题，在答题纸相应位置正确的涂“A”，错误的涂“B”。

11.事件可以由用户触发，也可以由系统触发。

12.Visual Basic的单行结构条件语句应在一行写完，如果一行写不完，只能采用多行结构。

13.对于滚动条控件，在一次拖动滚动块的操作中，只发生一次Change事件。

14.形状控件的BorderWidth属性决定形状控件所绘制的几何图形的宽度。

15.执行Unload Forml语句后，窗体Forml消失，但仍在内存中。

16.目录列表框的Path属性只能在程序代码中设置，不能在设计阶段设置。

17.在Visual Basic中，控件数组可以由不同类型的控件组成。

18.在函数过程定义时，如果不指明函数过程参数的类型，则该参数没有数据类型。

19.在窗体的Form_Load事件过程中定义的变量是全局变量。

20.复选框的Value属性为1时，表示复选框被选中。

三、程序填空题（本大题共11小题，每小题2分，共22分）

（一）【程序说明】在图片框坐标系中，左上角的坐标为(-100, 100)，右下角坐标为(100, -100)，在文本框中输入弧度制的角度值，单击命令按钮，图片框内将生成带有坐标系的角度。

【程序】

Private Sub Form_Load()

  21 

Text1 =""

Text1.TabIndex = 0

Command1.Enabled = False

End Sub

Private Sub Command1_Click()

Picture1.Cls

Picture1.CurrentX =  22 

Picture1.CurrentY = 0

Picture1.Print "(0, 0)"

Picture1.Line   23 

Picture1.Line (0, -100)-(0, 100)

Picture1.Line   24 

Command1.Enabled = False

End Sub

Private Sub Text1_Change()

Command1.Enabled = True

End Sub

【供选择的答案】

21.A.Scale (-100, 100)-(100, -100)

B.Picture1.Scale (100, -100)-(-100, 100)

C.Picture1.Scale (-100, 100)-(100, -100)

D.Scale (100, -100)-(-100, 100)

22.A.50                                                                  B.0

C.-100                                                                   D.100

23.A.(0, 100)-(-100, 0)                                        B.(100, 0)-( 0, -100)

C.(100,-100)-( 0,-100)                                         D.(-100, 0)-(100, 0)

24.A.(0, 0)-(100 * Cos(Val(Text1.Text)), 100 * Sin(Val(Text1.Text)))

B.(0, 0)-(100 * Sin(Val(Text1.Text)), 100 * Cos(Val(Text1.Text)))

C.(0, 0)-(100 * Cos(Val(Text1.Text)), 100 * Cos(Val(Text1.Text)))

D.(0, 0)-(100 * Sin(Val(Text1.Text)), 100 * Sin(Val(Text1.Text)))

（二）【程序说明】该程序调用通用对话框控件，并在“打开”对话框窗口中只显示扩展名为“.txt”的文本文件，选中并打开其中的某个文本文件，将该文件中的数据逐行读入到字符串变量str中，并在Text1中显示出来。

【程序】

Private Sub Command1_Click()

Dim str as string

CommonDialog1.ShowOpen

CommonDialog1.   25 

Open CommonDialog1.FileName For   26  

Do While Not   27 

  28 

Text1.text = Text1.text + str

Loop

Close #2

End Sub

【供选择的答案】

25.A.FilterName ="文本文件|*.txt"                   B.FilterName = "文本文件; *.txt"

 C.Filter = "文本文件|*.txt"                              D.Filter = "文本文件; *.txt"

26.A.Append as #2                                              B.output As #2

C.Input                                                                 D.Input As #2

27.A.EOF(1)                                                         B.EOF(2)

C.EOF(#1)    &nb