相关试卷

1、下列有关网页和电子邮件的说法，正确的是（）

A、网页用URL标识其在网络上的位置 B、SMTP协议可以把邮件直接发送到收件人计算机中 C、HTML文件中包含了文字、超链接和图片、视频 D、使用同一个搜索引擎，不同时间的检索结果肯定相同

查看解析
2、下列关于信息和信息技术的描述，正确的是（）

A、假新闻的产生可以不依赖于数据与信号 B、GDP（国内生产总值）的数据是信息加工处理的结果 C、古代社会中，同时存在模拟信号和数字信号 D、计算机技术的特点是速度快、容量大、稳定性差

查看解析
3、一名商人在A地采购了n吨大米（n<=150），需要船只运送到B地。现在码头上停靠着10艘船，载重量在15到30吨之间且均不相同，同时运费单价（单位：元/吨）也存在差异。为了找出运费总数最少的方案，该商人先将10艘船的运费单价从小到大排序，若船只运费单价相同，则按船只载重量大到小排序。上述步骤完成后，将n吨大米依次装入排好序的船只中，若最后一只船装不满，则按实际装运大米的重量付运费。程序运行界面如16题图所示：单击“排序”按钮后，船只信息按照要求排序并在列表框List1中输出；在文本框Text1中输入大米总数n吨，单击“计算”按钮，将在列表框List2中列出所选船只编号，并在文本框Text2中显示运费总数。

(1)、若图中7号船的载重量由“28”改为“22”，现有60吨大米需要运送，则该商人应选择的船只编号为（若有多个编号，用“，”隔开）

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim yf(1 To 10) As Integer, v(1 To 10) As Integer, b(1 To 10) As Integer

Private Sub Command1_Click()

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

    List1.AddItem "船只编号" + " " + "载重量" + " " + "运费单价" List2.AddItem "船只编号"

    For i = 1 To 10     '对船只进行编号

        b(i) = i

    Next i

    '随机生成10艘船的运费单价，数值在100到200之间，代码略

    For i = 1 To 10    '随机生成10艘船载重量，载重量均不相同

        v(i) = 15 + Int(Rnd() * 16)

        For j = 1 To i - 1

            If v(i) = v(j) Then : Exit For

        Next j

    Next i

    For i = 1 To 9

        For j = 10 To i + 1 Step -1

            If Then

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

            End If

        Next j

    Next i

    '在list1中输出10艘船的编号、载重量、运费单价，代码略

End Sub

Private Sub Command2_Click()

    Dim n As Integer, k As Integer

    Dim sum As Long

    n = Val(Text1.Text): sum = 0 k = 1

    Do While n > 0

        If n >= v(b(k)) Then



        Else

            sum = sum + n * yf(b(k))

        End If

        List2.AddItem Str(b(k)) n = n - v(b(k))

        k = k + 1

    Loop

    Text2.Text = Str(sum)

End Sub

查看解析
4、找出一个随机数列（长度为n）中的最长非降序段，计算其长度。非降序段中如果存在连续相等的数，则忽略，如非降序段2,3,4,4,5，长度计为4。
编写如下VB程序，实现上述功能。运行程序，在文本框Text1中输入随机数列“19,21,3,5,18,18,18,23,25,10,11,12,17,17,7”，单击“统计”按钮，在文本框Text2中输出5。

程序运行界面如图所示。

(1)、观察程序界面，窗体中至少包含个对象。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim a(1 To 100) As Integer     '数组a依次存放数列中的数Dim n As Integer

Private Sub Command1_Click( )

    Dim i As Integer, k As Integer, max As Integer, t As Integer Dim s As String, ch As String

    s = Text1.Text n = Len(s)

    i = 1: k = 1

    Do While i <= n

        ch = Mid(s, i, 1)

        If ch <> "," Then Else k = k + 1 i = i + 1

    Loop

    i = 1: max = 0

    Do While i <= k

        t =

        If t > max Then max = t i = i + t

    Loop

    Text2.Text = Str(max)

End Sub

Function length(p As Integer) As Integer        '函数功能是计算a(p)开始的非降序段长度

    Dim j As Integer, c As Integer

    j = p: c = 1

    Do While j <= n – 1

        If Then

            If a(j) < a(j + 1) Then c = c + 1 Else

            Exit Do

        End If

        j = j + 1

    Loop

    length = c

End Function

(3)、程序加框处代码有错，请改正。

查看解析
5、小明制作主题为“浙江名人馆—金庸”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：

(1)、处理图像的部分界面如图a所示。下列说法正确的有（多选，填字母）。

图a

A、将“金庸.psd”文件存储为JPG格式后，JPG文件不可见“边框”图层的“描边”效果 B、用油漆桶工具修改“侠之大者为国为民”图层的文字颜色 C、用滤镜为“浙江名人馆”图层添加特效 D、用“文字工具”修改“金庸”图层的字体 E、将“底纹”图层移动到“对联”图层的上方 F、对“背景”图层添加图层样式

(2)、制作动画作品的部分界面如图b所示。观察界面可知当前库中有类元件。

