相关试卷

1、小张为社区的疫情防控工作设计了流动人员信息登记系统，其中已创建好的“登记信息”数据表用于存储如图所示的数据：

登记序号	姓名	门牌号	登记日期	登记形式	是否绿码
20200101	王立	06-801	2020.01.29	门卫	是
20200102	张哲民	01-203	2020/02/12	上门排查	是
20200103	李圣达	11-206	2020/02/12	电话访问	否
…	…	…	…	…	…

下列说法正确的是（）

A、该登记系统属于数据库管理系统 B、将图中数据成功导入至数据表后，同一字段下的数据类型一致 C、数据表中“门牌号”字段可以设置为“数字”类型 D、图中“登记序号”列在该数据表中相应字段的数据类型一定是“自动编号”

查看解析

2、下列有关网络的说法不正确的是（）

A、搜索引擎一般包含两大核心技术：自动网页搜索技术和全文检索技术 B、可以将网页添加到收藏夹，以便在不能上网时也能打开该网页 C、以“网页，仅html”方式保存的网页，能保存其中的超链接 D、电子邮局协议(POP3)的功能是让收件人从电子信箱中将电子邮件读到本地计算机上

查看解析
3、以下关于信息和信息技术的说法不正确的是（）

A、信息的表示、存储、传播必须依附于载体，不存在没有载体的信息 B、人们可以利用信息技术，把信息从一种形态转为另一种形态 C、可将QQ中的文件转发至微信中，说明信息的表达无需规范化 D、上周某天的天气资料对于安排明天的出行通常是没有用的，说明信息具有时效性

查看解析
4、排序的稳定性。假定在待排序的记录序列中，存在多个具有相同的关键字的记录，若经过排序，这些记录的相对次序保持不变，即在原序列中，r[i]=r[j]，且r[订]在r[j]之前，而在排序后的序列中，r[i]仍在r[j]之前，则称这种撸序算法是稳定的：否则称为不稳定的。现编写一个VB程序，实现功能如下：随机生成n-1个不重复的[10， 99]之间的正整数，在这n-1正整数中随机选取一个位置i，将其值r[i]作为第n个数插入到某一位置j处，然后对数据序列进行排序，验证排序前和排序后这两个相同数相对次序的变化，著均不变，则排序稳定，若有改变，则排序不稳定。实现该功能的VB程序及界面如下，请回答以下问题。

Const n = 10

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

Dim k1 As Integer, k2 As Integer     'k1，k2为相同数据的前、后次序

Private Sub Command1_Click ()

    Dim i As Integer, tmp As Integer, t As Integer

    Randomize

    List1.Clear

    For i = 1 To 9    '随机生成9个不重复数

        b(i) = Int(Rnd * 90) + 10

        Do While    ①

            b(i) = Int(Rnd *90) + 10

        Loop

    Next i

    '以下代码为随机选取数组中的1个数作为第10个数字再随机的插入到原数组的1-9位置

    K1 = Int(Rnd *9 + 1)

    tmp = b(k1)

    k2 = Int(Rnd* 9 + 1)

    For i=10 To k2+1 Step -1

        b(i)=b(i-1)

    Next i

    b(k2) = tup

    For i =1 To n

        a(i) = i

        List1. AddItem Str(a(i)) +””+ Str(b(i))

    Next i

    If k1 >= k2 Then

           ②

        t =k1: k1=k2: k2=t

    End If

    Text1. Text = Str(k1) + Str (k2)

End Sub

Private Sub Command2 _Click ()

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

    List2. Clear

    For i=1 To n-1

        k=i

        For j=i +1 To n

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

       Next j

        If k<>i Then

            t=a(k): a(k)=a(i): a(i)=t

            t=b(l): b(k)=b(i): b(i)=t

        End If

    Next i

   For i= 1 To n

        List2.AddItem Str (a(i)) +"" + Str (b(i))

    Next i

    i=1

    Do While i<=n-1 And b(i)< b(i+1)

        i=i+1

    Loop

    Text2.Text = Str(a(i)) + Str(a(i + 1))

    If    ③   Then Label1. Caption="稳定" Else Label1. Caption ="非稳定"

End Sub

Function check(x As Integer, y As Integer) As Boolean

    Dim j As Integer

   check = False

    For j= 1 To y-1

        If b(j)=x Then

            check = True

            Exit For

        End If

    Next j

End Function

(1)、分析程序代码，若某次运行显示“稳定”，则是否能确定选择排序是稳定排序？(填：是/否)

(2)、补充横线处完整代码
① ② ③

查看解析
5、小王设计“表达式计算"的程序，通过程序实现加法和乘法结合的表达式计算。程序工作原理为：对输入的表达式从前往后以相邻两个运算符和三个数字为一组，根据先乘后加的优先级进行运算，得到一个运算符和两个数字，再将其与之后的运算符和数字组成一组继续运算，直到全部数据运算完毕。现编写VB程序如下：在文本框Text1中输入一个由加法和乘法组成的表达式，以“="结尾。点击“计算”按钮后，在文本框Text2中输出表达式计算的结果。实现该功能的VB程序及界面如下。

