[填空題] 執(zhí)行下面程序,單擊命令按鈕Cmd1后,a(2)的值是___(7)___,a(3)的值是___(8)___,a(5)的值是___(9)___。 Op
[填空題] 執(zhí)行下面程序,單擊命令按鈕Cmd1后,a(2)的值是___(7)___,a(3)的值是___(8)___,a(5)的值是___(9)___。 Option Explicit Option Base 1 Private Sub Cmd1_Click()Dim a() As Integer,i As Integer,n As IntegerDim k As Integern=8ReDim a(n)For i=1 To n a(i)=2*i-1Next ik=2Do For i=UBound(a) To 1 Step -1 If i Mod a(k)=0 Then Call delete(a,i) End If Next i k=k+1Loop Until a(k)>UBound(a)For i=1 To UBound(a) Text1=Text1 & Str(a(i)) If i Mod 5=0 Then Text1=Text1 & vbCrLfNext i End Sub Private Sub delete(a() As Integer,i As Integer)Dim k As IntegerIf iUBound(a) Then For k=i+1 To UBound(a) a(k-1)=a(k) Next kEnd IfReDim Preserve a(UBound(a)-1) EndSub
正確答案：2 7 13
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。