Option Base 1

Private Sub Command1Click

     Dim a(4, 4)

     For i = 1 To 3

        For j = 1 To 3

             a(i, j)=(i-1)*3+j

        Next j

     Next i

     PRINT A(3, 1)

End Sub

程序运行后，单击命令按钮，其输出结果为（  ）

寻求路径最大值的算法设计如下：

按三角形的行划分，若有n行，则有n-1个步骤

①从底层开始，本身数即为最大值

②倒数第二层的计算取决于底层的数据：

12+6=18,13+14=27,24+15=39,24+8=32；

③倒数第三层的计算取决于底二层的数据：

27+12=39,39+7=46,39+26=65；

④倒数第四层的计算取决于底三层的数据：

46+11=57,65+8=73；

④最后的路径：13—8—26—15—24其和为86。

根据上述算法描述，设计程序界面如下图所示，点击“生成金字塔”按钮，在列表框中生成数字金字塔，点击“寻求路径最大值”按钮，在文本框text1中输出最大值。

依据上述描述设计如下VB程序：

Const n = 5

Dim sx As String

Dim i, j, k, a(1 To 100) As Integer Private Sub Command1_Click() List1.Clear

For i = 1 To n For j = 1 To i

    ①  

sx = sx + Str(a((i - 1) * n + j)) Next j

For k = n To i Step -1 sx = " " + sx

Next k List1.AddItem sx sx = ""

Next i End Sub

Private Sub Command2_Click() For i = n To 1 Step -1

For j = 2 To i

If    ②   Then

a((i - 2) * n + j - 1) = a((i - 1) * n + j - 1) + a((i - 2) * n + j - 1)

Else

a((i - 2) * n + j - 1) = a((i - 1) * n + j) + a((i - 2) * n + j - 1)

End If Next j

Next i

    ③  

End Sub

请回答下列问题：

例如，长度为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

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} ③{#blank#}3{#/blank#} 

from random import random

a=[1]*5

i=1

while i<=4:

    a[i]=int(random()*10)+1

    if a[i]==a[i-1]//2 or a[i]==a[i-1]*2:

        i+=1

执行该程序段后，数组a的值可能是（   ）

比如：仓库存储情况列表a=["0","A","A","B","B","A","0","0","0"]，其中"0"表示空位，"A"，"B"表示位置上货物种类，现需从中取出一件B货物，则应从右侧取出，取完后，仓库存储列表更新为a=["0","A","A","B","A","0","0","0","0"]。