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