4.1.1 Python的常量和变量 知识点题库

小张老师给同学们写了一个小程序来让同学们体验模糊查找。在List1中已经有了某班学生的姓名。从text1中输入要查找的关键字，点击command1查找按钮，从List2中能列出带有要查关键字的所有姓名。

程序代码如下：

Private Sub Command1_Click()

Dim Sname As String, Skey As String    ‘Sname 保存姓名，Skey保存关键字

Dim i As Integer, j As Integer, n As Integer   ‘n关键字的长度

Skey = Text1.Text

n = Len(Skey)

List2.Clear

For i = 1 To List1.ListCount     ‘ListCount是列表框中项目的个数

    Sname = List1.List(i - 1)     ‘将List1中的第i-1项赋值给Sname

    For j = 1 To     ①   

    If Skey =     ②       Then

        List2.AddItem Sname

        Exit For

    End If

    Next j

Next i

If      ③     = 0 Then List2.AddItem "没有找到带<" & Skey & ">的名字。"

End Sub

【加试题】有如下VB程序段：

    Dim P As Integer, q As Integer, S As Integer, t As Integer

    p=Val(Text1．Text)

    t=0

    For q=P+1 To 2*p

      s=(p*q)Mod(q-p)

      If s=0 Then

         t=t+1

      End If

    Next q

    Label1. Caption=Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是（  ）

执行各选项的VB程序段后，变量s的值为“99以内所有正偶数之和”的是（  ）

如果一个自然数的每个质因数都至少是二重的(即每个质因数乘方次数都大于或等于2)，如整数72=2^3*3^2(即72=2*2*2*3*3)，判断2~72所有数中全部质因子的乘方次数，找出质因子“2”乘方次数为3;质因子“3”乘方次数为2，不是72的质因子，那么这个自然数称为“漂亮数”。小李编写了一个验证“漂亮数”的VB程序。在文本框输入小于1 000的正整数，单击“检查”按钮在列表框中显示该数的质因子及该因子乘方数，在标签Label1中显示判断结果，在标签Label4中显示所有质因数的分解过程。程序运行界面如下图所示。

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

Private Sub Command1_Click()

Dim a(1 To 999) As Integer

Dim n As Integer

Dim s As String

For i=1 To 999

 a(i)=0

Next i

n=Val(Text1.Text)

s =“”

Do While n<>1     ‘分解质因子过程并统计质因子出现次数

For i = 2 To n

 Do While n Mod i = 0

  s = s&“  ”&i

  a(i)= a(i)+1

       ‘①

 Loop

Next i

Loop

Label4.Caption =“质因子分解过程:” +s

For j = 2 To 999     ‘判断是不是漂亮数

 If Then      ‘②

  Label1.Caption = “不是漂亮数”

  Exit For

 Else

  Label1.Caption =“漂亮数”

  End If

Next j

For j = 2 To 999     ‘在列表框输出质因数及对应的乘方数

 If a(j)>0 Then

  List1.Additem Str(j)+“ ”+Str(a(j))

 End If

Next j

End Sub

① ② 

以下VB代码片段用于从数据库中读取数据：

Dim conn As New ADODB Connection

Dim rs As New ADODB. Recordset

conn ConnectionString =“Provider = Microsoft. ACE. OLEDB. 12.0; DATA Source =" & App. Path &"\ data accdb”

Set rs.ActiveConnection = conn

rs. Open “select * from table”

n = 0

Do While Not rs EOF

  n=n+1

  rs.MoveNext

Loop

下列对于以上代码的理解正确的有（  ）

①连接的数据库文件名是“data”

②“ConnectionString”是conn对象的属性值

③查询的数据表名称是“table”

④程序运行后，变量n的值表示该数据表中记录的总数

⑤省略语句“rs. MoveNext”，程序也可以正常运行

小李编写了一个VB程序， 功能如下：在文本框Text 1中输入连续多个正整数(以“，”作为分割符和结束符)，单击“排序”按钮Cmd 1，对其中的整数进行降序排序。排序后奇数在前，偶数在后，在标签Label 3中输出结果。程序运行界面如图所示。

有如下VB程序段:

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

conn.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;

data source = "+ App.Path+"\score.Accdb"

conn.Open

Set rs.ActiveConnection = conn

rs.Open "Select * from cj"

n=1

Do While Not rs.EOF

  Score（n）=rs.fields（“成绩”）：Name（n）=rs.fields（“姓名”）

  n=n+1：rs.MoveNext

Loop

下列说法中不正确的是（  ）

有如下VB程序段：

i= 1

Do While i<= 6

    a(i) = Int(Rnd()*10)+ 1

    If a(i) Mod 2=i Mod 2 Then

        i=i- 1

    ElseIf i Mod 2= 0 Then

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

    End If

    i=i+ 1

Loop

执行该程序段后，a(1)～a(6)各元素可能的值是（  ）

