3.2 数据与结构 知识点题库

（1） 当总人数为7时，对应的自杀序列编号为。

（2） 请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim num As Integer, t As Integer

Dim a(1 To 50) As Boolean

List1.Clear

n = Val(Text1.Text)

For i = 1 To n

 a(i) = True

Next i

t = n

Do While

 For i = 1 To n

If a(i) Then

 

End If

If num = 3 Then

 a(i) = False

 t = t - 1

 

 List1.AddItem Str(i)

End If

 Next i

Loop

End Sub

（1） 有这样的三组数据{2，5，8，10，15}，{3，7，16，20)，{8，12，18，21，24，30}，最小距离为。

（2） 请在划线处填入合适的代码。

Private Sub Ce_Click()

Dim a(1 To 100) As Integer, b(1 To 100) As Integer, c(1 To 100) As Integer

Dim s1 As String, ch As String, flag As Boolean

Dim i As Integer, j As Integer, k As Integer, m As Integer

Dim k1 As Integer, k2 As Integer, k3 As Integer

Dim md As Integer, cd As Integer

‘获取数组元素值分别存入三个数组中，其中b和c数组的存储过程略

    s1 = Text1. Text

    k1=0: flag=True

    For i = 1 To Len(s1)

        ch = Mid(s1, i, 1)

        If ch <> ",”Then

              ① 

            a(k1) = a(k1) * 10 + Val (ch)

            flag = False

        Else

            flag = True

        End If

    Next i

    i=1: j=1: k=1: md=32767

    Do While i<=k1 And j<=k2 And k<=k3     ‘k2，k3变量功能同k1

          ② 

        If cd<nd Then md=cd

        m= min(a(i), b(j)，c(k))

        If m= a(i) Then

            i=i+1

        ElseIf m = b(j) Then

            j=j+1

        Else

              ③ 

        End If

    Loop

    Label4. Caption = Label4. Caption + Str (md)

End Sub

Function min(x As Integer, y As Integer, z As Integer) As Integer

    If x<y Then min=x Else min=y

    If min>z Then min=z

End Function

Function max(x As Integer, y As Integer, z As Integer) As Integer

    If x>y Then max=x Else max=y

    If max<z Then max=z

End Function

①②③

（1） 代码"List1.Clear"中的 Clear 是 。（单选，填字母： A ．对象名 /B ．事件名 /C ．属性名 /D ．方法名）

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

Const m=15

Dim a(1 To m) As Integer Private Sub Form_Load()

‘读取m个数据，依次存储到 a(1)、a(2)、……a(m)中，代码略End Sub

Private Sub Command1_Click()

Dim b(1 To m) As Integer '存储数列最大的值Dim c(1 To m) As String     ‘存储非降序数列Dim i As Integer

Dim bottom As Integer Dim j As Integer

Dim bn As Integer      ‘存储非降序数列的个数List1.clear

  b(1) = a(1)

      ①  

  c(1) = Str(a(1))

  For i = 2 To m 

     For j = 1 To bn

         If   ②   Then

            b(j) = a(i)

            

            Exit For

         End If

    Next j

    If j > bn Then

       bn = bn + 1

            ③       

       c(b(n)) = Str(a(i))

    End If

  Next i

For i = 1 To bn

     List1.AddItem c(i)

Next i

Text2.Text = "数列中共有" + Str(bn) + "个非降序序列"

End Sub

① ② ③ 

（3） 程序中加框处代码有错，请改正。

（1） 给定2个区间，数组各元素为“12，44，34，45，66，50，45，70”，第1段“重叠块”中的元素个数为3个，第1个区间为[10，50]，则第2个区间可能为（单选，填字母A .[30，80] /B .[9，45] /C .[60，90]）｡

（2） 小李根据上述描述，设计了一个统计各段“非重叠块”“重叠块”和剩余段中元素个数的算法｡算法的 VB 程序如下，请在划线处填入合适的代码｡

Const n = 18: m = 6

