相关试卷

1、有一个数列，它的前二个数为0，1，此后的每个数都是其前面2个数之和，即0，1，1，2，3，5，8，13……要求编写程序，输出该数列到刚超过10000的数为止，且项数不能超过100项。编写程序如下：
Dim i As Integer， a As Integer， b As Integer， c As Integer

Dim s As String

a = 0: b = 1: c = 0: i = 2

s = Str(a) + Str(b)

Do While c <= 10000 And i < 100

    a = b: b = c

    c = a + b

    s = s + Str(c)

    i = i + 1

Loop

Text1.Text = s

运行上面的程序，发现输出的数列不正确，应进行修改。以下修改正确的是（）

A、把c<=10000改为 c>10000 B、把i<100改成i<=100 C、把i=i＋1移到Do While c<=10000 and i<100下面 D、把语句c=a+b移到a=b：b=c的上面

查看解析
2、下列逻辑表达式中，值为False的是（）

A、Not(Sqr(4)-3 <= -2) B、Int( Rnd * 49 ) < 49 C、3+4 <= 7 and 5+6 > 9 D、"thirty" > "two"

查看解析
3、某算法的流程图如图所示，依次输入10，8，执行流程后，s的值是（）

A、" 1 0 8" B、" 1 2" C、" 0 1" D、" 2 1"

查看解析
4、使用UltraEdit软件查看字符内码，部分界面如图所示。

下列说法正确的是（）

A、图中所示共有16个字节的内码 B、图中所示共有8个ASCII码字符 C、由图可知小写字母j的内码为70H D、由图可知大小写字母的十六进制相差20H

查看解析
5、某7位二进制数1□□□101，其中有3位未知，下列数值可能和它相等的是（）

A、(99)₁₀ B、(69)₁₆ C、(65)₁₆ D、(98)₁₀

查看解析
6、关于Access数据表的操作，下列说法正确的是（）

A、数据表同一列中各数据的类型可以不相同 B、修改字段名，数据表中相应的字段值可能会丢失 C、若在设计视图中删除一行，则在数据表视图中会删除一条记录 D、删除记录，剩余记录中数据类型为自动编号的字段值不会自动更新

查看解析
7、使用Access软件编辑某数据库的“成绩表”如左下图所示。在当前状态下，将右下图所示Excel表A2：C11区域中的数据粘贴到“成绩表”中，此时关于“成绩表”说法正确的是（）

A、包含3条记录 B、包含4个字段 C、“张均”所在记录的“编号”值为1 D、“编号”字段的值不能再修改

查看解析
8、如图所示的运动会数据表已完成了排序操作，针对此排序中所选择的关键字及次序，下列说法正确的是（）

A、以“性别”为主要关键字“降序”，以“班级”为次要关键字“升序” B、以“项目”为主要关键字“升序”，以“班级”为次要关键字“降序” C、以“项目”为主要关键字“升序”，以“性别”为次要关键字“降序” D、以“性别”为主要关键字“降序”，以“项目”为次要关键字“升序”

查看解析
9、现对某商品销售表数据进行筛选，对“商品”和“2003年”字段分别设置筛选条件，如图所示。

完成筛选后，表中显示的数据行数为（）

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

查看解析
10、使用Word软件编辑某文档，部分界面如图所示

下列说法正确的是（）

A、批注的作者是M1 B、删除批注，文字“5G”同时被删除 C、修订前，第四行的文字是“时代的一个侧面，5G时代正向我们走过来。” D、若接受修订，第四行的文字是“时代的一个侧面，5G时代正向我们走来。”

查看解析
11、属于因特网信息资源评价方式，但是却没有在下图中体现的是（）

A、统计评价 B、个人推荐 C、专家或核心刊物评价 D、权威机构的推荐

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

A、所有的信息都是来源于网络 B、微信朋友圈里的信息都是可信的 C、网上购物时，需要将自己收到的银行支付验证码告诉给卖家 D、不要随意扫描广告上的二维码

查看解析
13、下列关于该网页描述正确的是（）

A、https是以安全为目标的HTTP通道，是安全的超文本传输协议 B、浏览器的收藏夹里保存的是网页文件 C、编辑网页时，当在网页中插入一张20KB的图片后网页文件的容量将增加20KB D、浏览器中以“仅HTML”格式另存网页，网页中的图片同时被保存

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

A、信息必须依附于载体才能得以表示、存储和传播，不存在没有载体的信息 B、计算机中存储的文字、声音、图像等，均采用二进制代码 C、我们看的书本是信息的载体，书本上的文字是信息 D、多媒体技术和网络技术是信息技术的表达技术而非表达方式