Private Sub Command1_Click()

    Dim i As Integer， j As Integer， n As Integer，￥ As Integer

    Dim s As String， ch As String， c1 As String， c2 As String

    s=Text1.Text：k=1：j=1

    For i=1 To Len(s)

        ch=Mid(s，i，1)

        If ch< "0" Or ch>"g" Then

            v=     '变量v截取s中的每段数字

            j=i+1

            If k =1 Then

                n1=v：c1=ch

            ElseIf k = 2 Then

                n2=v：c2=ch

            Else

                    ①

                If c1 ="*" And c2 = "*" Then

                    n1=n1*n2：n2=n3

                    c2=ch

                ElseIf c1 = "*" And c2 =" +" Then

                    n1=n1*n2：n2=n3

                    c1 ="+"： c2= ch

                ElseIf c1= "+"And c2 =' "*" Then

                        ②

                    c2=ch

               Else

                    n1=n1+n2：n2=n3

                    c2=ch

                End If

           End If

            K=k+1

        End If

    Next i

    If c1="*"Then n1=n1*n2 Else n1=n1+n2

    Text2.Text = Str (n1)

End Sub

请回答以下问题。

(1)、在最后的输出语句“Text2.Text = Str(n1)”中，Text属于Text2的( 单选，填字母：A .方法名/ B .对象名/C .属性名/ D .属性值)。

(2)、加框处的代码有误，请改正

(3)、补充横线处代码
① ②

(4)、若将表达式结尾的“=”改为“+”，对程序运行的结果(选填：是/否)会有影响。

查看解析
6、用Flash制作动画，其中“main”场景的部分界面如图所示。请回答下列问题。

