相关试卷

1、【加试题】小林和小王合作编写一个查询英语单词的VB程序：小林编写一个过程，单击“读取数据库”按钮Command1，从一个数据库中读取英语单词和中文含义，分别保存在a数组和b数组中。并显示在List1中；小王编写另一个过程，在文本框Text1中输入要查询的单词，单击“查询”按钮Command2，将查询单词的中文含义显示在Text2中，程序界面如图所示。

(1)、分析程序，“英语单词”和“中文含义”被保存在数据表中。

(2)、按此要求编写的程序如下，请在画线处填入合适的代码。
Const n=3500              ’存储单词的总数
Dim a(1 To n)As String      ’依次存储每个英语单词
Dim b(1 To n) As Strin9    ’依次存储每个英语单词的中文含义
Private Sub Command1_Click()
Dim Conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim strSQL As String
conn．ConnectionString=“Provider=Microsoft．ACE．OLEDB．12．0；Data source=”&App．Path&“＼dictionary1．accdb”
strSQL=”select*from list”
conn．Open
Set rs．ActiveConnection=conn
rs．Open strSQL
num=0
Do While Not rs．EOF
     num=num+1
     a(mum)=rs．Fields(“英语单词”)
       b(num)=rs．Fields(“中文含义”)
       rs．MoveNext
Loop
rs．Close
conn．Close
Set rs=Nothing
Set conn=Nothing
For i==1 To n
         List1．AddItem a(i)+“ ”+b(i)
Next i
End Sub
Private Sub Command2_Click()
Dim s As String
S=Text1．Text
If search(s)=-1 Then
        Text2．text=“找不到该单词”
Else
          Text2．Text=   ①
End If
End Sub
Function search(key As String)As Integer
Dim i，j As Integer
Dim mid1，mid2 As Integer
i=1：j=n
search=-1
Do While i<=j
       mid1=Int(j+(j—i)／3)
       mid2=Int(j-(j-i)／3)
       If key=a(mid1)Then
            search=mid1
            Exit Do
       ElseIf key<a(mid1)Then
            j=mid1-1
     ElseIf key=a(mid2)Then
            search=mid2
            Exit Do
       Elself key>a(mid2)Then
            i=mid2+1
       Else
            i=mid1+1
               ②
     End If
Loop
End Function
①    ②

查看解析
2、【加试题】小马正在看一本侦探小说，想了解其中一段案情的解析，却发现了一串字符“#2017—2018go：)”，并附有文字提示：①答案所在的页码是这串字符中最大数字字串(若值相同则取后面的数字字串)的起始位置*10+结束位置②答案所在行号是最大数值除以100的余数。例如：“#17a18#”字符串中，最大数字字串“18”。起始位置是5，结束位置是6，其页码是56，行号是18。小马编写了一个VB程序帮他寻找答案，程序运行界面如图所示。在文Text2中输出页码，在Text3中输入行号。实现上述功能的VB程序代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Dim s1 As String，s2 As String
Dim ch As String，ch2 As String
Dim max As Double
Dim n As Integer，page As Integer
Dim i As Integer，j As Integer
s1=Text1．Text：s2=””
n=Len(s1)
i=1：max=0
Do While i<=n
    ch=Mid(s1，i，1)
    If ch>=“0”And ch<=“9”Then
        j=i
        ch2=Mid(s1，i，1)
        Do While ch2>=“0”And ch2<=“9”
           j=j+1
           ch2=Mid(s1，j, 1)
      Loop
        s2=    ’(1)
        If Then    ’(2)
          max=Val(s2)
          page=i*10+j-1
            Text2．Text=Str(page)
          Text3．Text=Str(max Mod l00)
        End If
        i=j
      End If
      i=i+1
    Loop
End Sub

(1)、处加框代码应改为；

(2)、处加框代码应改为。

查看解析
3、小华同学创作了一个Flash动画，效果如图1所示。

(1)、这个作品共有6个场景，测试影片时，首先播放的是场景(填场景名)。

