34.当将程序中的Static m As Integer改为dim m As Integer时，第一次单击命令按钮Command1时，窗体上显示的结果为

A.1 3 5                                                                  B.1 2 4

C.1 2 3                                                                   D.2 2 3

35.如题（34），第二次单击命令按钮Command1时，窗体上显示的结果为

A.1 5 7                                                                  B.1 2 4

C.1 4 6                                                                   D.2 2 3

（二）【程序】

Private Sub Form_Load()

Picture1.Picture=LoadPicture("c:＼pic＼mouth.ico")

Timer1.Enabled=true

Timer1.Interval=2000

End Sub

Private Sub Timer1_Timer()

Static x,y As Integer

x=x+100

y=y+100

Pictuer1.Move x,y

End Sub

【问题与供选择的答案】

36.该程序执行的结果是

A.窗体中的图片框以每2秒钟一次的速度向窗体的右下角移动

B.窗体中的图片框以每2秒钟一次的速度向窗体的左下角移动

C.窗体中的图片框以每20秒钟一次的速度向窗体的右下角移动

D.窗体中的图片框以每20秒钟一次的速度向窗体的左下角移动

37.如果将程序中的Static x,y As Integer改为dim x,y As Integer，该程序执行的结果为

A.窗体中的图片框逐渐向窗体的右下角移动，每次向右、向下移动100twip

B.窗体中的图片框逐渐向窗体的左下角移动，每次向左、向下移动100twip

C.窗体中的图片框向左、向下移动100twip后保持不动

D.窗体中的图片框向右、向下移动100twip后保持不动

38.如果要是时钟控件失效，则可以进行的操作是

A.Timer1.Enabled=false

B.Timer1.Interval=0

C.Timer1.Enabled=false或者Timer1.Interval=0

D.Timer1.Enabled=false并且Timer1.Interval=0

39.如果要清除图片框Picture1中的图片，应该执行的语句为

A.Picture1.Cls                                                       B.Picture1.Clear

C.Picture1.Picture = ""                                        D.Picture1.Picture = LoadPicture("")

（三）【程序】

Private Sub Form_Click()

Dim s As String, t As String

Dim k As Integer, m As Integer

s = "happy!"

k = 1: m = k

For k = 1 To Len(s) Step 2

t = t & Chr(Asc(Mid(s, m, 1)) + k)

k = k + 1

If Mid(s, k, 1) = "!" Then Exit For

m = m + k

Print t,

Next k

Print m

End Sub

【问题与供选择的答案】

40.程序运行后单击窗体，窗体上显示的结果为

A.i is 7                                                                  B.i is 8

C.i it 7                                                                   D.i it 8

41.程序中For循环运行的总次数为

A.1                                                                        B.3

C.5