（32）运行下列程序，结果是Private Sub Command32_Click（)f0=1:f1=1:k=1Do While k＜=5f=f0+f1f0

运行下列程序：

Private Sub Form_Click()

a = 32: b = 5

Do

a = a / 2

b = b + 1

Loop While b< 10

Print a

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.1

B.2

C.5

D.11

A.画出两根平行且长度相等的线段

B.画出两根平行但长度不相等的线段

C.画出两根垂直且长度相等的线段

D.画出两根垂直且但长度不相等的线段

A.1

B.4

C.0

D.3

以下程序运行后的输出结果是______。

main()

{char m;

m='B'+32;printf("%c\n",m);

}

窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序： Private Sub Command1_Click() Dim i，s For i=0 To List1．ListCount s=s+List1．List(i) Next i Print s End Sub 程序运行后，单击命令按钮，则窗体上显示的是

A．0

B．10

C．01234

D．程序出错

运行下列程序：

Option Base 1

Private Sub Form_Click()

y = 43

x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70)

For i = 1 To 10

If x(i)< y then

z = x(i) + 1

y = x(i)

Else

z = z + y

End If

Next i

Print z

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.43

B.21

C.37

D.44

A.8

B.16

C.32

D.64