相关试卷

1、有如下VB程序段：
Dim a(1 To 10) As Integer

a(1)=2: a(2)=18: a(3)=10: a(4)=34: a(5)=16

a(6)=7: a(7)=37: a(8)=6: a(9)=15: a(10)=15

c=0: x=0: t= 1

For i=1 To 10

    a(i)=a(i)*t

    c=c+a(i)

    If c>0 Then x=x+1

    t=-t

Next i

Text1.Text=Str(x)

则程序运行后Text1中显示（）

A、1 B、3 C、5 D、10

查看解析
2、有如下VB程序段：
Private Sub Command1_Click()

Dim d(1 To 8) As Integer

Dim i As Integer, s As Integer

d(1)=1

For i=2 To 10

d(i)=d(i-1)*i

Next i

For i=1 To 5

s=s+d(i)

Next i

Text1.Text = Str(s)

End Sub

程序运行时，单击命令按钮Command1后，将会出现的提示信息是（）

A、溢出 B、下标越界 C、要求对象 D、无效的过程调用或参数

查看解析
3、下列VB表达式的值等于35的是（）

A、Abs(Int(-34.3)) B、Val(Str(30)+"5") C、Len("xue")+5 D、Int(sqr(50))*11\2

查看解析
4、某算法的部分流程图如图所示。
执行这部分流程，输出s的值是（）

A、－10 B、10 C、190 D、210

查看解析
5、一段1024×768像素、24位色、NTSC制式(30帧/秒)的无声AVI格式视频文件，经压缩比为10：1的技术压缩后其容量为675MB，时长约为（）

A、10秒 B、50秒 C、100秒 D、150秒

查看解析
6、使用photoshop软件制作作品，部分界面如图所示。

下列说法正确的是（）

A、可以直接使用油漆桶工具修改“放飞梦想”图层中的文字颜色 B、使用移动工具移动“飞机”图层中飞机图像位置，文字“放飞梦想”不受影响 C、“风车”图层被锁定，故不能移动“风车”图层至“飞机”图层上方 D、隐藏“背景”图层，该作品呈现效果不会变化

查看解析
7、使用UltraEdit软件观察字符“字母a～z”内码，部分界面如图所示.

下列说法正确的是（）

A、图中共有3个ASCII码字符 B、字符“j”的十六进制编码值为70 C、字符“z”内码值的十进制表示为122 D、字符“母”内码值的二进制表示为“1100010010101000”

查看解析
8、下列关于Access数据库和数据表的说法，正确的是（）

A、在数据表视图下，不能修改字段名称和数据类型 B、新建“自动编号”类型的字段后，原有记录的“自动编号”字段值缺失 C、数据表中某字段数据类型为“是/否”，可以输入“是”作为有效字段值 D、Access数据表的数据导出到Excel后，Excel中显示的字段值可能发生变化

查看解析
9、下列有关网页和电子邮件的说法，正确的是（）

A、HTTP协议用于浏览器与Web服务器之间的信息传输 B、执行“添加到收藏夹”，实际是保存了当前网页的内容 C、发送电子邮件时，邮件主题和正文内容缺失将导致邮件发送失败 D、通过网页收发电子邮件不需要使用SMTP和POP3协议

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

A、书籍、广播、电视是常见的信息表达方式 B、文本、图像、声音、动画、视频均可以作为信息的载体 C、不联网的计算机没有信息安全隐患，故不需要对数据进行备份 D、安装并及时更新杀毒软件的计算机可以防御所有计算机病毒

查看解析
11、柯桥区各所学校技术考试的分数均存放在数据库中，表中学生考号存储形式如"10101"，"10203"……，考号第1位数字表示学校代码（1代表柯中，2代表鲁高，3代表越崎，4代表鉴湖，5代表钱清，6代表豫才，7代表轻纺城，9代表鲁中），后4位表示校内编号。现设计VB程序查询学校成绩，查询方式为：在Text1中输入学校名称，在Text2中输入数字n，单击“查询”按钮，在列表框List2中显示该校得分最高的n名学生的考号和技术得分。

(1)、实现上述功能的程序代码如下，请在划线处填入正确的语句。
Const rs = 2500 '考生总人数（即记录总数）

Dim kh(1 To rs) As String, cj(0 To rs) As Integer

Dim xx(1 To 9) As String '数组xx存放学校名称，如xx(1)="柯中",xx(2)="鲁高"……数组下标代表该学校代码，即"柯中"代码是1,"鲁高"代码是2……

'从数据库中读取考号和成绩数据，存入kh和cj数组，并在list1中显示，代码略。

