如果存在如下过程：
Private Function Fun(a() As Integer)
Dim First As Integer, Last As Integer,i As Integer
First=LBound(a)
Last=UBound(a)
Max=a(First)
For i=First To Last
If a(i)＞ Max Then Max=a(i)
Next
Fun=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
ReDim m(1 To 4)As Integer
m(1)=20: m(2)=30: m(3)=50: m(4)=100
c=Fun(m)
Print C
End Sub
单击命令按钮，其输出结果为 (9) 。

把6molA气体和5molB气体混合放入4L密闭容器中，在一定条件下发生反应：3A(g)＋B(g)2C(g)＋xD(g)，经5min达到平衡，此时生成C为2mol，测定D的平均反应速率为0.1mol/(L·min)，计算

（1）x                     （2） B的转化率

（3） 平衡时A的浓度       （4） 恒温达平衡时容器内的压强与开始时压强比