相关试卷

1、某同学运用Photoshop加工自己的照片，照片未能加工完毕，他准备下次接着做，他最好将照片保存成（）。

A、bmp B、swf C、psd D、gif

查看解析
2、使用Photoshop软件在处理图片过程中，想要抠选其中的部分图像，刚好这部分图像和背景色差明显，背景色单一，图像边界清晰，选用以下工具最为恰当的是（）。

A、磁性套索工具 B、选框工具 C、魔棒工具 D、橡皮擦

查看解析
3、下列文件格式中都是图像文件格式的一组是（）。

A、GIF、TIFF、BMP B、GIF、TIFF、WAV C、GIF、BMP、DOC D、GIF、BMP、TXT

查看解析
4、小赵用下列方法制作的一张图片，可能是矢量图的是（）

A、用数码相机拍摄了一张图 B、用扫描仪扫描一张图 C、在Flash软件中画了一张图 D、在Photoshop中画了一张图

查看解析
5、数字图像的类型可分为( )

A、点阵图、位图 B、点阵图、矢量图 C、平面图、位图 D、平面图、矢量图

查看解析
6、如图所示，小辉用图像处理软件将左图处理成右图的效果，他采取的操作是（）。

A、裁剪 B、放大 C、翻转 D、旋转

查看解析
7、小李编写VB程序，实现如下功能：在文本框Text1中输入年份，点击开始命令，在Label2标签中显示判断平年闰年的结果。（闰年判断条件：①普通闰年：能被4整除但不能被100整除的年份；②世纪闰年：能直接被400整除的年份）程序运行界面如下图所示。

(1)、在文本框中输入1860，输出结果是。

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

    Dim year As Integer

    year =

    If Or (year Mod 400 = 0) Then

      Label2.Caption = Str(year) & "是闰年"

    Else

Label2.Caption = Str(year) & "是平年"

    End If

End Sub

查看解析
8、LZW编码是一种自适应词典编码，通过建立一个字典，实现字符的编码。假设输入的字符串中仅有小写字母和空格，编码方法如下：
⑴初始时，建立一个空字典，把26 个小写字母加入字典中。26 个小写英文字母编码为 1-26，字母“a”的编码为 1，字母“b”的编码为2，其它字母的编码依次增加。

⑵从字符串第一个位置开始扫描，若遇到空格（空格用“*”表示），则得到一个单词，截取该单词并存入变量中。

⑶若该单词在字典中，则取出该单词在字典中的编码值；否则，依次取出该单词中各字母在字典中的编码值，（编码值之间用一个空格分隔），同时产生该单词的编码（编码为字典中的最大编码值加1），加入字典中。

⑷继续扫描字符串，截取单词，并按照步骤⑶的方法进行处理，直至整个字符串编码完毕。字符串“ab ab”LZW编码过程如图所示。

(1)、如果字符串为“ab bb bb”，则其LZW编码为。

(2)、请在划线处填入合适的代码。
Dim pos As Integer, a(1 To 100)As String

Private Sub Form_Load()

    '将字母“a”至“z”依次存入数组元素a(1)到a(26)

End Sub

Function judge(ss As String) As Integer           '判断字典中是否有ss这个单词

    Dim i As Integer judge = 0

    For i = 27 To pos

        If a(i) =Then judge = i

        Exit For

        End If

    Next i

End Function

Private Sub Command1_Click()

    Dim s As String, i As Integer, j As Integer, k As Integer, ch As String, word As String, result As String, Dim id As Integer, idletter As Integer

    s = Text1.Text pos = 26: i = 1

    Do While i <= Len(s)

        j = i

        Do While Mid(s, j, 1) <> " "

            j = j + 1

            If j > Len(s) Then Exit Do

        Loop

        word = Mid(s, i, j - i)

        If Len(word) = 1 Then            '单个字母的单词

            result = result + Str(Asc(word) -Asc("a") + 1)

        Else

            id = judge(word)

            If id = 0 Then              '新的单词

                For k = 1 To Len(word)                  '依次处理该单词中的各个字母编码

                    ch = Mid(word, k, 1)



                Next k

                pos = pos + 1              '对该单词编码

                a(pos) = word

            Else             '词典中存在该单词

                result = result + Str(id) End If

        End If

        If j < Len(s) Then result = result + " *"



    Loop

    Text2.Text = result

