4.6趣味应用同步练习人教版信息技术选修1

4.6趣味应用同步练习人教版信息技术选修1

学校:___________姓名：___________班级：___________考号：___________

一、选择题

1．【加试题】某对分查找算法的 VB 程序段如下：

Key = val(text1.text)  

N=0

i = 1: j = 7

flag = False

Do While i <= j And flag = False

n = n + 1

m = Fix((i + j) / 2)

If a(m) = Key Then flag = True

If Key < a(m) Then i = m + 1 Else j = m – 1   

Loop

If flag = True Then

Text2.Text = "在第" & Str(m) & "个，"

Else

Text2.Text = "未找到，"

End If

数组元素 a(1)到 a(7)的值依次为“89，72，68，45，23，19，17”。文本框 Text1 中输入 17，执 行该程序段后，下列变量的值不．正．确．的是（    ）

A．n=2 B．m=7 C．i=7 D．j=6

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

i=1:j=8:s=0: key= Int(Rnd * 45)*2+5

Do While i<= j

    m=(i+j)\2

    If key = a(m) Then

        Exit Do

    EseIf key < a(m) Then

        j=m-1:s=s-1

    EIse

    i=m+1:s=s+ 1

    End If

Loop

已知数组元素a(1)到a(8)的值依次为5，16，20，28，44，55，67，85，执行该程序段后，s的值不可能是（    ）

A．0 B．-2 C．3 D．-1

3．利用对分查找实现在数组a中查找成绩值为Key的学生姓名与成绩（注：学生成绩由高到低排序，并按姓名在前、成绩在后的顺序依次存储在数组aa中，例如： “张三”，“97”， “李四”，“92”，“王五”，“87”……），编写的VB程序段如下：

Const  n = 100

Dim a(1 To n) As String

Private Sub Command1_ Cl ick ()

flag = False

Key = Val (Text1. Text)

Do While i <= j And Not flag

  If  Val(a(2 * m)) = Key Then

    List1. AddItem a(2* m-1)+""+ a(2* m): flag =True

  Else

      Then j= m-1 Else i=m+1

  End If

Loop

If Not flag Then List1. AddItem"没有找到!"

End Sub

上述程序段(1)、(2)、(3)三个方框处的语句依次为(   )

①j=n  ②j=n/2    ③m=(i+j)\2     ④m=((i+j)\2)*2

⑤Val(a(2 * m)) < Key     ⑥Val(a(m)) < Key    ⑦Val(a(2 * m)) > Key

A．①④⑦ B．②③⑥

C．②③⑤ D．②④⑦

4．VB 表达式 3 + 7 \ 3 Mod 4 / 2 - 1  的值为(   )

A．2 B．3 C．4 D．5

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

Key = Int(Rnd * 49) * 2 + 1

s = 0: i = 1: j = 10

Do While i <= j

m = (i + j) \ 2

If Key = a(m) Then Exit Do

If Key < a(m) Then

j = m - 1: s = s * 2

Else

i = m + 1: s = s * 2 + 1

End If

Loop

数组元素a(1)到a(10)的值依次为“3，13，15，20，28，35，45，52，63，97”，执行该程序段后，s的值不可能为（    ）

A．1 B．5 C．9 D．14

6．设一个三位数是n，它的个位数为c，十位数为b，百位数为a，则b的VB表达式是：

A．n-a-b B．(n-a*100-c) /10

C．n\10-n\100*10 D．n-Int(n/100)-Int(n/10)

7．收集序号为1到n的n位学生的作业(已交作业学生的序号按升序存储在数组a中)，最后只收到n-1份，现要寻找未交作业学生的序号。实现上述功能的VB程序段如下：

i = 1: j = n

Do While i <= j

   m = (i + j) \ 2

   If    ①   Then  j = m - 1  Else   i = m + 1

Loop

Label1．Caption = "未交作业学生的序号是：" + Str(  ②  )

上述程序段中划线处应填写的代码是（    ）

A．①a(m) = m        ②j B．①a(m) <> m        ②i

C．①a(m) = m        ②j + 1 D．①a(m) <> m        ②m

8．关于正整数n，下列描述正确的有（    ）

①如果Int（n/2）=n\2的值为True，可以判定n为偶数

②m为2至n-1中任意正整数，如果n Mod m=0的值为True，可以判定n为素数

③如果Int（Sqr（n））=Sgr（n）的值为True，可以判定n为完全平方数

④如果1-n Mod 2=0的值为True，可以判定n为奇数

A．①③ B．①④ C．②④ D．③④

9．小王用天平称量物品的过程如下：先放置100克砝码，砝码偏重；再将砝码改为50克，砝码偏轻；又将砝码改为75克……通过这种策略，小王很快完成物品称重工作。此过程借鉴的算法是（    ）。

A．排序 B．顺序查找 C．对分查找 D．累加

10．表达式NOT（2*5<>11）的值是（    ）

A．True B．False

C．0 D．null

11．有如下 VB 程序

a(1) = 1

For i = 2 To 12

a(i) = a(i - 1) + Int(Rnd * 2) + 1  

Next i

Key = Val(Text1.Text)

i = 1: j = 12: cnt = 1: flag = False  

Do While i <= j And flag = False

cnt = cnt + 1

m = (i + j + 1) \ 2  

If a(m) = Key Then

flag = True

ElseIf Key > a(m) Then

 i = m + 1

Else

j = m - 1  End If

Loop

程序运行后，下列说法正确的是(    )

A．在Text1输入15，程序运行后m肯定为 12 B．在Text1输入6，程序运行后 cnt可能大于4

C．若查找不成功，则 j>m肯定成立 D．若查找不成功，则 i<=m 肯定成立

12．方格状的地板，蜂窝，砖墙，草席等图结构上存在冗余，这种规律性的结构表现为（   ）

A．空间冗余 B．结构冗余 C．视觉冗余 D．时间冗余

13．数组元素a（1）～a（n）中存储了n个正整数，下列哪个表达式为True时，可检测数组奇数位置元素的值为偶数

A．a(i) Mod 2 = i Mod 2–1

B．a(i) Mod 2 = i Mod 2

C．a(i) Mod 2 = 0 Or i Mod 2 = 1

D．a(i) Mod 2 = 1 And i Mod 2 = 0

二、操作题

小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则VB程序如下，但加下划线处代码有错，请改正。

Dim n,s As Integer    'n为试题计数器,s为得分

Dim a, b As Integer  'a，b 为两个运算数

Dim c As String 'c为运算符："+ "表示加法，"-"表示减法

Private Sub Form_Load()

n = 0:

s = 0

End Sub

Private Sub Command1_Click()   ‘出题按钮

Randomize

n =" n" + 1

If n < 11 Then

Label1.Caption = "No：" + Str(n)

a =" Int(Rnd" * 100)  'a，b为运算数，且要求a不小于b

b =" Int(Rnd" * 100)

If   a > b   Then t =" a:" a =" b:" b = t        '(1)

If  Rnd > 0.5  Then c = "+" Else  b = "-"     '(2)

Label5.Caption =" Str(a)" + c + Str(b) + "="

Text1.Text = ""

Else

Command1.Caption = "完成测试"

End If

End Sub

Private Sub Command2_Click()   ‘判断按钮

If c = "+" Then

If  a + b =" Val(Text1.Text)" Then  s =" s" + 10

Else

If a + b =" Val(Text1.Text)" Then s =" s" + __14__'(3)

End If

Label3.Caption = "得分:" + Str(s)

End Sub

参考答案：

1．A

2．A

3．C

4．A

5．C

6．B

7．B

8．D

9．C

10．B

11．B

12．B

13．A

text)