2020年浙江省寧波十校聯(lián)考高考信息技術(shù)三模試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題列出的四個(gè)選項(xiàng)中,只有一項(xiàng)是符合題目要求,不選、多選、錯(cuò)選均不得分.)
-
1.下列有關(guān)信息和信息技術(shù)的說(shuō)法不正確的是( ?。?/h2>
組卷:3引用:1難度:0.6 -
2.下列關(guān)于網(wǎng)頁(yè)和網(wǎng)絡(luò)協(xié)議的說(shuō)法,正確的是( )
組卷:0引用:1難度:0.6 -
3.對(duì)于數(shù)據(jù)庫(kù)和數(shù)據(jù)表,下列說(shuō)法不正確的是( ?。?/h2>
組卷:0引用:1難度:0.6 -
4.小趙利用Word軟件編輯了一篇關(guān)于2022年杭州亞運(yùn)會(huì)的文檔,文檔中含有圖象“亞運(yùn)會(huì)。jpg”,部分界面如圖所示。下列說(shuō)法正確的是( )
組卷:4引用:1難度:0.5 -
5.使用 UltraEdit軟件查看字符內(nèi)碼,部分界面如圖所示。下列說(shuō)法正確的是( ?。?br />
組卷:2引用:1難度:0.6
二、非選擇題(本大題共4小題,其中第13題4分,第14題8分,第15題7分,第16題7分,共26分)
-
15.編寫(xiě)VB程序,實(shí)現(xiàn)如下功能:在程序運(yùn)行時(shí),在文本框1中輸入整數(shù)m(1≤m≤10),單擊“生成矩陣”按鈕Command1,生成m2個(gè)范圍為[0,9]的隨機(jī)整數(shù),隨機(jī)存儲(chǔ)在數(shù)組a中,并以m行、m列矩陣的形式在列表框List1上顯示。單擊“行排序”按鈕Command2,對(duì)矩陣以“行”為單位完成升序排序,并在列表框List2上顯示。運(yùn)行界面如圖所示,程序代碼如下:
Dim m As Integer
Dim a(1 To 100)As Integer
Private Sub Command1_Click ( ?。?br />‘輸入整數(shù)m,并隨機(jī)產(chǎn)生 m2個(gè)隨機(jī)數(shù)
‘隨機(jī)數(shù)以m*m矩陣形式在List1上顯示
‘代碼略
End Sub
Private Sub Command2_Click ( )
Dim i As Integer,j As Integer,t As Integer,k As Integer
Dim s As String
List2.Clear
Fori=1 To m*m
k=i
For j=i+1 To①
If a(j)<a(k) Then k=j
Next j
If k<>i Then t=a(k):a(k)=a(i):a(i)=t
②
Ifk
List2.AddItem s
s=““
End If
Next i
End Sub
(1)代碼“List2.Clear“中的Clear是
(2)程序代碼中,加框處代碼有錯(cuò),請(qǐng)改正。
(3)請(qǐng)?jiān)跈M線處填入合適代碼。組卷:0引用:1難度:0.6 -
16.在n個(gè)(1≤n≤15)一連串的方格內(nèi)填寫(xiě)字母A或B,但相鄰兩格內(nèi)不能都填B,求所有可能的填寫(xiě)方案數(shù)。例如當(dāng)n=3,可能的方案有AAA、AAB、ABA、BAA、BAB等5種。
麗華設(shè)計(jì)如下算法:考慮到方案中只包含了A與B兩個(gè)字母,可以用二進(jìn)制的0和1來(lái)代替(0表示A,1表示B)。當(dāng)全部是0時(shí)最小,此數(shù)0;當(dāng)全部是 1 時(shí)此數(shù)最大。枚舉0到最大數(shù)的每一種情況,逐一判斷是否包含B相連(二進(jìn)制數(shù) 1 相連)情況,符合條件的0、1 轉(zhuǎn)為 A、B后輸出。
根據(jù)以上算法思想,麗華使用 VB程序編寫(xiě)了一個(gè)程序來(lái)解決這個(gè)問(wèn)題。在文本框Text1中輸入n的值,點(diǎn)擊“尋找方案”按鈕 Command1后,在列表框 List1中輸出所有的方案,在標(biāo)簽 Label3 中顯示方案總數(shù)。
(1)如果輸入的n值等于4,那么所有可能的方案有
(2)實(shí)現(xiàn)上述功能的 VB 程序如下,運(yùn)行結(jié)果如圖所示,請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click( )
Dim n As Integer,t As Integer,i As Integer,j As Integer,k As Integer
Dim flag as Boolean,ans As Integer
Dim a(1 To 15)As Integer
n=Val(Text1.Text)
For i=0 To 2^n-1
t=i
For j=1 To n
a(j)=t Mod 2
t=t\2
Next j
flag=True
For k=1 To n-1
If①Then flag=False
Next k
If flag Then②:ans=ans+1
Next i
Label3.Caption=″可能方案共″+Str(ans)+″種″
End Sub
Function GetStr(x As Integer,n As Integer) As String
Dim m As Integer,i As Integer
GetStr=″″
m=x
For i=1 To n
If m Mod 2=0 Then
GetStr=″A″+GetStr
Else
GetStr=″B″+GetStr
End If
③
Next i
End Function組卷:0引用:1難度:0.5