算法的控制结构 知识点题库

【加试题】有下列代码段，循环5次后的label3中显示：（   ）

Private Sub Command1_Click()

For i = 150 To 300

    a = i \ 100

    b = I mod 100 \ 10

    c = i – a*100 – b*10

    If i = a * a * a + b * b * b + c * c * c Then

        Label1.Caption = Str(i)

    End If

Next i

End Sub

如图所示的流程图，以下说法正确的是（   ）

某地政府为鼓励市民节约用水，实行居民水费梯度制，按年度用水量为计算周期，将每个家庭全年用水里划分为三级，水价分级递增。第一级用水量在216立方米（含）以下，水费为2.60元/立方米；第二级用水量在216～300立方米之间，超出部分水费为3.55元/立方米；第三级用水量为300立方米以上，超出部分水费为6.40/立方米。其中，X表示年用水量，Y表示年度水费。浏览该算法流程图（见下图），回答下列问题。

程序的算法流程图属于。

（填：选择结构 / 循环结构 / 顺序结构）

将算法流程图中空缺的部分填上。

；

；

某算法流程图如图所示：

执行该流程图后，输出i，k的值分别是（   ）

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

有如下Visual Basic程序段：

a = 3

b = 9

c = a + b

If c = 12 Then py = "正确" Else py = "不正确"

分析该程序段，下列说法正确的是（  ）

有如下Visual Basic程序段：

k = 1

For j = 2 To 100

If a(j) > a(k) Then k = j

Next j

x = a(k)
该程序段执行后，变量x中存储的是（  ）

某算法的流程图如下所示：

当输入a，b的值分别为5，7，该算法的输出结果为（  ）

如图所示为某算法的部分流程图，执行这部分流程后，变量s的值是（  ）

在一次晚会上，一位魔术师掏出一叠扑克牌，取出其中13张黑桃，预先洗好牌，把牌面朝下，对观众说：“我不看牌，只数一数就能知道每张牌是什么？”魔术师口中念1，将第一张牌翻过来看正好是A；魔术师将黑桃A放到桌子上，继续数手里的余牌，第二次数1，2将第一张牌放到这叠牌的下面，将第二张牌翻开，正好是黑桃2，也把它放在桌子上。第三次数1，2，3，前面两张牌放到这叠牌的下面，取出第三张牌，正好是黑桃3，这样依次将13张牌翻出，准确无误。现在的问题是，魔术师手里牌的原始顺序是怎么样的呢？运行结果如下图所示。

代码如下：

Private Sub Command1_Click()

Dim a(1 To 13) As Integer, i As Integer, j As Integer, n As Integer

For i=1 To 13

  a(i)=0

Next i

i=1:n=0:j=1

Do While i<=13

Do While True

If j>13 Then

If a(j)=0 Then n=n+1

If n=i Then

n=0

Exit Do

End If

j=j+1

Loop

Loop

Label1.Caption="原来牌的顺序是："

For k=1 To 13

   Label2.Caption =

End Sub

RGB颜色模式是用8位二进制数表示红色、8位二进制数表示绿色、8位二进制数表示蓝色即使用24位二进制数表示一种颜色的模式。若将每位二进制数取反，即（0改为1、1改为0）就会变为另一种颜色，我们称这种方式为颜色反相。小明编写了一个VB程序实现上述功能，在名称为o_c_txt的文本框中输入原始颜色如#000000，点击命令按钮fx_cmd后，在名称为f_c_lab的标签中输出反相后的颜色如#FFFFFF。运行效果如图所示。实现上述功能的算法如下：

  数组dzb_h的16个元素分别存放16进制数的16个基本数码。

  依次取出原始颜色代码中每一位对应的16进制数码，例如原始颜色代码为#123456，第1次取出1，第2次取出2……

  在数组dzb_h各元素中找到对应16进制数码的元素

  运用规律：0+F=1+E…=7+8取得反相色并累加，例如：数组dzb_h第1个元素值的反相色的值是数组dzb_h第16个元素值。

  输出得到的反相色。

  实现上述功能的VB程序代码段如下，请完善相关程序代码。

Private Sub fx_cmd_Click()

Dim dzb_h(1 To 16) As String

Dim o_c As String, f_c As String, i As Integer, xbxh As Integer, c As String

dzb_h(1)="0":dzb_h(2)="1":dzb_h(3)="2":dzb_h(4)="3":dzb_h(5)="4":dzb_h(6)="5":dzb_h(7)="6"

dzb_h(8)="7":dzb_h(9)="8":dzb_h(10)="9":dzb_h(11)="A":dzb_h(12)="B":dzb_h(13)="C"

dzb_h(14)="D":dzb_h(15)="E":dzb_h(16)="F"

o_c=o_c_txt.Text     

 

f_c="#"

  Do While i<=Len(o_c)

    c=Mid(o_c,i,1)

    If Asc(c)>96 Then

    xbxh=1

    Do While xbxh<17

      If  Then

        f_c= 

        Exit Do

      End If

      xbxh=xbxh+1

    Loop

    i=i+1

  Loop

  f_c_lab.Caption=f_c

End Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程。

  Privat Sub Command1 Click

      Dim array1(10,10) As Integer

      Dim i AS integer, j As Integer

      For i = 1 To 3

          For j = 2 To 4

              array1(i,j) = i + j

          Next j

      Next i

  Text1.Text=array1(2, 3)+array1(3, 4)

  End Sub

程序运行后，单击命令按钮，在文本框中显示的值（  ）

有如下 VB 程序段：

i=1：n=5

Do while i<=n

   x=Int(Rnd*9)+1

    If x Mod 2=1 Then

        a(i)=x

    Else

        a(n)=x:n=n+1

    End If

   i=i+1 Loop

数组元素的初值均为0，执行该程序段后，a(1)至a(5)的值可能是（ ）

有如下 VB 程序段：

For i=1 To 100

For j=i To 100

If j Mod i = 0 Then a(j)=a(j)+1

Next j

Next i

Text1.Text=Str(a(30))

数组a各元素的初值为0，执行上述程序段后，文本框Text1中输出的内容为 (   )

某算法的流程图如图所示，执行这部分流程后，s的值是（  ）

执行如图所示的程序段后，输出s的值是（  ）

s=0

For k=1 To 5

s=s * k

Next k

Print s

某算法部分流程图如图所示，下列说法不正确的是（   ）

结构化程序设计由三种基本结构组成，下面哪三种结构是正确的。（   ）

①顺序结构②输入、输出结构③分支结构④循环结构

结构化程序设计由三种基本结构组成，下面哪个不属于这三种基本结构之一（   ）

如图所示的流程图，请根据要求回答以下问题