2020-2021學(xué)年浙江省湖州市高二（下）期末信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、錯(cuò)選、多選均不得分）
-
1．下列有關(guān)信息和信息技術(shù)的說法，正確的是（ ?。?/h2>
組卷：9引用：1難度：0.7 -
2．下列有關(guān)網(wǎng)頁和瀏覽器的說法，正確的是（ ?。?/h2>
組卷：1引用：1難度：0.7 -
3．使用 Access 軟件設(shè)計(jì)一個(gè)數(shù)據(jù)表，存儲如圖所示的學(xué)生消費(fèi)記錄數(shù)據(jù)。下列表結(jié)構(gòu)設(shè)計(jì)合理的是（ ）
序號 學(xué)籍號 姓名 金額 消費(fèi)窗口 日期 是否住校 1 HZ20201121 沈宵陽 ￥11.50 9 2021/5/17 是 2 HZ20180113 王加娜 ￥9.50 11 2021/5/17 否 3 HZ20200603 張顥琎 ￥12.00 3 2021/5/18 否 … … … … … … … 組卷：1引用：1難度：0.7 -
4．使用 UltraEdit 軟件觀察字符“2020，武漢加油!”的內(nèi)碼，部分界面如圖所示。下列說法正確的是（ ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/202108/44/33c482b5.png" style="vertical-align:middle" />
組卷：13引用：1難度：0.3 -
5．使用GoldWave軟件編輯某音頻文件，部分界面如圖所示，下列說法正確的是（ ?。?br />
組卷：1引用：1難度：0.4
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．某夏令營按兩門考試科目總分從高分到低分依次錄取學(xué)生。如果錄取學(xué)生的最后一名出現(xiàn)有總分并列的情況，則并列的學(xué)生全部錄取。編寫VB程序?qū)崿F(xiàn)以上功能，程序運(yùn)行時(shí)在列表框List1中顯示全部學(xué)生的信息，在文本框Text1中輸入計(jì)劃招生人數(shù)，點(diǎn)擊“錄取”按鈕Command1后，在列表框List2中輸出錄取的學(xué)生信息，并在標(biāo)簽Label1上顯示最終錄取的人數(shù)。程序運(yùn)行界面如圖所示。
請回答下列問題：
（1）如圖所示，按鈕Command1上顯示的“錄取”是該按鈕對象的（單選，填字母：A.對象名/B.屬性名/C.方法名/D.屬性值）
（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼。
（3）程序中加框處代碼有錯(cuò)，請改正。
Cons tnum=15
Dim xm（num） As String
Dim km1（num） As Integer,km2（num）As Integer
Private Sub Form_Load
'讀取num個(gè)學(xué)生的姓名、科目1、科目2的成績，分別存儲到數(shù)組xm、km1、km2。'在列表框List1中輸出所有學(xué)生的姓名與成績，代碼略。
End Sub
Private Sub Command1_Click
Dim rs As Integer,count As Integer,flag As Boolean
Dim i As Integer,j As Integer,t As Integer,tmp As String
rs=Val（Text1-Text）
List2.AddItem“姓名 科目1 科目2“
count=0：i=1
Do While
And flag
For j=num-1 To i Step-1
IfThen
tmp=xm（j）：xm（j）=xm（j+1）：xm（j+1）=tmp
t=km1（j）：km1（j）=km1（j+1）：km1（j+1）=t
t=km2（j）：km2（j）=km2（j+1）：km2（j+1）=t
End If
Next j
flag=False
If i＜=num Or km1（i）+km2（i）=km1（i-1）+km2（i-1）Then
count=i
flag=True
End If
i=i+1
Loop
For i=1 To count
List2.AddItemxm（i）+““+Str（km1（i））+““+Str（km2（i））
Next i
Label1.Caption=“共錄取學(xué)生“++“人“
End Sub組卷：0引用：1難度：0.3 -
16．有一個(gè)木棒游戲，探究在一堆木棒中取4根木棒組成一個(gè)正三角形的取法數(shù)量（三角形其中一邊由兩根木棒組成，長度相同的不同木棒算不同的方案）。如果取出長度為a,b,c,d（a＜=b＜c=d）的四根木棒能構(gòu)成正三角形，那么a+b=c=d。算法如下：
（1）枚舉兩根短的木棒a和b；
（2）當(dāng)a＜＞b時(shí)，組合的數(shù)量=長度為a的木棒根數(shù)×長度為b的木棒根數(shù)×長度為（a+b）的木棒取兩根的取法數(shù)量；
（3）當(dāng)a=b時(shí)，組合的數(shù)量=長度為a的木棒取兩根的取法數(shù)量×長度為（a+b）的木棒取兩根的取法數(shù)量。
如木棒長度分別為“1，1，2，2，3，3”，當(dāng)a=1，b=2時(shí)，則c=d=3，該情況的組合數(shù)量=（長度為1的根數(shù)）*（長度為2的根數(shù)）*（長度為3的根數(shù)取兩根的取法數(shù)量）=2*2*1=4。長度為3的根數(shù)取兩根的取法數(shù)量，即C2。
程序運(yùn)行界面如圖所示，在文本框Text1輸入一堆木棒的長度，以逗號間隔，點(diǎn)擊“計(jì)算”按鈕Command1后在標(biāo)簽Label1顯示方案總數(shù)。
請回答下列問題：
（1）在文本框Text1中輸入“2，3，3，6，6，6，7，”，能構(gòu)成正三角形的取法數(shù)量是（填數(shù)字）
（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click
Dim tmax As Integer,ans As Integer,k As Integer
Dim i As Integer,a As Integer,b As Integer,tmp As Integer
Dim c As String,s As String
Dim t （20）As Integer
'儲存相同長度木棒的數(shù)量，如t（5）的值是長度為5的木棒的數(shù)量
s=Text1.Text
tmp=0：k=0
ans=0：tmax=0
For i=1 To Len（s）
c=Mid（s,i,1）
If c=“，“Then
k=k+1
t（tmp）=
If tmp＞tmax Then tmax=tmp
tmp=0
Else
tmp=tmp*10+Val（c）
End If
Next i
For a=1 To tmax\2'枚舉兩根短的木棒
For b=a To tmax
If a+b＞tmax Or t（a）*t（b）*t（a+b）=0 Then Exit For
IfThen
ans=ans+js（t（a），2）*js（t（a+b），2）
Else
ans=ans+js（t（a），1）**js（t（a+b），2）
End If
Next b
Next a
Label1.Caption=“共有“+Str（ans）+“種方案“
End Sub
Function js（x As Integer,y As Integer）As Integer
'計(jì)算在x個(gè)對象中取y個(gè)對象的組合數(shù)量，即Cy
'代碼略。
End
Function組卷：1引用：1難度：0.3