16.假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 then PopupMenu popForm End If End Sub 则以下描述中错误的是 A、该过程的功能是弹出一个菜单 B、popForm是在菜单编辑器中定义的弹出式菜单的名称 C、参数X、Y指明鼠标的当前位置 D、Button = 2 表示按下的是鼠标左键

A       B       C       D

17.在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click() X = 5 : Y=3 Call proc(X,Y) Label1.Caption = X Label2.Caption = Y End Sub Private Sub proc(ByVal a As Integer, ByVal b As Integer) X = a * a Y = b + b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是 A、5和3 B、25和3 C、25和6 D、5和6

A       B       C       D

18.在窗体上画一个名称为Command1命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是 A、10 10 10 B、30 30 30 C、30 30 10 D、10 30 30

A       B       C       D

19.在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称 为Filel的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件” 的标签。编写程序，使得驱动器列表框与目录列表框与文件列表框同步变化，并且在标签 Label1中显示当前文件夹中文件的数量。如图所示。 能够正确实现上述功能的程序是 A)Private Sub Dirl_Change() File1.Path=Dirl.path End Sub Private Sub Drive1_Change() Dirl.Path=Drive1.Drive Label1.Caption=File1.ListCount End Sub B)Private Sub Dirl_Change() File1.Path=Dirl.path End Sub Private Sub Drive1_Change() Dirl.Path=Drive1.Drive Label1.Caption=File1.List End Sub C)Private Sub Dirl_Change() File1.Path=Dirl.path Label1.Caption=File1.ListCount End Sub Private Sub Drive1_Change() Dirl.Path=Drive1.Drive Label1.Caption=File1.ListCount End Sub D)Private Sub Dirl_Change() File1.Path=Dirl.path Label1.Caption=File1.List End Sub Private Sub Drive1_Change() Dirl.Path=Drive1.Drive Label1.Caption=File1.List End Sub

A       B       C       D

20.窗体上有两名称分别为Text1、Text2的文本框，一个名称为Command1命令按钮。运行后的 窗体外观如图所示： 设有如下的类型声明 Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中 的数据已正确地赋值给Person类型的变量p。 则能够正确地把数据写入文件的程序段是： A)Open "c:\Test29.dat"For Random As #1 Put #1,1,p Close #1 B)Open "c:\Test29.dat"For Random As #1 Get #1,1,p Close #1 C)Open "c:\Test29.dat"For Random As #1 Len=Len(p) Put #1,1,p Close #1 D)Open "c:\Test29.dat"For Random As #1 Len=Len(p) Get #1,1,p Close #1

A       B       C       D