高中信息技术：

高中信息技术

计算机要访问因特网需要安装一系列的网络协议，其中最基本的通讯协议是（）

A . TCP/IP B . HTTP C . WWW D . UDP

如图所示，该文稿所采用的排版方式是（）

A . 框架结构 B . 设置分栏 C . 纵横混排 D . 图文混排

“茉莉花茶文化”研究性学习小组为了更好的开展研究工作，除了上网查资料外，他们还拟订了获取第一手资料的其他方法，其中较便捷的是（）

①考察学校附近的茶厂 ②访问学校附近的茶商

③收听广播　④亲自品茶

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

VB窗体中既能用于接受输入文本字符，又能用于显示文本字符的对象控件是（）

A . Label对象 B . TextBox对象 C . CommandButton对象 D . ListBox对象

下列有关信息和信息表达的说法，不正确的是( )

A . 信息必须依附于一定的载体，所以信息不可以脱离它所反映的事物被存储、保存和传播 B . 不恰当的信息表达和传递，如小道消息，体现了信息具有真伪性 C . 常用的信息表达技术有：报纸、书籍、广播、电视、网络等 D . 计算机、通信、网络等各项工作中的一系列协议，体现了信息表达的规范化

数据库是一个长期存储在计算机内的、有组织的、可共享的、统一管理的集合。

到目前为止，人工智能的发展历史大致可分为（）

A . 两个阶段 B . 三个阶段 C . 四个阶段 D . 五个阶段

罗马数字是阿拉伯数字传人之前使用的一种数码。罗马数字采用七个罗马字母作数字，即I（1）、X（10）、C（100）、M（1000）、V（5）、L（50）、D（500）。记数的方法如下：

①相同的数字连写，所表示的数等于这些数字相加得到的数，如Ⅲ=3；

②小的数字在大的数字的右边，所表示的数等于这些数字相加得到的数，如Ⅷ=8、XⅡ=12；

③小的数字（限于Ⅰ、X和C）在大的数字的左边，所表示的数等于大数减小数得到的数，如Ⅳ=4、Ⅸ=9；

王老师设计了一个将罗马数字转换成阿拉伯数字的程序，实现该功能的程序代码如下：

Private Sub Command1_Click()

Dim a（1 To 10）As String

Dim b（0 To 10）As Integer

Dim x As String，c As Integer，j As Integer

x=Text 1.Text

j=Len（x）

b（0）= 0

c=0

For i=1 To j

a（i）= Mid（x,j-i+1,1）

b（i）=zh（a（i））

If ① Then

c=c-b（i）

Else

c=c+b（i）

End If

Next i

Label2.Caption="结果："+Str（c）

End Sub

Function zh（xAs String）As Integer

s="IVXLCDM"

zh=1

For i=1 To 7

If Then

Exit For

Elself ② Then

zh=zh*5

Else

zh=zh*2

End If

Next i

End Function

（1）程序界面如图所示，程序中共包含个对象。
（2）加框处代码有错，应改为。
（3）为完善程序，在划线处填入合适的代码。
①②
（4）罗马数字MCMLXXX转换成阿拉伯数字为。

QQ音乐是一款付费音乐播放器。

在Photoshop软件中新建一个图像文件，相关参数如图所示，保存为未经压缩的BMP文件，则其存储容量为( )

A . 6.75 MB B . 2.25 MB C . 768 KB D . 384 KB

在Text1中输入一个1-26之间的数字n，点击“产生”按钮，在Text2中产生n个不重复的大写字母，中间用逗号隔开（图a），点击一次“最小值”按钮，Text2中最小的字母会掉落到List1中，并将Text2中对应的字母和后面的逗号删除（图b），再点击一次“最小值”按钮，剩余字母中的最小值继续掉落（图c）。（ASC(“A”)=65，CHR(65)=“A”）

（1）根据描述，如产生的字母为“H,K,C,B,N,”，第三次点击“最小值”按钮后Text2中显示内容为；
（2）请在划线处填入合适的代码。
Private Sub Command1_Click()

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

    Dim zm As Integer, flag As Boolean, zf As string

    Randomize       ‘重置rnd函数，确保每次产生的随机数不一致

    zf = ""

    n = Val(Text1.Text)

    For i = 1 To n



        zm = Int(Rnd * 26 + 65)

        For j = 1 To Len(zf) Step 2

            If Asc(Mid(zf, j, 1)) = zm Then



                flag = True

                Exit For

            End If

        Next j

        If flag = False Then zf = zf + Chr(zm) + "，"

    Next i

    Text2.Text = zf

End Sub

Private Sub Command2_Click()

    Dim i As Integer, zf As string

    zf=Text2.Text

    k = 1

    For i = 3 To Len(zf) - 1 Step 2

      If Mid(zf, k, 1) > Mid(zf, i, 1) Then k = i

    Next i

    List1.AddItem Mid(zf, k, 1)

    Text2.Text =

End Sub