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

IPV4点分十进制：IP地址可转换为十进制数字形式。编写“模拟IP过滤器”程序，程序功能如下：程序运行时，在列表框List1中显示能通过过滤的IP区间(IP区间按起始端点升序排序)，在文本框Text1中输入需要判断的IP地址，单击“验证”按钮Cmd1，若IP区间有重叠区间则作合并处理，并显示在列表框List2中，然后对输入的IP地址进行判断，判断结果显示在标签Labe14中。程序运行界面如图所示：

算法用Python程序实现，以下代码中哪处语句存在语法错误（   ）

inp= input("请输入a、b: ")     #1

a=float (inp.split( )[0])

b=float (inp.split( )[1])       #2

if a>b:     #3

  print(a)

else      #4

  print(b)

某加密算法的明文和密钥均由英文字母组成，且密钥循环使用，其加密规则如下：

①明文字符与对应密钥的ASCII码转化为二进制后求异或（对应位相同时结果为0，对应位不同时结果为 1，如二进制1001与二进制1100的异或值为0101），并将异或结果转换为十进制p；

②如果处在奇数位，则将明文字符循环后移p个位置，否则将明文前移p个位置。移动过程中保持大小写不变。

最后把所得到的字符连接起来就是密文。

例如，密钥是“abc”，明文“d”的加密过程是：字符“d”的ASCII码表示为二进制是1100100，密钥“a”的ASCII码表示为二进制是1100001，两数进行异或结果是：0000101，转化为十进制为5，因为是第1个位置，所以把明文后移5个位置，则密文是“i”。

该加密过程使用VB来实现。具体功能设计如下：在Text1中输入明文，Text2中输入密钥，单击“开始加密”按钮Command1后将密文显示在Text3中，界面设计如图所示。

请回答以下问题：

有如下VB程序段：

Dim d(1 to 5)as integer, i as integer

Dim flag as Boolean, j as integer

‘给数组元素d(1)至d(5)赋初值为1，代码略

Randomize

For i=1 to 5

  J = 1: flag = True

  d(i) = int(Rnd*9)

  Do while j< =i-1 and flag = True

    d(i) = int(Rnd*5+1)

    If d(i) = d(j) then i=i-1: flag = False

    j = j+1

  Loop

Next i

运行程序后，数组中的数据值可能是（    ）

有一段代码如下：

a=3; b=1; c=2

if a>b:

    a，b=b，a

if b>c:

    b，c=c，b

if a>b:

    a，b=b，a

print(a，b，c)

其输出结果为（     ）

编写“字母出现频率测试”程序，实现如下功能：在文本框Text1中输入英文句子，单击“统计”按钮，在列表框List1中显示小写字母出现的次数，同时显示字母出现频率最高的次数。程序运行界面如图所示。

 

小李编写了一个实现字母字符串去重功能的VB程序（只输入大小写字母，大小写字母视为同一字符，只保留第一次出现的字符），运行界面如图所示，程序运行时，在文本框Text1中输入字符串，单击“去重”按钮，将字符串中重复的字符去除，在标签Label1中显示去重之后的结果（已知“a”的ASCⅡ值为97，“A”的ASCIⅡ值为65），实现上述功能的VB程序如下，请回答下列问题：

Private Sub Comand1_Click( )

    Dim s As String, c As String

    Dim t As Integer, I As  Integer

    Dim a（1 To 26）As Integer

    s＝Text1．Text

    For i＝1 to 26

        a（i）＝0

    Next i

    i＝1

    Do While i<＝Len（s）

        c＝Mid（s, i, 1）

        If    ①     Then

            t＝Asc（c）－96

        Else

            t＝Asc（c）－64

        End If

        If a（t）＝0 Then

            a（t）＝1

        Else

           

                 ②    

        End If

        i＝i＋1

    Loop

    Label1.Caption＝s

End Sub

有如下VB程序，实现从26个英文字母中随机取4个显示在列表框List1中。

st = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

s=””

For i= 1To 4

    t = Int(Rnd*8)*2+11

    If t\10=2Then

      t=t+1

    Else

      t=t-1

    End If

    s=s+Mid(st，t，1)

Next i

List1．AddItem s

执行该程序段后，列表框List1中可能显示的内容是(    )

以下语句格式正确的是（    ）。

为庆祝新学期到来，某校学生会组织开展文体演艺活动，现按活动要求，将各班学生编排成“三角”队形。队形有以下要求：

第一排正中间安排1人；第二排正中间安排3人；第三排正中间安排5人……，如此循环，直至班级人数不足以站满一排后结束编排。

三角队形外围一圈的同学对服装有特殊要求，需要进行标记（中间的同学用“●”标记，外围的同学用“▲”标记）

编写VB程序，实现队形编排功能：在文本框Text l中输入班级人数，单击“展示队形”按钮Command1后，将班级学生队形显示在列表框List 1中。例如，当班级学生数为54的时候，程序运行界面如图所示。

若x= False， y=True，执行

If x And y Then x=0

Else x=1后x的结果为（   ）。