查看解析
15、某数据加密方法描述如下：
先将字符转化为二进制的位数据并显示在文本框text2中，数据位数显示在标签Label1中以16个数据为一段，将k个待加密数据依次分割成若干个数据段，剩余数据（个数小于16）为独立数据段。

数据加密规则：

数据个数等于16的数据段，在段内进行位置变换，得到加密数据段。

数据个数小于16的数据段，直接得到加密数据段。

依次合并加密数据段，即为最后的加密数据。

位置变换的规制，方法如下：

具体界面如下图所示：

(1)、已知k=38，则数组元素b（26）对应值是数组a中的。

(2)、实现该功能的VB程序如下:
Private Sub Command1_Click()

Dim a(1 To 1000) As Integer, b(1 To 1000) As Integer

Dim n As Integer, m As Integer

Dim s As String, s1 As String, c As Integer, ch As String

s = Text1.Text: Text2.Text = ""

n = Len(s)

k = 1

For i = 1 To n                  ‘获取字符的二进制数据存放在数组a()中

n = Asc(Mid(s, i, 1))

Do While n <> 0

   a(k) = n Mod 2

   n = n \ 2

   Text2.Text = Text2.Text + Str(a(k))

   k = k + 1

Loop

Next i

              ①

List1.Clear

For m = 1 To (k - 1) \ 16    '对字符二进制按规则进行位变换，变换后的数据存放在数组b()中并输出

For i = 1 To 4

    b(16 * (m - 1) + 4 * (i - 1) + 1) = a((m - 1) * 16 + i)

             ②

Next i

For i = 1 To 3

    b(16 * (m - 1) + 4 * (i - 1) + 3) = a((m - 1) * 16 + 10 + i)

    b(16 * (m - 1) + 4 * (i - 1) + 2) = a((m - 1) * 16 + 17 - i)

Next i

For i = 1 To 2

    b(16 * (m - 1) + 13 + i) = a((m - 1) * 16 + 4 + i)

Next i



For i = 1 To 4

s1 = ""

For j = 1 To 4

s1 = s1 + Str(b(16 * (m - 1) + (i - 1) * 4 + j))

Next j

List1.AddItem s1

Next i

List1.AddItem ""

Next m



s1 = ""

For i = ((k - 1) \ 16) * 16 + 1 To k - 1

   b(i) = a(i)

    If          ③        Then

    s1 = s1 + Str(a(i))

    List1.AddItem s1

    s1 = ""

    Else

    s1 = s1 + Str(a(i))

    End If

Next i

List1.AddItem s1

Text3.Text = ""

For i = 1 To k - 1

Text3.Text = Text3.Text + Str(b(i))

Next i

End Sub

实现上述功能，请在划线处填入适当的代码：

程序中①处填入的是。

程序中②处填入的是。

程序中③处填入的是。

查看解析
16、数组nam（）、sex（）、math（）、su（）分别存放学生的姓名、性别、数学和总分成绩，现要求编写一个程序使得数据按照男生“总分”的降序和女生“总分”的升序排列，其中男生在前女生在后，程序界面如下图所示：

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

Dim nam(100) As String '存放学生姓名

Dim sex(100) As String '存放学生性别

Dim math(100) As Long '存放学生数学成绩

Dim su(100) As Long '存放学生总分成绩

Dim k As Integer 'k变量用来存学生人数

Private Sub Form_Load()

‘将数据库中的数据分别存储在相应的变量中并在列表框中显示出来

‘代码略

End Sub

Private Sub Command1_Click()

Dim mmax As Integer, gmax As Integer, flagm As Boolean, flagg As Boolean

i = 1: flagm = True: flagg = True

Do While i <= k And flagm = True       ①

    mmax = 0: gmax = 0

    flagm = False: flagg = False

For j = i To k - i + 1

    If sex(j) = "男" And su(j) > su(mmax) Then mmax = j

    If sex(j) = "女" And su(j) > su(gmax) Then gmax = j

Next j

   If mmax <> 0 Then

      flagm = True

      t = nam(mmax): nam(mmax) = nam(i): nam(i) = t

      t = sex(mmax): sex(mmax) = sex(i): sex(i) = t

      t = math(mmax): math(mmax) = math(i): math(i) = t

      t = su(mmax): su(mmax) = su(i): su(i) = t

   End If

   If gmax <> 0 Then

       flagg = True

       If j = mmax Then             ②

        gmax = mmax

        t = nam(gmax): nam(gmax) = nam(k - i + 1): nam(k - i + 1) = t

        t = sex(gmax): sex(gmax) = sex(k - i + 1): sex(k - i + 1) = t

        t = math(gmax): math(gmax) = math(i): math(i) = t

        t = su(gmax): su(gmax) = su(k - i + 1): su(k - i + 1) = t

       Else

        t = nam(gmax): nam(gmax) = nam(k - i + 1): nam(k - i + 1) = t

        t = sex(gmax): sex(gmax) = sex(k - i + 1): sex(k - i + 1) = t

        t = math(gmax): math(gmax) = math(k - i + 1): math(k - i + 1) = t

        t = su(gmax): su(gmax) = su(k - i + 1): su(k - i + 1) = t

      End If

   End If