Dim a(1 To n) As Integer

Dim b(1 To 2 ∗ m) As Integer

'b(1)､b(2)为第 1 区间的下限和上限，b(3)､b(4)为第2区间的下限和上限，…

Dim c(1 To 2 ∗ m + 1) As Integer

'数组c用于保存统计结果：

'c(1)､c(2)分别存储第1段"非重叠块"和"重叠块"的元素个数，

'c(3)､c(4)分别存储第2段"非重叠块"和"重叠块"的元素个数，…

'c(2m-1)存储第m段"非重叠块"元素个数，c(2m)存储

第m段"重叠块"的元素个数(值为0)

'c(2 m+1)存储剩余段元素个数

Private Sub Command1_Click()

Dim i As Integer, p As Integer, L As Integer, LL

As Integer

'读取n个数据并保存在数组a中，代码略

'读取m个区间的下限和上限并保存在数组b中，代码略

For i = 1 To 2 ∗ m + 1

 c(i) = 0

Next i

i = 1: p = 1

L = 0: LL = 0

Do While i <= n And p <= m

 If IsIn(i, p) Then

 If Then

 LL = LL + 1

 Else

 L = L + LL + 1

 LL = 0

 End If

 i = i + 1

 Else

 c(2 ∗ p - 1) = L

 c(2 ∗ p) = LL

 L = 0

 p = p + 1

 End If

Loop

If i <= n Then

Else

 c(2 ∗ p - 1) = L

 c(2 ∗ p) = LL

End If

'输出统计结果，代码略

End Sub

'函数IsIn用来判断a(i)值是否属于第p区间

Function IsIn ( i As Integer, p As Integer )

As Boolean

If a(i) >= b(2 ∗ p - 1) And a(i) <= b(2 ∗ p)

And p <= m Then

 IsIn = True

Else

 IsIn = False

End If

End Function

（1） list 的数据类型是。

（2） list中的元素的数据类型。

（3） list1=[]的作用是 。

（4） for i in range（7）语句中，i 的实际数据范围是从到。

（5） append（list[i])的作用是。

（1） 菜品数据相对稳定，为了便于查找菜品，采用（   ）结构较为合理，订单数据涉及频繁的增加或删除，采用（   ）结构较为合理。

上述可填的内容为：(单选，填字母：A .数组、链表/B .链表、数组)

（2） 餐厅菜品数据表如下所示，每道菜由4个数据项组成，第一项为菜品编号，第二项为菜品名称，第三项的菜品单价(以“分”为单位，该数据项为0．表示菜品已下架)，第四项为当月销量。实现菜单显示和输出订单菜品信息的程序如下，餐厅菜单保存在menu中，格式为：menu=[[0,"太湖三宝",18800,535], [1,"湖羊肉",11800,446],…]。

编号	菜品名称	菜品价格（单位：分)	当月销量
0	太湖三宝	18800	535
1	湖羊肉	11800	446
…	…	…	…
n-1	白果芦笋	0	2

程序运行结果如图所示，请在划线处填入合适的代码。

#读取餐馆全部菜品数据保存到menu中，数据类型及格式见题干描述，代码略。

sal=int(input("☆ 请输入你的消费预算(单位:分):"))

print("☆ 可供选择的菜品:")

for i in range(len(menu)):

  if  and menu[i][2]<=sal:

    print(' ',menu[i])

    n=input("☆ 请输入预选择的菜品编号，以逗号分隔:").split(',')

    x=len(n)

    lis=[[int(n[i]),i+1] for i in range(x)]

    lis[x-1][1]=-1

    p=0

    while p!=-1:

      bh=lis[p][0]

  if menu[bh][2]<=sal:

   

    y=p

  else:

    lis[y][1]=lis[p][1]

    p=lis[p][1]

    p=0;s=''

while p!=-1:

  s+=menu[lis[p][0]][1]+' '

 

  print('☆ 点单成功的菜品:'+s)

print("☆ 剩余金额:"+str(sal))