版本：

全部粤教版（2019）浙教版（2019）教科版（2019）沪教版（2019）人教中图版（2019）教科版浙教版

相关试卷

1、统计字符串s中的升序段个数(例如47923123 ，则满足条件的升序段是479，23，123)。编写的部分VB程序段如下：
s= "47923123"

f=True ： n=Len(s) ： m=0

For i=2 To n

    If Mid(s， i， 1)> >Mid(s， i - 1， 1) Then





    Else



    End If

Next i

Print "升序段个数有"十Str(m)

上述程序段中方框处可选语句为：

①f= True

②f= False

③If f Then m=m+1

则(1)(2)(3)处语句依次为（    ）

A、①②③ B、②③① C、③②① D、②③①

查看解析
2、有如下VB程序段：
s=0：t=0

For i=1 To 5

   If a(i)-a(i+1)<t Then

        t=a(i)-a(i+l)

        s=s+1

  End If

Next i

数组元素a(1)到a(6)的值依次为“4，5，3，2，7，5”，执行该程序段后，变量s的值为（    ）

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

查看解析
3、有如下VB程序段：
s= "abcde"

m=0

L=Len(s) ：n=L

Do While n>0

    m=(m+3) Mod n+1

    s=Mid(s，1，m-1)+ Mid(s，m+1，L) +Mid(s，m，1)

    n= n-1

Loop

执行该程序段后，变量s的值是（    ）

A、edcba B、debca C、dbeca D、Edbac

查看解析
4、符合产生随机整数n，其范围为(100≤n≤200)的VB表达式是（）

A、int(Rnd * 100)+ 100 B、int(Rnd * 100)+101 C、int(Rnd* 101)+100 D、int(Rnd* 101)+101

查看解析
5、尺寸为1280×720像素、颜色位深度为24位的图像，要求其上传大小不超过450KB。根据一要求，压缩为JPG格式其压缩比至少为（）

A、3：1 B、4：1 C、5：1 D、6：1

查看解析
6、用Photoshop软件制作“足球”宣传海报，如图所示，下列说法正确的是（）

A、可以对“F OT BALL"图层使用“自由变换”命令调节文字大小 B、调换“球员”图层与“F OT BALL"图层顺序作品显示效果不变 C、可直接用“油漆桶”工具改变“F OT BALL"图层的字体颜色 D、对“F OT BALL"图层执行修改字号命令无法单独将“O”字母变大

查看解析

7、用Access软件设计某图书管理信息系统的数据库，其中“图书登记表”中需要存储如图所示的数据。

序号	图书编号	书名	作者	入库日期	借阅状态
27	BK001 113	安娜·卡列尼娜	列夫·托尔斯泰	2014-07-31	是
28	BK003839	城南旧事	林海英	2016-08-01	否
29	BK002028	时间简史	霍金	2020-08-02	是
…	…	…	…	…	…

下列关于该图书管理信息系统的描述，正确的是（）

A、“图书登记表”中存在如图数据，不可以将“序号”字段改为“自动编号” B、“图书登记表”的字段顺序与图中数据的列顺序需要一致 C、“图书登记表”中借阅状态数据的字段类型不可以设置为“数字”类型 D、同一数据表中各记录的字段数可以不同

查看解析

8、下列应用中，没有体现人工智能技术的是( )

A、停车管理系统通过识别车牌进行计费 B、“识花”软件通过识别花草图像显示花草名称 C、自动翻译机将普通话翻译成英语 D、佩戴智能导游进人预设无线发射点后自动播放讲解

查看解析
9、下列有关信息与信息处理的说法，错误的是( )

A、搜索引擎运用了全文检索技术 B、古人“事大，大结其绳，事小，小结其绳，结之多少，随物众寡”，属于信息编码 C、鲲鹏云手机摆脱了对芯片的依赖，不再需要CPU支持 D、计算机感知现实世界需要用到传感器技术

查看解析
10、小李设计“移数游戏”程序，实现如下功能：在列表框中有24个数字(8个“1”，8个“2”，8个“3”)随机排成“井”字形方阵，通过单击游戏界面中的八个按钮实现往箭头方向循环移动所在行(或列)的数据，例如“→③”按钮所在行的数据依次为“2，2，3，3，3，2，1”，若单击一次“→③”按钮后，该行的数据向右循环移动一次，依次变为“1，2，2，3，3，3，2”。玩家通过按钮移动数据，最终若使游戏界面中虛线框内的八个数字为相同数字则完成游戏。程序运行界面如图所示。

(1)、在如图所示的游戏界面中，单击某按钮一次后，即可完成游戏，则该按钮的Caption属性值是。

