2020-2021學年浙江省紹興市諸暨中學高二（上）期中信息技術試卷
發(fā)布：2024/12/18 15:0:2
一、選擇題（本大題共12小題，每小題0分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列有關信息與信息處理的說法，正確的是（ ?。?/h2>
組卷：2引用：1難度：0.6 -
2．下列有關網頁與瀏覽器的說法，正確的是（ ?。?/h2>
組卷：0引用：3難度：0.6 -
3．用 Access 軟件設計某學生管理系統(tǒng)的數(shù)據(jù)庫，“學生表”中需儲存如圖所示的數(shù)據(jù)，其中學籍號是每位學生唯一的 12 位編碼。
下列對“學生表”表結構設計合理的是（ ?。?/h2>學號 姓名 性別 出生年份 戶籍所在地 注冊日期 是否住校 201802001 張立 男 2003 杭州市江干區(qū) 2018/8/31 是 201901001 李紅 女 2004 杭州市西湖區(qū) 2019/9/1 否 … … … … … … … 組卷：0引用：1難度：0.4 -
4．現(xiàn)要計算出 a、b 之間（包含 a、b）3 的倍數(shù)的個數(shù)，下列 VB 表達式正確的是（ ?。?/h2>
組卷：0引用：2難度：0.5 -
5．某算法的部分流程圖如圖所示，若要循環(huán)體執(zhí)行 3 次，則判斷框處應填寫（ ?。?br />
組卷：0引用：1難度：0.4
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題7分，第15小題7分，第15小題8分，共26分）
-
15．最大整數(shù)問題：設有 n 個隨機生成的正整數(shù)，將它們連接成一排，組成一個最大的多位整數(shù)。其求解 思想是：先把整數(shù)轉換成字符串，然后再比較 a+b 和 b+a,如果 a+b＞b+a,就把 a 排在 b 的前 面，反之則把 b 排在 a 的前面。
例如：n=3 時，3 個整數(shù) 13，312，343，連成的最大整數(shù)為 34331213。
靜靜編寫了一個 VB 程序，功能如下：在列表框 List1 中隨機生成 n 個 1～1000 之間的整數(shù)，單擊“求解”按鈕 Command1 后，最大整數(shù)輸出在文本框 Text1 中。當 n 等于 4 時，程序運行界面如圖所示。
實現(xiàn)上述功能的 VB 程序如下，請回答下列問題：
（1）當 n=3 時，3 個數(shù)：517，571，57，由這三個數(shù)組成的最大整數(shù)為。
（2）請在橫線處填入合適的代碼。
Const n=4
Dim a（1 To n） As Integer
Dim i As Integer,j As Integer Dim t As Integer,k As Integer Private Sub Form_Load
Randomize
For i=1 To n
a（i）=①'生成 1～1000 之間的隨機整數(shù)
List1.AddItem“a（“+CStr（i）+“）=“+CStr（a（i））
Next i End Sub
Function cmp（a As Integer,b As Integer） As Boolean
If CStr（a）+CStr（b）＜CStr（b）+CStr（a） Then
cmp=True
Else
cmp=False
End If
End Function
Private Sub Command1_Click
For i=1 To n-1
k=i
For j=i+1 To n
If ②Then k=j
Next j
If ③Then t=a（k）：a（k）=a（i）：a（i）=t
Next i
For i=1 To n
Text1.Text=Text1.Text+CStr（a（i））
Next i End Sub組卷：0引用：1難度：0.3 -
16．某班級學生為畢業(yè)晚會的一個男生節(jié)目設計一個仿“V”字隊形，先篩選出班級里所有男生，然后將 參演的所有男生按照身高，擺出中間低兩邊高（先右后左）的隊形，如圖 1 所示。
小孟同學用 VB 編寫模擬“節(jié)目隊形”程序，功能如下：從數(shù)據(jù)庫中導入所有學生的編號、性別和 身高數(shù)據(jù)；單擊“篩選并排序”Command1 按鈕，篩選出所有男生的身高并按照從低到高的順序進行排序，結果顯示在文本框 Text1 中；單擊“設計隊形”Command2 按鈕，隊形的編號結果顯示在文本框 Text2 中。程序運行界面如圖 2 所示。
舉例說明如下：
實現(xiàn)上述功能的 VB 程序如下，請回答下列問題：
（1）請在橫線處填入合適的代碼。
①
②
③
（2）程序代碼中，加框處有錯，請改正。
改正：
Const n=8
Dim h（1 To n） As Integer,num1（1 To n） As Integer,num2（1 To n） As Integer Dim sex（1 To n） As Boolean'男生 sex=True,女生 sex=False
Dim i As Integer,j As Integer,m As Integer Private Sub Form_Load _____
'n 名學生（包括男生和女生）的編號、性別和身高由數(shù)據(jù)庫導出，分別存儲在數(shù)組 num1、h 和 sex 中，代碼略!End Sub
Private Sub Command1_Click ____ For i=1 To n-1
For j=n To i+1 Step-1
If sex（j）=True Then
If ①Then
t=h（j）：h（j）=h（j-1）：h（j-1）=t
t=sex（j）：sex（j）=sex（j-1）：sex（j-1）=t
t=num1（j）：num1（j）=num1（j-1）：num1（j-1）=t
End If
End If
Next j Next i
For i=1 To n
If sex（i） Then
Text1.Text=Text1.Text+““+Str（h（i））
End If
If Not sex（i） Then m=i：Exit For'改錯
Next i
End Sub
Private Sub Command2_Click _____
Dim L，R As Integer,mid As Integer
mid=Int（（1+m）/2）L=0：R=0
②For i=2 To m Step 2
R=R+1
num2（mid+R）=num1（i）
L=L+1
③Next i
For i=1 To m
Text2.Text=Text2.Text+“男“+CStr（num2（i））+“號“Next i
End Sub組卷：0引用：1難度：0.3