(3)、观察图b可知“对联”图层中补间的类型为（选填：动画 / 形状）。

图b

(4)、要使“对联”图层的补间动画只在当前场景的最后1秒播放，可做的调整是。

(5)、“按钮”图层最后1帧上设置了停止动画播放的动作脚本。在“导航”按钮上添加动作脚本，单击该按钮，动画将转到下一场景第1帧并播放，实现此功能的动作脚本为（多选，填字母）。

A、on(release){play();} B、on(press){gotoAndPlay(1);} C、on(release){gotoAndPlay("导航",1);} D、on(press){getURL("导航",1); play();} E、on(release){gotoAndStop("导航",1);play();}

查看解析
6、王老师收集了学校高一英语周竞赛的数据，并使用Excel软件对数据进行处理，如图a所示。

图a

(1)、如图a所示，高一01班总分平均Y4单元格的公式为。

(2)、需要找出年级排名前十的同学颁奖，以下方法可行的有（多选，填字母）。

A、对“总分”列数据进行升序排序后，在最前面取年级排名前十的同学 B、对“年级排名”列数据进行升序排序，在最前面取年级排名前十的同学 C、按“总分”进行筛选，选择“10个最大的值”并显示最大的10项 D、按“年级排名”进行筛选，选择“10个最大的值”并显示最大的10项

(3)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是。

图b

查看解析
7、有一个整数数列（长度为n），数值的规律为先升序，后相等，最后降序。如3,6,18,18,10,9,8,7,5，现要找到升序的终点位置，即第一个18所在的位置3，将数列依次存入数组a，部分程序如下：
i=1: j=n

Do While i<=j

    m=(i +j)\2

    If Then

        i= m+1

    Else

        j=m- 1

    EndIf

Loop

Text1.Text=

若要实现上述功能，方框处的代码应是（）

A、a(m - 1) <= a(m) Str(j) B、a(m - 1) < a(m)      Str(j) C、a(m - 1) <= a(m) Str(i) D、a(m - 1) < a(m)     Str(i)

查看解析
8、采用冒泡排序算法对某数据序列进行排序，经过第一轮排序后的结果是“2,8,3,6,7,5,9”，那么原数据序列不可能的是（）

A、8,3,6,7,5,2,9 B、8,3,6,7,2,5,9 C、2,8,3,9,6,7,5 D、8,3,6,7,2,9,5

查看解析
9、有如下VB程序段：
s = "spring winter"：s1 = ""
n = Len(s)

For i = 1 To n \ 2

    If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then s1 = s1 + Mid(s, i, 1)

    Else

        s1 = Mid(s, n - i + 1, 1) + s1

    End If

Next i

Text1.Text = s1

执行该程序后，在文本框Text1中显示的是（   ）

A、wprtnr B、sptnnw C、rtwprn D、wntspn

查看解析
10、有两个字符串s1、s2（s2中字符不重复），若s2中的字符按顺序在s1中依次出现，则称s2是s1的子串。例：s1="acde"，s2="ce"，则s2是s1的子串。实现该功能的VB程序段如下：
s1 = Text1.Text: s2 = Text2.Text

i = 1: j = 1

Do While i <= Len(s1) And j <= Len(s2)

    If Mid(s1, i, 1) = Mid(s2, j, 1) Then

Loop

If Then Label1.Caption = "是子串" Else Label1.Caption = "不是子串"

方框处的可选语句为：

①i = i + 1        ②j = j + 1 ③i > Len(s2) ④j > Len(s2)

以下选项正确的是（   ）

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

查看解析
11、某算法的流程图如图所示。执行这部分流程，若输入s的值为“schoolxzzx”,则程序结束后变量c和i的值为（）

A、“z”,8 B、“x”,7 C、“z”,7 D、“x”,8

查看解析
12、若x是能被7整除的正整数，下列表达式一定成立的是（）
① x mod 7=0 ② x\7=0 ③ Int(x/7)=x/7 ④ x/7=x\7

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

查看解析
13、下图Flash编辑界面中，“music”图层里的声音素材是采样频率为32kHz、量化位数为16bit、双声道未经压缩的Wave格式音频文件。场景动画播放到当前帧时声音素材刚好完整地播放了一遍。则该声音素材的存储容量约为（）

A、125KB B、250KB C、500KB D、1000KB

查看解析
14、使用GoldWave软件编辑某音频文件，部分界面如图所示。

下列说法正确的是（）

A、当前音频文件1秒钟的数据量约为176KB B、执行“删除”操作后，音频文件时长变为12秒 C、执行“静音”操作后，整个左声道的音频将无法听到 D、当前状态下通过“插入静音”操作插入10秒静音，音频文件的容量不变

查看解析
15、使用UltraEdit软件观察字符“2021 JX建党百年”的内码，部分界面如图所示。
下列说法正确的是（）

A、字符“2”的内码占两个字节 B、字符“X”的十六进制码是“4A” C、字符“j”的二进制码是“01001010” D、图中有8个ASCII码字符

