• 1、给定一个正整数,要求将该数各个位上数字反转得到一个新数,如数字56020反转得到新数2065。有如下VB程序段:

    n=Val(Text1.Text)

    s=""

    flag=True

    Do While n>0

          ⑴ 

        n=n\10

        If Not flag Or x>0 Then

              ⑵ 

            flag=False

        End If

    Loop

    If s="" Then s ="0"

    Labe 11.Caption=s

    方框中(1)和(2)应填入的代码顺序为(    )

    ①x=nMod10^len(n)  ②x=nMod10  ③s=Str(x)+s  ④s=s+Str(x)

    A、①③ B、②③ C、①④ D、②④
  • 2、某算法部分流程图如图所示。执行该流程后,若输入的值为47和3,则输出s的值为(    )

    A、20 B、26 C、15 D、17
  • 3、下列VB表达式的值与其他三项结果不同的是(    )
    A、Len("河南加油!")Mod4\2+2 B、Int(Val(Mid("烟花392",3,2))/10) C、12\2*3-15 D、9^0.5+Int(Rnd())
  • 4、将帧频为10fps、总帧数为120帧的Flash动画作品导出为不压缩的无声AVI视频文件,其参数为768*1024像素、32位真彩色,该视频文件的存储容量约为(    )
    A、2.81GB B、360MB C、36MB D、30MB
  • 5、使用Photoshop软件制作“烟花易冷”作品,部分编辑界面如图所示。下列说法正确的是(    )

    A、“烟花”图层可能添加了滤镜 B、不可以将“树”图层移动到“叶”图层上方 C、“背景”图层不可以调整不透明度,也不能隐藏 D、将“易冷”图层的图层样式复制到“烟花”图层后,“烟花”图层显示投影、外发光效果
  • 6、下列有关信息编码的说法,正确的是(    )
    A、字符“Hey~假期”存储在计算机中,至少需要8个字节 B、已知字符“29”的十六进制内码为“32 39”,则字符“30”的十六进制内码为“33 3A” C、十进制数26转换为二进制数是100110 D、某4位十六进制数n,其末位数字为0,若转换为十进制数m,无法确定m能否被16整除
  • 7、某Access数据表中的记录与字段的数据类型如下图所示。下列说法正确的是(    )

    A、当前数据表视图下,删除“进价”字段的操作可以撤销 B、若改变产品“冰箱”的售价,其对应的销售额的字段值也会发生改变 C、可以在产品“电视机”和“热水器”两条记录中间插入一条ID为4,产品名为“空调”的记录 D、当前状态下不可以对“日用品销售表”重命名
  • 8、下列关于网页与浏览器的说法,不正确的是(    )
    A、网页超链接的链接目标可以是网页、图像、视频 B、浏览器与Web服务器之间的信息传输一般采用HTTP协议 C、若POP3协议发生错误,则电子邮件无法发送到收件人的邮件服务器中 D、在IE浏览器中可以以“单个文件(*mht)”格式另存网页
  • 9、下列关于信息和信息技术的说法,正确的是(    )
    A、Word、PPT是信息的一种表达技术,其中的文字、图像就是信息 B、信息可以通过人与人的交流来传递和共享,但在传递和共享的过程中可能会产生损耗 C、在APP上注册账号时,使用大小写字母、数字、符号组合成的密码,提高了账号信息的安全性 D、苹果设备之间可以使用“隔空投送”发送文件,因此信息的传播可以不依附于载体
  • 10、某信息仅包含大写字母,字符数不超过n*n(n*n 为密钥矩阵规模,n<10),加密过程如下:

    根据上述加密算法编写解密程序。程序在启动时读取密钥矩阵存入数组a 中,在文本框Text1

    中输入密文,点击“解密”按钮,在文本框Text2 中显示明文。运行界面如图c 所示。

    (1)、在文本框text1 中输入的密文是“8,1,23,2,17,3,33,4,”,则原文是(密钥矩阵按图a 中的密钥矩阵)
    (2)、实现上述算法的VB 程序如下,请在划线处填入合适的代码。

    Const n = 3

    Dim a(1 To n * n) As Integer

    Private Sub Command1_Click()

        Dim mw(1 To 2*n*n) As Integer

        '存储密文数据,奇数位存储加密值,偶数位存储该数据在原文中的位置

        Dim yw(1 To n*n) As Integer         '存储解密数据

        Dim k As Integer

        '生成规模为n*n 的密钥矩阵存入数组a中,代码略

        For i = 1 To Len(Text1.Text)

            c = Mid(Text1.Text, i, 1)

            If c <> "," Then

                t = t * 10 + Val(c)

            Else

               

                mw(k) = Val(t): t = 0

            End If

        Next i

        For i = 1 To k\2      '对密文解密,结果存数组yw

            yw(mw(2 * i)) =

        Next i

        s = ""

        For i = 1 To k\2

            s = s + Chr((yw(i)) + 64)

        Next i

        Text2.Text = s

    End Sub

    Function getmm(x As Integer, n As Integer)

        col = (x - 1) Mod n + 1

        row = (x - 1) \ n + 1

        getmm = a((col - 1) * n + row)

        If row Mod 2 = 0 Then getmm =

    End Function

  • 11、数据分组。将n个两位正整数按十位上的数字分组显示,十位上的数字是奇数的升序排序,十位上的数字是偶数的降序排序。某同学编写VB程序实现该功能,点击“生成”按钮随机生成n个两位正整数并显示在列表框List1中,点击“分组”按钮将整数按十位上的数字分组显示在List2中,程序运行界面如图所示。请回答下列问题:

    (1)、根据程序界面和代码,本程序用到的类共有 个
    (2)、在程序划线处填入合适代码,使程序完整

    Const n = 10

    Dim a(1 To n+1) As Integer

    '随机生成n个两位正整数,存入数组a中,代码略

    Private Sub Command2_Click()

        For i = 1 To n \ 2

            m =

            For j = i To m

                If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

            Next j

            k = m

            For j =

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

            Next j

            If k <> i Then t = a(k):  : a(i) = t

        Next i

        s = ""

        For i = 1 To n

            If a(i) \ 10 Mod 2 = 1 Then s = s + Str(a(i)) Else s = Str(a(i)) + s

            If  Then List2.AddItem s: s = ""

        Next i

    End Sub

    (3)、加框处代码有错,请改正
  • 12、使用Flash制作多媒体作品“中秋.fla”,部分界面如下图所示,请回答以下问题:

    (1)、根据多媒体作品的设计流程,下列操作应在“制定脚本大纲”环节之后的是 (多选,填字母:A .确定该作品的适用人群/B .编写该作品的文字脚本/C .根据需求确定该作品的结构类型/D .将该作品所涉及的媒体元素逐一列出)
    (2)、该作品库中共有个元件,“月亮”图层实现了月亮的淡入淡出效果,该图层第1帧对象不可能的是(单选,填字母:A .图形元件/B .影片剪辑元件/C .位图)
    (3)、要使“中秋”动画只播放一遍,则可以在 图层最后一帧添加动作脚本
    (4)、“兔子”图层中兔子是“元件2”的实例,为了使该实例在测试场景时从21 帧到31 帧在舞台上消失,其它动画效果保持不变,下列操作方法可行的是         (多选,填字母)
    A、将该图层移动到“背景”图层下方 B、选中该图层第21帧执行“清除帧”操作 C、选中该图层第21帧到31帧执行“删除帧”操作 D、选中该图层第21帧执行“插入空白关键帧”操作 E、选中该图层第21帧执行“插入关键帧”操作,将该帧实例的Alpha值设为0%
  • 13、教师用Excel处理全校选考技术的学生成绩,如图a所示。回答以下问题:

    (1)、统计各班优秀人数,H3单元格计算“高三1班”学生成绩“>=85”的学生数的公式是=COUNTIFS(A3:A170,G3,C3:C170,H2),将之自动填充到H4:H7,I3:I7,完成各班“>=85”和“>=80”的人数正确计算,则H3 单元格的公式应修改为 。(备注:COUNTIFS 函数将条件应用于跨多个区域的单元格,然后统计满足所有条件的次数)
    (2)、若删除B列,能否正确统计各班优秀人数 (单选,填字母:A .能/B .不能/)
    (3)、根据图a中的数据制作的图表如图b所示,下列描述正确的是         (多选,填字母)

    A、创建该图表的数据区域是G2:G7,I2:I7 B、将单元格C170的数据修改为86,图表不会随之变化 C、选择A2:E170区域,按“班级”升序排序,图表会随之变化 D、选择A2:E170区域,以“班级”是“高三1班”进行筛选,图表会随之变化
  • 14、有如下VB 程序段:

    s = Text1.Text: k = 1: maxlen = 1

    For i = 2 To Len(s)

        If Mid(s, i - 1, 1) < Mid(s, i, 1) Then

            k = k + 1

        If k > maxlen Then maxlen = k

        Else

            k = 1

         End If

    Next i

    Label1.Caption = Str(maxlen)

    在文本框Text1 中输入字符串“B3b8defhADot”,执行该程序段后,则标签Label1 中显示的内容为(    )

    A、1 B、5 C、8 D、13
  • 15、有如下VB 程序段:

    Key = Val(Text1.Text):s = 0: i = 1: j = 7

    Do While i <= j

        m = (i + j) \ 2

        s = s + m

        If a(m) > Key Then j = m - 1 Else i = m + 1

    Loop

    Text2.Text = Str(s)

    数组元素a(1)到a(7)的值依次为“12,15,18,20,20,20,29”,在文本框Text1中输入待查数,执行该程序段后,则文本框 Text2 中显示的内容不可能的是(    )

    A、7 B、9 C、15 D、17
  • 16、采用冒泡排序算法对数据序列“18,13,15,2,1,20”进行排序,第一轮排序后的结果为“1,18,13,15,2,20”,则完成整个序列的排序交换的次数是(    )
    A、6 B、7 C、8 D、9
  • 17、回文字符串的特征是从左到右读和从右到左读是完全一样的,如“abba”、“abcba”,判断字符串是否是回文字符串的VB程序段如下:

    s = "abba"

    n = Len(s) 's 是待判断的字符串

    i = n \ 2: j = i + 1 + n Mod 2

    Do While i > 0

    Loop

    If i = 0 Then Text1.Text= "对称" Else Text1.Text= "不对称"

    方框中的代码由以下三部分组成:

    ①j = j + 1: i = i - 1

    ②If c1 <> c2 Then Exit Do

    ③c1 = Mid(s, i, 1): c2 = Mid(s, j, 1)

    下列选项中,代码顺序正确的是(    )

    A、①③② B、③②① C、②③① D、③①②
  • 18、某算法的部分流程图如图所示,执行该流程时,输入n的值为126,则输出s的值为(    )

    A、01111110 B、01111111 C、10000001 D、10000000
  • 19、若要表示能被5整除的随机两位正整数,则下列表达式正确的是(    )
    A、Rnd*90+10 B、Int(Rnd*10)*10+10 C、Int(Rnd*9)*10+10 D、(Int(Rnd*9)+1)*10+10
  • 20、将一幅未经压缩的1024×750像素,256级灰度的BMP图像另存为JPEG格式,容量为152KB,则BMP文件转存为JPEG文件的压缩比约为(    )
    A、5:1 B、16:1 C、64:1 D、128:1
上一页 599 600 601 602 603 下一页 跳转