第11课 while循环的应用实例知识点题库

程序填空，鸡兔同笼问题：若干只鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只?

程序代码如下：

Private Sub Form Click()

Dim ji As Integer ‘鸡

Dim tu As Integer ‘兔

Dim tui As Integer ‘腿数

Dim tou As Integer ‘头数

For ji=

For tu=1 to 25

tui= ‘计算腿的数量

tou= ji+tu ‘计算头的数量

IFThem

Print ji, tu

End If

Next tu

Next ji

End sub

有如下的VB程序段。

For i=1 To 10 Step 4

s = s+i

Next i

该程序段运行后，语句s=s+i执行的次数为（）

A . 1 B . 3 C . 4 D . 10

阅读理解下列程序段，其程序控制结构属于（）。

For i=1 to 5

s=s+1

next i

A . 顺序结构 B . 子模块结构 C . 循环结构 D . 分支结构

学习VB语言编程，读懂程序是一个很重要的能力。下面这段程序运行后 s的值是（）。

s=0

For i=1 To 3

s=s+i

Next i

A . 1 B . 3 C . 5 D . 6

Python中，使用break结束本次循环，继续下一次循环。

期中考试的成绩出来了，李明想算一下成绩的总分，为此设计了一个程序，根据图中程序完成填空。

图片_x0020_31

（1）程序中运用的for循环语句，该语句的基本格式为：
<循环变量> <遍历结构>：

<语句块>
（2）在程序中遍历结构使用的是。
（3）程序中自定义函数使用的保留字是，最后使用语句返回函数的结果。
（4）程序编写完成后，首先要进行，命名为“成绩.”；运行程序可执行编辑窗口里的“”-“Run Module”命令。

执行下列程序段，输出结果的第三行内容是( )。

program=["Java"，"Python"，"Visual Basic"]

for i in program：

print (i，len(i))

A . Java 4 B . Python 6 C . Visual Basic 11 D . Visual Basic 12

for循环一般用于确定次数的循环结构。

下面代码的输出结果是。

for i in range(1， 10， 3):

print(i， end="，")

循环结构For i=1 to 21 Step 2 步长是（）

A . 21 B . 1 C . 2 D . 20

分析以下程序，选择正确的输出结果

（1）

m= 1

m = m+ 5

n = 5 + m

Print n ,m

A . 6 1 B . 11 6 C . 6 11 D . 5 6
（2）

a = 2

b = 3

print a > b

A . 2 B . true C . false D . 3
（3）

a=10

b=20

If a>b then

     Print a, b

Else

     Print b, a

End if

A . 1020 B . 2010 C . 1010 D . 2020
（4）

For k=15 to 1 step -5

Print k；

next

A . 15 B . 15 10 5 1 C . 15 10 5 0 D . 15 10 5

在VB的循环语句中，当循环变量大于终值时就退出循环。

循环结构是指在程序中需要重复执行两次功能而设置的一种程序结构，可以自动循环执行两次。

重复输出10次“抗击疫情，广州加油！”，则①应填( )。

For i in range(①):

Print("抗击疫情，广州加油！")

A . 9 B . 10 C . 11 D . 12

某字符转置算法描述如下：

将字符串（均为大写字符）s依次转换为相对应的数值（字符A～Z对应数值1～26）；

·转换后的数值以K个数据为一段，将n个待处理的数据依次分割成若干段（最后一段不足部分用0来补充）；

每一段中K个数据与K*K转置矩阵进行乘法运算；

将乘法运算得到的每一个结果值除以26求余数，依次转换成相应字符（数值1～26对应字符A～Z），最后按原始字符串长度输出。

乘法运算规则如下：

第i个元素c(i)=第j个元素a(j)*转置矩阵第j行第i个元素b(t)的乘积之和（其中j=1，2…K）

例如：字符串s=PYTHON，区块大小K=4，的转置过程如下：

（1）根据算法描述，上述示例中，字符“N”的相乘结果（即图中（★）处）为。
（2）请在划线处填入合适代码。

Private Sub Command1_Click()

   Dim a(1 To 100)As Integer       '存储字符串，长度不超过100个字符

   Dim b(1 To 100)As Integer       '存储转置矩阵，长度不超过10*10

   Dim c(1 To 100)As Long

  Dim s As String, tmp As String

  Dim k As Integer, t As Integer, i As Integer, j As Integer

  Dim n As Integer, m As Integer, lens As Integer

   s=Text1. Text               '在Text1中输入原始字符串

   k=Val(Text 2.Text)          '在Text2中输入区块大小K

  Randomize

For i=1 To k^2

        b(i)=Int(Rnd*9)＋1

        tmp=tmp+Str(b(i))

        If i Mod k=0 Then

            List 2. AddItem tmp

            tmp=""

        End If

   Next i

   lens=Len(s):n=lens

   For i=1 To n

        tmp=Mid(s,i,1)



        List1. AddItem Str(a(i))

   Next i

   Do While n Mod k＜＞0

        n=n+1

        a(n)=0

        List1. AddItem Str(a(n))

   Loop

   For i=1 To n

        m=(i-1) Mod k+1

        t=1

        For j=

            c(i)=a(j) * b((m-1) * k+t)+c(i)

            t=t＋1

        Next j

   Next i

   For i=1 To n

        List3. AddItem Str(c(i))

   Next i

   s=″″

   For i=1 To lens



        s=s+Chr(t+64)}

   Next i

   Text 3.Text=s               '在Text 3中输出转置后的字符串

End Sub