Private Sub Command1_Click()

Dim school As String, n As Integer, i As Integer, j As Integer

Dim t1 As Integer, t2 As String, flag As Boolean

xx(1) = "柯中": xx(2) = "鲁高": xx(3) = "越崎": xx(4) = "鉴湖"

xx(5) = "钱清": xx(6) = "豫才": xx(7) = "轻纺城": xx(8) = "鲁中"

For i = 1 To 8

    If xx(i) = Text1.Text Then        ①

Next i

n = Val(Text2.Text) : i = 1: flag = True

Do While flag

    k = i

    For j = i + 1 To rs

      t = Val(Mid(kh(j), 1, 1))

      If t = school Then

        If          ②          Then k = j

      End If

    Next j

    If i > n And cj(k) <> cj(i - 1) Then flag = False

    If k <> i Then

       t1 = cj(i): cj(i) = cj(k): cj(k) = t1

       t2 = kh(i): kh(i) = kh(k): kh(k) = t2

    End If

    i = i + 1

Loop

List2.Clear

For j = 1 To         ③

    List2.AddItem kh(j) + " " + Str(cj(j))

Next j

End Sub

① ② ③

(2)、设鲁中有技术考生150人，如果把程序中加框部分代码删除，当运行程序时在文本框Text2中输入200，单击查询按钮后列表框List2中显示有项（单选，填字母： A .恰好150 / B .恰好200/ C .大于等于150且小于等于200 / D .大于等于200）

查看解析
12、火柴游戏：有n根火柴，第1次取1根，第2次取2根，第i次取i根，当剩余火柴数为0时，不用添加火柴（即k=0），游戏结束。如果剩余火柴数不为0，但不够下一次取，此时添加k（k≥1）根火柴，在剩余火柴中再从1根开始取，直到能取完为止，求k的最小值。
例如：n=3时，第1次取1根，第2次取2根，此时正好取完，无须添加火柴，k=0；

例如：n=8时，第1次取1根，第2次取2根，第3次取3根，第4次要取4根，但剩余2根不够取。则加上1根，剩余3根，再从1根开始取，即第4次取1根，第5次取2根，剩余火柴为0，游戏结束，得k=1。

又如：n=4时，第1次取1根，第2次取2根，第3次不够取，若加上1根，剩余2根，再从1根开始取，第3次取1根，剩余1根不够第4次取，再加1根，又是剩余2根，显然加1根永远不可能取完。所以改用每次加2根，第1次取1根，第2次取2根，第3次不够取，添加2根，第3次取1根，第4次取2根，恰好能取完，得k=2。

编写一个VB程序可实现上述功能：在文本框Text1中输入火柴数量，单击“计算”按钮，在文本框Text2中显示最少添加数量，程序运行界面如下图所示：

实现上述功能的程序代码如下：

Private Sub ok_Click()

Dim a(1 To 100) As Boolean, n As Integer, k As Integer, i As Integer

n = Val(Text1.Text)

For i = 1 To 100

    a(i) = False

Next i

a(n) = True

Do While n <> 0

    i = 1

    Do While i <= n

             ①

        i = i + 1

    Loop

    If n = 0 Then

        Text2.Text = Str(k)

    Else

        If k = 0 Then k = 1

        n = n + k

        If       ②     Then

            k = k + 1

            n = Val(Text1.Text)

        Else

            a(n) = True

        End If

    End If

Loop

End Sub

(1)、由代码可知，“计算”按钮的对象名是。

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

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

查看解析
13、小王创作了一个以“重阳节”为主题的多媒体作品，他先用Photoshop制作图片素材，然后用Flash制作动画。请回答下列问题。

图a

(1)、当前Photoshop部分界面如图a所示，下列说法正确的是（多选，填字母：A .选择“枫叶”图层，可用“自由变换”命令调整枫叶的大小/ B .当前画布中没有显示“重阳”图层的内容 / C .可以隐藏“山”图层的“外发光”的图层样式/ D .把当前PSD文档保存为JPG格式，JPG文件大小约为703.1KB）

(2)、观察图b，“菊花”图层呈现动画可能是（单选，填字母：A .由两束菊花逐渐变成如图所示的一束菊花 / B .“菊花”由小变大的同时，水平翻转/ C .由文字“菊”逐渐变成一束菊花）

图b

(3)、如图所示“人”图层第50帧人物部分属性如图c所示，选中第50帧上的实例，（选填：能/不能）调整该实例大小。若要使人物直到动画最后才出现，不改变其它动画效果前提下，可进行的操作是

图c

