版本：

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

相关试卷

1、使用GoldWave软件进行作品制作，部分操作界面如图所示。

下列说法不正确的是（）

A、在当前状态下插入15秒静音，音频文件存储容量将变大 B、执行“删除”命令后直接保存，音频文件存储容量将变小 C、该音频文件采用无损压缩格式，其采样频率为44.1KHz D、现对该音频的后5秒设置“淡出”效果并按原格式、原参数保存，存储空间不变

查看解析
2、以下有关数据库的说法，正确的是（）

A、数据表中同一字段内的数据类型一定是相同的 B、数据库应用系统可以完全脱离数据库管理系统独立运行 C、一个数据库文件同一时间内只允许一个用户访问 D、Access和oracle都是常见的小型数据库管理系统

查看解析
3、下列选项中，体现人工智能技术的有（）
①利用语音方式控制机器人

②使用智能手机在微信传输语音

③电饭锅的自动保温功能

④使用面部识别技术解锁手机

⑤停车场自动计费系统的汽车牌照识别功能

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

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

A、信息技术是对文字信息进行加工和处理时使用的技术 B、随着信息技术的发展，只需要计算机就能完成信息的处理 C、1946年第一台电子计算机诞生后才有信息技术 D、计算机技术的发展促进了信息技术的发展

查看解析
5、为有效降低机动车污染物排放，持续改善首都空气质量，北京市政府决定自2017年1月9日至2017年4月9日，继续实施工作日（因法定节假日放假调休而调整为上班的星期六、星期日除外）高峰时段区域限行交通管理措施，具体限行尾号如下图所示。

某同学编写程序实现如下功能：程序运行时，在文本框Text1中输人车牌号，单击“判断”按钮 Command1，在文本框Text2中显示限行的工作日。如下图所示，尾号为5，则显示星期二限行。

(1)、程序运行界面中都具有Caption属性的对象个数为。

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

   Dim s As String, n As Integer, x As String, y As string

   s=Text1. Text

   n=

   y=" "

   For i=n To l Step -1

        x=Mid(s, i,1)

        If Then

            If Val(x) Mod 5=4 Then

              y="星期一"

            Else If Val(x) Mod 5=0 Then

                y="星期二"

            Else If Val(x) Mod 5=1 Then

                 y="星期三"

            Else If Val(x) Mod 5=2 Then

                y="星期四"

            Else

                y="星期五"

            End If

            Exit For                ＇退出循环

        End If

   Next i

   Text2. Text=

End sub

查看解析
6、小张整理了部分办公用品的采购清单，并用Excel软件进行数据处理，如下图表格所示。请回答下列问题。

(1)、要计算各商品“总价（元）”，在F3中输人公式“=D3*E3”，并自动填充到F4:F18单元格，此时F8单元格中显示的公式是。

(2)、要使表格标题文字“文一办公用品清单及价格”在表格第一行的正中间位置显示，可以采用的方法是。

(3)、按价格对上图表格的信息进行排序，则应该选择的区域是。

(4)、为了更直观地显示部分办公用品的价格，利用上图表格所示数据制作了如下图所示的图表，该图表的数据区域为A2，A5:A10，。

查看解析
7、有如下程序段：
Dim i As Integer, j As Integer, n As Integer, s As String

i=1

Do While i<=3

    k=i

    j=i+1

    Do While j<=8

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

        j=j+1

    Loop

    If i< >k Then

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

    End If

    s=a(i)&.""&s

    i=i+1

Loop

Label1.Caption=n&":"&s

数组元素a(1)到a(8)的数据依次为：“16，19，8，20，4，12，6，15”，经过该程序段“加工”后，标签 Label l中显示的值为（    ）

A、2:4 6 8 B、2:8 6 4 C、3:4 6 8 D、3:8 6 4

查看解析
8、某查找算法的VB程序段如下：
i=1: j=7: n=0

Key=Val (Text1. Text)

Do While i <=j

    n=n+1

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

    If Key=d(m) Then Exit Do

    If Key <d(m) Then j= m-1 Else i =m+1

Loop

数组元素d(1)到d(7)存放的数值依次为6，45，23，36，78，58，12，若该程序段运行结束后，n的值为2，则Key的值是（    ）

A、58 B、6或12 C、45或58 D、23或78

查看解析
9、（加试题）某排序算法的VB程序段如下：
n = 10

Text1.Text = ""

For i = 1 To 5

    For j = n To i + 1 Step -1

        If a(j) < a(i) Then

            temp = a(j): a(j) = a(i): a(i) = temp

        End If

    Next j

Next i

