相关试卷

1、有如下VB程序段：
Dim a(1 To 6) As Integer

Sum =0

For i= 1 To 6

    For j = i+1 To 6

        If j Mod i =0 Then a(j)=1 – a(j)

    Next j

Next i

For i=1 To 6

    Sum Sum+ Str(a(i))

Next i

Text1. Text = Str(Sum)

该程序段运行后，文本框Text1中显示的内容是（    ）

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

查看解析
2、已知a=-2，b=5，c=8，下列表达式的值为False的是（）

A、a+b>b-c And a-c<a-b B、a+c>b-c or Not b<c C、a<c\b Or b>c And a<c D、c mod a<a-b

查看解析
3、使用Photoshop软件编辑某图像的部分操作界面如图所示。

在当前状态下，下列说法正确的是（）

A、使用“仿制图章”工具可以把“蝴蝶”图层中的对象仿制到“布”图层中 B、可以直接对“放飞思想”图层设置“风”滤镜 C、交换“放飞思想”图层与“蝴蝶”图层的顺序，会影响图像效果 D、将作品存储为BMP格式文件，“放飞思想”文字会呈现“投影”效果

查看解析
4、使用GoldWave软件对某音频文件进行处理，部分界面如图所示。

下列说法正确的是（）

A、352 kbps的含义是该音频每秒钟播放352千字节 B、单击“删除”按钮后再插入4秒的静音，按原参数保存，该音频文件的存储容量不变 C、单击“剪裁”按钮后再插入4秒的静音，按原参数保存，该音频文件的存储容量增大 D、执行“更改音量”命令将音量升高后，按原参数保存，该音频文件的存储容量增大

查看解析
5、使用Access软件创建一张数据表，其设计视图界面如图所示，下列说法正确的是（ 0

A、当前状态下，可以对数据表“图书信息”重命名 B、该视图中，右表删除一行，则其数据表的记录总数会相应减少一条 C、在“图书信息”数据表中，可以包含图书名称相同的两条记录 D、存储“借出”字段值需要1个字节

查看解析
6、关于信息及信息安全，下列说法或做法不正确的是（）

A、信息无处不在，通过加工处理后的信息不存在虚假之分 B、物联网将现实世界数字化，它是新一代信息技术的重要组成部分 C、对朋友圈里的信息点赞属于信息的个人推荐评价 D、在微信、论坛里不要随便转发会造成社会不良影响的信息

查看解析
7、从原点（0，0）出发，顺时针旋转，经过平面上所有整点恰好一次，我们称之为螺旋折线，如图所示。对于整点（x，y），我们定义它到原点的距离是从原点到（x，y）的螺旋折线段的长度。例如：x=0，y=1，则螺旋折线段的长度为3；x=-2，y=-1，则螺旋折线段的长度为9。

现要求计算从原点到整点（x，y）螺旋折线段的长度。小王根据上述描述设计如下VB程序，请回答下列问题：

(1)、从原点到整点（4，0）螺旋折线段的长度为。

(2)、请在画线处填入合适的代码。
Dim x As Integer, y As Integer     'x用于存储横坐标的值,y用于存储纵坐标的值

Private Sub Command1_Click()

    Dim sum As Integer, m As Integer

    Dim dx As Integer, dy As Integer

    Dim i As Integer, t As Integer

    x=Val(Text1. Text)

    y =Val(Text2. Text)

    dx = 0:dy=0

    sum=0

    m=1:t=-1

    Do While not check(dx,dy)

        For i=1 To m

            If check(dx,dy)Then exit do    'Exit do表示退出Do循环

            dx = dx+t

            sum = sum+1

        Next i



        For i=1 To m

            If check(dx,dy) Then Exit Do



            sum = sum + 1

        Next i

        m=m+1

    Loop

    Label1. Caption= Str(sum)

End sub

Function check(xl As Integer,y1 As Integer)As Boolean

    check = False

    If x1=x And y1=y Then



    End If

End function

