相关试卷

1、以下有关信息和信息技术的说法中，不正确的是（）

A、信息可以从一种形态变成另一种形态，这体现信息的加工处理性 B、典型的近代信息技术包括摄影技术、电影技术、广播和电视技术等 C、从出土的文物我们可以了解到一些未知的人文历史，说明信息具有时效性 D、信息可以脱离它所反映的事物而被存储、保存和传播

查看解析
2、n个数从小到大选择排序需要经过n-1遍加工，每遍加工从未排序的数据元素中找出最小的元素与当前元素进行交换。小天同学学习了选择排序算法和函数的知识后，编写了一个VB程序，功能如下：运行程序时首先在列表框List 1中显示10个大于10且小于等于99的随机自然数，单击“排序”按钮Command 1后，在列表框List 2中显示这些数据按从小到大排序后的结果，运行结果如图所示。请在划线处填入合适代码。
Const n= 10
Dima(1 To n) As Integer    ‘定义数组a
Private SubForm_Load()
    Randomize
    For i=1 To n      '产生n个随机自然数，并依次存放在数组a中

List 1.Add ItemS tr(a(i))
Next i
End Sub
Function Find Min(x As Integer) '寻找当前需要交换的数组元素下标
Dim k As Integer, j As Integer
k=x
For j=x+1Ton

    Next j
    Find Min=k
End Function
Private Sub Command 1_Click()
    Dim i As Integer, k As Integer, t As Integer
    For i= 1 To 9

   If k<>i Then
       t=a(i)：a(i)=a(k)：a(k)=t
     End If
    Next i
   For i=1 To n
      List 2.Add Item Str(a(i))
    Next i
End Sub

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

j=i+1

Do While j<= 4

If a(i) <a(j) Then

t=a(i)：a(i)=a(j)：a(j)=t

End If

j=j+1

Loop

Next i

数组元素a(1)到a(4)的数据依次为“33，6，14，17”，程序运行过程中，语句“t=a(i)：a(i)=a(j)：a(j)=t”被执行的次数为（）

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

查看解析
4、在VB中，若a是一个整型数组，a(1)、……、a(4)分别为130、45、278、59，则执行下列程序段后，数组a中各元素的值为（）
For i= 1 To 3

For j=i+1 To 4

    If a(i) >a(j) Then

      a(0)=a(i)

      a(i)=a(j)

      a(j)=a(0)

    End If

Next j

Next i

A、45 59 130 278 B、130 278 45 59 C、278 130 59 45 D、59 45 278 130

查看解析
5、利用选择排序对一组原始数据：us，our，my，your，his进行降序排序，第二遍排序结束后的数据序列为（）

A、us，our，my，his，your B、your，us，my，our，his C、your，our，my，us，his D、his，us，our，my，your

查看解析
6、以下程序段对数组a中的6个数据a(1)到a(6)进行加工。
Dim flag As Boolean

i=1: flag=True

Do While i<= 5 And flag=True

flag=False

For j=6 To i+1 Step -1

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

    k=a(i)：a(i)=a(j-1)：a(j-1)=k

    flag=True

    End If

Next j

i=i+1

Loop

下列数据序列中，在加工过程中划线处语句执行次数最多的是（）

A、24，29，31，20，15，10 B、10，15，20，24，29，31 C、29，10，31，15，20，24 D、31，29，24，20，15，10

查看解析
7、下列VB程序段是选择排序程序的主要部分。其中虚线框内代码用于寻找数据元素d(i)到d(n)的最小值。
……

For i=1 To n-1

k=i

For j=i+1 To n

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

Next j

If i<>k Then kt=d(i): d(i) =d(k): d(k) =kt

Next i

……

框内代码运行结束时，保存最小值的数组元素一定是（）

A、d(n) B、d(j) C、d(i) D、d(k)

查看解析
8、某对分查找算法的VB程序段如下：
key=Val(Text 1.Text)

Text 2.Text=“”

flag=True

i=1：j=8

Do While i<=j And flag=True

     m=(i+j)＼2

     If key=a(m) Then

       flag=False

     ElseIf key>a(m) Then

       i=m+1

     Else

       j=m-1

     End If

     Text 2.Text=Text 2.Text+Str(m)

Loop

数组元素a(1)到a(8)的值依次为“1，3，5，8，10，13，16，21”，在文本框Text 1中输入7，执行该程序段，下列说法正确的是（）

A、Flag的值为False B、文本框Text 2中显示的内容为4 2 3 C、i的值为3 D、j的值为4

查看解析
9、若数组元素d(1)到d(8)的值依次为“86，75，58，46，20，18，12，5”，查找某Key值的VB程序段如下：
n=0：i=1：j=8

