算法与程序设计 知识点题库

只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。

请根据算法将下列程序补充完整。

Function prime（a As Integer） As Boolean

    Dim j As Integer

    prime = True

    j = 2

    Do While prime And j <= a \ 2

       If a Mod j = 0 Then

           prime = False

         Exit Do

       End If

            

         Loop

End Function

Private Sub Command1_Click（ ）

Dim i As Integer, a As Integer, b As Integer

Dim count As Integer

a = Val（Text1.Text）

b = Val（Text2.Text）

        For i = a To b

           If  = True Then

               List1.AddItem Str（i）

               count = count + 1

           End If

Next i

Label1.Caption = "素数共有" + Str（count） + "个!"

End Sub

某算法的部分流程图如图所示，退出循环后输出的s和a值分别是：（  ）

有如下VB程序段：

i=1: j=8: n=1

k=Val(Text1. Text)

Do While i<=j

    m=(i+j)2

    IF k<d(m) Then j=m-1 Else i=m+1

    n=n+1

Loop

数组元素d(1)到d(8)依次为3，9，14，17，25，29，32，35，在文本框 Text1输人“14”。执行程序后，下列说法不正确的是（  ）

【排序算法的应用3】某排序算法思想如下:若有1个桶，编号为0～10，随机产生多个整数，每产生一个整数时，就在以该整数为编号的桶中放一面小旗子，最后只要按顺序数每个桶中有几面小旗子，就能得到这几个整数的有序排列。例如2号桶中有1面小旗子，表示2出现了一次；3号桶中有1面小旗子，表示3出现了一次；5号桶中有2面小旗子，表示5出现了两次；8号桶中有1面小旗子，表示8出现了一次，按桶的编号顺序读出旗子数量，没有旗子的桶略过，得到有序整数“2，3，5，5，8”。

为此，小李编写了一个VB程序，功能如下:运行程序，窗体加载时随机产生6个［0，9］内的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Command1，在列表框List2中显示经过上述排序算法后的数据。运行结果如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正.

Dima (10) As Integer ‘数组a表示桶的编号,如a(0)表示第0号桶

Private Sub Command1_Click ( )

Dim i As Integer, j As Integer

For i = 0 To 10

  For j = 1 To      ‘①

    List2. AddItem CStr(i)

  Next j

Next i

End Sub

Private Sub Form_Load ( )

Dim i As Integer

Randomize

For i = 0 To1 0    ‘将数组初始化为0

  a(i) = 0

Next i

For i = 1 To 6     ‘产生6个[0,9]内的随机数

  t = Int (Rnd*10)

  a(t) =          ‘② 第t号桶中小旗子数量加1

  List1. AddItem CStr(t)

Next i

End Sub

① ② 

若输入18，下图的执行结果是。

下列表示式中，运算结果错误的是（  ）。

  关系表达式是用连接起来的式子。当关系表达式成立时值为，不成立时值为。

有如下VB程序段：

For i = 1 To 6

  a(i) = Int(Rnd * 10) + 1

Next i

For i = 1 To 5

  If i Mod 2 = 1 And a(i) < a(i + 1) Then

    t = a(i): a(i) = a(i + 1): a(i + 1) = t

  Else

    a(i) = a(i) - 1

  End If

Next i

执行程序后，a数组各元素可能是（    ）

下列可以导入Python模块的语句是（    ）

数组a中存储着某市2010年到 2019 年的GDP数值，编写VB程序，实现找出相邻两年GDP变化最大（即相邻两年GDP差值最大）的年份区间。若有多个符合要求的年份区间，只输出距今最近的年份区间。部分代码如下所示：

Dim i As Integer, imax As Integer

       ①  

For i = 3 To 10

   If Abs(a(i) - a(i - 1)) >=  ②  Then imax = i

Next i

Text1.Text = "GDP变化最大的年份区间是" + Str(imax + 2008) + "-" + Str(imax + 2009)

①、②应填入的代码为（   ）

有如下VB程序段：

s=0

For i=1 To 5 Step 2

  s=s+i

Next i

s=s+i

Label1.Caption=Str（s）

该程序段运行后，标签Label1上显示的内容是（  ）

为了把工厂中高低不等的物品按从低到高排好序，工程师发明了一种排序机械臂，它首先在参加排序的所有物品中同时选出高度最低和最高的物品，分别交换到左、右边界，再缩小左、右边界，然后在余下的物品中采用同样的方法排序，直到所有物品成为一个有序的序列。编写VB 程序，实现上述排序功能：运行程序，单击“读取”按钮Command1，在列表框List1中显示待排序的物品，然后单击“排序”按钮Command2，在列表框List2中显示排序好的物品。程序运行界面如图所示。

请回答下列问题：

某食品连锁店5位顾客贵宾消费卡的积分依次为900、512、613、700、810，若采用选择排序算法对其进行从小到大排序，如下表，第二趟的排序结果是（    ）。

原始数据	900	512	613	700	810
第一趟	512	900	613	700	810
第二趟
第三趟	512	613	700	900	810
第四趟	512	613	700	810	900

有如下VB程序段：

For i = 1 To 5

    a(i)= Int(Rnd * 10)

Next i

For i = 2 To 5

    If a(i) < a(i -1) And a(i) Mod 2 = 1 Then

        a(i) = a(i) + 1

    ElseIf a(i) Mod 2 = 0 And i Mod 2 = 0 Then

        a(i) = a(i -1) -1

    End If

Next i

执行程序后，a数组各元素不可能是（    ）

下列选项中，可以作为Python程序变量名的是（   ）。

程序设计中的“算法”其实就是（   ）。

有如下程序段：

import random

a = [0] * 6

for i in range(0,6):  

    a[i] = random.randint(1,5) * 2 + 1

    i = 0

    while i < 5:

        if a[i] > a[i+1]:

            a[i],a[i+1] = a[i+1],a[i]

        else:

            a[i] += 1

            i += 1

print(a)

执行以上程序后，列表变量a可能的是 （    ）

下列VB表达式中，计算结果最小的是(     )

以下名称中（        ）表示变体类型的数据。

某算法的部分流程图如图所示

执行这部分流程图a、b的值分别是（    ）