相关试卷

1、访问Web网页接收邮件时，未用到下列哪个协议（）

A、SMTP B、POP3 C、HTTP D、TCP／IP

查看解析
2、下列有关信息的说法，不正确的是（）

A、信息的规范化有利于信息的表达与交流 B、人们一时一刻也离不开信息，信息无处不在 C、信息在传递和共享的过程中，可能会使其使用价值降低 D、信息必须依附于某种载体，但某种载体上可能不存在任何信息

查看解析
3、【加试题】某校根据考生名单次序安排试场座位，试场座位分布为“S”形。例如试场安排为5组6排，则第一试场内考生座位分布如图1所示，超过该试场人数的考生，将按相同规则顺延至下一考场，且每场第一组座位都从上至下排列。座位安排算法如下：

⑴根据每试场安排的人数，判断输入的试场号是否在试场总数范围内，若是则转到⑵，否则重输试场号；

⑵根据考生次序和试场人数，计算每一考生所在试场号存入数组sc；

⑶计算考生在本试场中的次序，再根据试场安排的排数，计算考生座位所在的组数和排数，分别存人数组z和数组P。座位分布为“S”形，奇数组和偶数组座位排列顺序不同。

根据以上算法编写VB程序，在文本框Text1中输入组数，在文本框Text2中输入排数，在文本框Text3中输入试场号，单击“查询”按钮Command1，在List1中显示该试场座位表(名字前的数字是考生在名单中的次序)，运行界面如图2所示。

(1)、试场安排为7组5排，“S”形分布方式如上，则名单中第50个考生将被排在       (填写格式如：第X试场第X组第X排)。

(2)、请在画线处填入合适的代码。
Dim xm(1 To 1 000)As String

Dim n As Integer

Private Sub Form_Load()

‘本过程从数据库中读取考生姓名存储在xm数组，考生人数存储在n变量中，代码略

End Sub

