下列程序的功能是:输入10整数,逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。 Pfivate Sub Command2_Click() Dim i,j,k,temp,arr(11)As Integer Dim res

admin2012-05-23  26

问题 下列程序的功能是:输入10整数,逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。
    Pfivate Sub Command2_Click()
    Dim i,j,k,temp,arr(11)As Integer
    Dim result As String
    For k=1 To 10
    arr(k)=Val(InputBox(“请输入第”&k&“个数:”,“数据输入窗口”))
    Nextk
    i=1
    j=10
    Do
    Temp=arr(i)
    arr(i)=arrfj)
    arr(j)=temp
    i=i+1
    j=    【  】
    LoopWhile【  】
    result=“”
    For k=1 To 10
    result=resuk&art(k)&Chrd3)
    Next k
    MsgBox result
    End Sub

选项

答案 j-1 i<=j

解析 为了实现逆序排序,需要对数组中的所有元素进行位置交换,arr(1)与arr(10)交换,arr(2)与arr(9)交换等,在每次循环的结束后,执行i+1,j-1,则arr(i)向后移动一个位置,arr(j)向前移动一个位置,为下一轮的交换做准备。
     当i>j时,说明前半部分元素全部与后半部分元素进行交换,序列已经实现逆序。
转载请注明原文地址:https://kaotiyun.com/show/WHup777K
0

最新回复(0)