查看解析
8、小李利用所学的VB知识，编写了一个简单计算器：在文本框 Text1 中输入一个加减算式（只包含数字和“ +”、“ -”符号，以“ =”结束），点击“计算”按钮 Command1，计算结果在标签 Label1 上显示。程序运行界面如下图所示：

(1)、要实现程序运行时，单击文本框 Text1 即可将文本框清空，则应在(A . Command1_Click/B . Form_Load/C . Text1_Click)事件处理过程中添加语句Text1.text=“”)。

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

    Dim s As String, ch As String, sum As Integer

    Dim fh As Integer

    s = Text1.Text: fh = 1: p = 0: sum=0

    For i = 1 To Len(s)

        ch = Mid(s, i, 1)

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

            p =

        Else

            sum =

            p = 0

            If ch = "-" Then

                fh = -1

            ElseIf ch = "+" Then

                fh = 1

            End If

        End If

    Next i

    Label1.Caption = Str(sum)

End Sub

(3)、若文本框 Text1 中输入的内容为“ 12*10=”（不包括双引号），单击“计算”按钮后，标签Label1 上将显示：（A . 120 / B . 22 / C . 0 /D .程序出错无法显示）

查看解析
9、小王制作主题为“和谐韵味”的多媒体作品，首先使用Photoshop软件处理图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、如图a所示，当前状态下，下列对“文字”图层操作可行的是（多选，填字母：A .使用“文字工具”修改文字的字体/B .使用“自由变换”工具更改文字的字体大小/C .使用“油漆桶”工具直接修改文字的颜色/D .使用“仿制图章”工具，仿制文字内容到“倒影”图层）

(2)、如图b所示，“滴墨成字”图层中第10帧到第40帧实现了由小墨点逐渐变成汉字“谐韵”的动画效果，则该图层第40帧上对象的类型为（单选，填字母：A .位图/B .影片剪辑/C .形状/D .静态文本）。

(3)、库中“蝴蝶”元件实现了蝴蝶挥动翅膀的动画效果，如图c所示，“飞舞”图层中实现该元件从舞台坐标（80，150）运动至（500，300）的效果。测试场景时，蝴蝶将（单选，填字母：A .不挥动翅膀向右下方运动/B .不挥动翅膀向右上方运动/C .挥动翅膀向右上方运动/D .挥动翅膀向右下方运动）。

(4)、“音乐”图层中的声音属性如图d所示，想要使“滴墨成字”图层补间动画停止时声音同时停止播放，可进行的调整是。

(5)、测试影片时，单击“main”场景中“继续”按钮时，跳转到下一场景开始播放，则“继续”按钮的动作脚本为。

查看解析
10、小王收集了某书店2018年部分计算机类图书销售的相关数据298条，并用Excel软件进行数据处理，如图a所示。

请回答下列问题：

(1)、书店推出促销活动，单价大于50元的图书75折、小于等于50元的图书85折。根据活动方案，小王利用IF函数和自动填充功能完成对F3:F300区域的计算，则在F3单元格中的公式是=IF(E3>50，)。（提示：IF函数用于判断是否满足某个条件，如果满足返回一个值，如果不满足则返回另一个值。例如：=IF(B4>10,1,2)表示如果单元格B4的值大于10则返回1，否则返回2）

(2)、如图a所示，要使G3:G300区域数据格式与E列和F列一样（保留两位小数），下列操作不可行的是（单选，填字母：A .设置G3:G300区域单元格格式为数值，保留两位小数/B .设置G3:G300区域为百分比格式，保留两位小数/C .设置G3单元格格式为数值，保留两位小数，并对区域G4:G300进行自动填充）。

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

(4)、小王想快速获知2017年及之后出版的图书中，降价幅度最大的五本图书信息，下列操作方案可行的是（单选，填字母：A .使用筛选工具筛选“出版年份”大于等于2017年的图书，再对“降价幅度”按“最大的5项”进行筛选/B .以“出版年份”为主关键字进行降序排序、“降价幅度”为次要关键字进行升序排序/C .先用筛选工具筛选“出版年份”大于等于2017年的图书，再对“降价幅度”进行降序排序）。

