四、程序阅读题（本大题共8小题，每小题2分，共16分）

（一）【程序】

Private Sub Command1_Click()

Cls

Line (300, 300)-(1600, 1600), , BF

End Sub

Private Sub Command2_Click()

Cls

Line (300, 300)-(1600, 1600), , B

End Sub

【供选择的答案】

29.运行时单击Command1，窗体显示的图形为

A.直线                                                                   B.折线

C.空心矩形                                                           D.实心矩形

30.运行时单击Command2，窗体显示的图形为

A.直线                                                                   B.折线

C.空心矩形                                                           D.实心矩形

（二）【程序】

Dim y As Integer

Private Sub Command1_Click()

Dim x As Integer

x = 2

Text1.Text = P2(P1(x), y)

Text2.Text = P1(x)

End Sub

Private Function P1(x As Integer) As Integer

x = x + y

y = x + y

P1 = x + y

End Function

Private Function P2(x As Integer, y As Integer) As Integer

P2 = 2 * x + y

End Function

【供选择的答案】

31.当一次单击命令按钮后，文本框Text1和Text2的值分别是

A.2、4                                                                   B.4、8

C.10、10                                                               D.4、4

32.当两次单击命令按钮后，文本框Text1和Text2的值分别是

A.2、4                                                                   B.8、8

C.58、58                                                               D.4、8

33.将x的声明方式改为Static，程序运行时，当两次单击命令按钮后，文本框Text1和Text2的值分别是

A.2、4                                                                   B.8、8

C.58、58                                                               D.4、8

（三）【程序】

Dim a(10) As Integer

For i = 1 To 10

a(i) = i * 2

Next i

For m = 1 To n - 1

For z = 1 To n - m

If a(z) >