2018-2019學(xué)年浙江省溫州新力量聯(lián)盟高二(下)期中信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,不選、多選、錯(cuò)選均不得分.)
-
1.下列有關(guān)信息和信息技術(shù)的說(shuō)法正確的是( ?。?/h2>
組卷:19引用:1難度:0.6 -
2.下列有關(guān)瀏覽器的應(yīng)用,說(shuō)法正確的是( ?。?/h2>
組卷:12引用:1難度:0.5 -
3.使用Word軟件編輯某文檔,部分界面如圖所示:下列說(shuō)法正確的是( ?。?br />
組卷:7引用:1難度:0.5 -
4.使用 UltraEdit軟件觀察字符“Plus版紅綠燈!”的內(nèi)碼,部分界面如圖所示,以下說(shuō)法正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/202001/10/da5fdbfb.png" style="vertical-align:middle" />
組卷:16引用:1難度:0.5 -
5.下列關(guān)于多媒體技術(shù)說(shuō)法正確的是( ?。?/h2>
組卷:12引用:1難度:0.5
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分第16小題7分,共26分)
-
15.查找并刪除重復(fù)數(shù)據(jù)的算法是依次以數(shù)組a中每個(gè)元素作為關(guān)鍵字進(jìn)行從前往后查找,如果有重復(fù),刪除該數(shù)據(jù)后繼續(xù)查找。例如,第一次將a(1)作為關(guān)鍵字,從a(2)到a(10)進(jìn)行逐個(gè)查找,如果和a(1)相同,則刪除該數(shù)據(jù),然后繼續(xù)查找。編寫(xiě)VB程序,程序運(yùn)行時(shí),在列表List1中顯示數(shù)組a,單擊“去除重復(fù)”按鈕 Command1實(shí)現(xiàn)如下功能,在列表框Lst2中輸出數(shù)組a去重后的數(shù)據(jù),同時(shí)在標(biāo)簽 Label1中顯示刪除的數(shù)據(jù)的總
個(gè)數(shù),運(yùn)行效果如圖所示:
(1)要使程序運(yùn)行時(shí),窗體顯示“刪除重復(fù)數(shù)據(jù)”,則應(yīng)該修改窗體的
(2)程序代碼中加框處有錯(cuò),請(qǐng)更正。
(3)請(qǐng)將劃線部分補(bǔ)充完整:
Const maxn=10
Dim a(1 To maxn) As Integer
Private Sub Form_Load( ?。?br />'生成數(shù)組a顯示在List1中'
End Sub
Private Sub Command1_Click( ?。?br />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=″共刪除數(shù)據(jù)″+①+″個(gè)″
End Sub
(4)當(dāng)數(shù)組a中的值依次為“1237816687”,單擊按鈕 command1后,標(biāo)簽Labe1上顯示的內(nèi)容是組卷:0引用:1難度:0.3 -
16.RGB顏色模式下的每個(gè)像素用24位二進(jìn)制來(lái)表示,其中R、G、B三個(gè)分量分別用8位二進(jìn)制來(lái)表示,每個(gè)分量值的取值范圍均為[0,255],若轉(zhuǎn)換為十六進(jìn)制則每個(gè)分量值的取值范圍為[00,F(xiàn)F].RGB顏色反相指的是將每個(gè)RGB顏色值轉(zhuǎn)換為二進(jìn)制后再取反(0取反后為1,1取反后為0)。例如RGB(50,150,250)轉(zhuǎn)換過(guò)程如下:
R G B 十進(jìn)制值 十六進(jìn)制值 FA 二進(jìn)制值 0011 0010 1001 0110 1111 1010 反相值 1100 1101 0110 1001 0000 0101
實(shí)現(xiàn)上述功能的VB代碼如下:
(1)當(dāng)在文本框Text1中輸入“#FF00CC”,在文本框Text2中輸出的結(jié)果為
(2)請(qǐng)?jiān)跈M線處填入合適的代碼:
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