浙江省杭州市2016年信息技术高考模拟卷二

①据库技术 ②人脸识别技术  ③字符识别技术   ④指纹识别技术

on (release) {

   gotoAndPlay("main", 1);

   stopAllSounds();

}

设置该动作脚本的对象一般是（   ）

n = 0

m = 0

For i = 1 To 100

If Rnd > 0．5 Then

     n = n + 1

  Else

     m = m + 1

Next i

……

小金仔细分析该程序段后，发现其中缺少了(   )

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = Val(text1.Text)

b = Val(text2.Text)

c = (a + b + Abs(a - b)) \ 3

Text3.Text = Str(c)

End Sub

运行该程序，分别在文本框Text1、Text2中输入5、9，单击命令按钮Command1后，文本框Text3中显示的内容是（   ）

1图

2图

 自上而下两个文本框的名称分别是Text1和Text2，“开始”按钮的名称是Command1。在Text1

中输入数据，单击“开始”按钮，在Text2中显示统计结果。“开始”按钮单击事件处理过程的流程图如右图所示。请根据流程图将下列程序补充完整

     Private Sub Command1_Click( )

       Dim n As Integer, m As Integer, i As Integer

       Dim x As Single, y As Single

       n =

       m=0

       Randomize ′初始化Rnd函数

       For i = 1 To n

       x = Rnd ′随机产生x坐标，0≤x＜1

    y = Rnd ′随机产生y坐标，0≤y＜1

    Next i

    Text2.Text = Str(m)

     End Sub

 图1
   图2

 程序代码如下：

Private Sub Command1_Click()

  Dim i As Integer

  List1.Clear            '清除列表框内容

End Sub

Private Function f(x As Integer) As Boolean  '自定义函数f,返回值为逻辑型

  Dim j As Integer

  f = True

  For j = 2 To Int(Sqr(x))

    If x Mod j = 0 Then

      f =     ③      '函数返回值

      Exit For           '跳出For循环

    End If

  Next j

End Function