(1)、在作品制作前进行了一系列准备工作，其中属于创作需求分析的是(多选，填字母：A .讨论确定动画展示对象为小学生/ B .作品要求Flash软件制作/ C .确定作品分为片头、主交互界面、片尾三个模块/D .确定以“友谊"为作品主题思想/ E .确定作品的脚本大纲)

(2)、图中“狗熊”图层第12帧到第36帧实现了“狗熊”从舞台外逐渐向两人靠近的动画，则第36帧中的“狗熊"为(选填字母： A .形状/ B .实例)。

(3)、为使“按钮”图层中的按钮对象一直显示在舞台上，下列操作方法可行的是(多选，填字母：A .选中“按钮”图层第1帧执行“清除关键帧”操作/B .删除“按钮”图层第1帧到第44帧/C .选中“按钮”图层第45帧移动至第1帧/ D .选中“按钮”图层第I帧执行“插入关键帧”操作)。
若按照上述可行的方法使得按钮从一开始就显示在舞台井持续至本场景动画结束，则“按钮”图层原第45帧中的帧脚本执行的时间(填：是/否)会发生改变。

(4)、导出为Swf文件后，单击当前场景中的“退出”按钮，打开动画网站http：//ww.dmzj.com)，并关闭动画文件，则“退出”按钮的动作脚本为on(release) {}

查看解析
7、小林同学收集了2018年底浙江省人口数据，并采用Excel软件进行处理，部分处理界面如图a所示，请回答下列问题：

(1)、为了计算总人口所占比，先在F4单元格输入公式，再利用自动填充计算出F5：F15区域内所有的数据，则F6中的公式为。

(2)、如图a所示，使用F4公式自动填充得到的F15单元格的值为(单选，填字母：A．100% /B．1 /C．#VALUE！)；观察发现F15单元格显示为“######" ，其原因是。

(3)、对图a中各地区按总人口数排序，则选取的排序区城是。

查看解析
8、某查找算法的部分VB程序代码如下：
i = 1：j= 8： k=0： flag = False

key = 49

Do while i <= j And Not flag

    k=k+1

    m=Int((i + j)/2)

    If (i+j+1) Mod 2=0 Then m=m+1

    If key = a(m) Then flag = True

    If key<a(m) Then j=m-1 Else i=n+1

Loop

数组元素a(1)到a(8)的数据依次是“14，28，49，59，67，79，83，95”，该程序执行完毕后，下列各变量的值不正确的是(     )

A、i=1 B、k=2 C、flag =True D、j=4

查看解析
9、有如下VB程序段：
t ="”

For i=1 To 10

    b(a(i) Mod 10) = b(a(i) Mod 10) + 1

    b(a(i)\10) = b(a(i)\10) + 1

Next i

c =2

For i = 0 To 9

    If b(i)>c Then t=t+ Str(i)

Next i

Label1.Caption= t

数组b各元素初始值为0，数组元素a(1)到a(10)的值依次是65，99，12，34，40，74， 56，88，30，45，执行程序段，标签Label1上显示的内容是（    ）

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

查看解析
10、有一个数组采用冒泡排序，第1遍排序后的结果为：3，18，5，35，8，9，11，13，32，那么该数组的原始顺序不可能是（）

A、18，5，35，8，9，11，3，13，32 B、3，18，5，35，13，11，32，8，9 C、18，5，35，3，8，9，11，13，32 D、18，5，35，8，9，11，13，32，3

查看解析
11、有如下程序段：
Dim i As Integer，n As Integer，s As String，ch As String ，t As String

s= Text1.Text ： t = "”

For i=1ToLen(s)

    ch = Mid(s，i，1)

    If ch>="0"Andch<="9"Then

        t=t+ch

    Else

        n = Val(t)

        If Sqr(n) = Int(Sqr (m)) Then List1.AddItem Str (n)

    End If

Next i

在文本框Text1中输入“2，25，64，8，36”，单击“调试"按钮后，程序可能出现的错误提示为（    ）

A、数据类型不匹配 B、无效的过程调用或参数 C、下标越界 D、溢出

查看解析
12、下列VB表达式的值最小的是( )

A、Int(Rnd*3)+3 B、46Mod21\2 C、Abs(Int(-7.5)) D、Val(*9") Mod 10

查看解析
13、某算法的部分流程图如下图所示，执行这部分流程图后，输入19，则输出s的值为( )

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

查看解析
14、使用Photoshop制作“诚信”作品，部分编辑界面如下左图所示。下列说法正确的是( )

A、可用油漆桶工具改变“诚信”图层中文字的颜色 B、可将“顶角”图层的图层样式拷贝到“诚信”图层 C、根据图层面板无法确定“背景”图层下方是否还有图层 D、在当前状态下，可用自由变换改变“诚信为本”图层中文字大小

查看解析
15、有一段未经压缩的PAL制式的AVI无声视频，每帧画面为1024*512像素，24 位彩色，视频时间为4秒，将其转换成MP4后存储容量为15MB，则压缩比约为( )

A、2.5：1 B、10：1 C、64：1 D、80：1

查看解析
16、用Goldave软件对某音频文件进行编辑，状态栏信息如图所示，以下说法正确的是( )

A、该文件类型为AVE格式，属于无损压缩格式 B、该音频每秒钟采样1411次，选中部分音频时长为10秒 C、当前状态下插入5秒静音，按原参数保存，文件大小约为4.2MB D、当前状态下，点击“删除”，以原参数保存，则声音存储容量约为原来的一半

查看解析
17、Access 设计视图部分界面如图所示，下列说法正确的是( )

A、当前数据表名为“志愿者信息.accdb” B、可以在“服务时长”字段输入“15.5” C、可以在“性别”字段输入“男”或“女” D、导出到Excel后，数据表数据共6行2列

查看解析
18、使用Word编辑文档时的部分界面如图所示。

下列说法正确的是（）

A、删除批注内容“地处亚热带中部”，则该批注框将随之被删除 B、取消“修订”状态，文档中的修订标记及内容不会发生改变 C、文档中图片的环绕方式为四周型 D、文档中存在两处修订

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

A、信息是人类社会的宝贵财富，不存在没有载体的信息 B、信息自古就有，随着时间的迁移，价值可能发生变化 C、历史文物在未出土之前，所承载的信息是不存在的 D、语言和文字是信息表达的一种常见方式

查看解析
20、用VB编程求两个字符串的最长连续公共子串，程序功能如下：在文本框Text1和Text2中分别输入任意两个字符串s1和s2，单击命令按钮 Command1，在标签 Label3和Label4中分别输出这两个字符串的最长连续公共子串和子串的长度其算法思想：分别从字符串s1和s2的左边第一个字符开始检查，若发现这两个字符串中有一个字符相同，则以这个字符为基准向右边扩大搜索范围，先检查其后面的第一个字符是否相同，若还是相同则继续搜索，直到找到不同的字符为止。然后按照该方法依次继续往后搜索，直到查找结束。程序界面如图所示，请回答下列问题：

(1)、根据代码，若输入的s1为“Teacher”，s2为“teacher”，则最长连续公共子串为。

(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim s1 As String, s2 As string, maxstr As string

Dim len1 As Integer, len2 As Integer, maxlen As Integer

Function Min (a As Integer, b As Integer) As Integer

    If a >=b Then min = b else min = a

End Function

Function Search (m As Integer, n As Integer) As Integer

    Dim c As Integer

    c = 1

    Do While c<= Min (len1 -m, len2 - n)

        If Mid (s1, m+ c, 1) = Mid(s2,n+c,1) Then



        Else

            Exit Do 'Exit Do的作用是退出Do循环

        End if

  Loop

   Search = c -1

End function

Private Sub Command1_Click()

    s1 = Text1. Text

    s2 = Text2. Text

    len1 = Len (s1)

    len2 = Len (s2)

    maxlen = 0: maxstr = ""

    Dim i As Integer, j As Integer, k As Integer

   For i=1 To len1

        For j=1 To len2

            If Mid(s1, i, 1) = Mid(s2,j,1) Then

                k =  'k用于记录连续公共子串的长度

                If (k> maxlen) Then

                    maxlen = k

                    maxstr =

                End if

            End If

        Next j

    Next i

    Labe13. Caption= "最长连续公共子串为:"& maxstr

    Labe14. Cantion = "该子串长度是:"& str (maxlen)

End sub

查看解析

上一页 657 658 659 660 661 下一页跳转