DOC《2018年10月稽阳联谊学校联考》

6 Dim a(1 To n) As Integer Dim i As Integer, j As Integer, t As Integer Do While True For i=1 to n-1 If a(i)>

a(i+1) then Exit For Next i If i <

n Then For i =

1 To n j = Int(Rnd * 6) +

1 t = a(j): a(j) = a(i): a(i) = t Next i Else Exit Do End If Loop 数组中a(1)到a(6)的值依次为 56,34,48,87,65,96 ,经上述程序段执行后a(1)到a(6)的值依次为 A.

96 87

65 56

48 34 B.

34 48

56 65

87 96 C. 选项A和B都有可能 D. 选项A和B都不可能 12.【加试题】有如下程序段: Dim a(1 To 10) As Integer Dim i As Integer, j As Integer, m As Integer Dim key As Integer i = 1: j = 10: key = Val(Text1.Text) Do While i a(m) Then i = m +

1 Else Do While m >

1 If a(m - 1) = key Then m = m -

1 Else Exit Do End If Loop Exit Do End If Loop 数组中a(1)到a(10)依次为 1,1,2,3,3,3,3,4,4,4 ,若在文本框Text1中输入值3,经上述程序段执行后变量m的值为 A.

7 B.

6 C.

5 D.

4

二、非选择题(本大题共5小题,其中第13题小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分) 13.小张收集了15个省份

2017、2018上半年GDP数据,并使用EXCEL软件进行数据处理,如第13题图a所示. 第13题图a 请回答下列问题: (1)要使表格第2行内容能完整显示,在不改变字号和列宽的前提下,下列操作可行的是 (单选,填字母:A.选择B2:D2单元格,文本对齐格式设为 垂直居中 / B. 选择B2:D2单元格,文本对齐格式设为 跨列居中 / C. 选择B2:D2单元格,文本对齐格式中的文本控制设为 自动换行 ). 第13题图b (2)若对第13题图a中的 2018上半年GDP同比增速 和 2018上半年GDP总量(亿元) 两列进行筛选操作,筛选条件如第13题图b所示,则按此设置筛选出的省份是 . (3)根据第13题图a中数据制作的

图表如第13题图c所示,创建该

图表的数据区域是A2:B3, . 第13题图c (4)在E3单元格中使用RANK函数获得各省2018上半年GDP同比增速排名.再利用自动填充功能获得E4:E17单元格中的数据.则E17中的内容是 (提示:RANK函数用于返回某个数字在一系列数字中相对于其他数字的排名.例如:=RANK(E3,E3:E17)表示E3在数据区域E3:E17中的降序排名.) 14.编写一个删除数字字符串s中的最大和次大数字字符的程序.具体功能如下:在文本框Text1中输入一个数字字符串,单击 删数 按钮Command1,将删除后的结果显示在文本框Text2中.程序运行界面如下图所示. (1)要使程序运行时,按钮Command1上显示的标题为 删数 ,可在Form_Load事件处理过程中添加语句 (单选,填字母: A. Caption.Command1 = 删数 / B. Command1.Caption = 删数 / C. Caption = 删数 /) (2)实现上述功能的VB程序如下,请在划线处填入合适的代码. Private Sub Command1_Click() Dim s As String, ch As String Dim i As Integer, n As Integer Dim max1 As Integer, max2 As Integer s = Text1.Text: n = Len(Text1.Text) If Mid(s, 1, 1) >

Mid(s, 2, 1) Then max1 = 1: max2 =

2 Else max1 = 2: max2 =

1 End If For i =

3 To n ch = Mid(s, i, 1) If ch >

Mid(s, max1, 1) Then ① max1 = i ElseIf ch >

= Mid(s, max2, 1) Then max2 = i End If Next i For i =

1 To n If ② Then Text2.Text = Text2.Text &

Mid(s, i, 1) Next i End Sub (3)若在文本框Text1中输入的内容为

82176736 ,单击按钮Command1,文本框Text2中显示的内容是 . 15.小王创作一个关于 庆祝国庆 的多媒体作品.请回答下列问题: (1)在制作作品前,小王进行了相应的分析和规划.下列不属于规划设计阶段的是 (多选,填字母:A.选定该作品主题/ B.选用背景音乐是否符合主题/ C.把作品分为三个主要部分/ D.设计某场景中各动画元素的呈现顺序/)(注:全部选对的得2分,选对但不全的得1分,不选或有选错的得0分). (2)小王使用Flash软件制作该多媒体作品,如下图所示. 为使动画一开始便能听到音乐,正确的操作是 . (3)图中 鸽子 图层第1帧至第15帧的补间动画实现 鸽子 从舞台右侧飞入舞台中央的动画,第45帧至第60帧的补间动画实现 鸽子 从舞台中央飞出舞台左侧的动画,则 鸽子 停留在舞台中央的时间约为 秒. (4)测试场景时,为防止有多个声音交叉重复发声,则需将声音的同步属性设置为_____(选填:数据流或事件) (5)测试场景时, 庆祝国庆 图层中 庆祝国庆 文字动画一直在舞台上滚动显示,则制作该动画的元件实例的类型为_ (6)测试影片时,单击 中国政府网 按钮,实现跳转到 中国政府网(www.gov.cn) 并停止当前动画的播放,则 中国政府网 按钮的动作脚本为on(release) 16.【加试题】有一组正整数,基于冒泡排序对其中的数进行升序排序.排序后奇数在前,偶数在后.排序示例如下: 排序前