(2)、程序部分代码如下，请在划线处填入合适的代码。
Dim a(1 To 49) As String

Private Sub Form _Load ()

    Dim k(1 To 3) As Integer

    Randomize

    t=0

    For i=1 To 49

        x=

        y=(i-1) Mod 7+1

        If x=30rx=50ry=30ry=5Then

           t = Int (Rnd*3) + 1

           Do While

              t=t Mod 3+ 1

           Loop

           k(t)=k(t)+1

           a(i) = Str(t)

       Else

           a(i) =””

       End If

    Next i

    ‘在列表框中输出数据，得到“井”字形方阵。代码略

End Sub

‘下面为单击“↑①”按钮，实现数据的移动

Private Sub Command1_ Click()

    j=3

    temp =a (6*7+j)

    For i=1 To 6

      p =i-1

      If p<1 Then p= 7

      A ((p-1)*7+j)=a ((i-1)*7+j)

    Next i

    = temp

    ’在列表框中输出数据，更新“井”字形方阵。代码略

End Sub

‘其他按钮所实现功能的代码略

查看解析

11、数组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)\2Mod2

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)、请在划线处填入合适的代码。

① ②

查看解析

12、小温制作主题为“70周年华诞”的多媒体作品，首先使用Photoshop软件处理图片，然后使用Flash软件制作动画。

(1)、小温使用Photoshop处理背景图片，如图a所示，下列说法正确的有(多选题，填字母)

A．选择“背景”图层，使用“矩形选框”工具选中左边的松树，进行“内容识别”填充，可使松树消失

B．选中“周年华诞”图层，可以直接通过“自由变换”改变“周年华诞”的文字大小

C．选中“周年华诞”图层，可以直接设置图层样式

D．选择“70”图层并解锁后，可用文字工具修改该图层中文字大小

E．选中“背景”图层，可以直接添加滤镜

(2)、其中，“main”场景的部分制作脚本和界面如下：

场景： main	类别序号： 2	进入方式：单击“load"场景的“Play” 按钮进入
呈现方式： ⒈“文字”图层中的文字实例由完全透明到完全显示、再到完全透明，用时2秒。 ⒉“年份”图层的动画由文字“1979~2019”逐渐变为文字“普天同庆”，用时5秒。 ⒊“播放”按钮出现在舞台右下方，单击该按钮，跳转到“end”场景第一帧并停止播放，同时“我和我的祖国”音乐停止。 ⒋其他动画略。			呈现顺序说明： ⒈进入场景时，动画停止在第1帧，“我和我的祖国”音乐响起，“开始” 按钮出现。 ⒉单击“开始”按钮后动画开始播放，同时“开始”按钮消失。 ⒊“文字”图层的动画结束后，“年份”“气球”“战斗机”图层的动画开始。 ⒋最后出现“播放”按钮，场景动画停止在最后一帧。

请根据“main”场景制作脚本和图b所示界面，回答下列问题：

“文字”图层第10帧中，该文字实例的Alpha值为 (单选，填字母：A . 0%/ B . 100%)。

(3)、在“音乐”图层中，“我和我的祖国”音乐的同步方式为 (单选，填字母：A .事件/B .数据流/C .停止)。

(4)、“年份”图层第20帧到第70帧的动画类型为(单选，填字母： A .形状补间/B .动画补间/C .逐帧动画)。

(5)、测试场景时，发现“按钮”图层的动画与脚本设计不符，请改正。。

(6)、“播放”按钮上添加的动作脚本为。

查看解析

13、小董收集了某购书网站主要畅销书销售数据，并使用Excel软件进行数据处理，如图a所示。

(1)、区域I3：I17的数据是通过公式计算得到的，在I3单元格中输入公式，再利用自动填充功能完成区域I4：I17的计算。

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

(3)、小董若在图a所示工作表中对数据进行进一步的操作，下列说法正确的是 (多选，填字母)。

A、若要对“历史人文”类别的书籍以“折扣”为关键字升序排序，应选择排序的区域是A6：I9 B、若在该工作表中，对D3单元格的数值小数位数设置为1，I3 单元格的数值不变 C、若在该工作表中的C列和D列之间插入一列，则书籍《大国战略》的“年销售金额”数据将在单元格J17中，该单元格公式变为： =C17*$E17*SUM(F17：I17) D、若以“定价(元)”为最小1项进行筛选，则图b所示的图表不会变化