Function qxs(a As Single)As Integer

    qxs=Abs(Int(a*(-1))

End Function

Private Sub Command1_Click()

Dim X As Integer，i As Integer，k As Integer，num As Integer

Dim sc(1 To 1 000)As Integer         ‘存储考生所在试场号

Dim z(1 To 1 000)As Integer        ‘存储考生座位所在的组数

Dim p(1 To 1 000)As Integer         ‘存储考生座位所在的排数

sc_z=Val(Text1．Text)               ‘存储试场安排的组数

sc_p=Val(Text2．Text)               ‘存储试场安排的排数

‘list1中输入“讲台”字样，代码略

num= sc_z*sc_p

x=Val(Text3．Text)

If x>0 And    ①    Then

    For i=1To n

       sc(i)=qxs(i／num)

        k=i Mod num

      z(i)=qxs(k／sc_p)

      If k<>0 Then

            If z(i)Mod 2=1 Then

              p(i)=k-(z(i)-1)* sc_P

            Else

              p(i)=    ②    -(k-(z(i)-1)* sc_p)

          End If

      Else

          z(i)= sc_z

             If z(i)Mod 2=0 Then p(i)=1 Else    ③

    End If

Next i

‘本过程实现在List1中显示x试场座位表，代码略

Else

    MsgBox(“输入的试场号，已超出试场总数，请重输”)

    Text1．Text=" "

    Exit Sub

End If

End Sub

① ② ③

查看解析
4、【加试题】用VB编写程序，在文本框Text1中输入任意字符串s，统计s中数字字符串的数值和(如输入字符串“ab123dr34fg9de”，则输出166，即123+34+9=166)．并存Label3中输出结果。程序设计界面如图所示：

根据算法将下列程序补充完整。

Private Sub Command1_Click()

Dim S As String，ch As String

Dim ch2 AS String，sum As Double

Dim n As Integer，i As Integer

s=Text1．Text

    ①

i=1：sum=0

Do While i<=n

      ch=Mid(s，i，1)

      If ch>=“0”And ch<=“9”Then

      j=i

        ch2=Mid(s，j，1)

        Do While ch2>=“0”And ch2<=“9”

          j=j+1

         ch2=Mid(s，j，1)

        Loop

       sum=sum+    ②

       i=j

    EndIf

    i=i+1

Loop

    Label3．Caption=Str(sum)

End Sub

(1)、①处应填；

(2)、②处应填。

查看解析
5、小文创作“我想看世界”的多媒体作品。她首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画，回答下列问题：

(1)、以下可能会改变PSD文件图层数量的操作有 (多选，填字母：

A、复制图层／ B、向下合并／ C、添加“图层样式”／ D、用“直排文字工具”添加文字)(注：选全得满分，不选或选错不得分，少选且选对得部分分)

(2)、用Flash制作的动画时间轴如图1所示。
图1
“音乐”图层中导入了一个存储容量为862 KB的music．wav(44 100 Hz，16 bit，单声道)文件，其音乐属性如图2所示。
测试场景时，该音乐播放时长约秒。

(3)、单击“控制”图层中的“关闭”按钮关闭放映文件，则在该按钮上添加的动作脚本是。

(4)、影片剪辑“太阳”元件将实现由云朵逐渐变成太阳的动画，部分界面如图3所示。动画设置不成功的原因是。

查看解析
6、对称字符串从左读到右和从右读到左完全一样，如“1221”“12321”。编写VB程序，判断输入字符串是否对称，程序运行界面如图a所示，在文本框Text1中输入字符串，单击Command1按钮，在标签Label2上显示判断结果。

(1)、在设计程序界面时，要在Command1按钮上显示“判断”二字，应修改该按钮的属性。

(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click()

    Dim S As String，c1 As String，c2 As Integer

    Dim n As Integer，i As Integer

    Dim f As Boolean

    s=Text1．Text

    n=Len(S)

    f=True

    For i=1 To n＼z

    c1=   ①

    c2=Mid(s，n-i+1，1)

    If c1<>c2 Then

        f=False

        Exit For

      EndIf

    Next i

   If    ②    Then

       Label2．Caption=“对称”

    Else

       Label2．Caption=“不对称”

    EndIf

End Sub

① ②

(3)、运行该程序，在文本框中输入aba，单击“判断”按钮后，出现图b所示错误提示，引起该错误的原因是(单选，填字母：A，变量s的数据类型错误；B，变量c2的数据类型错误；C，变量f的数据类型错误)。

查看解析
7、小李收集2016年9月全国轿车销量数据，并用Excel软件处理，如图a所示。请回答下列问题：

(1)、其他品牌的“本年累计”数据是从其他品牌的“本月销量”利用自动填充功能得到的。则D19单元格的公式是。

(2)、若要将“中华”品牌的轿车按“本月销量”进行降序排序，则选择排序区域是。

(3)、为进一步方便查看某些车型的销售情况，筛选出的数据如图b所示，筛选的字段为。

(4)、根据图a中的部分数据，筛选前建立了如图c所示的图表，则上题筛选完成后，图表(填：会／不会)发生变化。

查看解析
8、【加试题】实现某对分查找算法的VB程序段如下：
a（1）=12：a（2）=32：a（3）=70：a（4）=88：a（5）=90：a（6）=97

i=1：i=6：n=0

key=Val(Text1．Text)

Do While i<=j

    n=n+1

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

    If key=a(m)Then Exit Do       ‘Exit Do表示退出循环

    If key<a(m)Then j=m-1 EIse i=m+1

Loop

Text2．Text=Str(n)

运行程序，在文本框Text1中输人100，程序段运行后，文本框Text2中显示的内容为（）

A、1 B、2 C、3 D、4

查看解析
9、【加试题】有如下VB程序段：
For i=1 To 3

    For j=5 To i Step-1

     If a(j)<a(j+1)Then

           k=a(j)：a(j)=a(j+1)：a(j+1)=k

       EndIf

    Next j

    Listl．AddItem Str(a(i))

Next i

数组元素a（1）到a（6）的数据依次为“1，5，7，6，9，3”，经过该程序段加工后，列表框List1中显示的内容是（）

A、9 7 6 B、1 3 5 C、9 7 6 1 5 3 D、9 7 6 5 3 1

查看解析
10、【加试题】如图为Photoshop新建文件界面，若作品完成后，不改变参数保存成BMP图像，其存储容量约为（）

A、11 MB B、0.46 MB C、3.66 MB D、1.37 MB

查看解析
11、在Flash软件中编辑“退出”按钮元件的部分界面如图所示，下面描述正确的是（）

A、该按钮无法正常使用 B、当按钮按下时会发出声音 C、当指针经过按钮时按钮不可见 D、当鼠标经过按钮时，鼠标变成手型

查看解析
12、在Photoshop中编辑某PSD文件，部分界面如图所示。

下列说法正确的是（）

A、这是一幅具有256种颜色的RGB位图 B、可以通过仿制图章工具复制出第二个心形 C、只能用“文字”工具改变“微笑”图层文字大小 D、文档状态栏中的“1.44 M”是PSD格式图像容量

查看解析
13、用UltraEdit软件观察某字符串的内码，界面如图所示。

下列说法正确的是（）

A、所有字符共占8个字节 B、第一个字节转成十进制是75 C、有3个GB2312字符 D、有5个ASCII字符

查看解析
14、某算法的部分流程图如图所示，执行这部分流程，则“s≤100？”被执行的次数是（）

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

查看解析
15、使用Access软件创建一张数据表，其设计视图如图所示。在数据表视图录入数据时，下列操作能实现的是（）

A、在“唱片编号”字段中输入“CD-10001” B、在“CD唱片类型”字段中输入“是” C、在“购买日期”字段中输入“2015＼12＼25” D、在“唱片简介”字段中输入“这是一张有传奇声誉的CD”

查看解析
16、下列应用中，没有应用人工智能的是（）

A、使用翻译软件进行中英互译 B、使用扫描仪对杂志封面进行扫描 C、使用语音输入法进行文字录入 D、使用OCR对图片文件中的文字进行识别

查看解析
17、下列网络相关术语的说法，错误的一项是（）

A、HTML：超文本标记语言，是静态网页的表达规范 B、SMTP：简单邮件传输协议，主要用于从服务器读取邮件 C、HTTP：超级文本传输协议，主要用于网页的传输解释执行 D、URL：统一资源定位器，即通常所谓的“网址”

查看解析
18、下列有关信息和信息技术的说法，不正确的是（）

A、气象部门通过遥感遥测的方式获取气象信息 B、人们从实践中获取的信息，经过大脑的加工可以变得更加系统 C、浙江省高考报名时要求采集学生身份证信息，是为了保证信息的实时性 D、Facebook Photo Magic能够识别照片中的人物，此应用主要体现了人工智能技术

查看解析
19、【加试题】在计算机系统中，数值一般用补码来表示和存储，补码由符号位和数值位两部分组成，符号位用0表示正数，用1表示负数。例如，整数n（-128≤n≤127）用8位二进制补码的表示方法为：

①数：正整数补码的数值即其二进制表示。

例：12的8位二进制表示00001100，最高位即符号位“0”表示正数。

②数：除符号位外，所有位取反，然后+1。

例：-5的8位二进制补码表示方法如下，5对应7位二进制数为0000101(原码)，所有位取反后为1111010(反码)，再加1后为1111011(补码)，再设置符号位为1，因此-5用8位二进制补码表示为11111011。

   小明设计了一个VB程序，点击“补码”按钮Command1，将文本框Text1中输入的整数n(-128≤n≤127)转换成相应的补码，并在文本框Text2中输出，程序运行界面如图所示，请将画线处的代码补充完整。

Private Sub Command1_Click()

Dim n As Integer，a As Integer，i As Integer

Dim m(1 To 8)As Integer

Text2．Text=" "

n=Val(Text1．Text)

If n>=0 Then

    ‘计算二进制原码

    For i=8 To 2 Step-1

      m(i)一n Mod 2

      n=n\2

    Next i

    ‘设置符号位

    m（1）=0

Else

    n=-n

   ‘计算二进制反码

    For i==8 To 2 Step-1

      m(i)=    ①

      n=n\2

    Next i

    ‘加1计算

    i=8

    Do While m(i)=1

         ②

        i=i-1

      Loop

      m(i)=1

    ‘设置符号位

    m（1）=1

EndIf

  ‘输出结果

For i=1 To 8

    Text2．Text=Text2．Text & m(i)

Next i

End Sub

(1)、-27用8位二进制补码表示为；

(2)、请在画线处填入合适的代码。
① ②

查看解析
20、【加试题】对分查找算法可用于求解方程的近似解。现要求方程x³-4x²+x+5=0的一个近似解，可设f(x)=x³-4x²+x+5，若有区间[a，b]，使f(a)与f(b)异号，则该区间内必存在该方程的一个解。小吴为此编写了VB程序，功能如下：分别在文本框Text1和Text2中输入求解的区间值a和b(a<b)，单击“计算”按钮Command1，若该区间必有解，则求解出该区间内的一个近似解(精确到10 s)，否则提示“重新输入区间”，计算后的相关结果显示在列表框List1中。程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Function f(x As Double)As Double

    Dim Y As Double

    y=x^3-4*x^2+x+5：              ‘（1）

End Function

Private Sub Command1_Click()

    Dim a As Double，b As Double，m As Double，x As Double

    a=Val(Text1．Text)：b=Val(Text2．Text)

    If f(a)*f(b)<0 And a<b Then

       Do While a<=b

       m=(a+b)／2

     If Abs(f(m))<0.00001 Then Exit Do

       If <0 Then         ‘（2）

        b=m

       Else

          a=m

     EndIf

      Loop

      x=Format(m，“0．00000”)     ‘Format函数用于定义输出的小数位数

      List1．AddItem"["&Text1．Text&"，"&Text2．Text&"]" & "解为："＆x

    Else

      List1．AddItem"["&a&"，"&b＆"]" & "重新输入区间"

  EndIf

End Sub

(1)、⑴处改为；

(2)、⑵处改为。

查看解析

上一页 1637 1638 1639 1640 1641 下一页跳转