编号分别为1～n(n为偶数)的学生分成两组进行投篮比赛，奇数编号的为第一组，偶数编号的为第二组。对每个分组的成绩按从高到低排序，先比较处于分组第1位的两个队员成绩，成绩高的得1分，低的扣1分，相等均不得分，再依次比较处于分组相同位置的队员成绩，最后得到每组得分。

    如10名运动员1号到10号的成绩分别是“13，6，9，8，10，11，10，14，16，13”，从高到低排序后，第一组的成绩依次是“16，13，10，10，9”，第二组的成绩依次是“14，13，11，8，6”。第1位的成绩分别是16和14，则第一组获胜得1分，第二组扣1分，再比较两个分组第2位的成绩13和13，则两组均不得分。依次处理，比较完剩余队员的成绩，可得第一组得分为2，第二组得分为－2。

    编写一个VB程序，实现如下功能：在文本框Text1中依次输入成绩(偶数个整数，用逗号分隔并以逗号结尾)，单击“确定”按钮Command1后，在列表框List1中显示对阵编号、对阵成绩及两个分组的最后得分。程序运行界面如图所示。

其8位日期加密授权码生成方法描述如下：

①授权码由9位字符组成，前三位为日期的密文，最后1位为验证码；

②日期的最后1位数字k（若k的值为0，令k=10），加密成26个大字英语字母表该位置对应的字母。

③将26个大写英文字母向左移k（日期的最后1位数字）个位置，并将移出的k个字母依次连接到最后。例如当k=3时，形成如下表所示新的字母排列顺序：

位置	1	2	3	4	……	23	24	25	26
字母	D	E	F	G	……	Z	A	B	C

④日期的第1个数字至第7个数字的加密方法是：计算第i个位置上的数字与第i+1个位置的数字及位置i三者相加的和，在新的字母表中取出该数字和对应的字母，作为第i个位置上数字加密字符。

⑤计算日期的各个位置上数字之和sum，若和sum的值大于26，在新的英文字表中，sum Mod 26对应字母转换成小写字母，作为验证码，否则验证码为新的英文字母表中对应字母。

某算法流程图如图所示：对于该算法下列说法正确的是（  ）

执行如下VB程序段，则s的值是（  ）

s=56

s1=s\10

s2=s Mod 10

s=s1+s2*10

Print "s="; s

某算法的流程图如下图所示。

当输入x的值为109时，在标签Label1中输出的内容为（    ）

生成0-9数字组成的10位无重复数字的随机密码，其VB程序段如下：

方框中的代码由以下三部分组成：①s=s+Mid（s1，x，1）②x=Int（Rnd*n）+1 ③s1=Mid（s1，1，x-1）+Mid（s1，x+1）。代码顺序正确的选项是（    ）

在数组d中使用下图所示的算法查找Key，对于该算法以下表述正确的是（    ）。

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

Private Sub Command1_Click()

Dim s As String, resule As String, pos As String

Dim count As Integer, i As Integer

i = 1: count = 0: resule = "": pos = ""

Do While i <= Len(Text1.Text)         ‘ i 是查找过程中所查找到的当前字符位置的标记

  s = Mid(Text1.Text, i, Len(Text2.Text))
  If s =Then

    result = result + Text3.Text

    count = count + 1

    pos =                   ‘pos 依次显示被替换内容在原文中的起始位置

    i = i + Len(Text2.Text)

  Else

    result=result+Mid(text1.text,i,1)
     

  End If

Loop

Text4.Text = result

Text5.Text =

Text6.Text = pos

End Sub

某地区有8个城市爆发疫情，需要发放救援物资。各城市的相邻关系用0表示不相邻，1表示相邻。例如：图a的邻接矩阵对应关系图如图b所示。

救援物资一共有4种（第1种口罩、第2种酒精、第3种防护服、第4种耳温枪），每个城市仅能分配到1种物资，要求相邻城市所分配到的救援物资各不相同。

算法分析：采用试探法分配物资（每个城市都从第1种物资开始逐个试探）。

第i个城市能否分配第c种物资，关键取决于第i个城市的周边是否有分配到相同物资的城市。如果已有相邻城市分配到第c种物资，则换第c+1种物资，否则就将第c种物资分配给第i个城市，继续探索第i+1个城市。

如果第i个城市，4种物资都无法分配到，则退回到第i-1个城市，调整第i-1个城市的物资，重新试探下一种物资。直至所有城市的救援物资都分配好。

例如：给城市1分配第1种物资，然后给第2个城市分配物资时，也从第1种物资开始试探，若发现第1种物资已分配给相邻城市，则试探第2种物资，以此类推。

小金同学编写VB程序实现上述功能：程序运行时，各城市之间相邻关系矩阵显示在列表框List1中。单击“分配”按钮Command1，在列表框List2中显示物资分配方案。程序运行界面如图c所示，请回答下列问题。

图c

小董编写了一个有关“筛选操作”的VB程序，实现如下功能：在文本框Text1中显示一组随机生成个位数为“9”的两位数（原始数据），在文本框Text2中输入筛选个数，单击“操作”按钮Command1后，在文本框Text3中按降序显示所筛选个数的不重复最大数据（以逗号分隔    并以数据结尾），若在文本框Text2中输入的数大于原始数据中不相同数的个数，则在文本框Text3中显示“筛选的个数太大，请重新输入!”。程序运行界面如图所示。

有如下VB程序：

Dim b As Integer

  a=5：b=8

  b=a*b

  a=b+a

Text1.Text=Str（a）

该程序执行后，文本框上显示的内容是（  ）

在Python中，正确的赋值语句是（     ）