Key=Val(Text 1．Text)

Do While i<=j

     m=(i+j)＼2

     If Key=d(m) Then Exit Do     ‘Exit Do表示退出循环

     If Key>d(m) Then

       j=m-1：n=n-1

     Else

       i=m+1：n=n+1

     End If

Loop

Label 1.Caption=Str(n)

当输入不同的Key值，运行该程序段后，在标签Label1中显示的不同结果共有（）

A、5种 B、6种 C、7种 D、8种

查看解析
10、一个简单的四则混合运算式子（算式中只包含整数、+、-、*、/、＝）的运算规则是先进行“*”或“/”，再进行“+”或“-”，下列是用VB编写的简单四则混合运算的程序，运行程序时在文本框Text1中输入网则运算式子，单击命令按钮Command1，在标签Label1中输出结果。程序界面及代码如下。请回答以下问题。

(1)、若在文本框Text1中输入式子“12*5-32/4+20＝”，则运行程序后在标签Label1中显示的内容是。

(2)、请在划线①②③处填入合适的代码，让程序能实现计算功能。
    Private Sub Command1_Click()

      Dim a(1 To 100) As Single

      Dim b(0 To 100) As String

      Dim s As String, c As String

      Dim sz As Integer, i As Integer, k As Integer

      s＝Text1.Text,

      k＝0

      For i＝1 To Len(s)

        c＝Mid(s, i, 1)

        If c＞＝"0" And c ＜＝ "9" Then

          sz＝0

          Do While c＞＝"0" And c＜＝"9"

            sz＝   ①

            i＝i+1

            c＝Mid(s, i, 1)

          Loop

          k＝k+1:a(k)＝sz:b(k)＝c

        End If

        Do While k＞1 And    ②

            If b(k-1)＝"+"Then a(k-1)＝a(k-1)+a(k)

            If b(k-1)＝"-"Then a(k-1)＝a(k-1)-a(k)

            If b(k-1)＝"*"Then a(k-1)＝a(k-1)*a(k)

            If b(k-1)＝"/"Then a(k-1)＝a(k-1)/a(k)

            b(k-1)＝b(k)

            k＝k-1

        Loop

      Next i

      Label1.Caption＝"运算的结果是："+Str(a(1))

    End Sub

    Function yxj (x As String) As Integer

      If x＝"*"Or x＝"/"Then

        yxj＝1

      ElseIf x＝"+"Or x＝"-"Then

        yxj＝2

      Else

           ③

      End If

    End Function

① ② ③

查看解析
11、【加试题】有一组正整数，要求仅对其中的偶数进行降序排序。排序后偶数在前，奇数在后。排序示例如下。

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

Const n = 8

Dim a(1 To n) As Integer

Private Sub Form_Load()

'排序前数据存储在数组a中，并在文本框Text1中显示代码略

End Sub

Private Sub Command1_Click()

Dim k As Integer, i As Integer, j As Integer, t As Integer

i = 1

Do While i <= n - 1

   k = i

   For j = i + 1 To n

      If a(i) Mod 2 = 1 And a(k) Mod 2 = 0 Then    '①

          k = j

      ElseIf a(k) Mod 2 = 0 And a(j) Mod 2 = 0 And a(j) > a(k) Then

          k = j

      End If

   Next j

   If k <> i Then

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

   End If

i = i + k            '②

Loop

'依次输出排序后的数据。代码略

End Sub

① ②

查看解析
12、要制作一个主题为“国庆阅兵”的多媒体作品。首先使用Photoshop软件制作背景图片，然后使用Flash软件制作动画，请回答下列问题：

(1)、如图a所示，在Photoshop中下列操作可行的有____________（多选，填字母）

图 a

A、将“气球”图层移到“背景”图层下方 B、选中“气球”图层，使用“魔棒工具”选择白色区域后按“Delete”键删除 C、选中“国庆快乐”图层，使用“油漆桶工具”将字体颜色改为红色 D、复制“国庆快乐”图层的图层样式，粘贴至“背景”图层 E、使用“图像大小”修改“背景”图层的宽度

(2)、如图b所示，“飞机”图层实现了飞机先从位置（600,300）飞至位置（400,100），再从右向左顺时针旋转两次飞至位置（100,100），最后飞至位置（-100,300）的效果，那么“飞机”图层第1至第12帧的动画类型是（单选，填字母：A .逐帧动画 / B .动画补间 / C .形状补间）。整个动画飞机飞行的轨迹是（单选，填字母：A . /B . /C . /D . ）

图 b

(3)、图b中“音乐”图层声音的同步方式是“数据流”，若动画播放3秒后需要重新播放该音乐，在不改变其他动画效果的前提下，应进行的操作是。