For i = 1 To 10

    Text1.Text = Text1.Text + Str(a(i))

Next i

数组元素a(1)到a(10)的值依次为“965,155,195,444,106,734,172,983,898,360”，执行该程序段，文本框Text1中显示的是（   ）

A、106 155 172 195 360 444 734 898 965 983 B、106 155 172 195 360 734 444 983 898 965 C、983 965 898 734 444 360 172 195 155 106 D、106 155 172 195 360 965 444 734 898 983

查看解析
10、有如下VB程序段：
For i=1 To 9

    For j=10 To i+2 Step-1

        If a(j)<a(j-2) Then

            t=a(j): a(j)=a(j-2): a(j-2)=t

        End If

    Next j

Next i

数组元素a(1)到a(10)的值依次为“3，17，2，14，15，6，7，18，9，4”，执行该程序段后，数组元素a(8)中的值为（    ）

A、3 B、4 C、15 D、17

查看解析
11、某算法的部分流程图如图所示执行该流程图则输出s的值是（）

A、11 B、25 C、36 D、49

查看解析
12、已知x是一个五位数整数，下面语句中能得到其千位上的数字的是（）

A、X/1 000 B、x\1 000 C、x\1 000 mod 10 D、x mod 10 000\1 000

查看解析
13、使用Access软件进行学生信息管理。已有数据表视图如图a所示，部分数据存储在Excel表中如图b所示，下列说法正确的是（）

图a

图b

A、图a当前状态下，可以设置字段“出生年月”的显示格式 B、图a中字段“性别”修改为文本类型后，显示为男或女 C、图b中数据全部拷贝入“学生信息”表中，第4条记录“ID”字段值一定为“10” D、图b中数据全部拷贝入“学生信息”表中，第4条记录出生年月显示为“2000年2月9日”

查看解析

14、某密码的破译步骤如下：

⑴找出文章(以“.”结束)中所有用英文表示的数字(均为小写，数字范围1≤n≤20)，单词与数字对应如下：

单词	one	two	three	four	five	six	seven	eight	nine	ten	……	twenty
数字	1	2	3	4	5	6	7	8	9	10	……	20

⑵将这些数字平方后除以100取余，得到两位数如00,04,21,96。

⑶把这些两位数按升序排成一行，组成一个最小的新数，如果新数开头为0，就去除。

⑷步骤(3)找出的最小数即为密码。

小明按照上述方法，设计了一个解密的VB程序，功能如下：单击“解密”按钮Command1，程序依次将文本框Text，1中以空格分隔的每个英文单词取出，若单词属于数字单词，则按解密步骤进行处理，最后在文本框Text2中输出解密结果。

程序运行效果如图所示，请回答下列问题：

(1)、若文章内容为“tom bought two apples and five oranges, which cost ten dollars altogether.”,则破译后的密码应为。

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

Dim a(1 To 20) As String

Private Sub Form_Load()

a(1) = "one": a(2) = "two"

'……将所有数字单词按顺序存入数组a中，代码略

End Sub

Private Sub Command1_Click()

Dim s As String, tmp As String

Dim c as Integer,i As Integer, j As Integer, k As Integer, t As String, ch As As String,code As Long

Dim b(1 To 100) As String 'b数组存放数字单词处理后得到的两位数

s = Text1.Text

c = 0: i = 1: flag = True:t = ""

Do While i <= Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z" Then

t = t + ch

flag = False

ElseIf flag = False Then

For j = 1 To 20

If t = a(j) Then

c = c + 1

b(c) =

End If

Next j

t = ""

flag = True

End If

i = i + 1

Loop

'将b数组中的两位数按数值大小进行升序排序，代码略

For i = 1 To c

t = Val(b(i))

Next i

Text2.Text = Str(code)

End Sub

Function decode(num As Integer) As String

Dim mo As Integer

mo = num * num Mod 100

If mo = 0 Then

decode = "00"

ElseIf Then

decode = "0" + Trim(Str(mo))

Else

decode = Trim(Str(mo)) 'Trim为去除字符串两端空格的函数

End If

End Function

查看解析

15、编写“二进制数转换为十六进制数”程序，实现如下功能：在文本框 Text1 输入一个二进制数，单击“转换”按钮 Command1，将二进制数转换为十六进制数并在文本框 Text2 中显示。程序运行界面如下图所示。

