2020-2021學年浙江省湖州市、麗水市、衢州市高三(下)月考信息技術(shù)試卷(4月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分。每小題列出的四個備選項中只有一個是符合題目要求的,不選、多選、錯選均不得分)
-
1.下列關(guān)于信息和信息技術(shù)的說法,錯誤的是( )
組卷:6引用:1難度:0.7 -
2.下列關(guān)于網(wǎng)頁和電子郵件的說法,正確的是( ?。?/h2>
組卷:1引用:1難度:0.4 -
3.使用Access軟件設(shè)計一個數(shù)據(jù)表,存儲如圖所示的某單位員工數(shù)據(jù)。
員工代號 姓名 性別 入職年月 所屬部門 獎金 201903001 劉明 男 2019年3月 研發(fā)部 83,276 201803203 張帥 男 2018年3月 銷售部 75,733 ... ... ... ... ... ... 組卷:0引用:3難度:0.4 -
4.用UltraEdit軟件查看字符“Chang'e 5登月”的內(nèi)碼,部分界面如圖所示。
下列說法正確的是( ?。?/h2>組卷:4引用:2難度:0.6 -
5.使用GoldWave軟件編輯某音頻文件,部分界面如圖所示。
下列說法正確的是( ?。?/h2>組卷:1引用:1難度:0.4
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)
-
15.模擬圖像局部區(qū)域處理。隨機生成n*n(n≤100,且為偶數(shù))個“0”或“1”字符,將字符按行輸出,構(gòu)成一個n行n列初始矩陣,對該矩陣中的m行m列子矩陣(與初始矩陣同中心)進行水平翻轉(zhuǎn)。例如,當n為8,m為4時,構(gòu)成初始矩陣如圖a所示,將子矩陣進行水平翻轉(zhuǎn)后得到處理結(jié)果,如圖b所示。
編寫程序,實現(xiàn)上述功能:在文本框Text1中輸入偶數(shù)n,單擊“生成”按鈕Command1,在列表框List1中顯示初始矩陣,在文本框Text2中輸入偶數(shù)m(2≤m≤n),單擊“處理”按鈕Command2,在列表框List2顯示處理結(jié)果。程序運行界面如圖c所示。
請回答下列問題:
(1)根據(jù)程序的運行界面,“處理”是按鈕Command2的
(2)請在橫線處填入合適的代碼。
(3)程序中加框處代碼有錯,請改正。
Dim n As Integer
Dim a(1 To 100*100)As String
Private Sub Command1_Click ( ?。?br />Dim i As Integer
n=Val(Text1.Text)
If n<=100 And n>=2 And n Mod 2=0 Then
For i=1 To n*n
a(i)=Chr (
'將初始矩陣顯示列表框List1中,代碼略
Next i
Else
List1.AddItem“輸入有誤“
End If
End Sub
Private Sub Command2_Click ( )
Dim b(1 To 100*100)As String,s As String
Dim m As Integer,y As Integer,i As Integer,R As Integer,C As Integer
m=Val(Text2.Text)
If m>=2 And m<=n And m Mod 2=0 Then
y=
s=““
For i=1 To n*n
R=(i-1)\n+1:C=(i-1)Mod n+1
If R<=y Or R>n-y Or C<=y Or C>n-y Then
b(i)=a(i)
Else
b(i)=a(n*C-R+1)'(3)
End If
s=s+b(i)
If i Mod n=0 Then
List2.AddItem s
s=““
End If
Next i
Else
List2.AddItem“輸入有誤“
End If
End Sub組卷:2引用:1難度:0.5 -
16.求解“幻圓”問題。三個圓相互重疊,形成七個區(qū)域,編號為①、②、③、④、⑤、⑥、⑦,如圖a所示。將數(shù)字1~7填入每個區(qū)域中,實現(xiàn)所有數(shù)字僅用一次且每個圓內(nèi)的數(shù)字之和相等,如圖b所示,圓內(nèi)數(shù)字的和為1+4+6+7=2+4+5+7=2+3+6+7,求解區(qū)域①~⑦中可以填入符合條件數(shù)字的所有方案。
求解思路:在七個區(qū)域①、②、③、④、⑤、⑥、⑦上枚舉七個數(shù)字1、2、3、4、5、6、7的所有排列來進行驗證。程序運行界面如圖c所示。
請回答下列問題:
(1)根據(jù)題意及程序代碼,在區(qū)域①~⑦中按順序分別填入7,4,2,1,3,6,5,則該排列
(2)請在橫線處填入合適的代碼。
Dim a(1 To 7)As Integer'a(1)~a(7)依次存儲區(qū)域①~⑦的值
Private Sub Command1_Click ( ?。?br />Dim i As Integer,n As Integer
Dim y1 As Integer,y2 As Integer,y3 As Integer
For i=1 To 7
a(i)=i
Next i
n=0
Do While True
For i=7 To 2 Step-1
If a(i)=8 Then
a(i)=1
End If
Next i
If a(1)=8 Then Exit Do
If check
y1=a(1)+a(2)+a(3)+a(4)
y2=a(2)+a(4)+a(5)+a(6)
y3=a(3)+a(4)+a(6)+a(7)
If y1=y2 And
n=n+1
'在列表List1中,按格式輸出a數(shù)組元素的值,代碼略
End If
End If
a(7)=a(7)+1
Loop
Label1.Caption=“解法共計“& Str(n) &“種?!?br />End Sub
Function check
Dim i As Integer,n As Integer,f(1 To 8)As Integer
For i=1 To 8
f(i)=0
Next i
For i=1 To 7
Next i
n=0
For i=1 To 7
n=n+f(i)
Next i
If n=7 Then check=True Else check=False
End Function組卷:2引用:1難度:0.5