i = i + 1

Loop

For i = 1 To k

List2.AddItem nam(i) + "    " + sex(i) + "    " + Str(math(i)) + "    " + Str(su(i))

Next i

End Sub

程序中①处改为。

程序中②处改为。

查看解析
17、小王为2022年北京与张家口联合申办的冬奥会做了一个宣传片，部分制作画面如图a所示。请回答下列问题：

图a

(1)、舞台中的“吉祥物”实例来源于库中“吉祥物”影片剪辑元件。双击舞台中的“吉祥物”实例对其进行修改，库中的“吉祥物”元件（选填：会/不会）随之改变。

(2)、图中“人物”图层实现了运动员在滑雪的同时移动到舞台右侧，说明该图层的补间动画类型为。

(3)、“退出”按钮的部分编辑界面如图b所示，测试影片时发现该按钮不能实现点击效果，请写出解决方案。

图b

(4)、测试影片时，在场景播放结束后音乐停止并且自动跳转到“申办”场景的第一帧并停止，则“ac”图层第45帧添加的动作命令为。

(5)、若要将作品发送给同学欣赏，应将作品发布为（多选：填字母：A .fla/ B .swf/ C .exe/ D .html）格式。

查看解析
18、编写“十六进制加法”程序。程序运行时，在文本框Text1和文本框Text2分别输入两个十六进制数，单击“计算”按钮后在文本框Text3上输出两个十六进制相加后的结果。程序运行如图所示。

(1)、观察代码，触发代码执行的事件名是

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Cmd1_Click()
    Dim a1 As String, a2 As String, sum As String, t As String
    Dim b1 As Integer, b2 As Integer
    Dim dist As Integer, x As Integer, jw As Integer
    a1 = Text1.Text: a2 = Text2.Text: sum = ""
    dist = Len(a1) - Len(a2)
    If dist < 0 Then
        t = a1: a1 = a2: a2 = t

    End If
    For i = 1 To dist
        a2 = "0" + a2
    Next i
    jw = 0
    For i =
        If Mid(a1, i, 1) >= "A" And Mid(a1, i, 1) <= "F" Then
            b1 = Asc(a1) - 55
        Else
            b1 = Val(Mid(a1, i, 1))
        End If
        If Mid(a2, i, 1) >= "A" And Mid(a2, i, 1) <= "F" Then
            b2 = Asc(a2) - 55
        Else
            b2 = Val(Mid(a2, i, 1))
        End If
        x = b1 + b2 + jw
        jw = x \ 16
        If Then
            sum = Chr(x Mod 16 + 55) + sum
        Else
            sum = Str(x Mod 16) + sum
        End If
    Next i

    Text3.Text = sum
End Sub

(3)、若将代码中加框处代码删除，则图中Text3中显示的结果为。

查看解析
19、小林制作了公司一、二、三月份的数据报表，并对数据进行简单的处理，如图a所示。

图a

请回答下列问题：

(1)、D10单元格数据为一月份交易金额的最大值，利用MAX函数计算得到，则D10的单元格的公式为。

(2)、若要制作如图b所示的图表，应如何操作？

图b

(3)、由图b可知，二月、三月同比增长都为正数的地区为。

(4)、若对表格中数据的一、二、三月交易金额都按照图c进行筛选，则如图b所示的图表数据剩下条。

图c

查看解析
20、在text1文本框内输入字符串，单击去重按钮，将字符串后面相同的字符删除，并在text2中输出经过删除的字符串。程序界面如图所示。请在下面划线处填入合适的代码。

Private Sub Command1_Click()

Dim s As String, s1 As String, c As String

s = Text1.Text

For i = 1 To Len(s)

c = Mid(s, i, 1)

s1 =          ⑴

For j =           ⑵

   If c <> Mid(s, j, 1) Then

   s1 = s1 + Mid(s, j, 1)

   End If

Next j

         ⑶

Next i

Text2.Text = s

End Sub

A、⑴s1 = Mid(s, 1, 1)    ⑵i + 1 To Len(s)    ⑶s1 = s B、⑴s1 = Mid(s, 1, 1)    ⑵i To Len(s)        ⑶s1 = s C、⑴s1 = Mid(s, 1, i)     ⑵i To Len(s)      ⑶s = s1 D、⑴s1 = Mid(s, 1, i)     ⑵i + 1 To Len(s)   ⑶s = s1

查看解析

上一页 1551 1552 1553 1554 1555 下一页跳转