26.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是 A、Drive1_Change B、Drive1_Click C、Dir1_Click D、Dir1_Change

A       B       C       D

27.下列程序段的执行结果为____。 A=0:B=1 A=A+B:B=B+A:Print A;B A=A+B:B=B+A:Print A;B A、1 2 3 5 B、1 1 3 5 C、1 3 3 4 D、1 2 3 4

A       B       C       D

28.窗体中有如下代码 Private Sub Command1_Click() x = 0 For k = 3 To 5 GoSub ab s = s + x Next k Print s Exit Sub ab: x = x + 2 Return End Sub 运行后单击COMMAND1按钮，输出的结果是____。 A、3 B、12 C、6 D、9

A       B       C       D

29.下面程序段的执行结果为____。 I=4 A=5 Do I=I+1 A=A+3 Loop Until I>=9 Print"I=";I Print"A=";A A、I=9 A=20 B、I=10 A=20 C、I=10 A=23 D、I=9 A=23

A       B       C       D

30.单击窗体时，下列程序代码的执行结果为____。 Private Sub Value(ByVal m As Integer, ByVal n As Integer) m = m - n: n = n + 3 Print m; n End Sub Private Sub Form_click() Dim x As Integer, Y As Integer x = 5: Y = 6 Call Value(x, Y) Print x; Y End Sub A、-1 9 -1 9 B、5 6 5 6 C、-1 9 5 6 D、9 -1 5 6

A       B       C       D