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

程序填空，鸡兔同笼问题：若干只鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只?

程序代码如下：

Private Sub Form Click()

Dim ji As Integer    ‘鸡

Dim tu As Integer    ‘兔

Dim tui As Integer    ‘腿数

Dim tou As Integer    ‘头数

    For ji=

        For tu=1 to 25

            tui=     ‘计算腿的数量

            tou= ji+tu    ‘计算头的数量

            IFThem

                Print ji, tu

            End If

        Next tu

    Next ji

End sub

程序填空，输入成绩(0—100)，输出该成绩对应的等级，90分及以上为“A”，80分及以上为“8”，70分及以上为“C”等，60分及以上为“Di”等，60分及以下为“E”等。(输入分数时不考虑0一100之外的任何数据)

Private Sub Command1_Click()

Dim x As Integer

x=Val(Text 1.Text)

Select Case

  Case Is>=90

    Text2.Text=“A”

  Case Is>=80

    Text2.Text=“B”

  Case Is

    Text2.Text=“C”

  Case Is>=60

    Text2. Text=“D”

  Case Else

   

End Select

End Sub

（    ）是第一个战胜人类围棋世界冠军的人工智能程序。

运行该程序，输入75，则输出结果是(    )。

score=int (input ("请输入考试成绩"))

if score>=90：

    print("A")

elif score>=80：

    print("B")

elif score>=70：

    print("C")

elif score>=60：

    print("D")

else：

    print("E")

利用for循环遍历列表中每个元素然后输出，请补充完整程序。

list1=[1，2，5， 6，9]

for item in list1：

     print()

窗体上有四个文本框Text1控件数组，两个按钮Command1和Command2。程序功能是解一个一元二次方程ax²+bx+c=0（a≠0）。程序运行后如图所示。给定的程序不完整，将程序补充完整。

Private Sub Command1_Click()

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

End Sub

Private Sub Command2_Click()

    Dim a As Single, b As Single, c As Single

    Dim x1 As Single, x2 As Single, det As Single

    a = Val(Text1.Text)

    b = Val(Text2.Text)

    c = Val(Text3.Text)

    det =      ‘（根的判别式b²-4ac）

    Select Case det

    Case Is > 0

        x1 = (-b + Sqr(det)) / (2 * a)

        x2 = (-b - Sqr(det)) / (2 * a)

        Text4.Text = "方程有两个实数根" & " x=" & Str(x1) & "   x=" & Str(x2)

    Case Is = 0

        Text4.Text = "方程有两个相等的实数根 x=" & Str(x1)

    Case

        Text4.Text = "此方程无实数根"

   

End Sub

下列程序运行后，输出的结果为（  ）。

b=1

Do while (b<40)

    b=b*(b+1) 

Loop

Print b

 

下列程序段执行结果为 （   ）

x=5

y=-6

If Not x>0 Then x=y-3 Else y=x+3

Print x-y; y-x

程序填空

下列程序的功能是：当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，输入的数据超出范围。请填空。

Private Sub Command1_Click()

    Dim x As Single

    x=InputBox("请输入x的值！")

   

    Case x < 50

        y=0.8 * x

    Case 50 To 100

       

   

        Print "输入的数据超出范围！"

    End Select

    Print x, y

End Sub

有如下VB程序段：

s=1

for i=1 to 3

    s=s+1

next i

该程序段运行后，变量s的值为(     )

在python中运行以下程序，输入-8，输出的结果是（    ）

a=int(input( ))

if a>0:

  print("正整数")

elif a<0:

  print("负整数")

else：

  print("零")

求1到20的所有数的和，请在方框处补充完成代码（  ）。 

s=0

for i in range(1，21) ：

  s=

print (s)

用Python模拟猜数字游戏：

1)系统随机生成一个1~100的数字；

2)用户总共有5次猜数字的机会；

3)如果用户猜测的数字大于系统给出的数字，打印“too big"；

4)如果用户猜测的数字小于系统给出的数字，打印"too small"；

5)如果用户猜测的数字等于系统给出的数字，打印"恭喜"，并且退出循环；

编写程序代码如下，请完善代码：

          #导入random模块

          #随机生成1-100的整数并赋值给变量game

time=5

while time>0：

    guess=int (input ("请输入你所猜的数字："))

    if (guess>game) ：

      print ("too big")

    elif ：

      print(" too small' )

    else：

      print ("恭喜”)

      break

    time=time-1

print("游戏结束，正确的结果是："，game)

运行以下程序，显示的运行结果是（）。

Num1=9

Num2=14

age=(Num1+Num2)/2

print(age)

下面程序运行的结果为：（）

str1="key"

str2="board"

print( str1+str2 )

range(2,9,1)括号中的3个参数分别代表含义是什么？（）

运行以下程序，显示的运行结果是：3 4.8。（       ）

Num1=3

Num2=4.8

print(Num1,Num2)

修改初值、终值、步长都可以改变循环的次数。

以下程序运行后，输入“74”显示的结果是（    ）

求出100以内满足a<b所有勾股数。横线上填写的正确内容是（    ）