查看解析
11、数组a中依次存放6个有序数据“23 33 44 55 66 77”。
Dim a(1 To 10) As Integer

Dim s As String, n, key As Integer

a(1) = 23: a(2) = 33: a(3) = 44: a(4) = 55: a(5) = 66: a(6) = 77

i = 1: j = 6: c = 0: key = 35

Do While i <= j

    c = c + 1

    m = (i + j) \ 2

    If (j - i + 1) Mod 2 = 0 Then m = m + 1

    If a(m) = key Then Exit Do

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

Loop

该程序段运行后，下列各变量的值不正确的是：（    ）

A、i=3 B、j=2 C、c=3 D、m=2

查看解析
12、某对分查找算法的VB程序如下：
i = 1:j = 8:s = ""

key = Text1. Text

Do While i <= j

   m = (i +j)\2

   If key = a(m) Then

        s = s+ "M"

        Exit Do

  ElseIf key <a(m) Then

        j = m -1:s = s+ "L"

   Else

        i = m+1:s = s + "R"

   End If

Loop

Text1. Text = s

数组元素a(1)到a(8)的值依次为“4，22，27，32，35，44，56，59”，该程序段执行后，文本框Text1中显示的内容不可能是（     ）

A、M B、LR C、RM D、LM

查看解析
13、（加试题）有如下 VB 程序段：
Dim a(1 To 10) As Integer

Dim s As String, n, i As Integer

s = "54851845236": n = Len(s)

For i = 1 To n - 1

    a(i) = Val(Mid(s, i, 2))

Next i

For i = 1 To n - 2

    k = i

    For j = i + 1 To n - 1

        If a(k) < a(j) Then k = j

    Next j

    If k <> i Then

        t = a(k): a(k) = a(i): a(i) = t

    End If

Next i

Text1.Text = Str(a(1))

该程序段运行后，文本框 Text1 中显示的内容是：（    ）

A、18 B、54 C、85 D、8

查看解析
14、有如下VB程序段：
For i= 1 to 3

List1. AddItem b(a(i))

Next i

数组元素a(1)到a(6)的值依次为“4，2，3，6，1，5”，数组元素b(1)到b(6)的值依次为“Ella”“Sally”“Lily”“Tom”“Anna”“Jack”，则执行上述程序段，List1中显示的内容是（）

A、Ella sally Lily B、Tom Sally Lily C、Ella lily Anna D、Tom Lily Sally

查看解析
15、下列能正确表示数学表达式100≥x≥1的VB表达式是（）

A、100≥x And x≥1 B、100>=x And x>1 C、x>=1 And x<=100 D、x>=1 Or x<=100

查看解析
16、使用UltraEdit软件观察字符“2018FIA世界杯！”的内码，部分界面如图所示。

下列说法正确的是（）

A、字符“世界杯”的内码占3个字节 B、该条信息共有9个ASCII码字符 C、字符“A”的二进制码是“01000001” D、字符“Fi”的十六进制码是“46 49”

查看解析
17、对一段字符（仅包含大小写字母和数字）加密，加密规则为： ①字母和数字都往后循环顺移3位，如“a”变为“d”，“y”变为“b”；“0”变为“3”，“7”变为“0”②加密后字母在前，数字在后③字母按逆序排列，数字按顺序排列，如输入明文“ab7Z8x3”，这密文为“aCed4016”。
小王利用VB程序实现这一加密功能，程序界面和代码如下所示：

