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