(2)、如图1所示，“声音”图层第1帧的声音来自文件“sound．mp3”，小华同学利用GoldWave软件打开该文件后，在图2所示状态下进行“剪裁”操作，并按原格式进行保存，该音频文件的存储容量(选填：变大／变小／不变)。在声音图层第1帧处插入“sound．mp3”文件，属性面板部分界面如图3所示，在没有任何干预的情况下，该音频持续播放的时长为秒。

(3)、设置“福”图层中福元件实例从舞台右侧向中间旋转进入，则该动画类型是(单选，填字母：A，动画补间动画／B，形状补间动画／C，逐帧动画)。

(4)、要实现“文字1”“文字2”“文字3”“文字4”补间动画依次出现的效果，应做的调整是。

(5)、测试影片时，单击“静音”按钮，实现静音效果，则“静音”按钮的动作脚本为。

查看解析
4、小乐编写了一个求最小公倍数的程序，他先借鉴更相减损术求出最大公约数，再求出最小公倍数。更相减损术是出自《九章算术》中的一种求最大公约数的算法，其原理是用大数减去小数，互相减来减去，一直到减数与差担等为止。在文本框Text1中输入一个整数，在Text2中输入另一个整数，单击“计算”按钮Command1，在Label3中输出两个数的最小公倍数。程序运行界面如图所示。

(1)、根据程序代码判断，保证程序正常运行，窗体中至少需要个对象。

(2)、为了实现上述功能，请在画线处填入合适的代码。
Private Sub Command1 Click（）
Dim m As Integer，n As Integer
Dim gys As Integer
m=Val(Text1．Text)
n=Val(Text2．Text)
a=m：b=n
Do While m<>n
    If    ①     Then m=m-n Else n=n-m
  Loop
gys=n
Label3．Caption=“最小公倍数是：”+     ②
End Sub
① ②

(3)、若在文本框Text1中输入15，在文本框Text2中输入6，单击“计算”按钮后，语句m=m-n执行了次。

查看解析
5、小王收集了某地农产品市场零售价格数据，并使用Excel软件进行数据处理．界面如图所示。

回答下列问题：

(1)、如图1所示，“最大差值”列数据是某地农产品市场零售价格的最大差值，小王先在H5单元格输入公式，再利用自动填充功能完成区域H6：H19的计算。(提示：Excel中求最大值、最小值函数分别为MAX（）和MIN（），最大差值=最高价格-最低价格)

(2)、小王在完成数据计算后，若要对蔬菜类的农产品数据以“最大差值”为关键字进行排序，则排序时选择的数据区域是。

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

(4)、小王对“最大差值”列数据进行筛选，条件如图3所示，则筛选结果中显示的记录数为条。

查看解析
6、【加试题】有如下VB程序段：
S=“7218634594”：n=Len(s)
t=0
For i=1 To n-1
         a(i)=Val(Mid(s，i，2))
Next i
For i=1 To n-2 Step 2
       k=i
       For j=i+2 To n-1 Step 2
        If a(i)<a(k)Then k=j
     Next j
       If k<>i Then
           temp=a(i)：a(i)=a(k)：a(k)=temp：t=t+1
       End If
    Next i
    Text1．Text=Str(t)
运行程序段后， t的值为（）

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

查看解析
7、【加试题】某VB程序段如下：
    s=0
    For i=1 To 5
    a(i)=0
    Next i
    For i=2 To 5
         For j=i To 5
         If j Mod i=0 Then
            a(j)=a(j)+1
            s=s+a(j)
         End If
       Next j
    Next i
运行程序段后，变量s的值为（）

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

查看解析
8、【加试题】在“画图”程序中绘制一张分辨率为1200*800的BMP格式宣传画，发现图像大小不合适，对图像进行了如图所示操作，按BMP格式保存后图像的存储容量是703KB。则该图像的每个像素需要的二进制位数是（）

A、4 B、8 C、24 D、32

