PrivateSubCommand1_Click()
Dima(11)
Fori=1To11
a(i)=InputBox("請輸入第"&i&"個數字")
Printa(i)&"";
Next
n=InputBox("輸入移動次數")
Forj=1Ton
k=a(1)
Fori=1To10
a(i)=a(i+1)
Nexti
a(11)=k
Nextj
Fori=1To11
Printa(i)&"";
Next
EndSub
網站導航
- zblogPHP模板zbpkf
- zblog免費模板zblogfree
- zblog模板學習zblogxuexi
- zblogPHP仿站zbpfang