2021年浙江省金華市義烏市高考信息技術(shù)適應(yīng)性試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列關(guān)于信息與信息的加工描述正確的是（ ?。?/h2>
組卷：3引用：2難度：0.6 -
2．下列有關(guān)瀏覽器與網(wǎng)頁的說法，正確的是（ ?。?/h2>
組卷：3引用：2難度：0.7 -
3．使用ACCESS設(shè)計了一個“學生表”，用于存儲如表所示的數(shù)據(jù)：
下列關(guān)于“學生表”描述正確的是（ ?。?/h2>學籍輔號 班級 姓名 性別 選考科目 特長生 202201001 01 王康 男 物地技 是 202201002 01 胡恬 女 化生地 否 202202043 02 徐明明 男 政史地 否 組卷：1引用：2難度：0.5 -
4．下列關(guān)于信息編碼的描述，正確的是（ ?。?/h2>
組卷：8引用：2難度：0.4 -
5．使用Photoshop軟件制作“商貿(mào)義烏”作品，部分界面如圖所示：
下列說法正確的是（ ）組卷：1引用：2難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共23分。）
-
15．在一條寬度為L的直線小河中，一只青蛙想沿著直線從河的左側(cè)跳到右側(cè)。小河中有n片位置互不相同的荷葉，青蛙必須跳到荷葉上過河，否則會掉入水中。開始時青蛙站在河的左側(cè)（坐標為0），接著不停地向右側(cè)跳躍，每次跳躍的距離不超過W，當青蛙跳到或跳過河的右側(cè)（坐標為L）時，青蛙完成過河。
例如當L=20，n=4，W=5，開始時4片荷葉的坐標為3，9，11，17，則至少需要增加2片荷葉，即在坐標8和16分別增加一個荷葉，得到過河的可行方案是0→3→8→9→11→16→17→20。
編寫程序找出青蛙成功過河至少需要增加的荷葉數(shù)，界面如圖b。
請回答以下問題：
（1）若要將列表框List1頂端與窗體頂端的距離設(shè)置為100，能實現(xiàn)該功能的語句是（單選，填字母：A.List1.Height=100/B.List1.Top=100/C.List1.Width=100）。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Form_Load （ ）
'讀取荷葉的位置，并保存到數(shù)組a中
'荷葉的數(shù)量保存在n中
'荷葉坐標和數(shù)量分別顯示在list1和Text2中
End Sub
Private Sub Command1_Click （ ?。?br />Dim a（0 To 100）As Integer
Dim n As Integer,L As Integer,W As Integer,tot As Integer
Dim i As Integer,j As Integer,p As Integer,d As Integer
L=Val（Text1.Text）：n=Val（Text2.Text）：W=Val（Text3.Text）
a（0）=0：a（n+1）=①
For i=1 To n-1
k=i
For j=i+1 To n
If a（k）＞a（j）Then a（j）=a（k）
Next j
If k＜＞i Then
tmp=a（k）：a（k）=a（i）：a（i）=tmp
End If
Next i
For i=1 To n
List1.AddItem a（i）
Next i
p=1：d=0
Do While d＜L
If p＜=n+1 And ②Then
d=a（p）
p=p+1
Else
tot=tot+1
③
End If
Loop
Label4.Caption=“至少需要增加的荷葉數(shù)為：“+Str（tot）
End Sub
（3）程序中加框處代碼有錯，請改正。組卷：1引用：1難度：0.5 -
16．一張骨牌由上下兩行共四個格子構(gòu)成，每個格子有一個1到6之間的數(shù)字?，F(xiàn)在一共有5張骨牌，從左到右排成一排，定義每張骨牌的差值為：骨牌第一行的數(shù)字和減去第二行的數(shù)字和；5張骨牌的差值為：每張骨牌的差值和的絕對值。
如圖a中，5張骨牌的差值為：
|（3+3-4-4）+（6+3-2-5）+（2+3-4-5）+（1+5-3-3）+（1+1-1-1）|=4。
每張骨牌都可以順時針旋轉(zhuǎn)90度，效果如圖b所示?，F(xiàn)在最多可以選擇其中一張骨牌進行旋轉(zhuǎn)，使得旋轉(zhuǎn)后的骨牌差值變小。求一種旋轉(zhuǎn)方案，并輸出骨牌差值的最小值。
編寫VB程序，實現(xiàn)上述功能。運行程序，在文本框Text1中依次輸入5張骨牌上的數(shù)字，單擊“計算”按鈕Command1，在文本框Text2、Text3、Text4中輸出結(jié)果。程序運行界面如圖b所示。
（1）若圖a中第1張骨牌的數(shù)字修改為，1、2、6、6，則骨牌差值的最小值為。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Dim a（1 To 20）As Integer‘依次存儲5張骨牌上的數(shù)字
Dim d（1 To 5）As Integer’依次存儲5張骨牌，上下兩行的差值
Const n=5
Private Sub Form_Load （ ）
'從文本框Text1讀取5張骨牌上的數(shù)字，依次存入數(shù)組a
'a（1）～a（4）依次存儲第一張骨牌從左到右從上到下四個數(shù)字
'a（5）到a（20）依次類推
'代碼略
End Sub
Private Sub Command1_Click （ ）
Dim i As Integer,up As Integer,down As Integer,t As Integer,k As Integer
Dim id As Integer,times As Integer,x As Integer,ans As Integer
For i=1 To n
up=a（4*i-3）+a（4*i-2）
down=a（4*i-1）+a（4*i）
d（i）=up-down
t=t+d（i）
Next i
id=0：times=0
ans=①
If ans＜＞0 Then
k=1
Do While k＜=n
For x=1 To 3
temp=②
If temp＜ans Then
ans=temp
id=k
③
End If
If temp=0 Then Exit Do
Next x
k=k+1
Loop
End If
Text2.Text=CStr（id）
Text3.Text=CStr（times）
Text4.Text=CStr（ans）
End Sub
Function turn（ByVal k As Integer,ByVal x As Integer）As Integer
‘求將第k張骨牌，順時針旋轉(zhuǎn)x次后，上下兩行的差值，代碼略
End Function組卷：1引用：1難度：0.3