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

有如下VB程序段

p=a(1)

For I=2 to 30

If a(I) < p then p=a(I)

Next I

该程序段执行后，变量I的值是（）

A . 30 B . 2 C . 31 D . 0

某算法流程图如图所示，执行该算法，输出s的结果是（）

A . 0 B . 8 C . 10 D . 15

某算法流程图如图所示, 执行该算法，当i的值为3时，下列说法正确的是（）

A . 输出s的值 B . 程序出错 C . 执行语句s=s+s*i和i=i+1 D . 语句s=s+s*i已经执行了1次

某两段VB程序分别如图1和图2所示：

Dim n As Integer, s As Integer, i As Integer

n=Val(Text1.Text)

s=0

For i=1 To n Step 2

s=s+i

Next i

Text2.Text=Str(s)

图1

Dim n As Integer, s As Integer, i As Integer

n=Val(Text1.Text)

s=0

i=1

Do While i<=n

s=s+i

i=i+2

Loop

Text2.Text=Str(s)

图2

当n的值为10时，关于该两段程序，下列说法不正确的是( )

A . 两段程序中i的初值相同 B . 两段程序的运算结果不相同 C . 两段程序都采用了循环结构 D . 图1程序实现了“1＋3＋5＋7＋9”和的运算

某算法的部分流程图如图所示，执行这部分流程，依次输入3，4，5，6，0，则输出s的值是（）

A . 18 B . 19 C . 20 D . 21

【加试题】小明基于选择排序算法编写了一个VB程序，功能如下：某班：50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样(所给的数据保证能选10个)。

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

Const n=50

Dim d(0 To n)As Single，name(1 to n)As String

‘读人50个学生的身高，依次存入d(1)…d(50)，最高身高小于2，姓名存入

name(1)…name(50)

‘代码略

Private Sub Command1_Click()

Dim i As Integer，j As Integer，temp As Single，k As Integer，r As String

d(0)=2

For i=1 To 10

‘(1)

For j=i To n

If d(j)<d(i-1)Then

If Then ‘(2)

k=j

End If

Next j

If k<>i Then

temp=d(k)：d(k)=d(i)：d(i)=temp

r=name(k)：name(k)=name(i)：name(i)=r

End If

Next i

For i=1 To 10 ‘输出被选的l0个人的名字和身高。

List2．AddItem name(i)&d(i)

Next i

End Sub

（1）处加框代码应改为；
（2）外加框代码应改为。

有如下VB程序段:

x=25: y=20

If x>y Then

y =y+20

If y>50 Then y=y^2

Else

y=y^2

y=x+y

End If

Label1. Caption=Str(y)

该程序段执行后，标签Labell中显示的内容是（）

A . 1600 B . 425 C . 400 D . 40

如面这段程序执行完后，s和i的值分别为（）

A . 3 4 B . 9 6 C . 9 7 D . 16 7

某算法的部分流程图如图所示，执行这部分流程图，依次输入 3,2,1，变量i，s 的值分别是（）

A . 10，1 B . 7，2 C . 10，2 D . 13，3

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

执行这部分流程后，变量a的值是（）

A . 1 B . 4 C . 9 D . 432

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

A . 3 9 B . 4 18 C . 5 18 D . 6 4

以下程序段的结构是（）。

x = 100

If x < 0 Then

For i = 0 to 100 x = x + 1

Next i

Else

y = Sqr(x) End If

A . 顺序结构 B . 选择结构 C . 循环结构 D . 其他三项都是

某旅游景点规定，身高在1.2米以下的儿童免票，身高在1.2米~1.5米的儿童购半价票，身高超过1.5米的购全价票。下图所示算法用于根据身高判断购票情况：

用于输出“购全价票”的图框编号是（）

A . ① B . ② C . ③ D . ④

大数加法。在文本框Text1和Text2中输入两个大数，点击“相加”按钮后，在文本框Text3中输出结果。

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

Private Sub Command1_Click()

Dim s1 As String

Dim s2 As String

Dim s3 As String

Dim l1 As Integer

Dim l2 As Integer

Dim l3 As Integer

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Dim c(1 To 100) As Integer

Dim t As Integer

s1 = Text1.Text

s2 = Text2.Text

l1 = Len(s1)

l2 = Len(s2)

For i = l1 To 1 Step -1

a(i) =

For i = l2 To 1 Step -1

b(i) =Val(Mid(s2, l2 - i + 1, 1))

If l1 > l2 Then l3 = l1 Else l3 = l2

t = 0

For i = 1 To l3

c(i) = a(i) + b(i) + t

t = c(i) \ 10

c(i) =

For i = 1 To l3

s3 = Str(c(i)) + s3

IfThen s3 = “1” + s3

Text3.Text = s3

End Sub

有如下程序：

Dim a(3, 3) As Integer

For m = 1 To 3

For n = 1 To 3

a(m, n)=(m-1)*3+n

Next n

Next m

For m = 2 To 3

For n = 1 To 2

Print a(n, m);

Next n

Next m

运行后输出结果是（）

A . 2 5 3 6 B . 2 3 5 6 C . 4 7 5 8 D . 4 5 7 8

下列四种流程图样式中，能用于表示循环结构的是（）。

A .

B .

C .

D .

一个正整数x，如果它的平方数的最后几位数字和这个数相等，则该数为同构数。例如：5的平方数是25，且5出现在25的右侧，那么5就是一个同构数。设计程序，求2-1000间的同构数之和s。

（1）列举X可能解的算法结构是，判断X是真正解的算法结构是。

A . 分支结构，循环结构 B . 循环结构，分支结构 C . 循环结构，顺序结构 D . 顺序结构，分支结构
（2）若t是正整数x的平方数，判断x是同构数的条件是。

A . (x=t mod 10) and (x=t mod 100) and (x=t mod 1000) B . (x=t mod 10) or (x=t mod 100) or (x=t mod 1000) C . (x=t\10) and (x=t\100) and (x=t\1000) D . (x=t\10) or (x=t\100) or (x=t\1000)
（3）编写程序，求2-1000间的同构数之和s=。

算法执行时，每个步骤按照算法中出现的顺序依次执行的是（）

A . 选择结构 B . 顺序结构 C . 体系结构 D . 循环结构

请阅读以下材料，并回答问题:

材料一：珠穆朗玛峰的高度为848.86米。

材科二：有个科学猜想节目:如果有-张足够大的纸，其厚度为0.1毫米，对折一次纸的厚度增加1倍设张纸的厚度为h，对折k次，那么纸的厚度为h*2”。

材料三:纸对折多少次后可以超过珠穆朗玛峰的高度的算法流程图表示如下。

（1）材料二中由“纸的厚度为h，对折k次，得出纸的厚度为h*2”，这个过程属于用算法解决问题的哪个步骤(单选题，填字母: A .抽象与建模；B .设计算法；C .描述算法)。
（2）材料三种加虚线框的过程属于算法控制结构中的结构。
（3）用Python语言实现上述算法，请在划线处填入代码。
h=0．0001

k=0

while：

k=k+1

h=h*2

print("需要对折"，k，"次")
（4）解决此问题的算法是(填“解析算法”或“枚举算法”)。

求解方程ax²＋bx＋c＝0(a≠0)，如果用计算机编程去实现这样的过程，用到的主要算法结构是(　　)

A . 分支结构 B . 嵌套结构 C . 循环结构 D . 顺序结构

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

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