2018-2019學(xué)年浙江省湖州市吳興區(qū)菱湖中學(xué)高三（上）月考信息技術(shù)試卷（12月份）
發(fā)布：2024/11/13 18:0:2
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、錯(cuò)選、多選均不得分．）
-
1．下列有關(guān)信息的說法錯(cuò)誤的是（ ?。?/h2>
組卷：18引用：2難度：0.9 -
2．關(guān)于網(wǎng)頁與網(wǎng)絡(luò)應(yīng)用術(shù)語縮寫，下列說法不正確的是（ ?。?/h2>
組卷：0引用：2難度：0.4 -
3．使用Word軟件編輯某文檔，部分界面如圖所示。
下列說法正確的是（ ）組卷：9引用：4難度：0.5 -
4．使用 Access 軟件創(chuàng)建一張數(shù)據(jù)表，其設(shè)計(jì)視圖如圖所示。
下列說法正確的是（ ?。?/h2>組卷：11引用：3難度：0.4 -
5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，變量x和Flag的值分別是（ ?。?/h2>組卷：9引用：11難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．有一組正整數(shù)，要求對其中的數(shù)據(jù)進(jìn)行排列，排列后奇數(shù)在前，偶數(shù)在后。其中最后一個(gè)數(shù)據(jù)排到奇數(shù)與偶數(shù)交接處；自前到后的第一個(gè)偶數(shù)排到最后一個(gè)位置，空出的位置排列自后向前的第一個(gè)奇數(shù)，依此類推。排序示例如下。
實(shí)現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯(cuò)，請改正。排序前 71 85 64 55 42 62 33 17 34 30 排序后 71 85 17 55 33 30 62 42 34 64
Const n=10
Dim a（1 To n） As Integer
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer
Dim temp As Integer,flag As Boolean
'讀取一組正整數(shù)，存儲在數(shù)組 a 中，代碼略
i=1：j=n
temp=a（j）：flag=True
Do While i＜j
If flag Then
If
=0 Then
a（j）=a（i）
j=j-1
flag=Not flag
Else
j=j-1'（1）
End If
If a（j） Mod 2=1 Then
a（i）=a（j）
flag=Not flag
Else
j=j-1
End If
End If
Loop
a（i+j）=temp'（2）
'依次輸出排序后的數(shù)據(jù)，代碼略。
End Sub組卷：0引用：1難度：0.3 -
17．n堆金幣，把兩堆金幣合并到一起，n堆金幣經(jīng)過n-1次合并之后就只剩下一堆了。如何消耗最少的體力，把這n堆金幣合并成一堆？合并所消耗的體力等于每次合并兩堆金幣的重量之和。比如，n=3時(shí)表示共有3堆金幣，每堆重量分別是2、1、9．一種合并方案是2和9合并，新堆重量是11，消耗體力為11；接著11和1合并，新堆重量是12，消耗體力為12，因此總消耗體力是11+12=23．另一種方案是：1和2合并，新堆重量是3，消耗體力為3；接著3和9合并，新堆重量是12，消耗體力為12，因此總消耗體力是3+12=15．可以證明這就是最少消耗體力。
小張經(jīng)分析，每次n堆金幣如果都是從小到大，將前兩堆合并成新一堆，然后，繼續(xù)進(jìn)行從小到大排序，如此合并成最后一堆，此時(shí)消耗體力最少，為此他編寫了一個(gè)解決上述問題，求最少體力的VB程序，功能如下：窗體加載時(shí)，自動讀取n堆金幣的數(shù)據(jù)，依次存儲在數(shù)組元素a（1）、a（2）、a（3）…中，金幣堆數(shù)存儲在變量n中，n堆金幣的重量數(shù)據(jù)顯示在列表框List1中。單擊“求解”按鈕Command1，程序?qū)堆金幣進(jìn)行合并處理，消耗最少的體力顯示在文本框Text1中。程序運(yùn)行界面如第17題圖所示。
（1）如果有5堆金幣，每堆重量分別是12、8、5、9、15，則將這5堆金幣合并成一堆金幣，最少消耗體力是。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼。
Const n=10
Dim i As Integer,j As Integer,t As Integer
Dim a（1 To n） As Integer
Private Sub Form_Load （ ）
'本過程用于讀取n堆的數(shù)據(jù)并存儲在數(shù)據(jù)a中
'代碼略
End Sub
'sort（x）過程的功能是對a（x）、a（x+1）、……、a（n）中的數(shù)進(jìn)行從小到大排序
Private Sub sort（x As Integer）
For i=To n-1
For j=n To i+1 Step-1
If a（j）＜a（j-1）Then
t=a（j）：a（j）=a（j-1）：a（j-1）=t
End If
Next j
Next i
End Sub
Private Sub Command1_Click （ ）
Dim sum As Integer,k As Integer
sum=0
sort （1）
For k=1 To n-1
a（k+1）=a（k）+a（k+1）
sum=sum+
sort （）
Next k
Text1．Text=Str（sum）
End Sub組卷：0引用：1難度：0.5