2018-2019学年浙江省丽水市高二(下)质检信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分,每小题列出的四个备选项中只有个是符合题目要求的,不选、错选、多选均不得分.)
-
1.下列有关信息及信息技术的说法,正确的是( )
组卷:16引用:1难度:0.5 -
2.下列有关网页及电子邮件的描述,不正确的是( )
组卷:2引用:1难度:0.5 -
3.使用word软件编辑某文档,部分界面如图所示。下列说法正确的是( )
组卷:6引用:1难度:0.5 -
4.使用 Ultra Edit软件查看字符内码,部分界面如图所示。( )
组卷:10引用:1难度:0.5 -
5.使用 Gold Wave软件编辑某音频文件,部分界面如图所示。下列说法不正确的是( )
组卷:1引用:1难度:0.7
二、非选择题(本大题共4小题,第13小题4分,第14小题10分,第15小题6分,第16小题6分,共26分)
-
15.一段字符中的每个词(由大、小写字母组成)是倒序显示的,比如“Good night,Tom!”就倒序显示成“dooG thin,moT!”。小王编写了一个VB程序,实现还原功能,即单击“还原”按钮后,将文本框Text1中倒序显示的内容还原,并在文本框Text2中输出结果。程序运行界面如图所示。
实现上述功能的VB程序如下,请回答下列问题:
(1)观察程序代码,“还原”按钮的对象名为
(2)请在①、②的横线处填入合适的代码
(3)加框处代码有错,请改正。
Function zf(s As String)As boolean
zf=False
If s>=″A″And s<=″Z″Or s>=″a″And s<=″z″Then
End If
End Function
Private Sub rev _Click( )
Dim s As String,ch As String,rv As String,rvl As String
Dim i As Integer,j As Integer,k As Integer
s=Text1.Te
rv='''':i=1
Do While True
ch=Mid(s,i,I)
Do While Not zf(ch)And i<Len(s)
rv=rv+ch
i=i+1
ch=Mid(s,j,1)
Loop
ch=Mid(,j,1)
Do While zf(ch)And j=Len(s)
If j>Len(s)Then Exit Do
ch=Mid(s,j,1)
Loop
rvl=''''
For'改错
rvI=Mid(s,k,1)+rvI
Next k
rv=rv+rvI
If j<=Len(s)Then rv=rv+Mid(s,1)
i=j+1
If i>Len(s)Then Exit Do
Loop
Text2.Text=rv
End Sub组卷:0引用:1难度:0.2 -
16.小王编写了一个“学生体能情况分析”程序,其功能是分项计算名次和优秀率(分数90分及以上为优秀)。运行程序时,在列表框List1中显示所有学生的3项体能测试分数,在文本框 Text1中输入测试项目代码(1表示游泳,2表示跑步,3表示跳远),单击“计算”按钮 Command1后,计算结果分别显示在列表框List2和标签 Label2中。程序运行界面如图1所示。
程序设计过程中数据的存储和计算方法如下:
(1)学生体能分数的存储:如图2所示,第1位学生的游泳、跑步、跳远分数依次存入数组 score的第1、2、3个元素里,第2位学生的游泳、跑步、跳远分数依次存入数组 score的第4、5、6个元素里,以此类推。
(2)计算名次的算法:先统计每个分数的个数,存入数组a,如图3中a(96)值为9,表示共有9个96分;然后按照分数从高到低依次计算每个有效分数(该分数的个数不为0)对应的名次存入数组b,分数相同时名次并列,如图3中b(96)值为10,表示96分的名次是(并列)第10名,以此类推。分数 100 99 98 97 96 … 0 数组a 3 0 0 6 9 … 0 数组b 1 4 10 …
(1)根据图1中列表框 List1中的信息和图2所示的数据存储方法可知,数组元素 score(23)的值为
(2)实现上述功能的VB程序如下,请在①、②、③的横线处填入合适的代码。
Dim m As Integer'学生人数
Dim score(1To 3000 )As Integer'存放学生分数
Dim xm(1To1000)As String'存放学生姓名
Private Sub Commandl_Click( )
Dim i As Integer,t As Integer,code As Integer,mc As Integer
Dima(0 To 100)As Integer'存放每个分数的个数
Dimb(0To100)As Integer'存放每个分数的名次
Dim code_n(I To 3)As String
code_n(1)=″游泳″:code_n(2)=″跑步″:code_n(3)=″跳远″
code=val(Text1.Text)
For i=0 To 100
a(i)=0
Next i
sum=0
For i=1 Tom′计算每个分数的个数及体能测试优秀的人数
t=
a(score(t))=a(score(t))+1
If score(t)>=90 Then sum=sum+1
Next
mc=1
For i=100 To 0 Step-1'计算每个分数的名次
Ifa(i)<>0 Then
b(i)=mc
mc=
End if
Next i
List2.clear
List2.AddItem″姓名″+
For i=1 To m
'在List2中输出m个学生的姓名、指定项目的分数及名次,代码略
Next i
sum=lnt(sum/m*10000+0.5)/100
Label2.Caption=“优秀率是:“+Str(sum)+″%″
End sub
Private Sub form_Load( )
'从数据库读取姓名存入数组xm,体能测试数据存入数组 score,总人数存入变量m。
'代码略
End Sub组卷:1引用:1难度:0.5