資源簡介

(
…………○…………外…………○…………裝…………○…………訂…………○…………線…………○…………
) (
※※請※※不※※要※※在※※裝※※訂※※線※※內※※答※※題※※
) (
…………○…………內…………○…………裝…………○…………訂…………○…………線…………○…………
)
登陸二一教育在線組卷平臺 助您教考全無憂
浙江省之江教育評價2020-2021學年高二下學期信息技術期中聯考試卷
一、選擇題(本大題共12小題，每小題2分，共24分 每小題列出的四個備選項中只有一個是符合題目要求的，不選 多選 錯選均不得分 )
1.（2021高二下·浙江期中）以下關于信息及信息技術的描述正確的是（ ）
A. 信息的表示、傳播、存儲不一定依附于某種載體
B. 信息不能脫離它所反映的事物被存儲、保存和傳播
C. 信息技術是伴隨著計算機和互聯網技術的發展而誕生的
D. 近代信息技術包括攝影技術、電影技術、廣播和電視技術等
【答案】 D
【考點】信息及其特征，信息技術的概念與關鍵技術
【解析】
2.（2021高二下·浙江期中）用IE瀏覽一個圖文并茂的網頁，地址欄信息為“http://www.zjfc.com/default.html”。下列描述正確的是（ ）
A. HTTP用于描述網頁上的元素，可使用瀏覽器對網頁進行編輯
B. 網頁中圖像、聲音、視頻、動畫都保存在default.html文件中
C. 超鏈接能實現不同網站網頁間的鏈接，每個網頁都有獨一無二的URL
D. HTML用于瀏覽器與Web服務器之間的信息傳輸，訪問萬維網上的網頁需要遵守該協議
【答案】 C
【考點】網絡協議，網址與統一資源定位器，常用的網頁編輯與制作工具
【解析】
3.（2021高二下·浙江期中）使用Access軟件打開數據庫，部分界面如下圖所示，下列說法正確的是（ ）
A. 當前打開的數據庫文件名是“學生基本信息.accdb”
B. 在當前記錄前插入一條記錄，總記錄數變為 2305
C. 可在表視圖中刪除當前數據表的所有字段
D. 若“學籍號”字段為主鍵，則該字段的值不能為空
【答案】 D
【考點】數據表、字段、記錄的編輯，數據表視圖與設計視圖
【解析】
4.（2021高二下·浙江期中）使用UltraEdit軟件觀察字符“2021 JX建黨百年”的內碼，部分界面如圖所示。
下列說法正確的是（ ）
A. 字符“2”的內碼占兩個字節 B. 字符“X”的十六進制碼是“4A”
C. 字符“j”的二進制碼是“01001010” D. 圖中有8個ASCII碼字符
【答案】 D
【考點】進制及數制轉換，字符編碼
【解析】
5.（2021高二下·浙江期中）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。
下列說法正確的是 （ ）
A. 當前音頻文件1秒鐘的數據量約為176KB
B. 執行“刪除”操作后，音頻文件時長變為12秒
C. 執行“靜音”操作后，整個左聲道的音頻將無法聽到
D. 當前狀態下通過“插入靜音”操作插入10秒靜音，音頻文件的容量不變
【答案】 A
【考點】聲音素材的基本處理
【解析】
6.（2021高二下·浙江期中）下圖Flash編輯界面中，“music”圖層里的聲音素材是采樣頻率為32kHz、量化位數為16bit、雙聲道未經壓縮的Wave格式音頻文件。場景動畫播放到當前幀時聲音素材剛好完整地播放了一遍。則該聲音素材的存儲容量約為（ ）
A. 125KB B. 250KB C. 500KB D. 1000KB
【答案】 B
【考點】聲音、圖像、視頻編碼
【解析】
7.（2021高二下·浙江期中）若x是能被7整除的正整數，下列表達式一定成立的是（ ）
① x mod 7=0 ② x\7=0 ③ Int(x/7)=x/7 ④ x/7=x\7
A. ①② B. ①③④ C. ①②④ D. ①③
【答案】 B
【考點】運算符、基本運算與表達式
【解析】
8.（2021高二下·浙江期中）某算法的流程圖如圖所示。執行這部分流程，若輸入s的值為“schoolxzzx”,則程序結束后變量c和i的值為（ ）
A. “z”,8 B. “x”,7 C. “z”,7 D. “x”,8
【答案】 A
【考點】流程圖識讀
【解析】
9.（2021高二下·浙江期中）有兩個字符串s1、s2（s2中字符不重復），若s2中的字符按順序在s1中依次出現，則稱s2是s1的子串。例：s1="acde"，s2="ce"，則s2是s1的子串。實現該功能的VB程序段如下：
s1 = Text1.Text: s2 = Text2.Text
i = 1: j = 1
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) = Mid(s2, j, 1) Then
Loop
If Then Label1.Caption = "是子串" Else Label1.Caption = "不是子串"
方框處的可選語句為：
①i = i + 1 ②j = j + 1 ③i > Len(s2) ④j > Len(s2)
以下選項正確的是（ ）
A. ①②③ B. ①②④ C. ②①③ D. ②①④
【答案】 D
【考點】分支結構語句及程序實現，循環結構語句及程序實現
【解析】
10.（2021高二下·浙江期中）有如下VB程序段：
s = "spring winter"：s1 = ""
n = Len(s)
For i = 1 To n \ 2
If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then s1 = s1 + Mid(s, i, 1)
Else
s1 = Mid(s, n - i + 1, 1) + s1
End If
Next i
Text1.Text = s1
執行該程序后，在文本框Text1中顯示的是 （ ）
A. wprtnr B. sptnnw C. rtwprn D. wntspn
【答案】 D
【考點】程序的調試及運行
【解析】
11.（2021高二下·浙江期中）采用冒泡排序算法對某數據序列進行排序，經過第一輪排序后的結果是“2,8,3,6,7,5,9”，那么原數據序列不可能的是（ ）
A. 8,3,6,7,5,2,9 B. 8,3,6,7,2,5,9 C. 2,8,3,9,6,7,5 D. 8,3,6,7,2,9,5
【答案】 C
【考點】排序算法及程序實現
【解析】
12.（2021高二下·浙江期中）有一個整數數列（長度為n），數值的規律為先升序，后相等，最后降序。如3,6,18,18,10,9,8,7,5，現要找到升序的終點位置，即第一個18所在的位置3，將數列依次存入數組a，部分程序如下：
i=1: j=n
Do While i<=j
m=(i +j)\2
If Then
i= m+1
Else
j=m- 1
EndIf
Loop
Text1.Text=
若要實現上述功能，方框處的代碼應是（ ）
A. a(m - 1) <= a(m) Str(j) B. a(m - 1) < a(m) Str(j)
C. a(m - 1) <= a(m) Str(i) D. a(m - 1) < a(m) Str(i)
【答案】 B
【考點】排序算法及程序實現
【解析】
二、非選擇題(本大題共4小題；4+8+7+7；共26分 )
13.（2021高二下·浙江期中）王老師收集了學校高一英語周競賽的數據，并使用Excel軟件對數據進行處理，如圖a所示。
圖a
（1）.如圖a所示，高一01班總分平均Y4單元格的公式為 。
（2）.需要找出年級排名前十的同學頒獎，以下方法可行的有 （多選，填字母）。
A. 對“總分”列數據進行升序排序后，在最前面取年級排名前十的同學
B. 對“年級排名”列數據進行升序排序，在最前面取年級排名前十的同學
C. 按“總分”進行篩選，選擇“10個最大的值”并顯示最大的10項
D. 按“年級排名”進行篩選，選擇“10個最大的值”并顯示最大的10項
（3）.根據圖a中數據制作的圖表如圖b所示，創建該圖表的數據區域是 。
圖b
【答案】 （1）=AVERAGE(I3:I54)
（2）B,C
（3）M4:M11, Y4:Y11
【考點】表格數據的處理與計算，圖表實現數據可視化
【解析】
14.（2021高二下·浙江期中）小明制作主題為“浙江名人館—金庸”的多媒體作品。首先使用Photoshop軟件處理圖像，然后使用Flash軟件制作動畫作品。請回答下列問題：
（1）.處理圖像的部分界面如圖a所示。下列說法正確的有 （多選，填字母）。
圖a
A. 將“金庸.psd”文件存儲為JPG格式后，JPG文件不可見“邊框”圖層的“描邊”效果
B. 用油漆桶工具修改“俠之大者 為國為民”圖層的文字顏色
C. 用濾鏡為“浙江名人館”圖層添加特效
D. 用“文字工具”修改“金庸”圖層的字體
E. 將“底紋”圖層移動到“對聯”圖層的上方
F. 對“背景”圖層添加圖層樣式
（2）.制作動畫作品的部分界面如圖b所示。觀察界面可知當前庫中有 類元件。
（3）.觀察圖b可知“對聯”圖層中補間的類型為 （選填：動畫 / 形狀）。
圖b
（4）.要使“對聯”圖層的補間動畫只在當前場景的最后1秒播放，可做的調整是 。
（5）.“按鈕”圖層最后1幀上設置了停止動畫播放的動作腳本。在“導航”按鈕上添加動作腳本，單擊該按鈕，動畫將轉到下一場景第1幀并播放，實現此功能的動作腳本為 （多選，填字母）。
A. on(release){play();} B. on(press){gotoAndPlay(1);}
C. on(release){gotoAndPlay("導航",1);} D. on(press){getURL("導航",1); play();}
E. on(release){gotoAndStop("導航",1);play();}
【答案】 （1）A,E
（2）2
（3）動畫
（4）將“對聯”圖層補間動畫的起始關鍵幀移動到該圖層第49幀 或其他同價答案
（5）A,C,D
【考點】圖片加工常用工具的使用，圖層及圖層的基本操作，動畫的類型，元件的類型與應用，常用影片控制函數的應用
【解析】
15.（2021高二下·浙江期中）找出一個隨機數列（長度為n）中的最長非降序段，計算其長度。非降序段中如果存在連續相等的數，則忽略，如非降序段2,3,4,4,5，長度計為4。
編寫如下VB程序，實現上述功能。運行程序，在文本框Text1中輸入隨機數列“19,21,3,5,18,18,18,23,25,10,11,12,17,17,7”，單擊“統計”按鈕，在文本框Text2中輸出5。
程序運行界面如圖所示。
（1）觀察程序界面，窗體中至少包含________個對象。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim a(1 To 100) As Integer '數組a依次存放數列中的數Dim n As Integer
Private Sub Command1_Click( )
Dim i As Integer, k As Integer, max As Integer, t As Integer Dim s As String, ch As String
s = Text1.Text n = Len(s)
i = 1: k = 1
Do While i <= n
ch = Mid(s, i, 1)
If ch <> "," Then ________ Else k = k + 1 i = i + 1
Loop
i = 1: max = 0
Do While i <= k
t =________
If t > max Then max = t i = i + t
Loop
Text2.Text = Str(max)
End Sub
Function length(p As Integer) As Integer '函數功能是計算a(p)開始的非降序段長度
Dim j As Integer, c As Integer
j = p: c = 1
Do While j <= n – 1
If Then
If a(j) < a(j + 1) Then c = c + 1 Else
Exit Do
End If
j = j + 1
Loop
length = c
End Function
（3）程序加框處代碼有錯，請改正。
【答案】 （1）4
（2）a(k) = a(k) * 10 + Val(ch) 或a(k)=val(str(a(k)&ch))；length(i)
（3）a(j) <= a(j + 1)
【考點】過程與自定義函數
【解析】
16.（2021高二下·浙江期中）一名商人在A地采購了n噸大米（n<=150），需要船只運送到B地。現在碼頭上停靠著10艘船，載重量在15到30噸之間且均不相同，同時運費單價（單位：元/噸）也存在差異。為了找出運費總數最少的方案，該商人先將10艘船的運費單價從小到大排序，若船只運費單價相同，則按船只載重量大到小排序。上述步驟完成后，將n噸大米依次裝入排好序的船只中，若最后一只船裝不滿，則按實際裝運大米的重量付運費。程序運行界面如16題圖所示：單擊“排序”按鈕后，船只信息按照要求排序并在列表框List1中輸出；在文本框Text1中輸入大米總數n噸，單擊“計算”按鈕，將在列表框List2中列出所選船只編號，并在文本框Text2中顯示運費總數。
（1）若圖中7號船的載重量由“28”改為“22”，現有60噸大米需要運送，則該商人應選擇的船只編號為 ________（若有多個編號，用“，”隔開）
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim yf(1 To 10) As Integer, v(1 To 10) As Integer, b(1 To 10) As Integer
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer, t As Integer
List1.AddItem "船只編號" + " " + "載重量" + " " + "運費單價" List2.AddItem "船只編號"
For i = 1 To 10 '對船只進行編號
b(i) = i
Next i
'隨機生成10艘船的運費單價，數值在100到200之間，代碼略
For i = 1 To 10 '隨機生成10艘船載重量，載重量均不相同
v(i) = 15 + Int(Rnd() * 16)
For j = 1 To i - 1
If v(i) = v(j) Then________ : Exit For
Next j
Next i
For i = 1 To 9
For j = 10 To i + 1 Step -1
If________ Then
t = b(j): b(j) = b(j - 1): b(j - 1) = t
End If
Next j
Next i
'在list1中輸出10艘船的編號、載重量、運費單價，代碼略
End Sub
Private Sub Command2_Click()
Dim n As Integer, k As Integer
Dim sum As Long
n = Val(Text1.Text): sum = 0 k = 1
Do While n > 0
If n >= v(b(k)) Then
________
Else
sum = sum + n * yf(b(k))
End If
List2.AddItem Str(b(k)) n = n - v(b(k))
k = k + 1
Loop
Text2.Text = Str(sum)
End Sub
【答案】 （1）5,3,1
（2）i = i - 1；yf(b(j)) < yf(b(j - 1)) Or yf(b(j)) = yf(b(j - 1)) And v(b(j)) > v(b(j - 1))；sum = sum + yf(b(k)) * v(b(k))
【考點】排序算法及程序實現
【解析】
1 / 1(
…………○…………外…………○…………裝…………○…………訂…………○…………線…………○…………
) (
※※請※※不※※要※※在※※裝※※訂※※線※※內※※答※※題※※
) (
…………○…………內…………○…………裝…………○…………訂…………○…………線…………○…………
)
登陸二一教育在線組卷平臺 助您教考全無憂
浙江省之江教育評價2020-2021學年高二下學期信息技術期中聯考試卷
一、選擇題(本大題共12小題，每小題2分，共24分 每小題列出的四個備選項中只有一個是符合題目要求的，不選 多選 錯選均不得分 )
1.（2021高二下·浙江期中）以下關于信息及信息技術的描述正確的是（ ）
A. 信息的表示、傳播、存儲不一定依附于某種載體
B. 信息不能脫離它所反映的事物被存儲、保存和傳播
C. 信息技術是伴隨著計算機和互聯網技術的發展而誕生的
D. 近代信息技術包括攝影技術、電影技術、廣播和電視技術等
2.（2021高二下·浙江期中）用IE瀏覽一個圖文并茂的網頁，地址欄信息為“http://www.zjfc.com/default.html”。下列描述正確的是（ ）
A. HTTP用于描述網頁上的元素，可使用瀏覽器對網頁進行編輯
B. 網頁中圖像、聲音、視頻、動畫都保存在default.html文件中
C. 超鏈接能實現不同網站網頁間的鏈接，每個網頁都有獨一無二的URL
D. HTML用于瀏覽器與Web服務器之間的信息傳輸，訪問萬維網上的網頁需要遵守該協議
3.（2021高二下·浙江期中）使用Access軟件打開數據庫，部分界面如下圖所示，下列說法正確的是（ ）
A. 當前打開的數據庫文件名是“學生基本信息.accdb”
B. 在當前記錄前插入一條記錄，總記錄數變為 2305
C. 可在表視圖中刪除當前數據表的所有字段
D. 若“學籍號”字段為主鍵，則該字段的值不能為空
4.（2021高二下·浙江期中）使用UltraEdit軟件觀察字符“2021 JX建黨百年”的內碼，部分界面如圖所示。
下列說法正確的是（ ）
A. 字符“2”的內碼占兩個字節 B. 字符“X”的十六進制碼是“4A”
C. 字符“j”的二進制碼是“01001010” D. 圖中有8個ASCII碼字符
5.（2021高二下·浙江期中）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。
下列說法正確的是 （ ）
A. 當前音頻文件1秒鐘的數據量約為176KB
B. 執行“刪除”操作后，音頻文件時長變為12秒
C. 執行“靜音”操作后，整個左聲道的音頻將無法聽到
D. 當前狀態下通過“插入靜音”操作插入10秒靜音，音頻文件的容量不變
6.（2021高二下·浙江期中）下圖Flash編輯界面中，“music”圖層里的聲音素材是采樣頻率為32kHz、量化位數為16bit、雙聲道未經壓縮的Wave格式音頻文件。場景動畫播放到當前幀時聲音素材剛好完整地播放了一遍。則該聲音素材的存儲容量約為（ ）
A. 125KB B. 250KB C. 500KB D. 1000KB
7.（2021高二下·浙江期中）若x是能被7整除的正整數，下列表達式一定成立的是（ ）
① x mod 7=0 ② x\7=0 ③ Int(x/7)=x/7 ④ x/7=x\7
A. ①② B. ①③④ C. ①②④ D. ①③
8.（2021高二下·浙江期中）某算法的流程圖如圖所示。執行這部分流程，若輸入s的值為“schoolxzzx”,則程序結束后變量c和i的值為（ ）
A. “z”,8 B. “x”,7 C. “z”,7 D. “x”,8
9.（2021高二下·浙江期中）有兩個字符串s1、s2（s2中字符不重復），若s2中的字符按順序在s1中依次出現，則稱s2是s1的子串。例：s1="acde"，s2="ce"，則s2是s1的子串。實現該功能的VB程序段如下：
s1 = Text1.Text: s2 = Text2.Text
i = 1: j = 1
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) = Mid(s2, j, 1) Then
Loop
If Then Label1.Caption = "是子串" Else Label1.Caption = "不是子串"
方框處的可選語句為：
①i = i + 1 ②j = j + 1 ③i > Len(s2) ④j > Len(s2)
以下選項正確的是（ ）
A. ①②③ B. ①②④ C. ②①③ D. ②①④
10.（2021高二下·浙江期中）有如下VB程序段：
s = "spring winter"：s1 = ""
n = Len(s)
For i = 1 To n \ 2
If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then s1 = s1 + Mid(s, i, 1)
Else
s1 = Mid(s, n - i + 1, 1) + s1
End If
Next i
Text1.Text = s1
執行該程序后，在文本框Text1中顯示的是 （ ）
A. wprtnr B. sptnnw C. rtwprn D. wntspn
11.（2021高二下·浙江期中）采用冒泡排序算法對某數據序列進行排序，經過第一輪排序后的結果是“2,8,3,6,7,5,9”，那么原數據序列不可能的是（ ）
A. 8,3,6,7,5,2,9 B. 8,3,6,7,2,5,9 C. 2,8,3,9,6,7,5 D. 8,3,6,7,2,9,5
12.（2021高二下·浙江期中）有一個整數數列（長度為n），數值的規律為先升序，后相等，最后降序。如3,6,18,18,10,9,8,7,5，現要找到升序的終點位置，即第一個18所在的位置3，將數列依次存入數組a，部分程序如下：
i=1: j=n
Do While i<=j
m=(i +j)\2
If Then
i= m+1
Else
j=m- 1
EndIf
Loop
Text1.Text=
若要實現上述功能，方框處的代碼應是（ ）
A. a(m - 1) <= a(m) Str(j) B. a(m - 1) < a(m) Str(j)
C. a(m - 1) <= a(m) Str(i) D. a(m - 1) < a(m) Str(i)
二、非選擇題(本大題共4小題；4+8+7+7；共26分 )
13.（2021高二下·浙江期中）王老師收集了學校高一英語周競賽的數據，并使用Excel軟件對數據進行處理，如圖a所示。
圖a
（1）.如圖a所示，高一01班總分平均Y4單元格的公式為 。
（2）.需要找出年級排名前十的同學頒獎，以下方法可行的有 （多選，填字母）。
A. 對“總分”列數據進行升序排序后，在最前面取年級排名前十的同學
B. 對“年級排名”列數據進行升序排序，在最前面取年級排名前十的同學
C. 按“總分”進行篩選，選擇“10個最大的值”并顯示最大的10項
D. 按“年級排名”進行篩選，選擇“10個最大的值”并顯示最大的10項
（3）.根據圖a中數據制作的圖表如圖b所示，創建該圖表的數據區域是 。
圖b
14.（2021高二下·浙江期中）小明制作主題為“浙江名人館—金庸”的多媒體作品。首先使用Photoshop軟件處理圖像，然后使用Flash軟件制作動畫作品。請回答下列問題：
（1）.處理圖像的部分界面如圖a所示。下列說法正確的有 （多選，填字母）。
圖a
A. 將“金庸.psd”文件存儲為JPG格式后，JPG文件不可見“邊框”圖層的“描邊”效果
B. 用油漆桶工具修改“俠之大者 為國為民”圖層的文字顏色
C. 用濾鏡為“浙江名人館”圖層添加特效
D. 用“文字工具”修改“金庸”圖層的字體
E. 將“底紋”圖層移動到“對聯”圖層的上方
F. 對“背景”圖層添加圖層樣式
（2）.制作動畫作品的部分界面如圖b所示。觀察界面可知當前庫中有 類元件。
（3）.觀察圖b可知“對聯”圖層中補間的類型為 （選填：動畫 / 形狀）。
圖b
（4）.要使“對聯”圖層的補間動畫只在當前場景的最后1秒播放，可做的調整是 。
（5）.“按鈕”圖層最后1幀上設置了停止動畫播放的動作腳本。在“導航”按鈕上添加動作腳本，單擊該按鈕，動畫將轉到下一場景第1幀并播放，實現此功能的動作腳本為 （多選，填字母）。
A. on(release){play();} B. on(press){gotoAndPlay(1);}
C. on(release){gotoAndPlay("導航",1);} D. on(press){getURL("導航",1); play();}
E. on(release){gotoAndStop("導航",1);play();}
15.（2021高二下·浙江期中）找出一個隨機數列（長度為n）中的最長非降序段，計算其長度。非降序段中如果存在連續相等的數，則忽略，如非降序段2,3,4,4,5，長度計為4。
編寫如下VB程序，實現上述功能。運行程序，在文本框Text1中輸入隨機數列“19,21,3,5,18,18,18,23,25,10,11,12,17,17,7”，單擊“統計”按鈕，在文本框Text2中輸出5。
程序運行界面如圖所示。
（1）觀察程序界面，窗體中至少包含________個對象。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim a(1 To 100) As Integer '數組a依次存放數列中的數Dim n As Integer
Private Sub Command1_Click( )
Dim i As Integer, k As Integer, max As Integer, t As Integer Dim s As String, ch As String
s = Text1.Text n = Len(s)
i = 1: k = 1
Do While i <= n
ch = Mid(s, i, 1)
If ch <> "," Then ________ Else k = k + 1 i = i + 1
Loop
i = 1: max = 0
Do While i <= k
t =________
If t > max Then max = t i = i + t
Loop
Text2.Text = Str(max)
End Sub
Function length(p As Integer) As Integer '函數功能是計算a(p)開始的非降序段長度
Dim j As Integer, c As Integer
j = p: c = 1
Do While j <= n – 1
If Then
If a(j) < a(j + 1) Then c = c + 1 Else
Exit Do
End If
j = j + 1
Loop
length = c
End Function
（3）程序加框處代碼有錯，請改正。
16.（2021高二下·浙江期中）一名商人在A地采購了n噸大米（n<=150），需要船只運送到B地。現在碼頭上停靠著10艘船，載重量在15到30噸之間且均不相同，同時運費單價（單位：元/噸）也存在差異。為了找出運費總數最少的方案，該商人先將10艘船的運費單價從小到大排序，若船只運費單價相同，則按船只載重量大到小排序。上述步驟完成后，將n噸大米依次裝入排好序的船只中，若最后一只船裝不滿，則按實際裝運大米的重量付運費。程序運行界面如16題圖所示：單擊“排序”按鈕后，船只信息按照要求排序并在列表框List1中輸出；在文本框Text1中輸入大米總數n噸，單擊“計算”按鈕，將在列表框List2中列出所選船只編號，并在文本框Text2中顯示運費總數。
（1）若圖中7號船的載重量由“28”改為“22”，現有60噸大米需要運送，則該商人應選擇的船只編號為 ________（若有多個編號，用“，”隔開）
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim yf(1 To 10) As Integer, v(1 To 10) As Integer, b(1 To 10) As Integer
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer, t As Integer
List1.AddItem "船只編號" + " " + "載重量" + " " + "運費單價" List2.AddItem "船只編號"
For i = 1 To 10 '對船只進行編號
b(i) = i
Next i
'隨機生成10艘船的運費單價，數值在100到200之間，代碼略
For i = 1 To 10 '隨機生成10艘船載重量，載重量均不相同
v(i) = 15 + Int(Rnd() * 16)
For j = 1 To i - 1
If v(i) = v(j) Then________ : Exit For
Next j
Next i
For i = 1 To 9
For j = 10 To i + 1 Step -1
If________ Then
t = b(j): b(j) = b(j - 1): b(j - 1) = t
End If
Next j
Next i
'在list1中輸出10艘船的編號、載重量、運費單價，代碼略
End Sub
Private Sub Command2_Click()
Dim n As Integer, k As Integer
Dim sum As Long
n = Val(Text1.Text): sum = 0 k = 1
Do While n > 0
If n >= v(b(k)) Then
________
Else
sum = sum + n * yf(b(k))
End If
List2.AddItem Str(b(k)) n = n - v(b(k))
k = k + 1
Loop
Text2.Text = Str(sum)
End Sub
答案解析部分
一、選擇題(本大題共12小題，每小題2分，共24分 每小題列出的四個備選項中只有一個是符合題目要求的，不選 多選 錯選均不得分 )
1.【答案】 D
【考點】信息及其特征，信息技術的概念與關鍵技術
【解析】
2.【答案】 C
【考點】網絡協議，網址與統一資源定位器，常用的網頁編輯與制作工具
【解析】
3.【答案】 D
【考點】數據表、字段、記錄的編輯，數據表視圖與設計視圖
【解析】
4.【答案】 D
【考點】進制及數制轉換，字符編碼
【解析】
5.【答案】 A
【考點】聲音素材的基本處理
【解析】
6.【答案】 B
【考點】聲音、圖像、視頻編碼
【解析】
7.【答案】 B
【考點】運算符、基本運算與表達式
【解析】
8.【答案】 A
【考點】流程圖識讀
【解析】
9.【答案】 D
【考點】分支結構語句及程序實現，循環結構語句及程序實現
【解析】
10.【答案】 D
【考點】程序的調試及運行
【解析】
11.【答案】 C
【考點】排序算法及程序實現
【解析】
12.【答案】 B
【考點】排序算法及程序實現
【解析】
二、非選擇題(本大題共4小題；4+8+7+7；共26分 )
13.【答案】 （1）=AVERAGE(I3:I54)
（2）B,C
（3）M4:M11, Y4:Y11
【考點】表格數據的處理與計算，圖表實現數據可視化
【解析】
14.【答案】 （1）A,E
（2）2
（3）動畫
（4）將“對聯”圖層補間動畫的起始關鍵幀移動到該圖層第49幀 或其他同價答案
（5）A,C,D
【考點】圖片加工常用工具的使用，圖層及圖層的基本操作，動畫的類型，元件的類型與應用，常用影片控制函數的應用
【解析】
15.【答案】 （1）4
（2）a(k) = a(k) * 10 + Val(ch) 或a(k)=val(str(a(k)&ch))；length(i)
（3）a(j) <= a(j + 1)
【考點】過程與自定義函數
【解析】
16.【答案】 （1）5,3,1
（2）i = i - 1；yf(b(j)) < yf(b(j - 1)) Or yf(b(j)) = yf(b(j - 1)) And v(b(j)) > v(b(j - 1))；sum = sum + yf(b(k)) * v(b(k))
【考點】排序算法及程序實現
【解析】
1 / 1

展開更多......

收起↑