试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙江省高中信息技术——循环与数组

数组整段移动:将一个长度为n的有序序列a(1)、a(2)…以整数t(1≤t≤n)为界划分为两段,并将序列a的前t个数移动到n位之后,保持这两段(t个数和n-t个数)之间的相对位置不变(即t个数和n-t个数各自有序)。

例如,长度为6的有序序列:38、42、59、61、69、78,当t=2时重排结果为:59、61、69、78、38、42。

小红编写了VB程序功能如下:程序运行时产生n个整数存储在数组a中,在文本框Text1中输入t,单击“对调”按钮Command1在列表框List2中输出t个数与n-t个数对调后的数字序列。程序运行界面如图所示。

为了实现上述功能,请在划线处填入合适的代码。

Const n = 10

Dim a (1 To 10) As Integer

Private Sub Form Load ( )

‘生成n个有序数 ,显示在List1中

‘代码略

End Sub

Private Sub Command1_ Click ( )

Dim t As Integer, i As Integer, j As Integer

Dim temp As Integer

    ①      

For i=t+1 To n

  Temp = a(i)

  For j = i To i+1-t step -1

        ②      

  Next j

  a(j)=    ③      

Next i

For i=1 To n

  List2 AddItem Str(a(i))

Next i

End Sub

 ② ③ 

举一反三
返回首页

试题篮