查看解析
16、使用Access软件打开数据库，部分界面如下图所示，下列说法正确的是（）

A、当前打开的数据库文件名是“学生基本信息.accdb” B、在当前记录前插入一条记录，总记录数变为 2305 C、可在表视图中删除当前数据表的所有字段 D、若“学籍号”字段为主键，则该字段的值不能为空

查看解析
17、用IE浏览一个图文并茂的网页，地址栏信息为“http://www.zjfc.com/default.html”。下列描述正确的是（）

A、HTTP用于描述网页上的元素，可使用浏览器对网页进行编辑 B、网页中图像、声音、视频、动画都保存在default.html文件中 C、超链接能实现不同网站网页间的链接，每个网页都有独一无二的URL D、HTML用于浏览器与Web服务器之间的信息传输，访问万维网上的网页需要遵守该协议

查看解析
18、以下关于信息及信息技术的描述正确的是（）

A、信息的表示、传播、存储不一定依附于某种载体 B、信息不能脱离它所反映的事物被存储、保存和传播 C、信息技术是伴随着计算机和互联网技术的发展而诞生的 D、近代信息技术包括摄影技术、电影技术、广播和电视技术等

查看解析
19、用Flash软件打开“火灾安全.fla”文件，编辑界面如图所示。

请回答下列问题：

(1)、下列关于多媒体作品设计流程的说法，不正确的有：（多选，填字母：A .确定该作品的适用人群属于创作需求分析/B .制作脚本可以作为多媒体作品制作的直接依据/C .确定作品的结构类型属于系统结构设计/D .媒体元素分解表中需要包含元素内容、获取方式等信息/E .确定该作品通过光盘和网络发布属于应用需求分析）。

(2)、图中“文字”图层第20帧到第50帧实现了文字“人人防灾防火”逐渐变成“家家平安快乐”的动画效果,则该动画的类型是（选填文字：逐帧动画/动画补间/形状补间）。

(3)、“背景音乐”图层添加了一段时长为30秒的音频文件，小莉发现动画结束后声音仍在播放,要求使音乐在文字出现时才播放，且动画结束后音乐停止，应进行的操作是。

(4)、测试场景时，发现按钮从一开始就出现并持续到最后，若要使按钮在最后一帧才出现并且不改变其他动画效果，下列可行的操作有（多选，填字母）。

A、将“按钮”图层第1帧移动到第50帧 B、选中“按钮”图层第1帧执行“清除关键帧”操作 C、选中“按钮”图层第1帧至第49帧执行“清除帧”操作 D、删除“按钮”图层第一帧舞台中的内容

(5)、动画播放到“片头”场景最后一帧自动停止同时按钮出现，要求按下按钮实现跳转到“主界面”场景第1帧并停止播放，可在按钮上添加动作命令。

查看解析
20、单词的删除与插入。给定一个长度不超过100位的字符串s，显示在Text1中，先对字符串进行删除单词操作，再对其进行插入单词操作，两种操作方式具体如下：
1）操作1（单词的删除）：在Text2中输入一个单词s1，在字符串s中找到左边第一个出现的相同单词（区分大小写），将其删除,并在Label1中显示删除单词的位置pos；若s中不存在单词s1，则字符串s不变。

例如：s=“Go with your your passion．”s1=“your” 点击“删除”按钮后，s=“Go with your passion．”pos=“9”若s1=“Your”,则s不变。

2）操作2（单词的插入）：在Text3中输入一个单词s2，并在Text4中输入插入位置w，将s2插入到经过删除操作的s中以w开始的位置。

例如：s=“Go with your passion．”s2=“absolutely” w=21

点击“插入”按钮后，s=“Go with your passion absolutely．”

程序运行界面如下图所示。

实现上述功能的VB程序如下。请回答下列问题：

(1)、观察程序运行界面和代码，该界面中共有类对象（填数字）。

(2)、标题若要修改为“单词的先删除后插入操作”，需修改窗体的属性。

(3)、请在划线处填入合适的代码。
Dim s As String

Private Sub Command1_Click( )     '实现删除单词命令

Dim s1 As String, t As String, i As Integer, pos As String, result As String Dim begin As Integer, word As String

s = Text1．Text s1 = Text2．Text begin = 1

For i = 1 To Len(s)

    t =

    If Not (t >= "a" And t <= "z" Or t >= "A" And t <= "Z") Then

        If i > begin Then

            word =

            If word = s1 Then    ‘找到与s1相等的单词，则将该单词删除

                s = Mid(s, 1, begin - 1) + Mid(s, i+1, Len(s) - i)

                pos =

                Exit For

            End If

        End If

        begin = i + 1

    End If

Next i

Text5|.Text = s

Label1.Caption = pos End Sub

Private Sub Command2_Click()      '实现插入单词命令

    Dim w As Integer, result As String, s2 As String s2 = Text3.Text



    result = + " " + s2 + " " + Mid(s, w, Len(s) - w + 1) Text5．Text = result

End Sub

查看解析

上一页 909 910 911 912 913 下一页跳转