End Sub

查看解析
9、数组a中存放着1到20间的正整数，要求对其中的元素进行分段排序，在文本框Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体界面如下图所示：

实现该功能的VB程序如下，请在划线处填入合适的代码：

Dim a (0 To 100) As Integer

Const high=16

Private Sub Form_Load()

    '产生high个随机数，并显示在文本框Text1，代码略

End Sub

Private Sub Command1_Click()

    Dim p As Integer, q As Integer, t As Integer

    Dim m As Integer, n As Integer, k As Integer

    m=Val(Text2.Text)

    For i=1 To

        c=“”

        For j=1 To m-1



            q=i*m

            k=sort(p, q)

            If a(k)<>a(q) Then

                t=a(p): a(p)=a(k): a(k)=t

            End If



        Next j

        Text3.Text=Text3.Text+ “”+c

    Next i

End Sub

Function sort(f As Integer, g As Integer) As Integer

    s=f

    For i=f+1 To g

        If a(i)>a(s) Then



        End If

    Next i

    sort=s

End Function

查看解析
10、在美国国家信息交换码中，ASCII值从32到127是可以打印并显示的字符，把这96个字符随机调整次序，生成密码本。根据输入的密钥和明文，单击“加密”按钮Command1，输出密文。基本算法如下：
1）用数组mab分别记录1～96个字符的ASCII值，用数组zm记录对应字符在密码本中位置，如mab(9)=65，表示密码本中第9个字符是“A”，则对应的zm(65)=9；

2）把密钥中每个字符的ASCII值的各个数字进行累加（如Hi分别为(7+2)+(1+0+5)），将累加的和除以9取余数后加7，作为将密码本转换成二维表的列数；

3）每个明文在转换后二维表中位置作为密文，该位置是用十六进制表示的行号和列号。

程序运行的界面如下图所示：

实现上述功能的VB程序如下，请回答以下问题：

(1)、若输入密钥为“AB”，则根据算法及密码本，字母“A”加密后的密文是。

(2)、请在划线处填入合适的代码。
Dim Mab(96) As Integer        '存储密码本中每个字符的ASCII值

Dim zm(127) As Integer         '存储ASCII值32至127的字符在密码本数组mab中的下标

Private Sub Form_Load()

    '产生密码本及96个字符在密码本中位置，代码略。

End Sub

Function p(s As String) As Integer

    Dim i As Integer, t1 As Long

    Dim sum As Integer, s1 As String

    t1=0

    i=1

    Do While i<=Len(s)

        s1=Mid(s, i, 1)

        t1=Asc(s1)



        i=i+1

    Loop

    p=sum Mod 9+7

End Function

Private Sub Command1_Click()

    Dim i As Integer, t As Integer, hang As Integer

    Dim s As String, s1 As String, Lie As Integer

    List1.Clear

    s1=Text1.Text

    t=p(s1)

    Label5.Caption= “将密码本换成一张”+Str(t)+ “列的二维表”

    i=1

    Do While i<=96

        s=s+Chr(Mab(i))+ “”

        If i Mod t=0 Or i=96 Then

            List1.AddItem s

            s= “”

        End If

        i=i+1

    Loop

    wz= “123456789ABCDEF”

    s=Text2.Text

    For i =1 To Len(s)

        s1=Mid(s, i, 1)



        hang=(t1-1)\t+1

        lie=(t1-1) Mod t+1

        s2=

    Next i

    Text3.Text=s2

End Sub

