分支结构语句及程序实现 知识点题库

以下流程图描述的算法，执行结果是。

有如下VB程序段：

s = “QUOTES：keep on going never give up！”

flag = False: m = 0

For i = 1 To Len(s)

  ch = Mid(s, i, 1)

  If ch >= “a” And ch <= “z” Then

    If Not flag Then

      m = m + 1

      flag = True

    End If

  Else

    flag = False

  End If

Next i

Text1.Text = Str(m)

程序执行后文本框Text1显示的内容是(  )

以下是凯撒密码的改进版，请将下划线处内容补充完整。

import os  #开始

def NewCaesar(m,n,t):

  z=''；i=0

  while i<:

    tmp=

    if tmp in m:

      if ord(t[i])<=90:

        z+=n[m.find(tmp)]

      else:

        z+=n[m.find(tmp)].lower()

    else:

      z+=t[i]

    i+=1

  return z

m='ABCDEFGHIJKLMNOPQRSTUVWXYZ'

n='QWERTYUIOPASDFGHJKLZXCVBNM'

a=input('请输入<明文>a=')

b=NewCaesar(m,n,a)

print('对应的密文为:',b)

c=NewCaesar(n,m,b)

print('解密后明文为:',c)

if :

  print('加密解密成功！')

else:

  print('加密解密失败！')

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

os._exit(0)

#结束

字符串数组a中a(1)到a(6)的原始数据为57，3，24，34， 6，120，为了对该数组进行排序操作，编写了以下VB程序。

i=2

Do While i<=6

  For j=6 To i+2 Step -2

    If a（j）>a（j-2）Then t=a（j）:a（j)=a（j-2）:a（j-2)=t

  Next j

  i=i+2

Loop

则程序运行之后，数组元素a(1)和a(2)的值分别是（  ）

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

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

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

统计不同单词个数，在Text1中输入一行单词，点击“统计”按钮后在Text2中输出不同单词的个数。单词字母有大小写，同一单词的大小字母视为相同，句子以符号结尾， 程序运行界面如图1所示。

图1

图2

卡普利加数又称雷劈数，是指将该数的平方数拆分成两部分，若这两部分的和与该数相等，则该数为卡普利加数。小陈编写VB程序，实现功能：文本框Text1输入一个正整数，单击“判断”按钮，在标签Label2中显示该数的平方，如果该数是卡普利加数,在标签Label3中显示两数和相加的等式，否则显示“该数不是卡普利加数”。运行界面如下图所示：

寻找受潮药瓶。现有5瓶药，每瓶有20粒药丸，每粒药丸重10克，其中有几瓶受潮了，受潮的每粒药丸重11克，如何用天平只称一次找出受潮的那几瓶药？

解决此问题的方法是：将5瓶药编号为1～5号，从中分别取出1、2、4、8、16粒药丸进行称重。在不受潮时应是（1+2+4+8+16）×10=310（克）。假如称出的重量是315克，那么超出的重量是5克，说明有5粒超重，（5）₁₀=（00101）₂ ， 因此受潮的是第1瓶和第3瓶。编写程序模拟此过程，程序运行时，单击“模拟”按钮Command1，在文本框Text1中输出超重克数，在列表框List1中输出药瓶编号，运行界面如图所示。

阅读下面一段程序，运行后可能会出现什么结果（   ）

Private Sub Command1_ Click ()

    Dim i As Integer

    For i=1 To 10

        If Not i Mod 2=0 or i Mod 5=0 Then

            Print i

    Next i

End Sub

下列选项中，与语句y=-Abs(x)实现功能相同的是（   ）

运行如下VB程序：

Private Sub Command1_Click( )

    Dim x As Integer

    Dim y As String

    x＝Val(Text1.Text)

    If x＞＝95 Then

        y＝“非常满意”

    ElseIf x＞＝80 Then

        y＝“满意”

    ElseIf x＞＝60 Then

        y＝“基本满意”

    Else

        y＝“不满意”

    End If

    Label1.Caption＝y

End Sub

在文本框Text1中输入50，单击命令按钮Command1后，在标签Label1中显示(　  　)

  小张要对一批数据加密，数据内容全部由英文单词和空格组成（不包含数字和标点符号，数据最终以英文单词结尾，每个单词至少由两个字母组成）。加密时小张先从文本框中读取整段原文内容，然后对每个单词进行如下操作：每个单词中第一个和第二个字母交换位置，第三个字母按字母表顺序向后移动3 位，并后移到整个单词的最后面，其余字母前移，过程如图所示。例如：单词“Hazarded”，经过转换之后得到的密文是“aHardedc”。

