4.4.2 while循环的应用 知识点题库

下列VB程序段的功能为：生成n个不重复的随机整数，保存在数组a中，并升序排列。

Const n ＝ 6

Dim a(1 To n) As Integer, f(1 To 10) As Boolean

Dim tmp As Integer, i As Integer, j As Integer, t As Integer

′f数组各元素的初值置为False，代码略

For i ＝ 1 To

   t ＝ Int(1+Rnd * 10)

   If Not f(t) Then

      a(i) ＝ t : f(t) ＝ True

      For j ＝

         If a(j) < a(j-1) Then

            tmp ＝ a(j): a(j) ＝ a(j-1): a(j-1) ＝ tmp

         End If

      Next j

   Else

   

   End If

Next i

上述程序段3个方框处的表达式分别为(  )

有以下程序段：

m=5

sum=0

while m<10:

  sum=sum+m

  m=m+1

print(sum)

程序运行后输出的结果为：（   ）

listque=[]                        #定义列表listque存储订单

x=0

while(x!=4):                      #当x=!4时,执行循环

    print('1. 添加订单')

    print('2. 发货')

    print('3. 查看订单列表')

    print('4. 退出')

    x=int(input("输入你的选择:")) #输入选择项

    if    ①    :

        y=input("输入订单编号:")  #输入订单编号

           ②            #在列表listque中添加订单号

    elif x==2:

          ③           #如果订单列表为空

            print("订单列表为空")

        else:

            print("发货单号:"+listque.pop(0)) 

    elif x==3:

        print("等待发货:",listque)            #查询列表listque中的订单号

    print()

input("运行完毕,请按回车键退出...")

运行下列Python程序

i=1

s=1

while  ①  :

  s=s*i

  i+=2

print(s)

当输出结果为105时，则①处应填入（    ）

n=1

for i in range（1，5）：

  n=n*i

  print（n）

程序运行后，其输出结果为

小王编写统计工厂中生产某种零件的工人数量的VB程序，运行程序后，从数据库中获取每个工人生产的零件数量，并存储在数组xs中：在文本框Text1中输入达标零件数da，单击“开始统计”按钮Command1，筛选数组xs中大于等于所输入零件数da的数据，并依次存储在数组bf中。最后统计数组bf中生产相同零件数量的人数，存储在数组tj后，将统计结果输出在列表框List1中，数组tj中各元素的含义如下表所示，程序运行界面如图所示。

例如：tj（1）=1948，tj（2）=12。这对数据的含义为：共有12个工人生产了1948个零件。

实现以上功能的VB程序如下，请回答下列问题：

小王编写了一个实现文字查找及替换功能的VB程序，运行界面如图所示。文本框Text1中显示原文内容，在Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Commiand1后，Text4中显示替换的结果，Text5中显示替换次数，Text6中显示“查找内容”在原文中的起始位置。

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

Private Sub Command1_Click( )

  Dim s As String，result As String，pos As String

  Dim count As Integer，i As Integer

  i=1：count=0

  result=""：pos=""

  Do While i<=Len（Text1.Text）

    s=Mid（Text1.Text，i，Len（Text2.Text））

    If s=Text2.Text Then

      result=result+Text3.Text

      count=count+1

      pos=     ‘①

      i=i+Len（Text2.Text）

    Else

             ‘②

      i=i+1

    End If

  Loop

  Text4.Text=result

  Text5.Text=Str（count）

  Text6.Text=pos

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：①；②。

某压缩算法的基本思想是用一个数值和一个字符代替具有相同值的连续字符串。例如，输入字符串“RRRRGGBBBB”，压缩后为“5R2G6B"。小钱设计了以下Python程序来实现上述功能。

string-input("输入字符串：")

c=1

p=1

while p <= len(string)-1：

if       ①      

     c+= 1

else：

    s += str(c)+string[p-1]

          ②      

    p+=1

print("压缩后数据为：" ，s)

两个长度相同的字符串s1和s2，若所含字符及各字符的数量均相等时可以归为一类。

如字符串“ABDAC”与字符串“AABCD”可以归为同一类，与“AABBC”不可以归为同一类。图图编写了一VB程序，功能如下：在文本框Text1中输入字符串s1，在文本框Text2中输入字符串s2，单击“判断”按钮Command1，在标签Label1中显示是否可以归为同一类的结果。部分运行界面如图所示。

请回答下列问题：

以下程序段运行后S的值是（   ）。

S=0

For i=1 To 14

    x=2*i-1

    If x Mod 3 =0 Then s=s+1

Next i

以下程序中的循环体执行的次数是（   ）

For A=1 To 200 Step 4

    S=S+A:
Next A

Print S

