第三单元 智能机器人 知识点题库

程序填空，当单击窗体后，计算出1+2+3+……+N<500的最大值，并在文本框中显示出来

Private Sub Form-Click()

Dim S As Integer

Dim N As Integer

N=0

S=0    ‘S变量存放的是总和

Do While    (条件)

N=N+1

S=S+N

Loop

Text1. Text=Str()

End Sub

寻找水仙花数，水仙花数是指一个三位数，它每个数位上的数的3次幂之和等于它本身。例如：153是水仙花数，因为1³+5³+3³=153。请将程序补充完整，在划线处填空。

1st=[] #定义一个空列表，用于存放水仙花数

：        #用for循环遍历所有的三位数

     a=   #个位

     b= (i//10) %10    #十位

     c=   #百位

     if 

         1^st. append (i)   #在列表的末尾追加一个元素

print(lst)             #输出列表

请在原程序上指出本程序的语法错误，并写出程序结果

Private Sub Command1_Click()

    Dim x As Integer

    x = Val(Text1.Text)

    Select Case x

    Case Is >＝ 450

        Text2.Text = "优秀"

    Case Is >＝ 400

        Text2.Text = "良好"

    Case Is > 350

        Text2.Text = "中等"

    Case Is >＝ 300

        Text2.Text = "及格"

    Case Else

        Text2.Text = "不及格"

    End Select

End Sub

语法错误：

该程序运行后，若在文本框中输入350，则输出为：

以下程序实现，一个四位数，各位之和等于其前两位，各位之积各于其后二位，最后打印出该四位数，请补充完善该程序。

For  to 9

    For b=0 to 9

        For c=0 to 9

            For d=0 to 9

                X=

                If then

                    print x

                End if

            Next d

        Next c

    Next b

Next a

设计一个计算程序。该程序用户界面自己设计，由四个文本框：文本框1（text1，语文）、文本框2（text2，数学）、文本框3（text3，英语）、文本框4（text4，平均分），和三个按钮：命令按钮1（command1，清空）、命令按钮2（command2，计算）、命令按钮3（command4，退出）组成。程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。

以下VB 程序运行后，x的值是（      ）

Dim x As Integer

x=0

Do While x<50

    x=(x+2)*(x+3)

Loop

程序填空：用VB实程序实现：小明今年15岁，他在今年生日的这一天种了1课树，他有一个愿望：从明年开始他每年比上一年多种1棵树。请问当小明所种的树达到100棵时，他的年龄是多少？

Private Sub Command1_Click()

    Dim age As Integer, tree As Integer

    age = 15

    tree = 1

    Do While tree

        age =

        Tree = tree + (age - 14)

     

    Text1.Text = Str(age)

End Sub

在VB中，运行下列代码后，a的值为多少（    ）

a=10, i=10

If i>10 then

    a=a+i

Else

    a=a-i

End if

近年来移动网络资费优惠越来越大，各大网络运营商纷纷推出不同的流量优惠套餐。广东移动最近就推出了一款流量王套餐，月租38元包10G流量，当用户使用超过10G流量后按每1G流量3元计算。试在横线上填写合适的语句表达式，使程序完成如下功能：当输入流量总量（流量变量为w），计算出应付的话费（话费变量为f）。如图1所示

图1

Private Sub Command1_Click( )

    w= val （Text1. text）

    if  then

        f=38

    Else

        f=

    End If

    Text2. text=f

End Sub

在 python 中运行以下程序，运行结果是（       ）

a=0

for i in range（1,4）：

  a=a+i

print（a）

重复输出10次“抗击疫情，广州加油！”，则①应填(    )。

For i in range(①):

Print("抗击疫情，广州加油！")

程序二：完善程序，实现以下功能：输入一个整数，判断这个数字是奇数还是偶数。选择合适的选项填入横线处，使程序能按要求正确运行。

m=int（input（"请输入一个整数："））

if ⑴:

  print("这个数字是奇数"）

⑵:

  print（"这个数字是偶数"）

⑴A．m/2=0    B．m//2==0    C．m%2=0    D．m%2==1

⑵A．if       B．else       C．elif     D．break

分析下列VB程序段，

Dim m, n, k As Integer

m = 6

n = 1

For k = 1 To m Step 2

    n = n * k

Next k

Print "n ="; n

程序运行后，n的值是：

下面Python程序中，最后输出变量a的值为。

a=15

b=20

a=b

print(a)

机器人实际上是一种特殊的计算机，所以也具有与计算机类似的功能。

请写出下面程序的运行结果：。

sum=0

for i in range(1,11,1) :

  sum=sum+i

print( sum)

小明的老师布置了一道数学题，需要计算1+2+3+4+…+100，我们如果用计算机程序来做这道题，可以使用选择结构。

编程题

有如下python程序，运行后输出的值是（   ）

以下程序运行后

a1=int(input ("请输入自然数:"))

a2=int(input ("请输入自然数:"))

p=int(a1*a2)
print(p)

假如输入5和6，结果是（    ）