相关试卷

1、双向选择排序。程序功能如下：随机生成n个整数，实现这n个数的升序排序。每一遍排序时，把最小数交换到最前面的同时，把最大数交换到最后面，依次进行，…直至所有的数按从小到大的顺序排列。该程序的VB代码如下所示，请回答下列问题：
Const n = 10

Dim a(n) As Integer

Private Sub Form_ Load ()

    '随机生成数组元素a(i)，代码略

End Sub

Private Sub Command1_Click ()

    Dim i As Integer， k1 As Integer， k2 As Integer

    For i=1 To n\2

    k1 = i：        '改错

    For j=i+1 To n-i+1

      If a(k1)>a(j) Then k1=j

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

    Next j

    If k1<>I Then t=a(k1)：a(k1)=a(i)：a(i)=t

    If k2=I Then                 '填空

    t = a(k2)： a(k2) = a(n- i+1)：a(n-i+1) = t

Next i

For i=1 To n

    List2.AddItem Str(a(i))

Next i

End Sub

(1)、代码“Private Sub Command1 _Click()” 中的Click是。(单选，填字母：A .对象名/B .事件名/C .事件处理过程名)

(2)、程序代码中，将划线处的代码补全。

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

(4)、若数组a的值依次是34，2，12，56，78，34，58，34，94，8，则第二遍排序完成后，数组元素a(2)的值为。

查看解析
2、小王创作主题为“七夕”的多媒体作品。请回答下列问题：

图a

(1)、如图a所示，要去除“牛郎织女”图层的白色背景，下列操作中可行的是(多选，填字母： A .使用魔棒工具选择“牛郎织女”图层的白色背景，反选，按Delete键/B .使用魔棒工具选择“牛郎织女”图层的白色背景，按退格键/C .使用磁性套索工具选择“牛郎织女”图层的内容，反选，按Delete键/D .使用橡皮擦工具擦去“牛郎织女”图层的白色背景。)

(2)、测试影片时，发现“标题”图层和“牛郎织女”图层内容不是同时出现的，若要使这两个图层的内容在动画开始时一起播放，正确的操作是。

(3)、如图c所示，当前状态下，把帧频修改为15，则main场景完整播放一遍的时间会不会变化？(选填：会/不会)

(4)、测试影片时，首先播放的场景是 (填场景的名称)。

(5)、如图b所示，为实现该场景动画播放完后自动停止，小王选中“按钮”图层最后1帧添加的脚本命令应该是。

查看解析
3、小王收集了的浙江省部分城市降水量的有关数据，并使用Excel软件进行数据处理，如图a所示。请回答下列问题：

