填空题

下列程序是将数组a的元素倒序交换，即第一个变为最后一个，第二个变为倒数第二个，依此类推。设数组中有8个元素。完成下列程序。 Private Sub OrderChange(a()) Dim i As Integer, Temp As Integer For i = 1 To 4 Temp = a(i) ______ ______ Next i End Sub

【参考答案】

a(i)=a(9-i) a(9-i)=temp
<上一题 目录 下一题>
热门 试题

填空题
下列事件过程的执行结果为在窗体中依次输出______、______、______和 ______。Private Sub Command1_Click()Dim ci = 0c = Array(2, 4, 6, 8, 9)Dox = c(i)For j = 10 To x Step -2n = j + xNext jPrint n + ji = i + 1Loop While j + n ＜＞ 22End Sub
填空题
下列程序用于输出一个主对角线上元素值为“*”，其他元素值为“#”的5×5阶的方阵，试将程序补充完整。Private Sub Command1_Click()Dim x(5, 5)For i = 1 To 5For j = 1 To 5If ______ Thenx(i, j) = ’*’Else______End IfPrint ______Next jPrintNext iEnd Sub
相关试题