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

小明对教材上的冒泡算法进行优化，当数据已经有序时就停止加工，为此他编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前的数据，单击“排序”按钮Command1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label1中显示排序过程的加工遍数，在标签Label2中显示排序过程的数据交换次数。运行效果如图所示。

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

Const n=10

Dim a（1 To n）As Integer

Private Sub Form_Load( )

‘排序前的数据存储在数组a中，并在List1中显示，代码略

End Sub

Private Sub Command1_Click( )

  Dim flag As Boolean

  Dim x As Integer, y As Integer

  x=0：y=0

  flag=True：i=1

  Do While i<=n-1 And flag

    flag=False

    For j=n To i+1 Step-1

      If   Then    ‘①

          t=a（j）

          a（j）=a（j-1）

          a（j-1）=t

          flag=True

               ‘②

      End If

  Next j

  y=y+1

        ‘③

Loop

Label1.Caption="经过"+Str（y）+"遍排序数据有序！"

Label2.Caption="数据总共交换"+Str（x）+"次！"

For i=1 To n

  List2.AddItem Str（a（i））

Next i

End Sub

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

某对分查找的程序代码如下

Key = Int(Rnd * 25) * 2

n = 0: i = 1: j = 10

Do While i <= j

    m = (i + j) \ 2

    If Key = a(m) Then

    Exit Do

    If Key < a(m) Then

        j = m - 1: n = n + 1

    Else

        i = m + 1: n = n - 1

    End If

Loop

Text2.Text = Str(n)

其中 a(1)到 a(10)数组的值分别“2，3，6，9，10，18，38，40，47，48”， 执行该程序段后，n 的值不可能的是（   ）

根据上题的算法描述以下划线处填写Python程序代码。

数据连接（代码略）

userID = request.POST.get(‘txtUserID’)

userPassword = request.POST.get(‘txtPassword’)

cursor.execute(u""" Select * FROM [student] where [学号]

    = '%s' and 密码= '%s'""" %（userID，)）

list=cursor.fetchall( )

:

   for row in list :

       request.session['userID']=

       request.session['userName']=

       return HttpResponseRedirect("")

else :

    warn= u"" 

有如下VB程序段：

Private Sub Command1_Click()

    Dim s As String, ch As String

    Dim n As Integer, t As Integer, c As Integer

    s = "Go-2020-12"

    n = Len(s):t = 0

    For i = 1 To n

        ch = Mid(s,i,1)

        If ch >= "0" And ch <= "9" Then

            t = t + Val(ch)

        Else

            c = t: t = 0

        End If

    Next i

    Label1.Caption = Str(c)

End Sub

执行完以上程序段后，标签Label1上显示的内容为（    ）

某仓库对货物的编码规则为：货物类型（4-8位英文字母）货物编码（4-8位数字）货物校验码。货物编码的每一位数除以2产生的余数，倒序输出即是货物正确的校验码，现编写如下VB程序，如图在Text1中输入货物完整编码后，判定校验码是否符合标准，并在Label1中输出结果。

从2022年1月起，浙江省的选考成绩将采用新的一分一赋的赋分制，赋分等级与比例如图1所示。

赋分具体步骤为：

第一步，将卷面得分按人数比例划分为20个赋分区间，得出每个区间卷面得分的上限、下限。(说明：每个赋分等级人数=总人数×每个赋分等级比例(结果四舍五入取整) ；当卷面得分相同但人数超出该等级人数时，则减少下一档的人数。)

第二步，对每个区间的卷面得分进行等比例转换成赋分，公式为：

其中，s2、s1为卷面得分区间的上限和下限，s为待转换卷面得分；t2、t1为赋分区间的上限和下限，t为卷面得分等比例转换后的赋分。

第三步，将转换后的赋分t取整(小数部分四舍五入)。

编写VB程序，实现成绩赋分功能：在列表框List1中显示某市所有学生的考号，原始成绩(无0分，降序排列)和名次(同分同名)，单击“成绩赋分”按钮Command1后，赋分成绩按从高到低的顺序显示在列表框List2中。程序界面如图2所示。

某比赛项目由多位评委打分，然后根据项目难度系数计算最终得分。规则为：

最终得分=（所有评委打分总和－1个最高分－1个最低分）×项目难度系数

编写VB程序，实现计算最终得分的功能。在文本框Text1中输入项目难度系数和多位评委的打分，中间用“，”隔开并以“，”结尾，然后点击计算按钮，在文本框Text2中显示最终得分。程序运行界面如图所示。

汉诺塔问题中，现在要将塔座A上的所有圆盘移到塔座B上；并仍按同样顺序叠放。移动圆盘时，需遵守汉诺塔问题的移动规则。可设计出解汉诺塔问题的递归算法为（   ）。