(4)、“声音”图层设置的声音同步方式是“事件”，为了使声音从约1秒时开始播放，在“声音”图层上可行的操作是（多选，填字母：A .删除第5-14帧 / B .在第1帧执行“清除关键帧”操作 / C .把第21帧移动到第11帧 / D .复制第21帧并粘贴到第11帧，然后在第21帧执行“清除关键帧”操作）

(5)、如要使场景播放到最后时，自动打开和影片同一目录下的“cy.docx”文件获取更多信息，则可在“背景”图层的最后一帧添加动作脚本。

查看解析
14、小李收集了某家庭2018，2019两年的峰谷用电量数据（2019年12月份暂缺数据），并使用Excel软件进行数据处理，如图a所示。

图a

请回答下列问题：

(1)、小李通过公式计算2019年前11个月与2018年的前11个月的用电同比增加率，则J16单元格的公式为（用电同比增加率计算公式为：（2019年前11个月累计用电量-2018年前11个月累计用电量）/2018年前11个月累计用电量*100）

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

图b

(3)、小李根据用电数据，想知道2018年峰谷电使用最佳的一个月份（峰用电除以谷用电的比值越小越佳），下面哪几项操作可以得到正确结果（填字母）

A、以2018年“谷用电”为主要关键字降序排序，排在最前面的就是最佳月份。 B、增加一列2018年“谷用电”除以“月用电量”的比值数据，并按此比值进行降序排序，排在最前面的月份就是最佳月份。 C、以2018年“峰用电”为主要关键字升序排序，再用“谷用电”字段筛选出最大的一项 D、增加一列2018年“峰用电”除以“谷用电”的峰谷电比值数据，筛选出该列最小的一项，该月份即为最佳月份。

查看解析
15、数组元素a(1)～a(2*n)中存储的一批正整数，以两个数一组，每组中两个数均比前面一组的两个数要大。现用对分查找的思想，设计一个在数组a中查找数据key的程序，如果找到key，在标签Label1上显示“yes”，否则显示“no”
    key = Val(Text1.Text)

i = 1: j = n * 2 : flag = False

   Do While i + 1 <= j And Not flag

     m = (i + j) \ 2

     If    ①    Then m=m-1

     If a(m) = key Or a(m + 1) = key Then

        flag = True

     ElseIf a(m) > key Then

               ②

     Else

               ③

     End If

   Loop

   If a(i) = key Or a(j) = key Then flag = True

   If flag Then Label1.Caption = "yes" Else Label1.Caption = "no"

划线处的代码正确的是（）

A、①m Mod 2 = 1 ②j=m-1   ③i=m+2 B、① m Mod 2 = 0   ②j=m-1   ③i=m+2 C、①m Mod 2 = 1 ②j=m-2   ③i=m+2 D、① m Mod 2 = 0   ②j=m-2   ③i=m+2

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

Dim b(1 To 100) As Integer

Dim c As Integer

a(1) = 0: a(2) = 2: b(1) = 1: b(2) = 2: c = 0

For i = 2 To 6

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

b(i + 1) = b(i) ^ 2 / b(i - 1)

c = c + a(i + 1) + b(i + 1)

Next i

Label1.Caption = Str(c)

该程序运行后，Label1中显示的内容是（）

A、46 B、88 C、164 D、76

查看解析
17、有如下程序段:
Dim s(1 To 81) As Integer, i As Integer, j As Integer, c As Integer, temp As Integer

c=0 : s(1) = 0

For i = 1 To 9

  For j = 1 To i

      temp = s(j * i)

    s(j * i) = j * i

      If temp <> s(j * i) And s(j * i) Mod 9 = 0 Then c = c + 1

  Next j

Next i

该程序段运行后，变量C的值为（   ）

A、9 B、10 C、11 D、12

查看解析
18、有如下VB程序段
Dim c As Integer,a(0 To 5) As Integer

For i = 1 To 5

  a(i) = i

Next i

c = 0

For i = 1 To 5

  x = Int(Rnd * 5 + 1)

  If a(x Mod 5) = i + 2 Then c = c + 1

  If c = x Then Exit For

  i = i - 1

Next i

运行该程序后，变量c的值不可能是（）

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

查看解析
19、某算法的部分流程图如图所示：

执行这部分流程后，变量x的值是（）

A、0 B、2 C、14 D、18

查看解析
20、下列VB表达式的值一定是0的是（）

A、Len(“-20”) + 20 B、Int(Rnd * 2) * 2 Mod 4 C、Abs((Rnd - Rnd) * 2) D、9 \ 3 * 7

查看解析

上一页 1412 1413 1414 1415 1416 下一页跳转