4.4.1 for循环的应用 知识点题库

以下VB程序段，若在文本框text1中输入2686261，则单击命令按钮command1后，在列表框list1中显示的值为（   ）

Private sub command1_click()

  Dim n as long

  Dim t as integer

  Dim a(1 to 9) as integer

  n=val(Text1.Text)

      List1.clear

      Do while n>0

        t=n mod 10

        If t mod 2=0 then a(t)=a(t)+1

        n=n\10

      Loop

  List1.additem a(2)

End sub

均分红包。当前有n堆红包，编号为1，2， 3， 。。 n，每堆有若干个红包，红包总数sum是n的倍数。可以在任一堆上取若干个红包，然后移动，最终使每堆上的红包个数相同。

移红包规则：

①编号为1的堆上的红包，只能移到编号为2的堆上；

②编号为n的堆上的红包，只能移到编号为n-1的堆上；

③其它堆上的红包，可以移到相邻左边或右边的堆上。

现要求找出最少的移动次数使每堆的红包数-样多。如图所示，在文本框Text1中输入红包堆数n，在文本框Text2中依次输入每堆红包的红包个数（以“，”为分隔符和结束符），单击“移红包次数统计”按钮Command1后，在标签Labe13中显示最少的移动次数。

已知s的初值为0，下列程序段执行后，s的值为（  ）

a=1：b=2

For i=1 To 6

    c=a+b

    a=b:b=c

    k=2

    Do While k<c

        If c Mod k=0 Then Exit Do

        k=k+1

    Loop

    If k=c Then s=s+1

Next i

任意一个大于或等于4的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想。如：4=2+2，6=3+3，8=3+5，12=5+7，98=19+79。

编写一个验证哥德巴赫猜想的VB程序，程序运行时，在文本框Text1中输入一个大于或等于4的偶数，单击“验证”按键Command1后，如果猜想验证成功，则在文本框Text2中显示“Yes”，并在列表框List1中显示用两个素数表示该偶数的等式；否则显示“No”。程序运行界面如图所示。

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

Function judge(x As Integer) As Boolean

  Dim j As Integer

  judge=True

  j=2

    Do While j<=x-1 And judge=True

        If x Mod j=0 Then

            judge=False

        Else

            j=j+1

        End If

    Loop

End Function

Private Sub Command1_Click()

  Dim n As Integer, p As Integer

  Dim q As Integer, flag As Boolean

  n=Val(Text1. Text)

  p=1

  flag=False

  Do While  And p<n           ‘①

    p=p+1

                                ‘②

    If judge(p) And judge(q) Then

        Text2. Text="Yes"

        flag=True

        List1. Addltem Str(n)+"="+Str(p)+"+"+Str(q)

    End If

  Loop

  If flag=False Then

    Text2.Text="No"

  End If

End Sub

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

编写Python程序进行成绩分析，学号为1~ 10号同学的信息技术学科成绩依次存储在列表xx中，部分程序代码如下，请回答下列问题：

xx=[35，29，28，42，21，38，17，44，18，19]

sum=0

for i in            ：

sum=sum+i

          

print("信息学科平均分为："+str(ave))

执行下列程序以后i的值是（    ）

for i in range(-3, -21, -4):

    print(i, end=" ")

print(end="\n")

下面的代码，哪些会输出1,2,3,三个数字（     ）

猜年龄游戏。要求：允许用户最多尝试3次，每尝试3次后，如果还没猜对，就问用户是否还想继续玩，如果回答Y或y，就继续让其猜3次，以此往复，如果回答N或n，就退出程序，如果猜对了，就直接退出。

在VB中，下面程序段执行后，语句y=y+1执行的次数是（    ）

x=0: y=0

For n=1 To 5

x=x+1

y=y+1

Next n

Print x+y

编写Python程序实现如下功能：输入年月日，输入格式如“2021-06-21"，年月日之间用“-”分隔。判断这一天是这一年的第几天。以2021-06-21为例，前面5个月总天数，加上21天即这一天是本年的第几天。 特殊情况，当输入的年份是闰年时，2月份有29天。闰年的判断方式如下：

⒈能被4整除，但不能被100整除；

⒉能被400整除；

下面代码的输出结果是（   ）。

def fact(n):

    s＝1

    for i in range(1, n＋1):

        s*＝i

    return s

    sum＝0

    for i in range(4):

        sum＋＝fact(i)

    print(sum)

超级素数是指一个素数，每次去掉最后面的一个数字，依然为素数。如 37，去掉最后的7 后，3 仍为素数。统计 1000 以内的超级素数的个数的 VB 程序段如下：

For i = 2 To 1000

    flag = True：s = i

    Do While flag And s >1

        For j = 2 To Int(Sqr(s))

            If s Mod j = 0 Then

               

                Exit For

            End If

        Next j

       

    Loop

    If flag And s<>1 Then

       

    End If

Next i

Label1.caption=str(c)

上述程序段中方框处可选语句为：

①flag = False   ②c = c + 1   ③s = s \ 10

则（1）（2）（3）处语句依次可为（     ）

如下Python程序段

x = 0

while x < 50：

    x = （x + 2） * （x + 3）

运行后，x的值为（    ）

出列顺序有10个人，编号分别为1，2，3……10按顺时针方向围坐成一圈，每次随机产生一个数m，m的范围为[3，7]的随机奇数，从第10个人开始逆时针报数，当报到m的人出列，圈内剩下的人，重新产生随机数m，重新开始报数，如此下去，直到所有人出列为止。如：若每次参数的随机数m都为5，从第10个开始报数，依次出列的为6-1-5-9-2-3-10-7-4-8

小李编写了如下程序求解10个人的出列顺序。程序运行界面如图15-1所示，点击求解按钮后，在Text1中输出出列顺序，在Text2中显示随机数据的值。

已知数组a中的元素按非递减有序排列，在程序运行时显示在Text1中。编写程序实现如下功能：删除数组的重复元素，并更新数组的长度，在Text2输出新的数组元素值。程序运行界面 如图所示。

给定一个正整数，要求将该数各个位上数字反转得到一个新数，如数字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）

下面代码运行结果是（     ）。

def fun(n):

    a, b=0,1

    while a < n:

        print(a, end=' ')

        a, b=b, a+b

fun(5)

有如下VB程序段：

s1 = "567898765"

s2 = ""

n = Len(s1) \ 2

For i = 1 To n

    If Mid(s1,i,1) < Mid(s1, n + 1, 1) Then

        s2 = s2 + Mid(s1, i, 1)

    Else

        s2 = Mid(s1, n + i, 1) + s2

    End If

Next i

Text1.Text = s2

编写“输出所有子串”程序，实现如下功能：在文本框Text1中输入一串不重复的字符串，单击命令按钮“生成子串”，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示，VB程序代码如下

有如下 VB 程序段

i = 1: j = 6: s = ""

Key = Val(Text1.Text) Randomize

Do While i <= j

m = Int(Rnd * (j - i + 1) + i) s = s + Str(a(m))

If a(m) < Key Then j = m - 1

ElseIf a(m) > Key Then i = m + 1

Else

Exit Do

End If

Loop

数组元素 a(1)到 a(6)的值依次为“88、76、64、25、24、12 ”，文本框 Text1 中输入 key 值，执行该程序段，s 值不可能的是（    ）