查看解析
11、小岩设计了一个顺时针旋转矩阵的程序，其功能为：运行程序时，在文本框Text1中输入矩阵规模n，点击“产生矩阵”按钮Command1，在列表框List1中显示一个n*n的矩阵，该矩阵数据由从1开始的连续自然数组成。点击“旋转矩阵”按钮Command2，该矩阵顺时针旋转90度并显示在列表框List2中，此后每点一次“旋转矩阵”按钮Command2，列表框List2中显示的矩阵顺时针旋转90度。请完成程序填空。

Dim n As Integer

Dim st As String

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Private Sub Command1_Click()

    '产生矩阵，代码略

End Sub

Private Sub Command2_Click()      '旋转矩阵

    For i=1 To n      '行

        st= “”

        For j= 1 To n            '列

            b((i-1)*n+j)=

            st=st+adj(Str(b((i-1)*n+j)),3)

        Next j

        List2.AddItem st

    Next i

End Sub

Function adj(a As String, n As Integer) As String

    '在字符串a前加入适当的空格，使a的长度为n位，代码略

End Function

查看解析
12、对一个n×n的矩阵以“行”为单位进行升序排序，如下表所示是一个4×4的矩阵以行为单位进行升序排序。

小杜编写了实现上述功能的程序，程序功能如下：程序运行时，在文本框Text1中输入n(1<=n<=10)，单击“产生”按钮Command1产生n×n个随机数，随机数的范围为[0,9]，随机存储在数组a中，并以矩阵的形式在列表框List1上显示单击“排序”按钮Command2，对矩阵以“行”为单位进行升序排序，并在列表框List2输排序后的矩阵。在程序运行界面如下图所示，实现上述功能的VB程序如下，请在划线处填入合适的代码。

Dim n As Integer

Dim a(1 To 100) As Integer

‘随机生成数并存储在List1中，代码略

Private Sub Command1_Click()     ‘按行排序

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

    Dim s As String

    s=“”

    For i=1 To

        k=i

        For j=i+1 To

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

        Next j

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

        If I Mod n=0 Then List2.AddItem s: s=“”

    Next i

End Sub

Private Sub Command2_Click()     ‘按列排序

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

    Dim s As String

    s= “”

    For i=1 To i-1

        k=i

        For j= i+n To

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

        Next j

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

        If I Mod n=0 Then List2.AddItem s: s= “”

    Next i

End Sub

查看解析
13、某仓库物品代码格式为“X-XXX-XXXXX-Y”，其中“X”和“Y”均为0到9之间的数字，“Y”为校验码。校验码由前面9个X计算得到，计算方法为：从左边开始，第1个数字乘以1 加上第2个数字乘以2……依此类推，直到加上第9个数字乘以9，将该结果除以10，所得余数即为校验码。
小吴设计一个根据校验码校验物品代码的VB程序，功能如下：在文本框Text1中输入物品代码，单击“校验”按钮Command1，如果输入的校验码与计算所得的校验码一致，则输出“校验通过。”（如下左图所示），否则输出“校验不通过！”（如下右图所示）。

Dim s As String               '用于存储输入的物品代码

Dim t As String

Dim i As Integer, j As Integer

Dim sum As Integer        '用于存储计算校验码的累加和

Dim check_old As Integer             '用于存储输入物品代码中的校验码Y

Dim check_new As Integer           '用于存储按照前面9个数字X计算所得的新校验码

Dim a(1 To 10)As Integer

Private Sub Command1_Click()

    '从物品代码中取出9个数字X依次存储到a(1)到a(9)中，取出校验码Y存储到a(10)中

    s= Text          ①

    j=0

    For i=1 To 13

        t=Mid(s, i, 1)

        If(t>="0")And(t<="9") Then

             j=j+1

            a(j)=Val(t)

        End If

    Next i

    '计算新的校验码并和输入的校验码进行比较

    sum=0

    For i=1 To 9

        sum=sum+             ②

    Next i

    check_new=          ③

    check_old=a(10)

    If check_old=check_new Then

        Label1.Caption="校验通过。"

    Else

        Label1.Caption="校验不通过! "

    End If