下列关于for…next语句的说法正确的是（   ）。

LZW编码是一种自适应词典编码，通过建立一个字典，实现字符的编码。假设输入的字符串中仅有小写字母和空格，编码方法如下：

1）初始时，建立一个空字典，把26个小写字母加入字典中。26个小写英文字母编码为1-26，字母“a”的编码为1，字母“b”的编码为2，其它字母的编码依次增加。

2）从字符串第一个位置开始扫描，若遇到空格（空格用“*”表示），则得到一个单词，截取该单词并存入变量中。

3）若该单词在字典中，则取出该单词在字典中的编码值；否则，依次取出该单词中各字母在字典中的编码值，（编码值之间用一个空格分隔），同时产生该单词的编码（编码为字典中的最大编码值加1），加入字典中。

4）继续扫描字符串，截取单词，并按照步骤（3）的方法进行处理，直至整个字符串编码完毕。字符串“abab”LZW编码过程如图所示。

趣味填空题： 给出用等号连接的两个整数，如“222＝24”，让你在左边的整数中间某个位置插入一个加号，看有没有可能让等式成立。以上面的式子为例，可以写成2+22=24和22+2=24。现设计一个程序，实现该算法，程序运行界面如图所示。

根据下面的while语句的运算，计算结果是。

s=1

i=1

while i<=5:

    s=s*i

    i=i+1

print(s)

打开“考生文件夹\758\因数之和.py”，请在横线处补全代码，使得通过键盘输入一个自然数x(1<x<100000),输出这个自然数的所有因数之和。例如,输入“10"”，由于10的因数有“1、2、5、10”，因此输出“18”；输人“100”  ,输出“217”。

x=int(input("Enter a number: "))

s=

fori in range(1,x+1):

    if  ==0:

       s=

print(s)

有如下Python程序段：

ma=a[0];mb=a[0];pa=0;pb=0

for i in range(1,10):

    if ma < a[i]:ma = a[i];pa=i

    if mb > a[i]:mb = a[i];pb=i

下列关于该程序段功能描述正确的是（     ）

利用VB程序将两组成绩数据合并为一组并按成绩从高到低排列输出。成绩相同时，第一批学生优先输出。实现上述功能的VB代码如下，但加框处代码有错，请改正：

Dim xm(1 to 1000) as string        '存储学生姓名

Dim cj(1 to 1000) as integer        '存储学生成绩

Private Sub Form_Load()        '该处具体代码省略

    '从数据库读取两批学生数据第1批学生的人数rs1，按成绩从高到低的顺序将成绩存入cj(1)、cj(2)…cj(rs1)中，姓名存入xm(1)、xm(2)…xm(rs1)中，第2批人数rs2，按成绩从高到低的顺序将成绩存入cj(rs1+1)、cj(rs1+2)…cj(rs1+rs2)中，姓名存入xm(rs1+1)、xm(rs1+2)…xm(rs1+rs2)中

End Sub

Private Sub Command1_Click()

    i=1

    j=rs1+1

    '以下程序开始按成绩高低逐个输出，每次输出前后两段中，尚未处理的学生中成绩最高的n=1    '①

    Do While i<=rs1 And j<=rs1+rs2    '两段都有未输出的情况，输出两段中最大值

        n=n+1

        If cj(i)>=cj(j) Then

            k=i：i=i+1

        Else

            k=j： j=j+1

        End If

        List1.AddItem(″第″+Str(n)+″名″+xm(k)+″成绩：″+Str(cj(k)))

    Loop

    Do While i<=rs1     '剩下第一段还有未输出的，逐个输出

        n=n+1

        List1.AddItem(″第″+Str(n)+″名″+xm(i)+″成绩：″+Str(cj(i)))

        i=i+1

    Loop

    Do While j<=rs2     '②若第二段还有未输出的，逐个输出

        n=n+1

        List1.AddItem(″第″+Str(n)+″名″+xm(j)+″成绩：″+Str(cj(j)))

        j=j+1

    Loop

End Sub
①   ②

输入一个正整数（n>=3)，判断该正整数是否为素数（质数），要判断一个数n是否为素数，最简单的方法是统计2到n-1之间的所有能整除n的整数个数，若能整除n的整数的个数大于0，则n不是素数

n=int(input(“n=”))

s=0

for i in range(2, n):

  if n%i==0:

    s=

  if :

    print(n,“是素数”)

  else:

    print(n,“不是素数”)

有如下VB程序段：

n =357859604

Do While n>0

    c=n Mod 10

    If c>5 Then c=5

    count (c) = count(c) + 1

    n=n\10

Loop

数组元素count (0)到count (9)的初始值均为0，执行该程序段后，则count (5)的值为(    )