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

根据“折纸测珠峰”的程序,完成填空。

珠穆朗玛峰简称“珠峰”,珠峰海拔约为8844米,是世界第一高峰。如果有一张足够大的纸(厚0.1毫米),对折多少次,纸张的厚度可以超过珠穆朗玛峰的高度?

程序如图:

图片_x0020_34

  1. (1) 请将程序补充完整:While
  2. (2) 该循环语句根据条件进行循环,当条件为时,循环体重复执行。
  3. (3) 程序中的自定义的变量为 。
执行下列程序段,输出结果的第三行内容是(    )。

program=["Java","Python","Visual Basic"]

for i in program:

    print (i,len(i))

A . Java 4 B . Python 6 C . Visual Basic 11 D . Visual Basic 12
利用for循环遍历列表中每个元素然后输出,请补充完整程序。

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

for item in list1:

     print()

有如下一个生活中常见的情况:

输入一个成绩,判断该成绩属于“优秀”、“良好”、“及格”还是“不及格”。

  1. (1) 请为上面的程序设计流程图。

  2. (2) 请把下面对应的代码填写完整。

    Private Sub Command1_Click( )

        Dim x As Integer

        x= (Text1.Text)

        Select Case x

       

            Text2.Text=“优秀”

        Case x≧75

            

       

            

        Case Else

           Text2.Text=“不及格”

        End Select

    End Sub

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

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,则输出为:

两个数进行交换,请完成下列流程图

 ② ③ ④ 

某物流公司规定A、B两地之间物品的托运费用根据下面的方法计算:物品重量在50千克以内,托运费为每千克0.65元,超过的话,超过部分每千克0.95元,请完善下面的程序。

Dim G As Integer

Dim M As Integer

Input “输入重量 G = ”; G

If  then

    M=0.65*G

Else

    M=

End if

Print “运费为:”; M

执行下边的程序,输出运行结果是(    )

图片_x0020_100001

A . 6.5 B . 6.0 C . 5 D . 6
打印1到100的偶数和。

s=0

For i in range(

print(“偶数和是:”,s)

在VB中,运行下列代码后,a的值为多少(    )

a=10, i=10

If i>10 then

    a=a+i

Else

    a=a-i

End if

A . 0 B . 10 C . 20 D . 30
分析以下程序,选择正确的输出结果
  1. (1)                

    m= 1

    m = m+ 5

    n = 5 + m

    Print n ,m

    A . 6     1 B . 11    6 C . 6     11 D . 5     6
  2. (2)                

    a = 2

    b = 3

    print a > b

    A . 2 B . true C . false D . 3
  3. (3)                

    a=10

    b=20

    If a>b then

         Print a, b

    Else

         Print b, a

    End if

    A . 1020 B . 2010 C . 1010 D . 2020
  4. (4)                

    For k=15 to 1 step -5

         Print k;

    next

    A . 15 B . 15 10 5 1 C . 15 10 5 0 D . 15 10 5
下列程序段的运行结果是(       )

x=3

Select Case x

    Case 5

    Print "优秀"

    Case 4

    Print "良好"

    Case 3

    Print "通过"

    Case Else

    Print "不通过"

End Select

A . 优秀 B . 良好 C . 通过 D . 不通过   
下面程序段中s的结果是(     )

s = 0

For i = 1 To 3

s = s + i

Next i

A . 0 B . 1 C . 3 D . 6          
完善程序,实现以下功能:苹果10元一斤,10斤以上8元(含10斤),计算买苹果的费用。(   )

a=int(input("请输入买苹果的斤数:")

if             :

  s=10*a

else:

  s=8*a

print("苹果费用:"+str(s))

A . a>10 B . a<10 C . a>=10 D . a<=10
下面程序运行后,输出的结果为:

a=5

b=3

print(a*b)

编程求长方形面积。要求在程序运行的时候从键盘输入长方形的长和宽。假设长方形的长用变量a表示,宽用变量b表示,面积用变量S表示。
在VB的If语句结构中,关键字End If是必不可少的。
编写一个小程序,比较两个数的大小,按“比较”按钮后,输出较大的数。将下面代码补充完整,其运行效果如图:

Private Sub Command1_Click( )

a= Val(Text1. Text)

b= Val(Text2. Text)

IfThen

Max=

Else

Max=b

End If

Text3.Text=

End Sub

以下程序运行后,若输入3、4,显示的结果是( )

A . B . C . 相等 D . expeted an indented block
以下程序运行后,输入"蓝"显示的结果是(    )

A . red B . blue C . green D . 请完善程序,我还不知道啊!
最近更新