代码和程序运行界面如下所示，请在划线处填入合适的代码，并且在加框处代码有错误，请改正：

 

Const n = 1000

Dim mw(0 To 1000) As String    '存放转换后密文的字符

Function zh(s As String) As String     '按字母表后移3位进行转换

    Dim p As Integer，flag As Boolean

    If s >= "a" And s <= "z" Then

        p = Asc(s) - 96: flag = True

    Else

        p = Asc(s) - 64: flag = False

    End If

        ①   

    If flag Then zh = Chr(p + 96) Else zh = Chr(p + 64)

End Function

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, t As String, a As Integer

    Dim tmp As String, k As Integer, s As String

    s = Text1.Text

    k = 1: a = 1

    For i = 1 To Len(s)

    t = Mid(s, i, 1)

    If t = " " Then

        k = 0: mw(i) = t

    Else

        If k < 3 Then

            mw(i + a) = t: a = -a

        Else

            tmp = zh(t)

            j = i

            Do While

                   ②  

                j = j + 1

            Loop

            mw(j) = tmp

               ③   

        End If

    End If

    k = k + 1

    Next i

    For i = 1 To Len(s)

        Text2.Text = Text2.Text + mw(i)

    Next i

End Sub

请回答下列问题：

现有如下python程序段：

for i in range( 6 ):

    p.append( int( random() * 10 ) + 1 )

for i in range( 2, 6 ):

    if i % 2 == 1 and p[ i ] % 2 == 0:

        p[ i ] += p[ i - 1]

    elif i % 2 == 0 and p[ i ] % 2 == 1:

        p[ i ] -= p[ i - 1]

执行该程序段后，在下列选项中，列表p中的元素值不可能的是（    ）

PRIVATE SUB FORM_CLICK( )

    A=VAL(INPUTBOX(“请输入第一个数”))

    B=VAL(INPUTBOX(“请输入第二个数”))

    C=VAL(INPUTBOX(“请输入第三个数”))

    M=A

    IF M>B THEN M=B

    IF M>C THEN M=C

    PRINT M

END SUB

有N个人围成一个圈，从1到k报数，报到k的人出列，剩下的同学继续围成一个圈，由出列位置的下一个同学再从1开始报数，输出出列的顺序，则①②划下线处填空选项为(    )

Private Sub Command1 Click)

    Const n=9 '总人数

    Dim b(1 Ton) As Integer

    Dim k As Integer， i As Integer， p As Integer， cnt As Integer， pre． p As Integer

    k =Val(Text1． Text)

    For i= 1 Ton

        b(i)=iModn+1

    Next i

    p = n：i = 0：cnt=0

    Do While i<n

        pre_p = p

        p=   ①   

    cnt=cnt+1

    If cnt=k Then

       List1. AddItem Str(p)

       b(pre_p)    ②    

       cnt=0

       i= i+1

    End If

  Loop

End Sub

小明编写了一个VB程序，功能如下：输入一个不超过10000的整数，若该数的各位数字之积是其各位数字之和的倍数，则输出“Yes”，否则输出“No”。

程序运行时，在文本框Text1中输入一个整数，单击“判断”按钮Command1后，在标签Label3中显示判断结果。程序运行界面如下图所示。

有如下VB程序段：

For i=1 To 6

    If i Mod 2<>0 Then

        If a(i) Mod 10>5 Then

            a(i)=a(i) \ 10

        Else

            a(i)=a(i) Mod 10 

        End If

    Else

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

    End If

Next i

程序运行后a(1)到a(6)的值分别是2，3，4，5，0，1，则a(1)到a(6)各元素的初始值可能是(     )

有如下 python 程序段：

s = "1R2u3n_to45";num = 0

for i in s:

  if "a" <= i <= "z" or "A" <= i <= "Z":

    continue

  elif "0" <= i <= "9":

    num = num * 10 + int(i)

  else:

    break

该程序段运行后，num的值为（     ）

在Python中，下列关于if选择结构说法错误的是（   ）。

小明想要统计一篇英语作文中某些单词出现的次数，他设计了如下算法：

#将要统计的单词储存在列表lis中，代码略

wordcount={}

#导入作文，分词后储存在列表zw中，代码略

for word in zw:

    if word in lis:

          ①  :

            wordcount[word]+=1

         ②  :

            wordcount[word]=1

print(wordcount)

  横线处应填入的代码是（    ）