相关试卷
-
1、若要使语句s=s+i执行3次，则循环变量i的初值为:
s=0
For i =( ) To 2
s=s+i
Next iA、0 B、1 C、2 D、3 -
2、i=3:s=1/(i-3)无法执行，原因是它违反了算法特征中的（ ）A、有穷性 B、唯一性 C、可行性 D、确定性
-
3、下列有关信息及信息技术的说法，正确的是（ ）A、信息必须依附于载体才能得以表示、存储和传播 B、信息在传递和共享的过程中会产生损耗 C、信息技术是计算机出现后才产生的 D、虚假的内容不属于是信息
-
4、某会所采用会员制度，对会员消费实行积分奖励，利用VB编写一个程序，实现的功能：在文本框Text1、Text2中输入一个积分的范围，在列表框List2中显示该范围内的会员编号和对应的积分。多个会员可能有相同的积分，先用对分查找法找到该范围内的最小积分编号的下标，再循环输出该范围的会员编号情况。程序运行界面如图所示。
程序代码如下，为实现以上功能，请在横线处填写合适的代码：
Dim jf(800) As Integer, hyh(800) As String, n As Integer
Dim n As Integer ′表示会员的总人数
Private Sub Form_Load()
′从数据库中读取会员编号和积分，并按积分值从小到大排序，显示在列表框List1中
For i=1 To n
List1.AddItem hyh(i)+“ ”+Str(jf(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, k1 As Integer, k2 As Integer
k1=Val(Text1.Text): k2=Val(Text2.Text)
If k1 > k2 Then t=k1: k1=k2: k2=t
If k1 > jf(n) Or k2 < jf(1) Then
List2.AddItem “没有找到该范围的数据！”
Text3.Text=“0”： Exit Sub
End If
i=1
j=n
Do While i <= j
m=Int((i+j) / 2)
If jf(m) > k1 Then
j=m - 1
ElseIf jf(m) < k1 Then
i=m+1
Else
If Thenj=m - 1
Else
p=m
Exit Do
End If
End IfLoop
If i > j Then p =k=0
Do While And p <= nList2.AddItem hyh(p)+ “ ”+Str(jf(p))
p=p+1
Loop
Text3.Text=Str(k)0
End Sub
-
5、小军学习了冒泡排序算法后觉得算法还有优化的余地：假设区间[1，i]内的元素已经有序，接下来对[i+1，n]所有元素进行扫描比较，扫描完后记住最后一次交换的位置last_exchange，这个位置说明了区间[i+1，last_exchange-1]内的元素是有序的。标准冒泡排序算法下一遍的扫描区间是[i+2，n]，而有了last_exchange位置信息后，下一遍的扫描区间只要[last_exchange，n]即可。小军用VB实现了该算法，运行的界面如图所示。
Const maxn = 1000
Dim a(0 To maxn) As Long
Private Sub Form_Load()
′产生maxn个不相同的数据，并把他存储在a数组中，代码略
End Sub
Private Sub Command1_Click()
Dim i As Long, j As Long, tmp As Long, cnt As Long
Dim last_exchange As Integer ′记录最后一次交换位置
Dim tmp_pos As Integer ′本次交换的位置
cnt = 0: i = 1
last_exchange = 0: tmp_pos = 1
Do While
′改错last_exchange = tmp_pos
For j = maxn To last_exchange + 1 Step -1
If a(j) < a(j - 1) Then
tmp = a(j): a(j) = a(j - 1): a(j - 1) = tmp
cnt = cnt + 1
End If
Next j
i = tmp_pos
Loop
′输出，代码略
End Sub
(1)、代码“Private Sub Command1_Click()”中的Click是。(单选，填字母：A . 对象名/B . 属性名/C . 事件名)(2)、程序代码中，Do While语句加框处有错，请改正。(3)、程序代码中，将横线处语句补充完整。(4)、程序代码中，cnt变量的含义是。(单选，填字母：A . 表示一趟加工中交换次数/B . 排序中总共交换次数/C . 排序中总共比较次数) -
6、小明制作了一个名为“端午．fla”的Flash动画，如图1所示。回答以下问题：
图1
(1)、如图1所示，小王在“声音”图层添加了背景音乐，想实现声音与动画同步，应在声音的“同步”选项中选择(填：事件/开始/数据流)类型；若声音同步设置成功，已知“按钮”图层第60帧上设置了帧命令“stop()；”，音乐播放时间是秒。(2)、如图2所示，名称为“水波”的元件类型是(填：图形/按钮/影片剪辑)，如图1所示，在“水波动画”图层的第5帧上放置了如图2所示的“水波”元件实例。测试影片时，会不会出现水面波动的动画效果？
图2
(3)、“play”按钮的编辑界面如图3所示：
图3
下面说法正确的是________(多选，填字母)。
A、在“按下”帧中不能直接添加声音效果 B、将“树叶”图层隐藏后，测试影片时将看不见该图层中的内容 C、测试影片时，鼠标移到该按钮实例上时，不会出现小手形状 D、测试影片时，鼠标移到该按钮实例上时，按钮外观可能会有变化(4)、如图1所示，为实现单击“play”按钮，动画跳转到“main”场景第1帧继续播放，小王需要在“play”按钮添加动作命令。 -
7、小明用Excel软件处理2017年度某县建城区初中小学各学校活跃空间使用情况，如图a所示。请回答下列问题。
图a
(1)、区域I4：I20的数据是I3单元格向下填充得到的，则I3单元格的公式是。(计算公式：活跃空间比例=活跃空间数/用户人数*100)(2)、如图a所示，若对小学年段各学校按“用户人数”为主要关键字，“活跃空间比例”为次要关键字进行了排序，若对初中各学校也进行相同方法进行排序，排序后C6单元格显示的学校代码是。(3)、为直观地比较两个年段学校各学校活跃空间使用情况的差异，他制作了如图b所示的图表。该图表的数据区域是。
图b
(4)、把图a所示中A2：I18的区域复制到新工作表中，并按图c和图d所示的方式进行筛选，筛选后显示的学校有所。
-
8、数组d(1)～d(100)中存储某班级50位同学的语文和数学成绩，奇数位存储语文成绩，偶数位存储对应该同学的数学成绩。该数组已经按照两科总成绩升序排序。依据对分查找思想：设计一个在数组a中查找总成绩Key的程序，如果查找成功输出语文成绩在数组中的位置。实现该功能的VB程序段如下：
Key = Val(Text1.Text)
i = 1: j = 100
Do While i <= j
m = (i + j) \2
If Then m = m - 1
Sum =
If Key = Sum Then Exit Do ′Exit Do表示退出循环
If Then
i = m + 2
Else
j = m - 2
End If
Loop
If i > j Then Text2.Text = “没有找到！” Else Text2.Text = Str(m)
实现该功能，则上述程序段划线处的表达式分别为( )
A、①m Mod 2 = 1 ②d(m) + d(m - 1) ③Key < Sum B、①m Mod 2 = 1 ②d(m) + d(m + 1) ③Key > Sum C、①m Mod 2 = 0 ②d(m) + d(m - 1) ③Key > Sum D、①m Mod 2 = 0 ②d(m) + d(m + 1) ③Key > Sum -
9、在文本框Text1中输入n，生成一个n*n的矩阵。矩阵各元素的值均为0或1，第1个元素的值随机生成，垂直和水平方向相邻元素值均不同。程序运行的界面及实现该过程的VB程序段如下所示：
n = Val(Text1.Text)
m =
s = “ ”
For i = 1 To n * n
s = s + Str(m)
m = 1- m
If i Mod n = 0 Then
List1.AddItem s
s = “ ”
If Then m = 1- m
End If
Next i
实现该功能，则上述程序段横横线处的表达式分别为( )
A、①Int(Rnd) ②n Mod 2 = 0 B、①Int(Rnd) ②n Mod 2 = 1 C、①Int(Rnd+0.5) ②n Mod 2 = 0 D、①Int(Rnd+0.5) ②n Mod 2 = 1 -
10、有如下VB程序段：
s = “QUOTES：keep on going never give up！”
flag = False: m = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= “a” And ch <= “z” Then
If Not flag Then
m = m + 1
flag = True
End If
Else
flag = False
End If
Next i
Text1.Text = Str(m)
程序执行后文本框Text1显示的内容是( )
A、5 B、6 C、7 D、21 -
11、实现某算法的部分VB 程序段如下：
i=1
Do While i <= 9
If a(i) <> 0 Then
j=10
Do While j > i
If a(j)=a(i) Then a(j)=0
j=j - 1
Loop
End If
i=i+1
Loop
For i=1 To 10
If a(i) <> 0 ThenText1.Text= Text1.Text+str(a(i))
Next i
数组元素a(1)到a(10)的数据依次为“4，1，6，4，4，9，1，7，6”，则程序运行后，文本框Text1中显示的内容是( )
A、4 9 1 7 6 B、4 1 6 9 7 C、6 7 1 9 4 D、7 9 6 1 4 -
12、VB语句“If Int(Sqr(n))=Sqr(n) Then flag=True”，下列说法正确的是( )A、该语句中的两个“=”均为赋值号 B、对于任意正整数n，条件总是成立的 C、当n的值为81时，执行该语句，flag的值为False D、该语句的功能是判断正整数n是否是完全平方数(该数能表示为某个数的平方)
-
13、某算法的部分流程图如下图所示，执行这部分流程后，输出的值为( )
A、循环体被执行了20次 B、输出变量s的值为30 C、语句i=i+1执行9次 D、该算法是计算0+10+20的值 -
14、小王用Flash软件制作动画作品，时间轴编辑界面如下图所示，下列说法不正确的是( )
A、声音的同步方式设置为“数据流”和“事件”，效果是一样的 B、清除“按钮”图层第1帧，不会影响动画播放效果 C、在“男孩”图层第26帧插入空白关键帧，不会影响动画效果 D、交换男孩和配乐图层的位置，不会影响动画效果 -
15、使用Access软件创建的“无人机”数据表，其设计视图的部分界面如图所示，下列说法正确的是( )
A、可以修改“序号”字段的值 B、可以再建一个“自动编号”类型的字段 C、插入新记录时，可以在“优惠”字段输入文字“是” D、可以在品牌和价格之间插入一个数字类型的新字段 -
16、下列有关浏览器的应用，说法正确的是( )A、HTTP协议主要用于浏览器与Web服务器之间的信息传输 B、通过浏览器将电子邮件读取到本地计算机采用的是SMTP协议 C、使用浏览器可对当前正在浏览的网页进行编辑 D、选择“网页，仅HTML(*.htm；*.html)”的方式保存网页可将图片保存到本地磁盘
-
17、下列有关信息的说法，正确的是( )A、同样的信息不能加载于不同的载体之上 B、设置邮箱，限制邮件大小，过滤垃圾邮件，无助于保护个人信息 C、加密后的文本不是信息 D、教务处为每位同学分配准考证号，属于信息的编码
-
18、小刘在玩一个数字游戏，给定一个n位正整数(n<=20)，根据设定的保留位数，舍去一部分数字，剩下的数字按原次序组成一个最大的新数。例如原数38265083，保留4位，最大数为8683。算法如下：
1)在左边第1位至最后第n个数(从右向左的第n个数)之间，找出最大值，确定新数的最高位；
2)从最大值的下个位置到第n-1个数之间查找最大值，确定新数的第二位。
3)依次类推，确定最终的最大数。
设计了一个VB程序，在文本框Text1中输入一个n位正整数，在文本框Text2中输入保留的位数，点击“确定”按钮，在文本框Text3中输出保留的最大新数。程序运行界面如图所示。
(1)、如果输入的原数是3635132，保留4位数字，则输出的新数是。(2)、实现上述功能的VB代码如下，请在划线处填入合适代码。Private Sub Command1_Click()
Dim a(1 To 20) As String
Dim ys As String, xs As String ′xs记录最大的新数
Dim k As Integer, h As Integer, n As Integer
Dim i As Integer, j As Integer
Dim F As Boolean
xs=“ ”
ys= Text1.Text
n= Len(ys)
k= Val(Text2.Text)
F= True
If ys=“ ” Or n > 20 Or k = 0 Or k > n Then
Label4.Caption =“输入的原数或保留位数不符，请重输！”
F=False
End If
For i= 1 To n
If a(i)<“0” Or a(i)>“9” Then
Label4.Caption=“输入的原数不是数字，请重输！”
Text1.Text=“ ”
F= False
End If
Next i
If F= True Then
h = 1
For i = 1 To k
For j= h To
If a(j) > a(h) Then h = j
Next j
h= h + 1
Next i
Text3.Text= xs
End If
End Sub
-
19、星期天，小杰来到动物园游玩，园内共有N个景点，每个景点都有一个标号，标号为1至N。现在只知道每个景点有一条路连接下一个景点。小杰想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点。
例如，共有N=5个景点，每个景点连接的下一个景点分别是2，4，5，5，2。
景点号
1
2
3
4
5
下一景点号
2
4
5
5
2
则他可以从2号景点出发，最多可以游玩2号、4号、5号三个景点。
程序代码如下：
Private Sub Command1_Click()
Dim a(1 To 100) As Integer, d(1 To 100) As Integer ′数组a存放下一景点号
Dim jd As String, m As String, c As Integer, i As Integer
Dim s As Integer, p As Integer, k As Integer, ans As Integer
jd = Text1.Text + “，”
s = 0: c = 0
For i = 1 To Len(jd)
m = Mid(jd, i, 1)
If m <> ”，” Then
s = s * 10 + Val(m)
Else
c=c+1：a(c)=s：s=0 ′含义
End If
Next i
ans = 0: k = 0
For i = 1 To c ′枚举游览起点
For k = 1 To c
d(k) = 0
Next k
If d(i) = 0 Then
p = i
Do While p <= c
If d(p) = 0 Then
k=k+1：d(p)=k
Else
y= ② ′填空
If y>ans Then ans=y
k = 0
Exit Do
End If
′改错Loop
End If
Next i
Text2.Text = Str(ans)
End Sub
(1)、若要实现显示“景点连接情况：”的Text1在程序运行时默认为空，则需要将Text1的属性设置为空。(2)、若有7个景点，且每个景点的连接情况为：6，3，7，2，7，5，4，那么小杰最多可以游玩的景点数是。(3)、程序代码中，有下划线的语句“a(c)=s”代表的含义是。(4)、程序代码中，程序代码填空：y=。(5)、程序代码中，加框处代码有错，请改正。 -
20、小王创作“宣传禁烟”的多媒体作品，请回答相关问题。(1)、首先使用Photoshop软件制作一张背景图片，如下图所示。
要去除中间含有“禁烟”标志的圆形图案，下列工具可行的有(多选，填字母：A . 剪裁
/B . 仿制图章 
/C . 画笔 
/D . 橡皮擦 
)。(2)、然后使用Flash软件制作动画，界面如下图所示。
若要使得“烟”图层的动画一开始就出现，应进行的操作是。
(3)、“按钮”图层第27帧到第50帧实现了“控烟协会”按钮实例从右侧向左移入的动画效果，该动画类型为(填字：动画补间/形状补间/逐帧动画)。(4)、“标题动画”图层中放置了“标题动画”实例，编辑该元件，界面如下图所示，该场景动画播放时，该动画反复播放，若要使得该动画播放一次就停止，应进行的操作是。
(5)、测试影片时，单击“诗词网”按钮，实现在浏览器中打开中国控烟协会的网站(网址为：www.catcprc.org.cn)，则该按钮的动作脚本是。