Private Sub Com_ jm_ Click()

    Dim x As String, ch As String, cl As String

    Dim sl As String, s2 As String, s As String

    Dim i As Integer, n As Integer, y As Integer

    x= Text1. Text

    n=Len(x)

    For i=1 To n

        ch= Mid(x, i, 1)

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

               ①

            s2=s2 & y

        Elself ch >="a" And ch<="z" Then

            y=(Asc(ch)-Asc("a")+3)Mod 26

               ②

            s1=c1+s1

        Else

            y=(Asc(ch)- Asc("A")+3) Mod 26

            c2=Chr(Asc("A")+y)

            s1=c2+s1

        End If

    Next i

       ③

    Text2 Text=s

End sub

(1)、根据程序代码分析，“加密”按钮的名称是。

(2)、根据加密规则，明文“9G78fbY5”，则密文为。

(3)、请在画线处填入合适的代码：
① ② ③

查看解析
18、素数迁移：小王编写了一个VB程序，在左边List1中显示随机生成的10个介于[2,99]的随机整数，单击命令按钮Command1后，其中的素数全部迁移到右边的List2中并进行显示，同时只有那些非素数（合数）的才继续在List1中显示，运行界面如图所示。

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

(1)、根据代码可知，若要产生20个随机数，只需将的值修改为20即可。

(2)、请在划线处填入合适代码。
Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click() '素数迁移模块

    Dim i As Integer

    List1.Clear                 '清除列表框

    List2.Clear

    For i = 1 To n

        For j = 2 To a(i) - 1

            If Then

                Exit For             'Exit For的功能是退出For循环

            End If

        Next j

        If Then

            List2.AddItem Str(a(i))

        Else

            List1.AddItem Str(a(i))

        End If

    Next i

End Sub

Private Sub Form_Load()        '随机数初始化模块

    Randomize                    '随机数种子初始化

    For i = 1 To n

        a(i) =

        List1.AddItem Str(a(i))

    Next i

End Sub

查看解析
19、小王制作主题为“父亲节”的多媒体作品，使用Flash软件制作动画。请回答下列问题：

(1)、在制作作品前，小王进行了相应的分析和规划。下列属于脚本编写环节的是。（单选，填字母：A .确定该作品的制作工具/ B .确定该作品的主题思想/ C .进行媒体元素分解/ D .确定该作品发布方式）。

(2)、如图a所示，“文字”图层第20帧到第35帧的动画实现了由“父爱如山”字样变为“父爱如海”字样的动画效果，该动画类型为。

图a

(3)、测试“主界面”场景时，“小鸟1”和“小鸟2”动画同时出现并向舞台左侧飞去，为了使“小鸟2”比“小鸟1”晚1秒出现，下列操作方法可行的有（多选，填字母：A .将“小鸟2”图层的第10帧移动到22帧/B .选中“小鸟2”图层第10帧执行“复制帧”操作，在第22帧执行“粘贴帧”操作，然后在“小鸟2”图层第10帧执行“清除关键帧”操作/C .选中“小鸟2”图层第10帧到第21帧执行“清除帧”操作/D .删除“小鸟2”图层第10帧到第21帧）。

(4)、“退出”按钮元件的部分编辑界面如图b所示。将该按钮元件应用于舞台，测试影片，当鼠标指标经过该按钮时，指针形状不会变成手形，为使该按钮有效，可行的操作是。

图b

(5)、“音乐”图层中声音的同步属性为“事件”，测试影片时，动画播放到第60帧时自动停止，关闭声音，出现“退出”按钮，则“按钮”图层第60帧的帧动作脚本是。

查看解析
20、小张收集了近几年人均收入数据，并使用 Excel软件进行数据处理，如图a所示。

请回答下列问题：

(1)、若将生活水平按照恩格尔系数分成“温饱”和“小康”，如图a所示，单元格15： I11中的数据是将I4单元格向下自动填充得到的，那么I4单元格的公式为。

(2)、若先选择数据区域（A2： I11），再进行自定义排序，（填：能/不能）实现按E列数据大小实现排序。

(3)、对图a表格数据进行筛选，C列和E列的筛选条件设置如图b所示，则筛选结果有项。

图b

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

查看解析

上一页 653 654 655 656 657 下一页跳转