![[填空题] 设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。 Private Sub Commnd1,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E8%AE%BE%E6%9C%89%E4%B8%80%E4%B8%AA10%E4%B8%AA%E5%85%83%E7%B4%A0%E7%9A%84%E6%95%B0%E7%BB%84%EF%BC%8C%E4%B8%8B%E5%88%97%E7%A8%8B%E5%BA%8F%E5%B0%86%E8%AF%A5%E6%95%B0%E7%BB%84%E7%9A%84%E7%AC%AC%E4%B8%80%E4%B8%AA%E5%85%83%E7%B4%A0%E4%B8%8E%E7%AC%AC%E5%8D%81%E4%B8%AA%E5%85%83%E7%B4%A0%E4%BA%A4%E6%8D%A2%EF%BC%8C%E7%AC%AC%E4%BA%8C%E4%B8%AA%E5%85%83%E7%B4%A0%E4%B8%8E%E7%AC%AC%E4%B9%9D%E4%B8%AA%E5%85%83%E7%B4%A0%E4%BA%A4%E6%8D%A2%E2%80%A6%E2%80%A6%EF%BC%8C%E7%AC%AC%E4%BA%94%E4%B8%AA%E5%85%83%E7%B4%A0%E4%B8%8E%E7%AC%AC%E5%85%AD%E4%B8%AA%E5%85%83%E7%B4%A0%E4%BA%A4%E6%8D%A2%EF%BC%8C%E8%AF%B7%E8%A1%A5%E5%85%85%E5%AE%8C%E8%AF%A5%E7%A8%8B%E5%BA%8F%E3%80%82+Private+Sub+Commnd1.png "[填空题] 设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。 Private Sub Commnd1,第1张")
[填空题] 设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。 Private Sub Commnd1_Click() Dim a(1 To 10)As Integer Dim i As Integer Dim p As Integer Dim t As Integer Dim j As Integer For i=1 To 10 a(i)=i Next i For j=1 To 5 【9】 【10】 【11】 Next j For i=1 To 10 Print a(i) Next i End Sub
正确答案：[9] t=a(j) [10] a(j)=a(10-j+1) [11] a(10-j+1)=t
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）