2017年11月浙江省普通高校招生学考科目考试技术（信息技术）仿真模拟试题02

三国赤壁之战时黄盖献上诈降书，骗得曹操信任后防火烧船，这实例主要体现了信息的什么特征（   ）

亚马逊最近推出了“Amazon Go”免排队超市。在该超市中顾客拿了商品就可以走，无需排队，付钱系统会自动结算。则下列哪个应用不是人工智能技术（  ）

在Word的编辑窗口出现如下图所示的样式，则说明Word开启了（   ）

某算法的部分流程图如图所示，执行这部分流程后，变量a和b的值分别为（   ）

有一Access数据表，其设计视图如图a所示，数据表如图b所示，下列说法正确的是（   ）
 

小李使用PhotoShop制作“水果广告”时，其图层面板如图所示，下列说法正确的是（   ）

某同学利用Goldwave编辑音频素材，其中操作界面如下图所示：
下列说法正确的是（   ）

使用UltraEdit软件观察字符串“3-2=1”的内容，如图所示：
则字符串“6+8>10”的内码是（   ）

使用Flash制作某多媒体作品，新建按钮元件时的部分编辑界面如图所示，其中“按下”帧与“弹起”帧相同。将此按钮应用到舞台上，测试该按钮，下列说法正确的是（   ）

在计算机内，有符号数有3 种表示法：原码、反码和补码。（1）原码就是二进制定点表示法，即最高位为符号位，“0”表示正，“1”表示负，其余位表示数值的大小。（2）反码表示法规定：正数的反码与其原码相同；负数的反码是对其原码逐位取反，但符号位除外。如二进制原码为10010 ，则反码为11101（注：在10010 中，1为符号码，故为负）。（3）补码表示法规定：正数的补码与其原码相同；负数的补码是在其反码的末位加1，符号位除外。根据以上运算规则，有符号数二进制100011的补码的十进制表示是（  ）

有如下VB程序段：n= Val(Text1.Text)
st = “ ”
For i = 1 To n
For j =1 To i Step 2
  st = st + “☆”
Next j
List1.AddItem  st
Next  i
该程序段运行时，在文本框Text1中输入5，则列表框输出的内容为（  ）

【加试题】有如下程序段：For i =1 To 2
   For j = 1 To 6 –i
     If a(j) <a(j +1 ) Then
        k =a(j):a(j)=a(j+1):a(j+1) =k
     End   If
  Next  j
Next  i
数组元素a(1)到a(6)的值依次为“71,54,58,29,31,78”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（   ）

小王收集了近三年温州市主要农产品产量统计数据，并用Excel软件进行数据处理，如图1所示。请回答下列问题：  

2016年10月学考成绩揭晓后，信息技术老师要统计各班学考技术A等级人数，但教务处为了保护学生成绩隐私，只给他提供了各班学生本次学考的等级信息，其中技术学科等级排在每位学生的第一科。若某班学生大部分参加技术、地理、历史三门学考，小部分参加其中的两门，则教务处提供的等级信息为每位学生连续三个字符（如：ABAB-B，表示第一个学生的成绩技术为A，地理为B ，历史为A，第二个学生技术为B，地理没考，历史为B，其他依此类推）。于是他编写了一个VB程序，很快统计出各班技术学科的A等级人数。程序设计界面如图所示，其中各班学考等级信息来自文本框Text1，科目数来自文本框Text2，统计结果输出到文本框Text3中。实现上述功能的VB程序代码如下：

Private Sub Commandl_Click( )

Dim s, p As String

Dim a, n As Integer

Dim kms As Integer

s=     ①     

n = Len ( s )：a = 0 ：kms = Val(Text2.Text)

If n Mod kms = 0 Then

For i=     ②_______

p = Mid(s，i，1)

If p= "A" or p= "a"  Then a = a+l

Next i

Text3.Text = Str(a)

Else

Text3.Text="学生等级信息不正确"

End  If

End  Sub

请回答下列问题：

小李同学创作“西游记”故事的多媒体作品，他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。
请回答下列问题：

数据插入。用VB设计程序，主要功能如下：随机产生15个200以内的正整数数列，按升序排序后显示在List1列表框中，在文本框Text1中输入1个200以内的正整数，单击“插入”按钮Command1后将其插入到数列中，并保持数列仍然有序，显示在列表List2中，同时在标签Label4中显示插入的位置，程序界面如图所示。

实现上述功能的VB程序代码如下，请在划线处填上合适的代码。

Dim a( 1 To 20) As Integer

Private Sub Command1_Click ( )

Dim key As Integer

key =   ①   

i = 1

Do While key > a ( i ) And ( i <= 1 5 )

i = i + 1

Loop

Label4.Caption = “该数插入的位置是：” + Str ( i )

If  i = 16  Then

a ( i ) = key

Else

For j = 16  To  i + 1 Step -1

    ②  

Next j

a ( i ) = key

End  If

List2. Clear

For i = 1 To 16

List2.AddItem a( i)

Next i

End Sub

Private Sub Form_Load( )

'随机生成15个200以内的正整数

Randomize

For i = 1 To 15

a ( i ) = Int(Rnd * 200) + 1

Next i

'将15个数从小到大排序

For i = 1 To 14

k = i

For j = i + 1 To 15

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

Next j

If  i <>k  Then

t = a(i)； a( i) = a ( k )：a ( k )

End  If

Next i

'将排好序的数输出在列表框Listl中

Listl.Clear

For i = 1 To 15

Listl.AddItem str ( a ( i ) )

Next i

End Sub

程序中①划线处应填入，程序中②划线处应填入

如果一个自然数恰好等于它的各因数之和，则称该效为完全数。这里的因素都是除去本身的正因数。例如：第一个完全数是6，它有因数1、2、3、6，除去它本身6外，其余3个数相加，1+2+3=6。寻找完全数并不是容易的事。经过不少数学家研究，到2013年2月6日为止，一共找到了48个完全数。

小明设计了一个VB程序，用于求解10000以内的所有完全数。点击按钮Command1，标签Label1显示完全数的个数，并在列表框中显示10000以内所有的完全数。

程序运行效果如图所示

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

Private Sub Command1_Click( )

Dim i As Integer, j  As Integer, c  As  Integer, s As Integer

c = 0 ‘用于存储完全数的个数

For i =1 To 10000

s=0 ‘用于存储各因数之和

For j = 1 To i - 1

If fac(i, j)  Then

Next j

If  i = s Then

Listl.AddIltem Str( i)

End  If

Next i

Label.Caption =“10000 以内共有” +Str(c) + “个完全数!”

End Sub

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

'如果y是x的因数返回True，否则返冋False

If  Then

fac = True

Else

fac = False

End  If

End  Function