有一边长为0.2m的正方体玻璃块，质量为20kg，放在一水平地面上．求：（g取10N/kg）

（1）玻璃密度；

（2）玻璃块对桌面的压力；

（3）玻璃块对桌面的压强．

以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form Click() Dim Arr(10) As Integer Dim Max As Integer Randomize For I = 1 To 10Arr(i) = Int (Rnd * 1000) Next iMax= ______For i = 2 To 10If______ Then Max = Arr(i)End If Next i Print Max End Sub