2018-2019学年浙江省温州新力量联盟高二(下)期中信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分.)
-
1.下列有关信息和信息技术的说法正确的是( )
组卷:19引用:1难度:0.6 -
2.下列有关浏览器的应用,说法正确的是( )
组卷:12引用:1难度:0.5 -
3.使用Word软件编辑某文档,部分界面如图所示:下列说法正确的是( )
组卷:7引用:1难度:0.5 -
4.使用 UltraEdit软件观察字符“Plus版红绿灯!”的内码,部分界面如图所示,以下说法正确的是( )
组卷:16引用:1难度:0.5 -
5.下列关于多媒体技术说法正确的是( )
组卷:12引用:1难度:0.5
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分第16小题7分,共26分)
-
15.查找并删除重复数据的算法是依次以数组a中每个元素作为关键字进行从前往后查找,如果有重复,删除该数据后继续查找。例如,第一次将a(1)作为关键字,从a(2)到a(10)进行逐个查找,如果和a(1)相同,则删除该数据,然后继续查找。编写VB程序,程序运行时,在列表List1中显示数组a,单击“去除重复”按钮 Command1实现如下功能,在列表框Lst2中输出数组a去重后的数据,同时在标签 Label1中显示删除的数据的总
个数,运行效果如图所示:
(1)要使程序运行时,窗体显示“删除重复数据”,则应该修改窗体的
(2)程序代码中加框处有错,请更正。
(3)请将划线部分补充完整:
Const maxn=10
Dim a(1 To maxn) As Integer
Private Sub Form_Load( )
'生成数组a显示在List1中'
End Sub
Private Sub Command1_Click( )
Dim i As Integer,j As Integer,n As Integer,key As Integer
key=1:n=maxn
Do While key<=n
i key+1
Do While i<=n
If a(i)<>a(key)Then
i=i+1
Else
For j=i To n-1a(j-1)=a(j)
n=n-1
End If
Loop
key=key+1
Loop
For i=1 To n
List2.AddItem Str(a( i))
Next i
Label1.Caption=″共删除数据″+①+″个″
End Sub
(4)当数组a中的值依次为“1237816687”,单击按钮 command1后,标签Labe1上显示的内容是组卷:0引用:1难度:0.3 -
16.RGB颜色模式下的每个像素用24位二进制来表示,其中R、G、B三个分量分别用8位二进制来表示,每个分量值的取值范围均为[0,255],若转换为十六进制则每个分量值的取值范围为[00,FF].RGB颜色反相指的是将每个RGB颜色值转换为二进制后再取反(0取反后为1,1取反后为0)。例如RGB(50,150,250)转换过程如下:
R G B 十进制值 十六进制值 FA 二进制值 0011 0010 1001 0110 1111 1010 反相值 1100 1101 0110 1001 0000 0101
实现上述功能的VB代码如下:
(1)当在文本框Text1中输入“#FF00CC”,在文本框Text2中输出的结果为
(2)请在横线处填入合适的代码:
Private Sub Command1_Click( )
Dim i As Integer,j As Integer,
Dim x As Integer,s As String,ch As String
Dim a(1 To 24)as Integer
For i=1 To 24
a(i)=0
Next i
①
For i=1 To6
ch=Mid(s,i,1)
If ch>=“0”And ch<=“9”Then
x=Val(ch)
Else
②
End If
j=4*i
Do While x>0
a(j)=x mod 2
x=x\2
j=j-1
Loop
Next i
s=““:x=0
For j=1 To 24
③
If j Mod 8=0 Then
If j<24 Then
s=s+Str(x)+″,″
Else
s=s+Str(x)
End If
x=0
End If
Next j
Text2.Text=″RGB″(″+S+″)″
End sub组卷:0引用:1难度:0.6