(4)、测试影片时，若想实现单击“停止”按钮后关闭动画，则按钮上应添加的动作脚本是。

查看解析
13、密码强度检测。编写VB程序，实现如下功能：在文本框Text1中输入要检测的密码，单击“检测”按钮Command1，则在标签Label3中输出检测结果，运行效果如图a所示。
将密码字符分为数字、字母和其他符号三类。

密码强度的检测方法为：

⑴若密码位数少于8位，则不进行强度检测，给出提示“密码位数不能少于8位，请重新输入！”。

⑵若密码位数在8位及以上，则进行强度检测：

若密码字符属于同一类字符，则密码强度为“弱”；若密码字符属于不同的二类字符，则密码强度为“中等”；若密码字符属于不同的三类字符，则密码强度为“强”。

(1)、当前编辑的对象的属性窗口如图b所示，则其对象名为。程序代码“Private Sub Command1_Click()”中的“Click”是（填：对象/方法/事件/事件处理过程）。

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

Dim password As String, st As String

Dim i As Integer, n As Integer, tj1 As Integer, tj2 As Integer, tj3 As Integer

password = Text1.Text

n = Len(password)

If      ①      Then

    Label3.Caption = "密码位数不能少于8位，请重新输入！"

Else

    tj1 = 0: tj2 = 0: tj3 = 0

    i = 1

    Do While      ②

      st = Mid(password, i, 1)

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

        tj1 = 1

      ElseIf st >= "a" And st <= "z" Or st >= "A" And st <= "Z" Then

        tj2 = 1

      Else

        Tj3 = 1

      End If

      i = i + 1

    Loop

    If tj1 + tj2 + tj3 = 3 Then

      Label3.Caption = "强"

    ElseIf      ③      Then

      Label3.Caption = "中等"

    Else

      Label3.Caption = "弱"

    End If

End If

End Sub

① ② ③

查看解析
14、【加试题】某对分查找算法的VB程序段如下：
key=Val(Text1.text)

i=1:j=10

Text2.text=””

Do While i<=j

   m=Int((i+j)/2+0.5)

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

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

   Text2.text=Text2.text+Str(a(m))

Loop

数组元素a(1)到a(10)的值依次为“8、17、24、30、36、40、55、58、61、66”，文本框Text1中输入的值是30，执行该程序段，文本框Text2中显示的是（）

A、40 24 B、40 24 36 C、36 24 D、36 17 24

查看解析
15、【加试题】有如下VB程序段
a(1)=1:a(2)=1

B(1)=1:b(2)=2

For i=3 to 5

a(i)=a(i-1)+a(i-2)

b(i)=b(i-1)+a(i)

Next i

执行该程序后，数组元素b(5)的值为（）

A、12 B、8 C、5 D、6

查看解析
16、【加试题】对n个元素进行排序，用冒泡进行排序时，需比较的次数共为（）

A、n*(n-1) B、n*(n+1) C、n*(n-1)/2 D、n*(n+1)/2

查看解析
17、使用flash软件制作动画，将库中“停止”按钮元件应用于“Load”场景，其中该按钮元件的部分编辑界面如图所示。下列说法正确的是（）

A、“停止”按钮元件“指针经过”帧中实例的宽高被锁定，则该实例的大小不能被修改 B、将“停止”按钮元件“文字”图层锁定后，不能对该图层“点击”帧执行“删除帧”操作 C、修改“停止”按钮元件“背景”图层“弹起”帧中的内容，“Load”场景中该按钮实例随之变化 D、测试影片，鼠标移动到“停止”按钮上时，该按钮外观会发生变化

查看解析
18、使用Photoshop软件制作“风筝”作品，部分界面如图所示。下列说法正确的是（）

A、不能删除“背景”图层 B、不能将“知了”图层移到“纸鸢”图层下方 C、可以使用油漆桶工具修改“诗词”图层的颜色 D、将“背景”图层设置为不可见后，保存成PNG格式图像背景透明

查看解析
19、使用GoldWave软件编辑某音频文件，操作界面如下图所示，下列说法正确的是（）

A、执行“剪裁”操作后，整个音频只剩下当前选中部分 B、执行“删除”操作后，按原参数保存，音频容量变为原来的3/4 C、执行“选定部分另存为”操作，音频容量变为原来的1/8 D、执行“插入静音”操作后，按原参数保存，音频容量不变

查看解析
20、十进制数转换为二进制数的算法流程图如下图所示，当输入十进制数63时，改流程图中循环体执行的次数为（）

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

查看解析

上一页 1374 1375 1376 1377 1378 下一页跳转