相关试卷
-
1、使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是（ ）
A、该音频文件为mp3格式，采样频率为44100Hz B、当前状态下，执行“删除”操作，音频文件将变为单声道 C、当前状态下，执行“插入静音”添加1秒静音后，右声道时长不变 D、当前状态下，先执行“复制”，再执行“粘贴”，音频时长将变成8秒 -
2、使用Access软件打开数据库，部分界面如图所示。
下列操作可行的是（ ）
A、选中当前记录的“书籍编号”字段值，将“4”修改为“7” B、选中视图中的表名称“表1”，将其重命名为“高一藏书” C、在“书名”和“作者”字段之间添加一个新字段“出版社” D、输入文字“是”作为新记录中“借出”的有效字段值 -
3、使用Word软件编辑某文档，部分界面如图所示。
下列说法正确的是（ ）
A、文中共使用了2处批注，添加批注的用户名为“A” B、实现图中的图文环绕效果可以采用“嵌入型”环绕方式 C、删除图中批注后，批注对象和批注内容同时被删除 D、拒绝对文档的所有修订后，文字“既”被保留 -
4、下列有关信息和信息技术的说法，正确的是（ ）A、用手机扫描二维码，是对信息进行编码的过程 B、信息必须依附于载体，故不可以脱离它所反映的事物被存储和传播 C、交警指挥交通必须采用规定的手势，这是为了信息表达的规范化 D、电影技术、电视技术、广播技术、计算机技术等均属于现代信息技术
-
5、酒店房间管理问题：某酒店房间(房间数小于1000)编号按1，2..连续编号，客房经理对没有人住的房间使用如下方法来登记管理。连续的空房间，登记第一个房间的编号和连续的空房间数，比如空房间1,2,6,7,8,10，则登记3条记录，分别为1_2,6_ 3, 10_1。某旅客如果退房，需要把这个房间号也登记进去，共有4种情况需要处理：
1)上靠：若退的房间号为3，则原来登记的记录变为1_3,6_3,10_1;
2)下靠：若退的房间号为5，则原来登记的记录变为1_2,5_4,10_1;
3)上下靠：若退的房间号为9，则原来登记的记录变为1_2,6_5;
4)上下都不靠：若退的房间号为4，则原来登记的记录变为1_2,4_1,6_3,10_1
据上述规则，小明编写了相应的VB程序，程序启动时读入空房间数据，并在列表框List1中显示，在文本框Text11中输入退房号，单击“退房”按钮后更新列表框List1中的数据。程序界面如图所示，请回答下列问题：
单击退房按钮
(1)、当前登记的记录有3条，分别是2_3,6_2,9_4。某旅客退掉8号房间，则登记的记录将变为；(2)、实现上述VB程序如下，请在划线处填入合适的代码。Dim a(0 To 10) As Integer ‘保存第i条记录的开始房间号
Dim b(0 To 10) As Integer ‘保存第i条记录的房间数
Dim sp As Integer
Private Sub Form_load()
‘程序启动时从数据库读取原始k条记录，依次存入a(1),b(1),a(2),b(2),...a(k),b(k)代码略
a(0)=0: b(0)=0: sp=k+1: a(sp)=0: b(sp)=0
End sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
c = Val(Text1.Text)
i = 1
Do While a(i) < c
i = i + 1
Loop
i = i - 1
'处理退房登记问题
If a(i) + b(i) = c Then
If a(i + 1) = c + 1 Then ‘处理第3种情况
For j = i + 1 To sp - 1
a(j) = a(j + 1): b(j) = b(j + 1)
Next j
sp = sp - 1
Else ‘处理第1种情况
b(i) = b(i) + 1
End If
ElseIf c + 1 = a(i + 1) Then ‘处理第2种情况
a(i + 1) = c: b(i + 1) = b(i + 1) + 1
Else
For j =
a(j) = a(j - 1): b(j) = b(j - 1)
Next j
a(i + 1) = c: b(i + 1) = 1:
End If
List1.Clear
For i = 1 To sp - 1
List1.AddItem "" & Str(i) & Str(a(i)) & Str(b(i))
Next i
End Sub
-
6、AB两个篮球队进行了多场比赛，现在要统计比分并确定获胜球队。计分规则是胜场多的队伍获胜，若胜场相同，则计算累计小分（小分=本队得分-对手得分），小分多获胜，若还是相同，则算平局。小蓝同学根据上述算法编写了一个VB程序实现比赛结果统计。每场比分记录在文本框Text1中，单击“统计”按钮command1，把两队每场按AB两队比分差降序显示在列表框list1中，同时在文本框Text2输出最终结果。部分程序界面如图所示。
Private sub command1_click()
Dim a(1 to 20) as integer,b(1 to 20) as integer,i as integer
Dim j as integer,t as integer,p as integer,k as integer,xiaofen as integer
‘从文本框读取AB两队各场的比分分别存数组a、b，场次k,代码略
For i=1 to k-1
For j= 1 to ①
If ② then
t=a(j):a(j)=a(j+1):a(j+1)=t
t=b(j):b(j)=b(j+1):b(j+1)=t
End if
Next j
Next i
p=0 : xiaofen=0
For i=1 to k
If a(i)>b(i) then ③
xiaofen = xiaofen+a(i)-b(i)
List1.Additem str(a(i)) + “：”+ str(b(i))
Next i
If p*2>k or k=p*2 and xiaofen>0 then
Text2.text = “A队获胜”
Elseif
thenText2.text = “B队获胜”
Else
Text2.text = “两队平局”
End if
End sub
(1)、若希望程序在运行时列表框list1内容清空，则应该在代码中添加语句（单选，填字母：A . list1.additem \B . list1.clear \C . list1.caption ）(2)、在程序划线处填入合适代码，使程序完整① ② ③
(3)、加框处代码有错误，请改正。 -
7、小林创作主题为“国泰民安”的多媒体作品。请回答下列问题：(1)、在多媒体作品设计过程中，下列描述正确的是(多选，填字母: A . Flash是以时间序列为基础的多媒体创作工具;B .在创作需求分析阶段需要将作品所涉及的媒体元素逐一列出，分类登记; C .描述整个作品组成部分、工作流程、主要界面属于系统结构设计;D .制作脚本编写完成后再进行文字脚本编写。)(2)、图中“右狮”图层中狮子第1帧到30帧实现从完全显示到完全透明的动画效果，可在该图层的最后一帧 ， 对该帧的“狮子”实例的设置为 0%，并设置补间动画类型为动画补间。
(3)、图中舞台的大小为550×400像素，舞台左侧和右侧的两个“狮子”实例均来源于库中“狮子”元件。左侧“狮子”实例的位置坐标（X，Y）为（80,230），则右侧“狮子” 实例的位置坐标最有可能为（单选，填字母A .(230,80)/B .(470, 170)/ C .(80,170)/D . (470,230) )。若调整舞大小左侧“狮子”实例的大小，（单选，填字母：A .会/B .不会）影响右侧“狮子”实例的大小。(4)、下列关于该动画相关的描述正确的是（ ）A、观察图中的库，库中有2种类型的元件 B、要使图“进入”按钮在鼠标指针经过该按钮时自动播放“音效”声音，应在该按钮的弹起帧上添加该声音，并将声音的“同步”属性设置为“事件” C、要使“按钮”图层中按钮第1帧出现，可在按钮图层第1帧执行“清除关键帧”操作 D、将该动画发布为SWF或MOV格式文件，则该动画具有交互功能 -
8、某同学将对分查找程序进行了改编，程序运行时，自动产生9个[10，99]之间的不重复随机数并降序排列，在文本框Text1中显示。在文本框Text2中输入查找键key，单击“查找”按钮Command1，将查找结果显示在文本框Text3中。程序运行界面如图所示。
Key = Val (Text2. Text)
i = 1
j = 9
flag = False
Do While i <= j And flag = False
m= (i+j) \ 2
If
Thenj= m - 1
Else If
Theni = m+1
Else
If
Then j = m - 1
Else If
Theni = m+1
Else
flag = True
End If
End If
Loop
If flag Then Text3. Text =“在第”+ Str(m) +“个”Else Text3. Text =“找不到”
上述程序段中方框处可选语句为
①Key \ 10 > a(m) \ 10 ②Key \ 10 < a(m) \ 10
③Key Mod 10 < a(m) Mod 10 ④Key Mod 10 > a(m) Mod 10
则方框处处语句依次为（ ）
A、①②③④ B、④②①③ C、①③④② D、①②④③ -
9、有如下程序段：
x = 60: t = 2: c =0
Do While x > 1
If x Mod t = 0 Then
c = c + 1
x = x \ t
Else
t = t + 1
End If
Loop
执行该程序段后，变量c 的值是（ ）
A、3 B、4 C、5 D、9 -
10、有如下VB程序段:
s1 = "abcde"
j = 1
s2 = "a"
For i = 1 To Len(s1)
j = (j + 2) Mod Len(s1) + 1
s2 = s2 + Mid(s1, j, 1)
Next i
Text1. Text = s2
执行该程序段后，文本框Text1中输出的内容是（ ）
A、Acebda B、Acdeab C、Adbeca D、Adaceb -
11、某算法的部分流程图如图所示，以下说法正确的是（ ）
A、该流程执行后，变量k的值是1 B、该流程执行后，变量a的值是16 C、该流程用于计算并输出1+8-16的值 D、该流程完整执行1次，“a<32?”共执行了4次 -
12、若x和y是整型变量，下列VB表达式的值为True时，不能表示x能被y整除的是（ ）A、Int（x / y）=x / y B、Fix（x / y）=x / y C、Int（x / y）=x \ y D、x / y=x \ y
-
13、使用GoldWave软件编辑某音频文件，选中一段音频后的部分界面如图所示。
执行“剪裁”命令后再插入30秒静音，直接保存，该音频文件存储容量约为（ ）
A、5.0MB B、10.1MB C、16.8MB D、21.9MB -
14、使用Photoshop软件制作“端午”作品，部分界面如图所示。下列说法正确的是（ ）
A、“封底”图层设置了“内发光”图层样式 B、可对“节日”图层直接设置滤镜效果 C、可用文字工具修改“端午”图层中文字大小 D、交换“粽叶”与“点心”图层的顺序，不影响作品的呈现效果 -
15、下列数中，转换为二进制数后含有的“0”和“1”的个数相同的是（ ）A、(134)10 B、F129H C、5E70H D、(69)10
-
16、使用Access 软件设计一个数据表，存储如下表所示的图书信息。
序号
书名
作者
价格
出版日期
存货情况
WX0001
《活着》
余华
¥35.00
2017/6/1
有存货
WX0002
《平凡的世界》
路遥
¥79.80
2012/3/1
有存货
MZ0003
《红楼梦》
曹雪芹/高鹗
¥80.00
2019/8/1
无存货
„
„
„
„
„
„
下列数据表结构设计最合理的是（ ）
A、
B、
C、
D、
-
17、下列有关网站和网页的说法中，正确的是（ ）A、网站内各个网页之间均需相互链接 B、使用搜索引擎搜索时，关键词越多，搜索结果越多 C、以“网页，仅HTML”类型保存网页，可以保存网页中的超链接 D、使用“添加到收藏夹”的功能保存正在浏览的网页内容
-
18、下列关于信息特征的说法，错误的是（ ）A、“狼来了”的故事内容，说明信息存在真伪 B、大家都知道“狼来了”的故事，说明信息可以共享 C、不同的人讲“狼来了”的故事或多或少会有所不同，说明信息可以被加工和处理 D、在公园无意听到一位母亲在给小孩讲“狼来了”的故事，说明信息传播不需要载体
-
19、某地选考赋分规则如下：
划分赋分等级：将考生每门选考科目的原始成绩从高到低划分为A、B+、B、C+、C、D+、D、E共8个等级，各等级人数所占比例分别为3%、7%、16%、24%、24%、16%、7%、3%，如下表所示。
等级
A
B+
B
C+
C
D+
D
E
比例
3%
7%
16%
24%
24%
16%
7%
3%
转换赋分成绩： 将A至E等级内的考生原始成绩，依照等比例转换法则，分别转换到91-100、81-90、71-80、61-70、51-60、 41-50、31-40、21-30八个分数区间，得到考生的赋分成绩，如图a所示。
转换公式如下： t=t2+(s-s2)*(t1-t2)/(s1-s2)， 其中t表示转化后的赋分成绩，t1 表示该档最高转化分，t2 表示该档最低转化分，s表示原始分，s1 表示该档最高原始分，s2表示该档最低原始分。
比如选择物理的学生有20000人，小明物理卷面分90分，排名为1800名，则他在物理学科中的比例是9%。按照赋分等级表可知他所处等级为B+。若原始分4%-10%区间的最高分为94，最低分为88，B+区间分数为81-90分。小明转化后的赋分成绩为81+ (90-88)* (90-81)/(94-88)=84分。
编写一个VB程序计算某校学生某科目成绩的赋分，功能如下：从数据库中读入学生学号、姓名、班级和原始成绩，并在列表框List1中显示，单击“赋分”按钮Command1，在列表框List2中按原始成绩从高到低显示赋分等级和赋分成绩。赋分时，先按原始成绩从高到低排序，再根据人数比例计算切分位置，最后对落入同一等级的学生进行赋分。若切分位置有相同分数学生，则归为同一个等级。例如，某等级切分位置是第100位，但第101位学生的原始成绩和第100位相同，则这两名学生的赋分等级相同。程序运行界面如图b所示。
实现上述功能的VB程序如下，请回答下列问题：
(1)、分析程序，可知存放学生成绩的数据表为。(2)、请在划线处填上合适的代码。Const max = 1000
Dim n As Integer '存放学生人数
Dim xh(1 To max) As String, xm(1 To max) As String
Dim bj(1 To max) As Integer, fs(0 To max) As Single
Dim ffcj(1 To max) As Integer '数组ffdj存储学生的赋分等级
Dim ffdj(O To max) As String '数组ffcj存储学生的赋分成绩
Private Sub Form_ Load()
Dim i As Integer, km As String
Dim conn As New ADODB. Connect ion
Dim rs As New ADODB. Recordset
Conn.ConnectionString =“prov ider-microsoft.ace.oledb.12.0；data source=” +App. Path + “\s tudent. accdb”
conn. Open
Set rs. ActiveConnection = conn
Rs. Open' 'select * from stu_ info"
‘本过程其它代码从数据库中读入学生学号、姓名、班级和原始成绩存储到数组xh、xm、bj和fs中，并在List1中显示。学生数存储在变量n中。
Loop
End Sub
Private Sub Command1_ Click()
Dim q(1 To max) As Integer， p(1 To 8) As Single， dj(1 To 8) As String
Dimi As Integer，j As Integer， t As Integer， pos As Integer， last As Integer
Dim t1 As Integer， t2 As Integer， s1 As Single， s2 As Single
p(1) =0.03： p(2) = 0.07： p(3) =0.16： p(4) = 0.24
p(5) =0.24： p(6) =0.16： p(7) =0.07： p(8)=0.03
dj(1)="A ： dj(2) = "B+*： dj(3) = "B"： dj(4) = C+
dj(5)= "C： dj(6) = "D+*： dj(7) = "D"： dj(8)="E”
For i=2 To 8 ‘计算到该等级累计所占比例
p(i) =
Next i
For i=1 To n
q(i) = i
Next i
For i=1 To n- 1
For j=n To i+1 Step-1
If fs(q(j)) > fs(q(j - 1)) Then
t=q(j)：q(j)=q(j-1)：q(j-1)=t
End If
Next j
Next i
pos=1
t1=100：t2=91
For i =1 To 8
last=Int(n*p(i)+0.5)
Do While
last=last+1 ‘处理切分位置的同分数学生
Loop
s1 = fs(q(pos))： s2 = fs(q(last))
Do While pos <= last
ffcj(q(pos)) = t2 + (fs(q(pos)) - s2) / (s1 - s2) * (t1 - t2)
pos=pos+1
Loop
t1 = t1 -10：t2=t2- 10
Next i
For i=1 To n
List2. AddItem xh(q(i)) + xm(q(i)) + Str(bj(q(i))) + dj(ffdj(q(i))) +Str (ffcj(q(i)))
Nexti
End Sub
-
20、编写一个VB程序，功能如下：单击“随机数”按钮Command1，随机产生n个[10，50]范围的偶数。单击“计算”按钮Command2，在这n个随机数中找出四个数a，b，c，d，满足d=a+b+c，且d为所有满足条件组合中的最大值，如果存在符合要求的d，则在Text2中显示d的值，否则显示“no solution"。
例如：42、50、14、16、22、10、34、10、12、38这10个数中，最大的d为50，50=12+16+22。请回答下列问题：
(1)、分析程序可知，生成随机数的事件处理过程名是。(2)、实现功能的VB程序如下，请在划线处填入合适的代码。Dim a(1 To 20) As Integer
Const n = 10
Private Sub Command1_ Click)
Dim i As Integer
Randoni ze
For i=1Ton
a(i) =
Text1.Text = Text1. Text + Str(a(i))
Next i
End Sub
Private Sub Command2_ Click ()
Dim i As Integer, j As Integer，t As Integer
Dim left As Integer, right As Integer
Dim ans As Integer, flag As Boolean
flag = True
'对数组a进行升序排序，代码略
i=n
Do While i >= 1 And flag
j=i-1
Do While j >= 1 And flag
left = 1
right = j- 1
Do While
If ans > a(left) + a(right) Then
left=left+1
ElseIf ans < a(left) + a(right) Then
right = right-1
Else
Text2. Text = Str(a(i))
flag = False
End If
Loop
j=j-i
Loop
Loop
If flag Then
Text2. Text ='no solution'
End If
End Sub
(3)、程序中加框处代码有错，请改正。