1.   【加试题】编写一个VB程序,将一个长度为n的有序序列a(1)、a(2)、……a(n),以整数t(1≤t≤n)将该有序序列划分为两段,并将序列a的前t个数与后n-t个数对调,且保持这两段数(t个数和n-t个数)之间的相对位置不变(即t个数和n-t个数各自有序)。例如,长度为6的有序序列10、19、24、32、76、87,当t=2时重排结果为24、32、76、87、10、19。功能如下:在文本框Text1中输入n,单击“生成”按钮Command1后在列表框List1中显示n个有序数,在文本框Text2中输入t,单击“对调”按钮Command2,在列表框List2输出t个数与n-t个数对调后的数字序列。程序运行界面如下图所示。

实现上述功能的VB程序如下,请在划线处填入合适的代码。

Dim a(1 To 100)As Integer

Dim n As Integer

Private Sub Command1_Click()       '生成n个有序数,显示在List1中

’有序代码略

End Sub

Private Sub Command2_ Click)

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

t=Val(Text2.Text)

For

Temp=

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

a(j)=a(j-1)

Next j

 

Next i

For i=1 To n

List2.AddItem Str(a(i))

Next i

End Sub

【考点】
常量、变量及变量的赋值;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
综合题 普通
基础巩固
能力提升
变式训练
拓展培优
换一批