查看解析
14、下列VB程序功能为：先把数组中最小的元素放到中间位置，再把第二小的元素放到中间的后一个位置，然后把第三小的元素放到中间的前一个位置，以此类推。如数组元素a(1)到a (9)的值依次为“72，61，3，95，39，38，64，65，98”，程序运行后，数组元素a(1)到a (9)的值依次为“98，72，64，39，3，38，61，65，95”。
m=(1+n)\2     ‘n为数组元素的个数，m为数组中间位置元素的下标

For i=1 To n

    If a(i)<a (m) Then t=a(i)：a(i)=a(m)：a(m)=t

Next i

p=m：q=m

For i=1 To n-2

    If i Mod 2=1 Then

        k=q+1：q=q+1

    Else

        k=p-1：p=p-1

    End If

    pos=k

    For j=1 To n

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

    Next j

    If pos <> k Then

       t = a(pos)： a(pos) = a(k)： a(k) = t

    End If

Next i

上述程序段方框处的代码为(    )

A、j<p And j>q B、j>p 0r j<q C、j<p 0r j>q D、j>p And j<q

查看解析
15、有如下VB程序段：
s = Text1. Text

ans =""： k=4

i = k-1：j=k+1：n=Len(s)

Do While k>0

    If Mid(s，i，1) = Mid(s，j，1) Then

        ans = ans + Mid(s，i，1)：k=k- 1

    End If

    i=(n+i-2) Mod n+1

    j=j Mod n+1

Loop

Label1.Caption = ans

在文本框Text1中输入“banana”，执行程序后，标签Label1中显示的内容是(    )

A、nana B、naba C、naan D、Naaa

查看解析
16、有如下VB程序段：
c=0：p=0：q=0

For i =1 To 5

    b(i)= a (6-i)

Next i

For i=1 To 3

    If (b(i)+b(i+1)*2+b(i+2)*3)Mod 5=0 Then

        p=p+1

    Else

        q=q+1

    End If

    If p <=q Then c=c+1

Next i

数组元素a(1)到a(5)的值依次为“2，1，2，3，4”，执行该程序段后，c的值为(    )

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

查看解析
17、某算法的部分流程图如图所示。执行这部分流程，输入n的值为20191115，则输出s的值是( )

A、8 B、20 C、34 D、40

查看解析
18、下列VB表达式中，值最大的是( )

A、Va1(Mid(“3.1415926”，6， 2)) B、Int((Rnd-Rnd+1)/2) *100 C、6790 Mod 1000 \ 10 D、Int(Rnd * 80) + 10

查看解析
19、下列有关信息和信息安全的说法，不正确的是（）

A、中医通过“望、闻、间、切”来诊断病情，说明信息可通过多种方法和途径获取 B、学校对学生成绩数据进行统计得到平均分、标准差等信息，体现了信息的可加工处理性 C、某软件每次支付都会动态生成不同的付款码，是为了提高信息的安全性 D、相同的信息可以通过电话、微信等途径传递，说明信息的传递可以不依附于载体

查看解析
20、若一个数从左向读与从右向左读是一样的，则这样的数称为回文数。若一个数不是回文数，则可以通过以下方法得到回文数，如十进制数87不是回文数：
第一步： 87+78=165

第二步： 165+561=726

第三步： 726+627=1353

第四步： 1353+3531=4884

即十进制数87最少经过4步可得到回文数。

给定一个n(2≤n≤10)进制数m，已知m的位数≤20，求最少经过几步可得到回文数，若步数≤30，则在标签Label2，上输出步数，否则输出“不可能得到回文数！”。程序运行界面如下图所示。

(1)、若在Text1、Text2中分别输入10和56，则在标签Label2中显示的内容是

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

Dim b(1 To 20) As Integer

Private Sub Command1_Click()

   Dim n As Integer， m As Integer， step As Integer， x As Integer

  n = Val(Text1.Text)： m = Val (Text2.Text)

  i=1：step=0

  Do While m<>0

        a(i) =m Mod 10： m=m\10：i=i+1

  Loop

  x=

  If Ishw(x) Then Label2.Caption = "step=" + Str(step)

  Do While step <= 30

        p=0

        For i=1 To x

            b(i) = (a(i) +a(x-i+1)+p) Mod n

            p= (a(i)+a(x-i+1)+p)\n

        Next i

        step=step+1

        If p< 0 Then x=x+ 1：

            For i=1 To x



      Next i

        If Ishw(x) Then Label2． Caption = "step=" + Str(step)： Exit Do

  Loop

End Sub

Function Ishw(y As Integer) As Boolean

   Dim j As Integer

   Ishw = True

   For j=1 To y\2

        If a(j) <> a(y- j + 1) Then Ishw = False： Exit For

  Next j

End Function

查看解析

上一页 695 696 697 698 699 下一页跳转