查看解析
9、在Flash文件中有一按钮元件编辑界面如图所示，下列说法正确的是（）

A、测试影片时，当鼠标经过该按钮时会发出声音 B、测试影片时，当鼠标经过该按钮时文字消失 C、测试影片时，当按钮按下时，按钮上呈现的文字与图中所示文字“返同”可能不同 D、对轮廓图层按下帧执行清除关键帧操作后，测试影片时，当鼠标经过按钮会出现手形

查看解析
10、小贝使用Photoshop软件制作“爱护眼睛”主题的宣传画，部分界面如图所示。

下列说法正确的是（）

A、“文字2”图层会显示两种图层样式效果 B、背景图层不能被删除 C、“卡通1”图层中的卡通人物可以移动到图像的左侧 D、“文字1”图层中的文字应用了变形效果

查看解析
11、在Flash软件中使用“ball”元件制作了一个50帧的补间动画，第1帧和第50帧元件实例的属性界面分别如图1和图2所示，第1帧的属性面板部分界面如图3所示。下列关于“ball”元件实例的动画效果，说法正确的是（）

A、从左向右顺时针运动的同时由小逐渐变大 B、从右向左顺时针运动的同时由小逐渐变大 C、从左向右顺时针运动的同时由小突然变大 D、从右向左顺时针运动的同时由小突然变大

查看解析
12、使用UltraEdit软件观察字符“2018，Open Happiness!”的内码，部分界面如图所示。

下面说法正确的是（）

A、大写字母“O”的内码为“20” B、文本中的字符都采用ASCII编码表示的 C、文本共占用19个字节 D、按图中信息推测，“hat”字符的内码是“48 61 74”

查看解析
13、某算法的部分流程图如图所示，执行这部分流程图后，变量i，s的值分别是（）

A、10，2 B、13，2 C、10，22 D、13，22

查看解析
14、已有Access软件创建的“部分食品进货数据”表的结构及数据表如图所示，下列四个选项中能作为记录添加进该表的是（）

A、3，大白兔奶糖454g，29.8元，15，2017年12月25日 B、3，大白兔奶糖454g，29.8，15，二〇一七年十二月二十五日 C、7，大白兔奶糖454g，29.8，15，2017—12—25 D、8，大白兔奶糖454g，29.8元，15，20171225

查看解析
15、小丁利用Word软件编辑了一篇关于中国文字的文档，部分界面如图所示。

下列说法正确的是（）

A、这段文字共有1处修订、2处批注 B、文中的图片采用的环绕方式为四周型 C、图中Mike2用户添加的批注内容为：“也叫正楷、真书、正书。” D、若要对整篇文档中的多处“甲骨文”文字设置为红色加粗格式，可用查找替换功能实现

查看解析
16、小张对A. bmp图像文件(如图所示)进行如下处理，利用 Winrar将A. bmp进行压缩，得到B. rar文件；利用Photoshop软件将A. bmp另存为C. jpg；把A. bmp重命名为D. jpg，下列说法正确的是（）

A、A. bmp到B. rar的转换为有损压缩 B、A. bmp的存储容量比D. jpg的存储容量要大 C、C. jpg不能用“画图”程序打开 D、C. jpg的存储容量比D. jpg的存储容量要小

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

A、多媒体技术和网络技术是信息社会中极为重要的信息表达技术 B、古代没有电脑、没有网络，也没有信息技术 C、对朋友圈里的信息进行点赞属于信息的个人推荐评价 D、智能手机为用户提供了设置屏幕锁的功能，其主要目的是为了提升手机信息的安全性

查看解析
18、【加试题】维吉尼亚（Vigenere）密码。如图所示，分别用行和列表示待加密的字符（明文）和当前字符的密钥，行和列的交叉点的字符即为加密后的结果（密文）。在加密时．密文与明文的字母大小写形式保持一致，如，明文字母为大写，则加密后的密文字母也为大写；当密钥长度不足时重复使用密钥。例如：当明文M=HellowWorld，密钥K=abc时，密文C=HfnplpYosnd。运算过程如下所示：
明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

