2019-2020学年浙江省浙北G2高二(下)期中信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分。)
-
1.下列有关信息与信息技术的说法,不正确的是( )
组卷:2引用:1难度:0.6 -
2.使用Word编辑文档时的部分界面如图所示。下列说法正确的是( )
组卷:1引用:1难度:0.4 -
3.Access设计视图部分界面如图所示,下列说法正确的是( )
组卷:1引用:1难度:0.6 -
4.用 Goldwave 软件对某音频文件进行编辑,Goldwave 状态栏如图所示:
以下说法正确的是( )组卷:9引用:4难度:0.8 -
5.有一段未经压缩的PAL制式的AVI无声视频,每帧画面为1024*512像素,24位彩色,视频时间为4秒,将其转换成MP4后其存储容量为15MB,则压缩比约为( )
组卷:6引用:2难度:0.4
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.小王设计“表达式计算”的程序,通过程序实现加法和乘法结合的表达式计算。程序工作原理为:对输入的表达式从前往后以相邻两个运算符和三个数字为一组,根据先乘后加的优先级进行运算,得到一个运算符和两个数字,再将其与之后的运算符和数字组成一组继续运算,直到全部数据运算完毕。现编写VB程序如下:在文本框Text1中输入一个由加法和乘法组成的表达式,以“=”结尾。点击“计算”按钮后,在文本框Text2中输出表达式计算的结果。实现该功能的VB程序及界面如下。
(1)在最后的输出语句“Text2.Text=Str(n1)”中,Text属于Text2的
(2)加框处的代码有误,请改正。
(3)补充①②处代码。
(4)若将表达式结尾的“=”改为“+”,对程序运行的结果组卷:0引用:1难度:0.5 -
16.排序的稳定性。假定在待排序的记录序列中,存在多个具有相同的关键字的记录,若经过排序,这些记录的相对次序保持不变,即在原序列中,r[i]=r[j],且r[i]在r[j]之前,而在排序后的序列中,r[i]仍在r[j]之前,则称这种排序算法是稳定的;否则称为不稳定的。
现编写一个VB程序,实现功能如下:随机生成n-1个不重复的[10,99]之间的正整数,在这n-1正整数中随机选取一个位置i,将其值r[i]作为第n个数插入到某一位置j处,然后对数据序列进行排序,验证排序前和排序后这两个相同数相对次序的变化,若均不变,则排序稳定,若有改变,则排序不稳定。实现该功能的VB程序及界面如下,请回答以下问题。
(1)分析程序代码,若某次运行显示“稳定”,则是否能确定选择排序是稳定排序?
(2)补充完整以下代码
Constn=10
Dima(1To10)AsInteger,b(1To10)AsInteger
Dimk1AsInteger,k2AsInteger‘k1,k2为相同数据的前、后次序PrivateSubCommand1_Click ( )
DimiAsInteger,tmpAsInteger,tAsInteger
Randomize
List1.Clear
Fori=1To9′随机生成9个不重复数
b(i)=Int(Rnd*90)+10
DoWhile ①
b(i)=Int(Rnd*90)+10
Loop
Nexti
′以下代码为随机选取数组中的1个数作为第
10个数字再随机的插入到原数组的1-9位置
k1=Int(Rnd*9+1)
tmp=b(k1)
k2=Int(Rnd*9+1)
Fori=10Tok2+1Step-1b(i)=b(i-1)
Nexti
b(k2)=tmp
Fori=1Tona(i)=i
List1.AddItemStr(a(i))+″″+Str(b(i))Nexti
Ifk1>=k2Then
②
t=k1:k1=k2:k2=t
EndIf
Text1.Text=Str(k1)+Str(k2)EndSub
PrivateSubCommand2_Click ( )
DimiAsInteger,jAsInteger,kAsInteger,tAsInteger
List2.Clear
Fori=1Ton-1k=i
Forj=i+1Ton
Ifb(j)<b(k)Thenk=j
Nextj
Ifk<>iThen
t=a(k):a(k)=a(i):a(i)=tt=b(k):b(k)=b(i):b(i)=t
EndIf
Nexti
Fori=1Ton
List2.AddItemStr(a(i))+″″+Str(b(i))Nexti
i=1
DoWhilei<=n-1Andb(i)<>b(i+1)
i=i+1
Loop
Text2.Text=Str(a(i))+Str(a(i+1))
If③ThenLabel1.Caption=″稳定″ElseLabel1.Caption=″非稳定″EndSub
Functioncheck(xAsInteger,yAsInteger)AsBoolean
DimjAsIntegercheck=False
Forj=1Toy-1
Ifb(j)=xThencheck=TrueExitFor
EndIf
Nextj
EndFunction组卷:0引用:1难度:0.5