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