2020-2021學(xué)年浙江省紹興市上虞區(qū)高二(下)期末信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,不選、錯(cuò)選、多選均不得分。)
-
1.下列關(guān)于信息與信息處理的說法,錯(cuò)誤的是( )
組卷:5引用:2難度:0.6 -
2.下列關(guān)于瀏覽器和網(wǎng)頁的說法,正確的是( )
組卷:0引用:1難度:0.7 -
3.使用Access軟件設(shè)計(jì)校園體溫記錄系統(tǒng)的數(shù)據(jù)庫,其中已建好“體溫記錄”數(shù)據(jù)表用于存儲(chǔ)如表所示的數(shù)據(jù)。
學(xué)號(hào) 姓名 班級(jí) 日期 體溫 是否住宿 20200510 陳怡 高一(5)班 2021.6.30 36℃ 是 20180101 沈佳森 高三(1)班 2021.6.31 36.3℃ 否 20190302 張國浩 高二(3)班 2021.6.32 36.1℃ 是 … … … … … … 組卷:0引用:1難度:0.4 -
4.下列關(guān)于計(jì)算機(jī)信息編碼的描述,正確的是( )
組卷:9引用:3難度:0.4 -
5.用Photoshop軟件制作“勇攀高峰”作品,在“生命不息運(yùn)動(dòng)不止”圖層輸入文字“生命不息 運(yùn)動(dòng)不止”,相關(guān)編輯界面如圖所示,下列描述正確的是( ?。?br />
組卷:1引用:1難度:0.4
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分。)
-
15.小明設(shè)計(jì)了一個(gè)算法,來實(shí)現(xiàn)10個(gè)11-99之間隨機(jī)數(shù)字的升序排序,并去掉重復(fù)數(shù)字。程序設(shè)計(jì)思想如下:a(1)~a(10)用于存放原數(shù)據(jù),b(1)~b(num) 用于存放排序完成后的結(jié)果,對(duì)于每個(gè)待排數(shù)字a(i),先在b數(shù)組中查詢是否存在,如不存在,則放入到b數(shù)組中。程序運(yùn)行界面如圖所示。
VB代碼實(shí)現(xiàn)如下:
Const n=10
Dim a(1 To 100)As Integer
Dim b(1 To 100)As Integer
Private Sub Form_Load( ?。?br />’隨機(jī)生產(chǎn)10個(gè)11-99之間的數(shù)字,并依次存儲(chǔ)在數(shù)組a中,代碼略
End Sub
Private Sub Command1_Click( )
Dim num As Integer,L As Integer,R As Integer,i As Integer
Dim m As Integer,f As Boolean
num=1:b(1)=a(1)
For i=2 To n
b(num+1)=a(i)+1
f=False
For j=1 To num+1
If a(i)<b(j) Then
Exit For
ElseIf a(i)=b(j) Then
①
End If
Next j
If Not f Then
For k= j+1 To num
b(k+1)=b(k)
Next k
②
num=num+1
End If
Next i
根據(jù)如上代碼,請(qǐng)回答下列問題:
(1)若要清除文本框Text1中的內(nèi)容,能實(shí)現(xiàn)該功能的語句是
(單選,填字母:A.Text1.clear/B.Text1.Text=““/C.Text1.Caption=““)
(2)請(qǐng)?jiān)跈M線處填上合適的代碼。
(3)程序中橫線處代碼有錯(cuò),請(qǐng)改正。組卷:2引用:1難度:0.3 -
16.小王計(jì)劃使用VB制作一個(gè)掃雷小游戲,他首先需要生成一個(gè)“雷區(qū)”:
①生成n*n的矩陣,其中計(jì)劃埋雷m 個(gè),n和m 的數(shù)據(jù)分別從text1和text2中獲?。╪<=10,m<=n)
②隨機(jī)位置埋好地雷后(埋雷位置用X表示且埋雷位置不重復(fù)),未埋雷的位置顯示該位置周圍一圈地雷的數(shù)量。
程序代碼如下:
Dim flag(0 To 200)As Boolean,a(0 To 200)As String
Dim n As Integer,m As Integer
Private Sub Command1_Click
Dim s As String,x As Integer,k As Integer
Dim i As Integer,j As Integer
Randomize
n=Val(Text1.Text):m=Val(Text2.Text)
’初始化數(shù)組flag中各元素均為False,數(shù)組 a中各元素值為字符“0“,代碼略
For i=1 To m
x=Int(Rnd*(n^2))+1
If flag(x)=True Then i=i-1 Else flag(x)=True
Next i
For k=1 To n*n
If flag(k)=True Then
a(k)=“X“
Else
For i=(k-1)\n To (k-1)\n+2
For j=
If i=0 Then Exit For
If flag((i-1)*n+j)=True And j>=1 And j<=n Then
a(k)=
End If
Next j
Next i
End If
Next k
For i=1 To n*n’在列表框list1中輸出矩陣
s=s+““+a(i)
If
List1.AddItem s
s=““
End If
Next i
End Sub
根據(jù)上述代碼,完成下列問題:
(1)上圖框中位置未埋雷,且數(shù)字被遮擋,請(qǐng)問該位置中應(yīng)填寫的數(shù)字是
(2)請(qǐng)?jiān)跈M線處填上合適的代碼。組卷:0引用:1難度:0.3