(1)、设计如图所示的程序界面，至少要使用个类（填数字）。

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

    Dim s1 As String, s2 As String

    Dim i As Integer, x As Integer

    Const code="0123456789ABCDEF"

    s1=Text1.Text

    s2=""

    Do While Len(s1) Mod 4<>0

       s1="0"+s1

    Loop

    x=0

    i=1

    Do While i<=Len(s1)

       x=x*2+Val(Mid(s1,i,1))

        i=i+1

        If Then      ‘①

            s2=s2+Mid(code,x+1,1)

          ‘②

        End If

    Loop

    Text2.Text=s2

End Sub

(3)、若文本框 Text1 中输入的内容为“101101”，单击“转换”按钮后，文本框Text2中显示的内容是。

查看解析
16、小明创作主题为“春天气息”的多媒体作品。请回答下列问题：

(1)、在制作作品前，小明进行了相应的分析和规划。下列说法正确的是（多选，填字母：A .将作品结构划分为片头、主交互界面、片尾三个主要界面，主交互界面包含“春风”和“春雨”两个模块，这属于系统结构设计/B .确定选择Flash软件来合成作品，属于应用需求分析/C .将所需的原始素材列成表格，确定获取原始素材的方式并分类登记，属于脚本设计/D .在设计“春雨”模块时，在屏幕布局、文字、颜色、音乐、交互的设计进行规范，属于功能模块设计）。

(2)、图中舞台的大小为550*400像素，测试影片时，前两秒诗句实例（宽：160，高:180）从舞台外左侧向舞台内移动直到停在舞台中，则“诗句”图层第1帧中实例的位置坐标（X，Y）为（单选，填字母：A .（0，0）/B .（160，-80）/C .（-160，90）/D .（550，90））。

(3)、测试场景时，“雨”图层中的动画在“诗句”补间动画结束时才出现，为了实现与“诗句”图层的补间动画同时出现，需对“雨”图层进行的操作是。

(4)、测试影片时，单击“春雨”场景中“返回”按钮，停止播放所有声音，影片跳转到“主交互界面”场景第1帧并停止播放，则“返回”按钮的动作脚本为。

(5)、将该动画导出为下列格式，仍具有交互功能的是。（单选，填字母：A . EXE/B . AVI/C . GIF）

查看解析
17、某连锁超市收集了城北路店2017年某月部分水果销售数据，并用Excel软件进行数据处理，如下图表格所示。请回答下列问题：

(1)、若将上图表格中的F3:F11数据格式设置为两位小数，则单元格F12中的数据（选填：会/不会）发生改变。

(2)、将上图表格中的区域A1:G11的数据复制到新工作表中，在新工作表中对“数量”和“利润”两列数据进行筛选操作，筛选设置均如下图所示，则筛选出的水果名称为。

(3)、根据表格中的数据制作图表如下图所示，则该图表的数据区域为。

(4)、根据“利润”列数据，用RANK函数和自动填充功能，在区域G3:G11中计算各水果利润的名次，则G3中的公式为。
（提示：RANK函数用于计算某数字在一列数字中相对于其他数字的大小排名。例如：=RANK（A3，$A$3:$A$11）表示A3单元格中的数字在A3:A11中的排名）

查看解析
18、有如下VB程序段：
i=1: j=10: flag=True: n=0

Key=Val(Text1. Text)

Do While i < =j And flag= True

    m=(i+j)\2

    If a(m)= Key Then

        flag = False

    Else If a(m)> Key Then

        i = m+1:n= n - 1

    Else

        j = m – 1:n = n+1

    End If

Loop

数组元素a(1)到a(10)依次是99，94，90，87，70，69，60，56，45，36，变量n的值最终是0，则文本框Text1输入的数字可能是（    ）

A、100 B、87 C、69 D、41

查看解析
19、某对分查找算法的VB程序段如下：
i=1: j=6: n=0: f= False

key=Val(Text1. Text)

Do While i < = j And f = False

  n=n+1

  m=(i+j)\2

  If key=d(m) Then f = True

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

Loop

数组元素d(1)到d(6)的值依次为“13，18，25，30，35，59”。文本框Text1中输入33后运行该程序，运行结束后下列说法不正确的是（    ）

A、变量f的值为False B、变量i的值为5 C、变量m的值为4 D、变量n的值为2

查看解析
20、某同学在VB中编写了如下程序：
Private Sub Command1 Click()

    Label2 Caption = trans(Val(Text1. Text),Val(Text2. Text))

End Sub

Function trans(n As Integer, k As Integer) As String

    If n< >0 Then

        r = n Mod k

        trans = trans(n\ k, k)+Str(r)

   Else trans = 0

    End If

End function

程序运行时，在文本框Text1和Text2中分别输入11和3，则Label2中的输出结果是（    ）

A、102 B、201 C、3 D、113

查看解析

上一页 652 653 654 655 656 下一页跳转