两个长度相同的字符串s1和s2，若所含字符及各字符的数量均相等时可以视为相同组合。如字符串“ABCA”与字符串“BCAA”可以视为相同组合，与“ABCD”视为不同组合。实现该功能的VB程序段如下：

Text1.text="相同":j=1

Do while j<=len(s2)

    If mid(s1, 1, 1)=mid(s2, j, 1) then

        s1=mid(s1, 2, len(s1)-1)

        s2=mid(s2, 1, j-1)+mid(s2, j+1, len(s2)-j)

       

    Else

       

        If

            Text1.text="不相同"

        End if

    End if

Loop

方框中的代码由以下三部分组成：

①j=j+1           ②j=1             ③j=len（s2）+1

则（1）、（2）、（3）中代码顺序正确的是（    ）

为监控车辆是否超过规定的最高车速，交通部常用测速仪来检测。测速仪前后两次发出并接收超声波信号，再根据两次信号差，测出被测车辆的速度。如果测得车辆超速就进行违章记录，否则不进行处理。以上算法描述采用的是语言，这个问题应该使用结构来设计算法比较合适，如果用流程图来描述该部分算法，在对应该填入的内容是，。

有如下程序段：

Private Sub Command1_Click()

    s = "Tokyo_Olympic_Games"

    ans = ""

    For i = 1 To Len(s)

        c = Mid(s, i, 1)

        If (2020 \ 10 ^ 2 - i) <= Len(s) Mod 10 \ 3 Then

            If c >= "a" And c <= "z" Then c = Chr(Asc(c) - Asc("a") + Asc("A"))

        End If

        ans = ans + c

    Next i

    Label1.Caption = ans

End Sub

执行上述程序段后，标签Labele1中输出的内容为（      ）

某Python 程序代码如下：

a = [10， 5， 2， 11， 7，6]

c=0

i = 0

while i < len(a):

    if a[i] % 2 == 0:

        c -= a[i]

    else:

        c += a[i]

        i =i + 1

print(c)

程序执行后，输出的结果是

下列程序运行结果是（     ）

X=val(inputbox(“shuru”))

IF X>=0 THEN

  PRINT SQR（X）

ELSE

  PRINT X

END IF

运行时键盘输入-4

有如下VB程序段：

s = 0: i = 1

Do While i <= 10

    If i Mod 3 = 0 Then a(i) = a(i) + 1 Else a(i) = i

    List1.AddItem Str(a(i))

    i = i + 1

Loop

i = 10

Do While i >= 1

    If a(i) = 1 Then s = s + 1

    i = i － 1

Loop

该程序段运行后，变量s值是(  )

小明编写了一个计算BMI指数的VB程序。BMI指数(即身体质量指数，称简体质指数又称体重，英文为Body Mass Index，简称BMI)，是用体重(公斤)除以身高(米)平方得出的数字，是目前国际上常用的衡量人体胖瘦程度以及是否健康的一个标准，BMI指数的判断标准如下表所示：

BMI指数	<18.522.9	18.5～23～	25～24.9	29.9	≥30	≥40.0
结果	偏瘦	正常	偏胖	肥胖	重度肥胖	极重度肥胖

程序运行时，在文本框Text1中输入体重，在文本框Text2中输入身高，单击”测试”按钮Command1，在标签Label4中显示对应的结果。程序运行界面如下图所示。

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

Private Sub Command1_Click()

    Dim h As Single, w As Single, ans As Single, s As String

    w = Val(Text1.Text)

    h = Val(Text2.Text)

       ①  

    If ans< 18.5 Then

        s = “偏瘦”

    ElseIf ans< 22.9 Then

        s = “正常”

    ElseIf ans<= 24.9 Then

        s = “偏胖”

    ElseIf ans<= 29.9 Then

        s = “肥胖”

    ElseIf ans< 40 Then

        s = “重度肥胖”

        ②   

        s = “极重度肥胖”

    End If

    Label4.Caption = s

End Sub

阅读下处程序写出运行结果

有四个嫌疑人甲乙丙丁涉嫌偷盗，其中一人是小偷。甲说“不是我”，乙说“是丙”，丙说“是丁”，丁说“丙在冤枉我”。若他们中只有一人说了假话，请编程判断谁是小偷。(注：在Python运算中，True的值为1，Fa1se的值为0)

运行输出结果是 

用Python编辑器打开"Y:\96"下的文件“三角形面积.py”，进行以下操作并保存结果。

①海伦公式是利用三角形的三条边的边长直接求三鱼形面积的公式，表达式为

其中P是三角形的周长的一半。

⑵请填空完善该程序，输入三条边长，判断能否构成三角形。如果能构成三角形就计算该三角形的面积并输出，否则提示不能构成三角形。

⑶编写完成后原名保存并关闭应软件。

import math

a=float(input("请输入第一条边长："))

b=float(input("请输入第二条边长："))

c=float(input("请输入第三条边长："))

if(a+b>c)and(a+c>b)and():

    p

    s=math.sqrt(p*(p-a)*(p-b)*(p-c))

    print(a,b,c,"能构成三角形！","三角形的面积为:",)

:

    print(a,b,c,"不能构成三角形！")