填空题

下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，
完成下列程序。
Private Sub Backward(a())
Dim i As Integer,Tmp As Integer
Fori=1 To5
Tmp=a(i)

a(5-i)=Tmp
Nexti
End Sub

【参考答案】

a(i)=a(5i)

<上一题目录下一题>

热门试题

填空题

以下程序用来计算由键盘输入的N个数中正数之和，负数之和，正数的个数，负数的个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加正数的个数。 Privae Sub Commandl_Click N=10 C=0:IC=0:D=0:ID=0 For =1 To N A=Val(1nputBox(“请输入A”)) IFA＜0 Then C=C+A：IC=IC+1 lf A＞O Then D= Next K Print 负数的个数为： ,IC Print 负数的和为： ,C Print 正数的个数为：，ID Print 正数的和为： ,D End Sub

填空题

b(n,m)As Integer a(I,j)

相关试题