(1)、在B14单元格输入公式并利用自动填充功能完成区域B14 ：N14的计算，结果如图a所示，则B14单元格中的公式是(计算公式：降水比率=每月平均降水量/全年平均降水量)。若区域B4：B13数据被清空，则B14单元格将显示为。(单选，填字母：A . 0/B . 4.1%/C . #IV/0！ /D . #REF！)

(2)、根据图a中的数据制作了图表，如图b所示，创建该图表的数据区域可能是(多选，填字母： A . A3：A7， N3：N7/B . A4：A7， N4：N7/C . N3：N8/D . N4：N8)

查看解析
4、编写VB程序实现如下功能：随机生成一个正奇数n并显示在文本框Text1中，单击“生成”按钮后，在文本框Text2中显示“1 3~n-2 n n-2…3 1”。例如n=9时，显示为“135797531”。划线处填入的代码应该是(   )
Private Sub Command1_Click()

   Dim n As Integer， i As Integer， s As String

  Randomize

  n = Int(Rnd*20) *2+1： ①

   s=“”

  For i =1 To n

        If i <=n\2+1 Then

            s=s+Str(2*i-1)

        Else

            s=s+   ②

        End If

  Next i

  Text2.Text = s

End Sub

A、①n = Val(Text1.Text)    ②Str(2* (n-i+ 1)) B、①Text1. Text = Str(n)    ②Str(2 * (n-i+ 1)) C、①n = Val (Text1.Text)    ②Str(2* (n-i)+ 1) D、①Text1.Text = Str(n)    ②Str(2*(n-i)+ 1)

查看解析
5、若在文本框Text1中输入3，则List1中显示的内容是(    )
Dim x As Integer， y As Integer，s As String， n As Integer

x= 1：y=1：s=""： n = Val (Text1. Text)

Do While y<=n

    s=s+"*"

    If x =y Then

      List1. AddItem s：y=y+1：x=1

    End If

    x=x+1

Loop

A、 B、 C、 D、

查看解析
6、下列程序段运行后，数组元素a(j)的值是(    )
a(1)=96：a(2)=75：a(3)=4：a(4)=37：a(5)=48

For i =1To 3

    k=i

    For j=4 To i+1 Step-1

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

    Next j

    Ifi <> k Then t=a(i)：a(i)=a(k)：a(k)=t

Next i

A、4 B、37 C、75 D、96

查看解析
7、若在文本框Text1中输入“20191001”，下列程序段运行后，文本框Text2显示的内容是（    ）
n = Len(Text1.Text)： c= 0

Do While n> 1

    s1 = Mid(Text1. Text， n， 1)： s2 = Mid(Text1.Text， n- 1，1)

    If Abs(Asc(s1) - Asc(s2)) Mod2= 1 Then c=c+ 1

    n=n-1

Loop

Text2.Text = Str(n)

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

查看解析
8、要得到[-50，50]之间的随机整数，正确的VB表达式是（）

A、Int(Rnd * 50) B、Int(Rnd * 50) - 50 C、Int(Rnd * 100) - 50 D、Int(Rnd * 101) - 50

查看解析
9、某算法的部分流程图如图所示。执行这部分流程，则输出x，y的值是（）

A、16，3 B、16，0 C、2，3 D、2，0

查看解析
10、某未经压缩音频文件的部分属性如图所示，则该音频文件的大小为（）

A、86KB B、172KB C、1.4MB D、344.5KB

查看解析
11、使用GoldWave软件打开某音频文件，部分界面如图所示。下列说法正确的是（）

A、文件“音乐． wav”的采样频率为705kbps B、在当前状态下，插入1秒静音，则该音频时长变为5秒 C、在当前状态下，执行“删除”操作，则该音频时长变为2秒 D、在当前状态下，执行“静音”操作，则左声道第0秒至第4秒都为静音

查看解析
12、使用UltraEdit软件观察字符“My name is 张三”的内码，部分界面如图所示。

下列说法中正确的是（）

A、图中共有15个ASCII码字符 B、字符“ok”内码值的十六进制表示为696B C、字符“Y”内码值的二进制表示为0101 1001 D、汉字“二”内码值的十六进制表示为C8 FC

查看解析
13、使用Access软件创建的数据表，部分界面如图所示。下列说法中正确的是（）

A、当前数据库文件名为“通讯录” B、当前数据表中共有7条记录 C、当前状态下，可以把“Birthday”修改为“生日” D、在该数据表中，“2001-02 -30”可以是“Birthday”字段的有效输入值

查看解析
14、某同学使用浏览器浏览某网页，部分界面如图所示。以下说法中不正确的是（）

A、当前网页文件的文件名是“1.25倍行距怎么调？百度知道” B、当前网页的URL是https://zhi dao.baidu.com/ quest ion/48602965. html C、要保存当前网页中的文字内容，可在保存类型中选择“网页，仅Html” D、网页本质是文本文件，可使用记事本、FrontPage等工具进行编辑

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

A、信息有真伪性，所以对信息要进行判断 B、信息离不开载体，所以不存在没有载体的信息 C、信息有时效性，过时的信息是没有价值的 D、信息无处不在，且呈现形式多样

查看解析
16、小杨同学编写了一个vb程序用于学校里7选3选课情况统计。该程序主要功能有： 1．点击“生成选课组合”按钮Command1，生成35种选课组合：2．点击“统计选课情况"按钮Command2，统计出各种组合的选课人数：运行界面如下图。实现上述功能的VB程序如下，请回答下列问题：

(1)、分析程序代码，图里“选课组合”序号为30的组合名称为：。

(2)、请在划线处填入合适的代码。请回答下列问题：
Dim zh(1 To 16) As String，zrs As Integer

Dim xk(1 To 1000) As String   '存放同学的选课科目组合，已知学生人数少于1000人

Dim zh2(1 To 35) As String     '存放35种选课科目组合

Dim rstj(1 To 35) As Integer     '存放各种选课组合选课人数

Private Sub Form_ Load( )

    '本过程从数据库中读取学生的选课情况数据，存放在数组xk中，学生的总人数存放在变量zrs。

    '代码略

End Sub

Private Sub Command1_ Click()

    Dim iAs Integer， j As Integer， m As Integer， n As Integer， k As Integer

    Dim km(1 To 7) As String

    List1.Clear

    List1.AddItem "序号"+ "" + "组合名称"

    km(1) = "物"： km(2) = "化"： km(3)= "生"： km(4)= "政"

    km(5) = "史"： km(6) = "地"： km(7)= "技"

    m= 1

    For i= 1 To 5

      For k=i+ 1 To 6

            zh(m) = km(i) + km(k)

            m=m+1

        Next k

    Next i

    j=3：n= 1：y=j

    For i= 1 To m

      For k=y To 7

            zh2(n)=

            If n<= 9 Then

                List1.AddItemn&""&" " & zh2(n)

            Else

                List1.AddItemn&" " & zh2(n)

            End If

            n=n+ 1

      Next k

       y=y+ 1

      If y= 8 Then

            j= ： y=j

      End If

    Next i

End Sub

Private Sub Command2_ Click()

    Dim i As Integer

   List2.Clear

  List2.Addltem "组合名称" +""+ "选课人数”

    For i= 1 To 35

        rstj(i)=

        List2.AddItem zh2(i) +"" + Str(rsij(0)

    Next i

End Sub

Function tj(zhme As String) As Integer      '统计某种选课组合的选课人数

    Dim i As Integer， rs As Integer

    rs= 0

    For i= 1 To zrs

        If zhmc = xk(i) Then

            rs=rs+ 1

      End If

    Next i

    tj=rs

End Function

查看解析
17、小林编写了一个用于1至9之间整数加减乘除运算的小程序，具体功能如下：在文本框Text1中输入一个算术表达式(该表达式仅包含1至9之间的整数和加减乘除运算符，其中最后一个运算符肯定是乘或除，且乘或除运算符的前和后一个运算符仅可能为加减或没有)，单击“计算”按钮Command1，将运算结果显示在Label2中。程序运行界面如图所示，实现上述功能的VB程序如下，请回答下列问题：

(1)、将窗体标题更改为“简单算术运算"，应修改窗体的属性的属性值。

(2)、请在划线处填入合适的代码。
Private Sub Command1_ Click()

    Dims As String， c As String， i As Integer

    Dim sum As Single， sum1 As Single， sum2 As Single， k As Integer，j As Integer

    s = Text1.Text ： sum2=0：k= 1

    For i= 1 To Len(s)

      c=

      If c= "*" Or c= "/" Then

            If c="*" Then

                sum = Val(Mid(s，i+ 1， 1)) * Val(Mid(s，i- I， 1))

            Else

                sum = Val(Mid(s， i- 1， 1))/ Val(Mid(s，i+ 1，1))

            End If

            j=i-2

            Do While

                c = Mid(s，j， 1)

                If c="+" Then sum1 = Val(Mid(s，j-1， 1)) + sum

                If c="-" Then sum1 = Val(Mid(s，j- 1， 1)) - sum

                sum=sum1

                j=j- 1

            Loop

            If k=1 Then

                sum2 = sum2 + sum

            Else

                c= Mid(s， k， 1)

                If c =“+" Then sum2 = sum2 + sum

                If c="" Then sum2 = sum2 - sum

            End If

            k=

      End If

        sum=0

    Next i

    Label2.Caption = sum2

End Sub

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

查看解析
18、小杨使用Photoshop 和Flash软件制作了一个有关中秋节主题的动画，请回答下列问题：

(1)、在Photoshop中处理图片，其图层面板如图a所示，以下说法正确的有 (多选，填字母)

图 a

A、“背景”图层可直接删除 B、用“橡皮擦工具”擦除“背景”图层里面所有内容，存储为gif格式，可得到背景透明的图片 C、在使用“自由变换工具”调整“地球”图层里的内容时，其他图层不受影响 D、“中秋”图层上不能直接添加滤镜效果 E、给“月球”图层添加图层样式效果，“地球”图层不受影响

(2)、如图b所示，“文字”图层的补间动画类型为。(单选，填字母：A .动画补间/B .形状补间/C .逐帧动画)

图 b

(3)、测试影片时，发现动画播放到最后一帧即停止，但音乐还在继续播放，则动画里的音频的同步方式设置为(数据流/事件)。

(4)、测试影片时，发现“文字”图层上的文字一开始就出现在舞台上，若要使“文字”图层的文字在动画开始1秒后才出现，则应该进行的操作：

(5)、单击“按钮”图层上的“退出”按钮时关闭动画，则该按钮上对应的脚本命令是。

查看解析
19、使用Excel软件对各班成绩进行处理，部分界面如图a所示。请回答下列问题：

图 a

(1)、区域14：I13的数据区域是通过公式计算得到的，则可先在14单元格中输入计算公式 (要求使用SUM函数)，再利用自动填充完成区域I5：I13的计算。(提示：优秀人数所占比例(%) = 某个班级的统练1优秀人数/所有班级的统练1优秀人数*100)。

(2)、要对图a中的数据按照“最高分"进行降序排序，则应该选择的排序数据区域是

(3)、根据图a中数据制作了如图b所示的图表，该图表的数据区域为

图 b

(4)、如图a所示，对数据进行筛选操作，自动筛选“统练1”最大的4项，筛选设置如图c所示，则按此设置筛选出的班级共有个。

图 c

查看解析
20、某VB程序段如下：
i= 1：j= 6：key=8

Do While i<= j

    m=(i+j)\2

    If a(m)<key Then

        j=m- 1

    Else

        i=m+ 1

    End If

Loop

数组元素a(1)到a(6)的值依次为“9，8，8，8，7，6”，运行该程序段后，下列说法正确的是(    )

A、可以找到数值8开始出现的位置，该位置信息由变量i指示 B、可以找到数值8最后出现的位置，该位置信息由变量i指示 C、可以找到数值8开始出现的位置，该位置信息由变量j指示 D、可以找到数值8最后出现的位置，该位置信息由变量j指示

查看解析

上一页 696 697 698 699 700 下一页跳转