依据上述算法描述设计了如下VB程序。请回答下列问题：

(1)、若明文是Jia，密钥是Pass，则输出的密文是。

(2)、请在画线处填上合适的代码。
Const MIN_ASC=65       ‘字母”A”的ASCII值

Function x2D(x As String)As String    ‘字符串小写转成大写

    Dim s As String，zf As String，i As Integer

    S=””

    For i=1 To Len(x)

      zf=Mid(x，i，1)

      If zf>=“a”And zf<=“z”Then

        s=s+    ①

     Else

        s=s+ zf

    End If

    Next

    X2D=s

End Function

Private Sub Command1_Click()

    Dim M As String，K As String，C As String，flag As Boolean

    Dim i As Integer，t As Integer，ch As Integer，pos As Integer·

As Integer

    M=Textl．Text     ‘明文

    K=Text2．Text     ‘密钥

    t=Len(K)

    K=X2D(K)       ‘将密钥全部转成大写

    C=“ ”         ‘加密后的结果

    For i=1 To Len(M)

      ch=Asc(Mid(M，i，1))

      flag=False

      If ch>=97 And ch<=122 Then ch=ch-32：flag=True

    pos=    ②       ‘密钥的字符位置值

      If pos=0 Then pos=t

    j=Asc(Mid(K，pos，1))       ‘密钥字符的ASCII值

      ch=ch-MIN_ASC

      j=j-MIN_ASC

    ch=    ③

    ch=ch+MIN_ASC

    If flag Then ch=ch+32    ‘设置字母的大小写形式

      C=C & Chr(ch)

    Next i

    Text3．Text=C

End Sub

① ② ③

查看解析
19、【加试题】随机产生一个存有两位整数组a，先排序，然后进行数据重组，使被排序的数据呈现中间小，并逐次向两边增大。小李编写了该VB程序，运行程序时，在列表框List1中显示排序前数据，单击“重组”按钮Command2，在列表框List2中显示“重组”后的数据，程序运行界面如图所示。

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

Dim a(0 To 20)As Integer，d(0 To 20)As Integer

Dim n As Integer

Private Sub Command1_Click()

‘产生n个[10，99]之间的随机整数，存储在a(0 To n-1)中，同时显示在List1中，代码略

End Sub

Private Sub Command2_Click()

    Dim i As Integer

    n=Val(Text1．Text)

    For i=0 To n-2

      For j=i+1 To n-1

        If   Then            ‘(1)

          temp=a(i)：a(i)=a(j)：a(j)=temp

      End If

     Next j

Next i

If n Mod 2<>0 Then d(n＼2)=a(n-1) ‘个数为奇数，最小值放中间位置

    For i=0 To n＼2—1

    d(i)=a(i*2)

=a(2*i+1)              ‘(2)

Next i

‘在列表框List2中输出数组d，代码略

End Sub

(1)、处加框代码应改为；

(2)、处加框代码应改为。

查看解析
20、李制作主题为“奔马”的输入作品，首先使用Photoshop软件处理图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、如图a所示，当前状态下，能直接添加滤镜的图层是（多选，填字母：A，文字／B，小鸟／C，燕子／D，奔马／E，背景)。

(2)、“奔马”图层第1帧至第60帧的幂补间动画如图b所示，则该动画的补间类型(填字母：A，形状补间／B，动画补间)。

(3)、测试场景时，发现燕子动画一开始就出现了，当前状态下若要使燕子动画推迟1秒出现，正确的操作是。

(4)、“音乐”图层的声音时长为12s，同步为“事件”，若要实现动画和声音在最后一帧同时停止，可在图层的最后一帧添加动作脚本：。

(5)、将该作品按图c设置发布，则生成的文件都具有交互功能吗?（填：是/否）

查看解析

上一页 1632 1633 1634 1635 1636 下一页跳转