【简答题】如有以下程序代码,请填空 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim max As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i max=_______ For i = 2 To 10 if _______ then max = a(i) En...
【简答题】具有水平表面的地基,位置越深自重应力越 ,均质地基中自重应力沿着深度呈 分布,成层土地基中,自重应力的转折点在 和 位置。
【单选题】如有以下程序代码: Option Base 1 Dim a() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim a(3, 2) For i = 1 To 3 For j = 1 To 2 a(i, j) = i * j Next j Next i ReDim Preserve a(3, 4) For ...
【单选题】如有以下程序代码: Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print s End Sub 运行程序后,在窗体上输出的内容为
【判断题】成层土地基中的自重应力沿深度是呈三角形分布的。
【单选题】如有以下程序代码: Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End S...
【单选题】如有以下程序代码: prefix="o" ns="urn:schemas-microsoft-com:office:office" ?xml:namespace> Option Base 0 Private Sub Command1_Click() Static city As Variant city = Array(" 北京 ", " 上海 ", " 天津 ", " 重庆 ") Print c...