高中信息技术：

高中信息技术

计算某球队球员平均年龄的部分算法流程图如图所示，其中:c用来记录已输入球员的人数，sum用来计算有效数据之和，d用来存储输入的球员年龄值，输入0时表示输入结束。

图中空白处理框①和②处应填入的是（）

A . ①sum←sum+d，②c←c+1 B . ①sum←sum+c，②c←c+1 C . ①sum←sum+d，②d←d+1 D . ①sum←sum+c，②d←d+1

下图所示的计算机网络拓扑结构为（）。

A . 总线型 B . 星型 C . 环形 D . 网状型

为了维护信息安全，网上活动的参与者即创造、使用信息的人都要加强网络道德自律和提升网络素养，自觉遵守网络道德规范。

在以下设备中不是常见的输入设备的是（）

A . 话筒 B . 键盘 C . 鼠标 D . 打印机

有如下VB程序段：

'a（1）到a（10）中的元素依次为8，3，5，9，7，5，7，6，5，4

n=10

For k=1 To n\3

p=3 * k-2

x=p

For t=p+1 To 3 * k

If a（t）<a（x）Then x=t

Next t

If p<>x Then

y=a（p）：a（p）=a（x）：a（x）=y

End If

Next k

程序运行结束后，以下数组元素的值错误的是（）

A . a（2）=8 B . a（5）=7 C . a（7）=3 D . a（10）=4

在Windows7中，在“任务栏”内能进行的操作是（）。

A . 切换窗口 B . 排列图标 C . 设置系统日期和时间 D . 启动“开始”菜单

Internet使用的主要网络通信协议是( )，中文意思是“传输控制协议/网际协议”。

A . TCP/IP B . NetBEUI C . IPX/SPX D . ATM LAN

算盘作为一种简便的计算工具，曾经在日常生活中深受人们的喜爱。然而，随着数字化浪潮的掀起，电子计算器的普及使算盘逐渐淡出公众生活。

（1）下列哪个设备（或事物）也正在逐步淡出公众生活。

A . 电视机 B . 纸质信件 C . 手机 D . 数码相机
（2）对上题选择的设备（或事物）造成的冲击是。

A . 寻呼机 B . E-mail C . 磁带录音机 D . 胶卷
（3）请分析算盘逐渐淡出公众生活的主要原因。（要求：从算盘的劣势进行分析，列出三个你认为最重要的原因）

设半径r为双精度实数，先求圆的面积s，并对结果保留两位小数，对第三位小数四舍五入。为了实现这一目标，程序中划线处应填写的表达式是（）

Dim r As Double, s As Double

r=Val(text1.text)

Text2.Text=Str(s)

A . Int ( 3.14 * r * r *10 + 0.5 ) / 10 B . Int ( 3.14 * r * r * 100 + 0.5 ) / 100 C . Int ( 3.14 * r * r *1000+ 0.5 ) / 1000 D . Int ( 3.14 * r *2 * 100 + 0.5 ) / 100

不属于信息采集工具的是（）

A . 扫描仪 B . 摄像机 C . 录音设备 D . 打印机

小美在研究自定义货币系统，她想知道和自己定义的任意货币系统等价，同时面额种数最少的货币系统中有多少种面额。例如，和{3,6,10,19}等价的货币系统中，面额种数最少的是{3,10}，即可用{3,10}表示{3,6,10,19}中的任意数。

在寻找等价货币系统时，小美发现了如下规律：

1）与给定货币系统等价的货币系统必定是该货币系统的子集；

2）如果货币系统中的某个面额可以被其他货币表示时，该面额是无效的；

为此，小美按照如下方法构造最小等价货币系统B：先将原货币系统A的所有面额升序排序，每次把A中可以被B中的货币表示的面额删去后，将A中的最小面额放入B中。以此类推。基于此方法，小美编写了如下程序，在文本框Text1中输入给定的货币系统，单击按钮Command1后，在标签Label1中输出与其等价的货币系统的最小面额种数，在标签Label2中输出该货币系统。程序运行界面如图所示。

（1）若给定货币系统为{4,6,8,14,22}，则与其等价的面额种数最少的货币系统为。
（2）按此要求编写的程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

    Dim s As String, tmp As String, c As String

    Dim n As Integer, i As Integer, j As Integer, ans As Integer

    Dim a(1 To 100) As Integer, b(1 To 10000) As Boolean

    '数组b(i)用于表示值i能否用已经放入新货币系统中的面额来表示

    '此段程序用于将给定货币系统存储在a数组中并将其元素个数存储在变量n中

    s = Text1.Text

    tmp = "": n = 0

    For i = 1 To Len(s)

       c = Mid(s, i, 1)

        If c >= "0" And c <= "9" Then



        ElseIf tmp <> "" Then

            n = n + 1

           a(n) = Val(tmp)

            tmp = ""

        End If

    Next i

    For i = 1 To n - 1

      For j = n To i + 1 Step -1

          If Then

                t = a(j): a(j) = a(j - 1): a(j - 1) = t

            End If

      Next j

    Next i

    ans = 0: s = "{"

    For i = 1 To a(n)

      b(i) = False

  Next i

   For i = 1 To n

        If Not b(a(i)) Then

            ans = ans + 1

            If ans <> 1 Then s = s + ","

            s = s + CStr(a(i))    'Cstr函数用于将数值变量转为字符串变量并去除首位空格



            For j = a(i) + 1 To a(n)

                If b(j - a(i))= True Then b(j) = True

            Next j

        End If

   Next i

   s = s + "}"

    Label1.Caption = "与之等价的最小货币系统面额种数为" + Str(ans)

   Label2.Caption = "其为" + s

End Sub