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

下列程序是将数组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


相关考题:

设有一个10个元素的数组,下列程序将该数组的第一个元素与第十个元素交换,第二个元素与第九个元素交换……,第五个元素与第六个元素交换,请补充完该程序。Private Sub Commnd1_Click()Dim a(1 To 10)As IntegerDim i As IntegerDim p As IntegerDim t As IntegerDim j As IntegerFor i=1 To 10a(i)=iNext iFor j=1 To 5【 】【 】【 】Next jFor i=1 To 10Print a(i)Next iEnd Sub

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

下面程序用“冒泡”法将数组a中的10个整数按升序排列,算法是:从数组的第1个元素开始,依次将相邻的两个数相比较(第1个数与第2个数,第2个数与第3个数……如此重复),若前面的数较大,则这两个数交换位置。这样执行一遍后,最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续,可将数组排序,请将程序补充完整。Option Base 1Private Sub Command1_Click()Dim a()a=Array(678,45,324,528,439,387,87,875,273,823)Fori=【 】Forj= 【 】If a(j)【 】a(j+1)Thena1=a(j)a(j)=a(j+1)a(j+1)=alEnd lfNextjNext iFor i=1 To 10Print a(i)Next iEnd Sub

设有一个有10个元素的数组,下列程序将该数组的第1个元素与第10个元素交换,第2个元素与第9个元素交换……,第5个元素与第6个元素交换,在横线处应填写( )。A. a(j)=a(11-j) a(11-j)=tB. a(11-j)=a(j) a(j)=tC. a(j)=a(11-j) a(j)=tD. a(11-j)=t a(j)=a(11-j)

编一个程序,输入一个字符串,将其倒序存放后输出。例如,假设原数组a的内容为“VISUAL C++PROGRAM”,倒序后数组a中的内容为“MAGORP++C LASUIV”。 要求:不能借助另外一个数组实现倒序存放。

设x是一维数组,x的倒数第3个元素表示为x(end-2)。

【判断题】创建一个长度为arraysize的数组对象arrayname,第1个数组元素是arrayname[1],最后一个数组元素是arrayname[arraysize]。A.Y.是B.N.否

创建文件file.dat并将数组A=[1:10]写入,随后将数组A的第4个元素4换成11,将倒数第2个数9换成12,再获取当前位置,并从当前位置向文件首部移动3个元素,将所指位置的元素换成13,最后将该文件中的元素全部读出。要求只使用一次fopen和fclose函数。

使用字符指针编一个程序,输入一个字符串,将其倒序存放后输出。例如,假设原数组a的内容为“VISUAL C++PROGRAM”,倒序后数组a中的内容为“MARGORP++C LAUSIV”。 要求:不能借助另外一个数组实现倒序存放。