[填空題] 下列程序的功能是:單擊窗體時隨機(jī)生成20個兩位數(shù)依次賦值給一個由20個元素組成的數(shù)組,然后把數(shù)組反序存放,再輸出。 Option Base 1 Pr
2021-07-20
[填空題] 下列程序的功能是:單擊窗體時隨機(jī)生成20個兩位數(shù)依次賦值給一個由20個元素組成的數(shù)組,然后把數(shù)組反序存放,再輸出。 Option Base 1 Private Sub Form Click() Dim a(20)As Integer,i As Integer Dim t As Integer,j As Integer Randomize For i=1 To 20a=10+Int(90*Rnd)Print a(i); Next Print i=1: 【4】 Do While i<j t=a(i): 【5】 a(j)=t i=i+1: j=j-1 Loop For i=1 To 20Print a(i); Next i Print End Sub
正確答案:j=20 a(i)=a(j)
參考解析:數(shù)組逆序存放其實就是把數(shù)組的第一個元素和最后一個元素交換,第二個元素和倒數(shù)第二個元素交換,直到所有的元素都交換完畢。算法可描述如下:用變量i記下第一個元素的下標(biāo)1,用變量j記下最后一個元素的下標(biāo)20:交換a(i)和a(j);i加1指向后一個元素, j減1指向前一個元素:重復(fù)上述步驟,直到i≥j為止?!?】處應(yīng)該填寫j賦最后一個元素的下標(biāo),為"j=20"?!?】處是a(i)和a(j)交換的一條語句,應(yīng)填“a(i)=a(j)”。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。