编写下列事件过程和函数过程：

Private Sub Commandl Click()

Dim num(1 To 6)As Single

num(1)=103:num(2)=190:num(3)=0

num(4)=32:num(5)=-56:num(6)=100

Print

Print p2(6,num())

End Sub

Private Function p2(ByVal n As Integer,number()As Single)As Integer

p2=number(1)

For j=2 To n

If number(j)＜p2 Then p2=number(j)

Next j

End Function

程序运行后，在窗体上输出( )。

A．-56

B．0

C．103

D．190

读图1和图2，完成下列问题

小题1:图1和图2图幅大小相同的情况下，两图比较，下列说法正确的是（     ）。

A．图1比例尺大

B．图2比例尺大

C．图1内容简略

D．图2内容详细小题2:从图2中查阅不到下列有关福州的内容是（ ）。

A．行政区

B．纬度位置

C．海陆位置

D．地形特征