在100个小球中,只有一个小球轻于其它小球。如何用没有砝码的天平找出该小球？小安设计了一个三分查找程序来快速查找这个小球，程序认定当需查找的小球个数小于3个时，认为已找到，程序运行界面如图。

Dim a(1 To 100) As Integer

Private Sub Form_Load()

    '产生100个重量为10的小球，存储在数组a中

    '其中随机选取1个小球的重量改为8，代码略

End Sub

Private Sub Command1_Click()

    Dim left As Integer, right As Integer

    Dim mid As Integer, count As Integer

    Dim s(1 To 2) As Integer

    left = 1: right = 100: count = 1

    List2.AddItem Str(left) + "-------->" + Str(right)

    Do While  left<=right

        s(1) = 0: s(2) = 0

            ①   

        i = left: k = 1

        Do While i <= left + mid * 2 - 1

            s(k) = s(k) + a(i)

            If      ②    Then k = k + 1

            i = i + 1

        Loop

        If s(1) = s(2) Then

            left = left + 2 * mid

        ElseIf s(1) < s(2) Then

            right = left + mid - 1

        Else

            

            left = left + mid

        End If

        count = count + 1

        List2.AddItem Str(left) + "-------->" + Str(right)

    Loop

    List2.AddItem "经过" + Str(count) + "次后找到这个数"

End Sub

下列程序的功能是求1～x之间所有5的倍效之和（    ）

x=int(input("输入数字x:")

i=1

s=0

while i<=x:

    if      ①          :

        s=s+i

    print(i，end="，")

        ②          

print("s="，s)

则划线处应填入的语句是(      )

将长度为奇数的字符串s从首位字符开始依次存入a（1），a（n - 1），a（3），a（n - 3）...。如：字符串“xuankao”分存后得到a（1）=“x”，a（6）=“u”，a（3）=“a”，a（4）=“n”，a（5）=“k”，a（2）= “a”，a（7）= “o”，下列能实现该功能的程序段是（   ）

小美制作了一个简单的Flask程序，其中编写路由和视图的函数如下所示：

@app.route(‘/user/<name>’)    #动态路由 def user(name):    return render_template(‘user.html’,name=name)

其中网页文件user.html的部分代码如下： <body> {%if name == ‘admin’%}    <hl>Hello,Boss!</hl> {%else%}    <hl>Hello,{{name|capitalize}}!</hl> {%endif%} </body>

运行程序后，在浏览器输入如下网址://127.0.0.1:5000/user/admin，则网页显示的内容是（    ）

给定一个正整数，要求将该数各个位上数字反转得到一个新数，如数字56020反转得到新数2065。有如下VB程序段：

n=Val（Text1．Text）

s=""

flag=True

Do While n>0

      ⑴ 

    n=n\10

    If Not flag Or x>0 Then

          ⑵ 

        flag=False

    End If

Loop

If s="" Then s ="0"

Labe 11.Caption=s

方框中（1）和（2）应填入的代码顺序为（    ）

①x=nMod10^{^}len（n）  ②x=nMod10  ③s=Str（x）+s  ④s=s+Str（x）

以下程序运行时，用户可以在文本框Text1中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。

Private Sub Command1_Click()    '添加按钮

    If Len(Text1.Text) <> 0 Then

        

        Text1.Text = ""

        Text1.SetFocus

    End If

End Sub

Private Sub Command2_Click()      '删除按钮

    IfThen

        MsgBox "先选择，再删除！"

    Else

       

    End If

End Sub

以下是猜数游戏的Python程序，请选择适当的代码填入程序①处。（  ）

number= 99 number_ guess= int (input ("你猜测的数字是: ")) if number = number_ guess:   print ("你猜对了")   ①  number> number_ guess:   print ("你猜的数字小了") else:   print ("你猜的数字大了")

某次模拟考试后，某班主任为了统计本班学生的语文和数学成绩，制作了如下 VB 程序。程序界面如下图所示：在文本框Text1中输入语文和数学成绩，成绩之间用“，”隔开，以“，”结束，加载窗体时，将成绩提取到数组 a中，如a(1)表示第一位学生的语文成绩，a（2）表示第一位同学的数学成绩，如a(3)表示第二位学生的语文成绩，a（4）表示第二位同学的数学成绩，……，以此类推，单击按钮Command11，将成绩按照语文为主要关键字、数学为次要关键字做升序排序，并将排序后的结果显示在文本框Text2中。

选择结构程序设计的主导思想是从多个分支中选择支

㈡分析问题，建立模型，并用算法描述区间测速问题

分析已知条件，抽象建立数学模型，算法描述区间测速。根据要求，回答问题。

运行以下Python程序段，结果是（     ）

级差又称范围误差及一组数据中，最大值减最小值后所得数据。用Python编辑器打开“Y:\87”下的文件”极差.PY“，请完善程序并保存结果。