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

为使左右框内的Visual Basic程序段实现相同的功能，可在左框内划线处填写的代码是：

[根据2011年9月高考题改编]下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是，文本框Text2中显示的内容是。

Private Sub Command1 click( )

  Dim a(1 to 3) as integer,k as integer,t as integer,s as integer

  a(1)=15: a(2)=36: a(3)=7

  s=0

  For k=2 to 3

if a(k)>a(1) then

  t=a(1):a(1)=a(k):a(k)=t

  s=s+1

End if

  Next k

  text1.text=str(a(1))

  text2.text=str(s)

End sub

小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：

n = 0

m = 0

For i = 1 To 100

  If Rnd > 0．5 Then

     n = n + 1

  Else

     m = m + 1

Next i

小金仔细分析该程序段后，发现其中缺少了(   )

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图a所示。

某算法的部分流程图如图所示，执行完这部分流程后，变量i，s的值分别是（  ）

​​

简易加法器：小王用VB编写了一个简易加法器，其功能如下：在文本框Text中输入数字，中间用“，”隔开，单击“计算”命令按钮 Command1后，其计算结果输出在标签框 Label1中。运行界面如图所示，VB程序代码如下，请回答以下问题。

小明用VB编写了查找第二小的数的程序界面如图所示，程序随机产生50个范围在1~1000之间的随机整数，单击“查找”按钮能够在标签 Label1中显示第二小的数字。

Private Sub Command1_ Click( )

  Dim n As Integer, i As Integer

  Dim a(1 To 50) As Integer

  Randomize

  For i=1 To 5

        ①      

    List1 AddItem Str(a(i))

  Next i

  If a(1) < a(2) Then

    firstmin=a(1)

    secondmin =a(2)

  Else

    firstmin=a(2)

    secondmin=a(1)

  End if

  For i=3 To 50

    If a(i) < secondmin Then

      If        ②        then

        Secondmin = firstmin

        firstmin = a (i)

      Else

                 ③         

      End If

    End If

  Next i

  Label1. Caption = "第二小的数是" str(secondmin)

End Sub

“轮转后有序数组（Rotated Sorted Array）”是取有序数组中某一个数为分割点，将分割点之前的所有数都轮转到数组的末尾所得的数组。比如7，11，13，17，2，3，5就是一个轮转后有序数组，原有序数组中的子串{2，3，5}被轮转到了数组的末尾处。对于一个轮转后有序数组arr也可以进行对分查找，算法思路如下（以升序为例）:每次根据查找的左侧位置L和右侧位置R求出中间位置M，M左边［L，M］和右边［M+1，R］这两部分中至少有一个是有序的（可根据中间位置数据和边界数据的大小关系进行判断）。

arr［M］和待查找数据key比较：

①arr［M］= key，返回M的值；

②若M位置的右侧有序，当待查找数据在右侧时则下次在右侧查找，否则在M左侧查找；

③若M位置的左侧有序，当待查找数据在左侧时，下次在左侧查找，否则在M右侧查找。

数组a中存储的是左右交替上升的n个正整数，如下表所示：

a(1)	a(2)	a(3)	…	a(n-2)	a(n-1)	a(n)
3	25	38	…	55	31	12

依据对分查找思想，设计一个在数组a中查找数据key的程序，实现该功能的VB程序如下，但加框处代码有错，请改正

Private Sub Command1_Click( )

Const n = 6

Dim a (1 To n) As Integer, flag As Boolean

Dim i As Integer, j As Integer, m As Integer, key As Integer

‘读取一组正整数,按上述规则存入数组a中

‘代码略

key = Val(Text1. Text)

i = 1

j = (n+1) \2

flag= False

Do While     And Not flag     ‘①

  m = (i+j) \2

  If key = a(m) Then

    flag= True

  ElseIf key < a(m) Then

    j = m-1

  Else

    i = m+1

Loop

If Not flag And j > 0 Then

  m =       ‘②

  If key = a(m) Then flag = True

End If

If flag Then

  Text2.ext = str(m)

Else

  Text2.Text= “找不到”

End if

End sub

①加框处应改为。

②加框处应改为。

某VB程序段如下：

s = "491053"

For i = 1 To 3

   n = Len(s)

   k = 1

   For j = 2 To n

    If Mid(s, k, 1) >= Mid(s, j, 1) Then

      k = j

    Else

      Exit For  'Exit For表示退出循环

    End If

   Next j

   s = Mid(s, 1, k - 1) + Mid(s, k + 1, n - k)

 Next i

Label1.Caption = s

执行该程序段后，标签Label1中显示的值是（  ）

某对分查找算法的VB程序段如下：

i=1：j=8

k=Int（Rnd * 100）

Do While i<=j

  m=（i+j+1）\2

  If k=a（m）Then Exit Do

  If k<=a（m）Then j=m-1 Else i=m+1

Loop

数组元素a（1）到a（8）的值依次是“13，27，36，42，48，51，66，83”，则以上程序段执行后，下列说法不可能正确的是（  ）

有多组“123”连接的字符串，如“123123123”，若删除其中一个任意位置的字符，如第8位字符“2”，则得到新字符串“12312313”。编写一个如图所示的VB程序，实现以下功能：输入非空新字符串s，找出被删除字符在原字符串中的位置。如输入“12312313”，则输出“原字符串的第8个字符被删除”。

s= Text1.Text

For i= 1 To Len(s)

    a(i) = Val(Mid(s, i, 1))

Next

L=1: R= Len(s) + 1

Do While L<R

    m= (L+R) \2

    If  Then

        R= m

    Else

        L=m+ 1

    End If

Loop

Label1 .Caption = "原字符串的第"+ + "个字符被删除"

上述程序段2个方框处的代码分别为（  ）

某算法部分流程图如图所示。执行这部分流程，输出 n 的值是（  ）

 

已知整型变量ab为小于20的正整数，下列VB语句交换变量a，b值方法错误的是（    ）

奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。

赋值语句的基本格式是： = 表达式。其中格式中的“=”表示。

下列可以作为python变量名的是(     )

有效的变量名是（      ）。

以下程序的运行结果是（    ）

Private Sub Form_Click( )

    a= 1: b= 1

    Print"A="; a; "B="; b

    Call mult(a, b)

    Print"A=";a; "B=";b

End Sub

Sub mult(x, y)

    x=2* x

    y=3*y

End Sub

下列给变量名a的赋值语句中，赋值后变量a不是实型的是(　   　)