相关试卷

  • 1、下列说法不正确的是 (  )
    A、信息在共享时不会有损耗 B、信息可以从一种形态转换为另一种形态 C、二维码链接中的信息不可能包含病毒,可以扫描任意的二维码 D、勾选了“记住密码”选项,方便了用户登录,但可能存在安全隐患
  • 2、【加试题】小明设计了一个查找数据的程序:在一组升序的数列当中,查找不小于k的最小数的位置,如果该值存在,则返回其第一次出现的位置,如果不存在则返回0。

    程序界面如图所示:

    (1)、若在Text1中输入“8”,Text2,Text3输出的分别为
    (2)、请在画线处填入合适的代码。

      Dim a(1 To 10)As Integer

        Function find(L As Integer,R As Integer,key As Integer)As Integer

        If L>R Then

            find=0:Exit Functionhp

        ElseIf a(L)>=key Then

            find=L:Exit Function

      Else

               ①  

            If a(M)<key Thenhp

                  find=find(M+1,R,key)

             ElseIf    ②     Then

                  find=find(L,M-1,key)

             Else

                  find=M

             End If

         End If

    End Function

    Private Sub Command1 Click()

        Dim k As Integer

        Dim P As Integer

        k=Val(Text1.Text)

             ③  

        Text2.Text=a(P)

        Text3.Text=Str(P)

        If p=0 Then

           Text2.Text=“无”

        End If

    End Sub

    Private Sub Form Load()

        a(1)=3:a(2)=3:a(3)=3:a(4)=4:a(5)=7:a(6)=7

        a(7)=10:a(8)=13:a(9)=19:a(10)=21

        For i=1 To 10

            List1.AddItem Str(a(i))

        Next i

    End Sub

     ② ③ 

  • 3、【加试题】编写一个VB程序,将一个长度为n的有序序列a(1),a(2),……,a(n),以整数t(1≤t≤n)将该有序序列划分为两段,并将序列a的前t个数与后n-t个数对调,且保持这两段(t个数和n-t个数)之间的相对位置不变(即t个数和n-t个数各自有序)。例如,长度为6的有序序列38,42,59,61,69,78,当t=2时重排结果为59,61,69,78,38,42。功能如下:在文本框Text1中输入n,单击“生成”按钮Command1后在列表框List1中显示n个有序数,在文本框Text2中输入t,单击“对调”按钮Command2,在列表框List2输出t个数与n-t个数对调后的数字序列。程序运行界面如图所示。实现上述功能的VB程序如下,但加框处代码有错,请改正。

      Dim n As Integer

      Dim a(1 To 100)As Integer

    Private Sub Command1_Click()  ‘生成n个有序数,显示在List1中

    ‘代码略

    End Sub

    Private Sub Command2_Click()

        Dim t As Integer

        Dim i As Integer

        Dim j As Integer

        Dim temp As Integer

        t=Val(Text2.Text)

        For i= To n       ‘(1)

          temp=a(i)

          For j=i To i+1-t Step-1

          a(j)=a(j-1)

          Next j

            =temp    ‘(2)

        Next i

        For i=1 To n

          List2.AddItem Str(a(i))

        Next i

      End Sub

    (1)、处加框代码应改为
    (2)、处加框代码应改为
  • 4、小明制作主题为“生日快乐”的Flash作品。

    请回答下列问题:

    (1)、如图a所示,测试场景时,下列操作不影响动画效果的是(多连,填字母:A,将“文字”图层移动到“声音”图层的上方/B,在“文字”图层第35帧插入关键帧/C,在“按钮”图层第15帧插入帧/D,将“文字”图层设置为隐藏)
    (2)、如图b所示,“文字”图层第15帧至第25帧实现了“生日快乐”文字从小到大、完全透明到完全显示的效果,该动画类型属于(填字母:A,逐帧动画/B,形状补间/C,动画补间)。
    (3)、在不改变播放速度的前提下,为了使“文字”图层第30-40帧的补间动画在本场景动画第3秒后开始出现,正确的操作是
    (4)、“声音”图层有“生日快乐.mp3”声音,为了使动画播放完毕时声音不停止,则该声音的同步方式应设为(填文字:数据流/事件)。
    (5)、“按钮”元件的编辑界面如图c所示:

    测试影片时,当鼠标指针移至按钮上并按下时,按钮是否可见(选填:是/否)。

    (6)、“按钮”图层最后一帧上“退出”按钮实现关闭并退出动画的播放的效果,则该按钮的动作脚本为
  • 5、二进制转十六进制

    从文本框TextB输入一串不带符号位的二进制整数,单击“转换”按钮,将二进制转换为  十六进制并显示在文本框TextH中。程序界面如图所示:

    转换方法:先从右往左将二进制数分割成4位一组,若最左边的一组不足4位,则用0将高位补足,然后将每4位二进制数转换为1位十六进制数。

        Private Sub Convert_Click()

        Dim a(1 To 100)As Integer,temp As Integer

        Dim s As String,res As String,n As Integer,r As Integer

          res=“”

          s=TextB.Text

          n=Len(s)

          For i=1 To n

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

          Next i

          t=n\4

          r=    ①    

          temp=0

          For i=-1 To r      ‘将最高的r位转换为十六进制

                ②   

          Next i

          If temp>9 Then

            res=Chr(temp+55)

          Elself temp>0 Then

            res=CStr(temp)    ‘CStr()函数用于将数值转换为字符串,

      同时删除前导空格

          End If

          For i=1 To t       ‘将t组4位二进制转换为十六进制

            temp=0

            For i=1 To 4

                temp=temp+a(j+r+4*(i-1))*2^(4-j)

            Next j

            If temp>9 Then

              res=res+Chr(temp+55)

            Else

             Res=res+CStr(temp)

            End If

          Next i

          TextH.Text=res

        End Sub

    (1)、观察程序代码,可知“转换”按钮的对象名为。(单选,填字母:A.TextB/ B.TextH/ C.Command1/ D.Convert/ E.转换)
    (2)、为实现上述功能,请在画线处填入合适的代码。

    第①处代码为

    第②处代码为

    (3)、若在文本框TextB中输入“101000111”,则单击”转换”按钮后的输出结果为
  • 6、小李收集了“XX年中国大学毕业生薪酬水平排行榜TOPl0”,并用Excel软件进行数据处理,如图1所示。

    请回答下列问题:

    (1)、区域G4:G12中的数据是从G3单元格利用自动填充功能得到的。则G3单元格输入的公式是 。
    (2)、若将G12单元格内容修改为“=F12-E$12”,则G12单元格将显示为。(单选,填字母:A.0; B.#VALUE!; C.#DIV/0!; D.G12)
    (3)、为了更直观地反映“所在地”为“上海”的高校“月薪”和“平均差”情况,创建了如图2所示的图表,该图表的数据区域是A2,F2:G2, 。

    (4)、将区域A2:G12的数据复制到新工作表并进行筛选,“985院校”和“211院校”设置筛选方式为 ,“月薪”设置筛选方式如图3所示,则筛选出的高校有所(填数字)。
  • 7、【加试题】有如下程序段:

      Function delStr(S As String,m As Integer)As String

        Dim n As Integer:n=Len(S)

        If m<1 Or m>n Then delStr=“输入位置有误!”

        If m=1 Then delStr=Mid(s,2,n-1)

        If m<n Then delStr=Mid(s,1,m-1)+Mid(s,m+1,n-m)

        If m=n Then delStr=Mid(s,1,n-1)

      End Function

      Private Sub Command1_Click()

        Dim S As String:Dim i As Integer

        S=Text1.Text

        For i=1 To 10 Step 2

          S=delStr(S,i)

        Next i

      Text2.Text=S

      End Sub

    文本框Text1中输入Happybirthday,执行该程序段,文本框Text2中显示的是(  )

    A、apybrtda B、apbrhday C、Happybirhday D、day
  • 8、【加试题】有VB编写的程序如下:

      Private Sub Command1_Click()

        Dim a(0 To 9)As Integer

        Dim t As Long

        t=Val(Text1.Text)

        Do While t<>0

           a(t Mod 10)=1

           t=t\10

        Loop

        For i=0 To 9

            x=x+a(i)

        Next i

      End Sub

    若在文本框Text1中输入10242048,则程序执行后,变量x的值为(  )

    A、1 B、2 C、5 D、10
  • 9、【加试题】在保持纵横比的情况下,将一幅1 024×768像素未压缩的位图图像的宽度调整为50%,量化位数为24位保持不变,则图像存储容量约(  )
    A、576 KB B、1 152 KB C、2.25 MB D、288 KB
  • 10、利用Flash软件制作按钮元件,部分编辑界面和“文字”图层中的对象属性如图所示。

    下列说法不正确的是(  )

    A、该按钮可以应用于多个不同的场景中 B、可用文字工具修改文字“退出”的颜色 C、测试影片时,当鼠标指针经过该按钮实例时播放声音 D、测试影片时,当鼠标指针经过该按钮实例时文字不会消失
  • 11、用Photoshop处理“大树草地.psd”的部分界面如图所示。

    下列描述正确的是(  )

    A、可用渐变工具修改“青青草地”图层中文字的颜色 B、不可为“背景”图层添加镜头光晕滤镜 C、可将“青青草地”图层的图层样式粘贴到“椅子”图层中 D、不可将“大树”图层移动到“青青草地”图层的上方
  • 12、为制作参加“纪念一二九运动”合唱大赛的音乐,小Z同学用GoldWave软件制作一段音频,部分界面如图所示。

    下面说法正确的是(  )

    A、若在当前状态下执行“删除”,按原参数保存,所得音频文件大小为原来的2/3 B、该音频每秒钟采样44 100个采样点,每个采样点需要1 411位二进制进行存储 C、该音频文件加了淡出效果 D、若在当前状态下插入10秒静音,按原参数保存,文件大小约为6.7 MB
  • 13、如图所示为在UltraEdit软件中观察字符内码的部分界面。

    下列说法正确的是(  )

    A、该字符串一共占15个字节 B、字符“π”的内码用二进制表示为:10100110 C、字符“×”的内码是:A1 D、该字符串有3个ASCII字符
  • 14、一个算法流程图如图所示,算法结束时,变量m值为(  )


    A、10 B、0 C、4 D、-5
  • 15、使用Access软件创建的“图书征订”数据表,其设计视图的部分界面如图所示。

    下列说法正确的是 (  )

    A、“ISBN”字段的值必须唯一,“编号”字段的值可以不唯一 B、在数据表视图中可将“征订册数”的字段类型改为“文本” C、若该表为空表,则可将“征订序号”字段的类型改为“自动编号” D、添加记录时,可在“定价”字段值输入:23.5元
  • 16、使用Word软件编辑某文档,部分界面如图所示,下列说法正确的是(  )

    A、批注的对象是“景物描写” B、删除批注,文字“落叶”同时被删除 C、修订前,第三行后半句文字是“脉络中,是否还藏有爱的颜色?” D、接受所有修订后,第三行后半句文字是“脉络中是否还藏有爱的颜色?”
  • 17、小明用IE浏览器访问浙江天气网“http://zj.weather.com.cn/”,如图所示。

    下列说法正确的是 (  )

    A、选择“网页,全部”方式保存网页,保存的网页文件包含图片 B、该网页是由HTTP语言编写的,可以由记事本、Frontpage等软件编辑 C、收藏该网页,保存的是网址“http://zj.weather.com.cn/” D、该网页的文件名为“浙江首页-浙江天气网”
  • 18、某用户使用手机“导航”软件,从A地驶向B地,规划路线后开始行驶,途中“导航”提示前方道路拥堵,建议改变路线,并实时提供新的导航路径,该事例主要体现信息的是(  )
    A、载体依附性 B、时效性 C、共享性 D、真伪性
  • 19、【加试题】对于数组(形如a数组:4,5,6,1,2,3或b数组:1,2,3,4,5,6)称元素1为此二数组的拐点,为寻找此类递增或循环递增数组的拐点,可以用顺序查找和对分查找的方法,通常相比之下对分查找算法较优,以下为使用对分法查找拐点的算法。

    做法是比较中点与当前查找范围第1个数大小关系,用对分法使查找范围逼近拐点;当余下数组只有两个元素时,可根据此二元素大小关系得到拐点的位置。

    依据上述描述设计了VB程序,界面如图所示。请回答下列问题:

    (1)、对于循环递增数组“9,10,11,12,13,14,15,16,17,18,19,20,1,2,3,4,5,6,7,8”,代码中加框处执行的次数为次。
    (2)、请在画线处填入合适的代码。

    Dim a(1 To 20)As Integer

    Private Sub Command1_Click()

      Dim Low As Integer,High As Integer

      Low=1

      High=20

      Do While High>Low

        If    ①     Then

           If    ②     Then

           Label1.Caption=“拐点元素为”+Str(a(1))+“,下标为”+Str(1)

           Else

             Label1.Caption=“拐点元素为”+Str(a(High))+”,下标为”+Str(High)

          End If

          Exit Do

          End If

        m=(Low+High)\2

        If a(m)>=a(Low)Then

        Low=m

        Else

            ③     

      End If

      Loop

    End Sub

    Private Sub Form_Load()

    ‘生成循环递增的数组a,代码略

    End Sub

     ② ③ 

  • 20、【加试题】德国数学家哥德巴赫曾猜测:任何大于6的素数都可以分解成两个素数(素数对)的和。但有些偶数可以分解成多种素数对的和,如:10=3+7,10=5+5,即10可以分解成两种不同的素数对的和。

    小敏编写了一个VB程序,用来求一个偶数(6到100之间)可能存在多少这样是素数岁(注:A+B与B+A认为是相同素数对,不重复统计),并把这些结果输出到一个列表框中,通过逻辑推理,小敏发现这些素数对都是奇数,所以她只需要验证奇数的素数对即可,运行界面如图所示,程序代码如下。但加框处代码有错误,请改正。

    Dim IsPrime(100)As B00lean  ‘用来存储是否素数,True为素数,False为非素数

    privatw Suh Command1_Click()

    Dim x As Integer,y As Integer,i As Integer,num As Integer

    Call Init              ‘调用Init函数

    x=Val(Text1.Text)

    y=x\2

    num==0

    For i==3 To y Step 2

    If  Then                  ‘①

        num=num+1

        List1.AddItem Str(x)+“=”+Str(i)+“+”+Str(x-i)

    End If

     Next i

    Label2.Caption=“偶数”+Str(x)+“共有”+Str(num)+“个素数对。”

    End Sub

    Sub Init()           ‘初始化IsPrime数组的值

      Dim i As Integer.j As Integer,X As Integer

      For i=3 To 100 Step 2

        X=Int(Sqr(i))

        For  Step 2                ‘②

        If i Mod j=0 Then Exit For

        Next j

        If i>x Then IsPrime(i)-True Else IsPrime(i)=False

      Next i

    End Sub

    ①处加框代码应该为

    ②处加框代码应该为

上一页 1628 1629 1630 1631 1632 下一页 跳转