【简答题】设有以下程序: Option Base 1 Private Sub Command1_Click( ) Dim arr1 ,Max as Integer art1 = Array(12,435,76,24,78,54,866,43) 【 】= arr1(1) For i = 1 To 8 If arrl(i)>Max Then【 】 Next i Print '最大值:'; Max End Sub...
【单选题】以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
【单选题】以下程序的输出结果是( )。 Option Base 1 Private Sub Command1 Click() Dim a(10),p(3)as Integer k=5 For I=1 to 10 a(i)=I Next I For j=1 to 3 p(i)=a(I*j) Next j For I=1 to 3 k=k+p(I)*2 Next I Print k End Sub