End Sub

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

查看解析
14、有如下VB程序段:
Dim a(1 to 5) as Integer, i as Integer, c as Integer

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

c = 0

For i = 3 to 5

If a(i - 2) + a(i - 1) = a(i) Then c = c + 1

Next i

Text1.Text = Str(c)

该程序运行后,文本框text1中显示的内容是（）

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

查看解析
15、执行下面的程序段后，x的值为（）
x=5

For i=1 To 20 Step 2

x=x+i\5

Next i

A、21 B、22 C、23 D、24

查看解析
16、水仙花数也被称为超完全数字不变数，是指一个3位数，它的每个位上的数字的3次幂之和等于它本身（例如：13+53+33=153）。课堂上老师布置作业要求用VB编写一个程序，找出所有的水仙花数，下面是小丽同学完成的作业，其中有几处错误，请帮她修改。
Private Sub Command1_Click()

    Dim i As Long, j As Long, k As long

    Dim As long

    For i=0 To 9

        For j=0 To 9

            For k=0 To 9

                s=i*100+j*10+k

                If(i^3)+(j^3)+(k^3)=s Then

                    Debug. Print s

                End If

            Next k

        Next j

    Next i

End Sub

(1)、修改“Dim As Long”行中的错误；

(2)、修改“For i=0 To 9”行中的错误；

(3)、修改“If(i^3)+(j^3)+(k^3)= s Then”行中的错误；

查看解析
17、有如下程序段：
Dim a(1 To 5) As Integer

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

For i = 5 To 2 Step -1

    For j = 1 To i - 1

        If a(j) > a(j + 1) + Int(Rnd * 2) Then

            t = a(j): a(j) = a(j + 1): a(j + 1) = t

        End If

    Next j

Next i

程序运行后，a(1)到a(5)的值不可能是（   ）

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

查看解析

18、数组a中存储的是两个数列交替排序的n个正整数，下标为奇数的数组元素都是奇数且为升序排列，下标为偶数的数组元素都是偶数且为降序排列。排序示例如下。

a(1)	a(2)	a(3)	a(4)	a(5)	a(6)	a(7)	a(8)	a(9)	a(10)
1	10	3	8	5	6	7	4	9	2

依据对分查找思想，设计一个在数组a中查找数据key的程序，实现该功能的VB程序如下，请回答下列问题：

Private Sub Search_Click()

Const n = 10

Dim a(1 To n) As Integer

Dim i As Integer, j As Integer, m As Integer, f As Boolean, key As Integer

'读取一组正整数，按上述规则存入数组 a 中。代码略

key = Val(Text1.Text)

If key Mod 2 = 1 Then i = 1 Else i = 2

j = n :f = False

Do While i <= j And Not f

If key Mod 2 = 0 Then

m = (i + j) \ 2 - (i + j) \ 2 Mod 2

Else

m = ①

End If

If key = a(m) Then

f = True

ElseIf Then

j = m - 2

Else

i = ②

End If

Loop

If f Then Label1.Caption = Str(m) Else Label1.Caption = "不存在"

End Sub

(1)、观察程序代码，该事件处理过程名为。

(2)、程序加框处代码有错，请改正。

(3)、请在划线处填入合适的代码。

① ②

查看解析

19、对于数列：1、2、3、4、5，用二分法查找数据“4”，最少的查找次数是（）。

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

查看解析
20、5个学生的身高（单位：cm）依次为：172，177，180，168，165，采用冒泡排序对这5个学生的身高数据进行从高到低排序，第二遍加工后的数据为（）。

A、180，177，172，168，165 B、180，172，177，168，165 C、165，172，177，180，168 D、165，168，172，177，180

查看解析

上一页 823 824 825 826 827 下一页跳转