資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省“山水聯盟”2021屆高三上學期信息技術開學考試試卷
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
1．（2020高三上·浙江開學考）下列有關信息和信息技術的說法中，正確的是（　?。?br/>A．語言、聲音、網絡和文字是信息的常見表達方式
B．計算機中的信息可以復制，因此只有計算機中的信息才具有共享性
C．電子郵件有利于信息的交流，接收郵件的過程中用到了SMTP協議
D．人們可以利用各種信息技術，把信息從一種形態轉換為另一種形態
2．（2020高三上·浙江開學考）使用Word編輯文檔時的部分界面如圖所示。下列說法正確的是（　?。?br/>A．刪除批注內容“蓄水養水，才有源頭活水”，則該批注框將隨之被刪除
B．文檔中存在三處修訂
C．文檔中圖片的環繞方式為嵌入型
D．取消“修訂”狀態，文檔中的已有修訂標記會發生改變
3．（2020高三上·浙江開學考）某Access數據表編輯界面如下圖所示。以下說法正確的是（　?。?br/>A．該數據表的名稱為“唱片收藏”，共有8條記錄
B．如果把“CD類型”字段的數據類型改為文本型，里面的字段值會變為“是”或“否”
C．該數據表有8個字段，可以在“唱片價格”字段前面添加“銷售數量”新字段
D．在數據表視圖中，當前選中的記錄為第4條記錄，可以將其“ID”字段的值改為“4”
4．（2020高三上·浙江開學考）下列十六進制數中，轉換為二進制數后含有偶數個“1”的是（　?。?br/>A．10AC B．B342 C．5D09 D．F11A
5．（2020高三上·浙江開學考）使用Photoshop制作“中國醫師節”作品，部分編輯界面如圖所示。下列說法正確的是（　　）
A．可用油漆桶工具改變“醫師節”圖層中文字的顏色
B．可將“醫師節”圖層的圖層樣式拷貝到“8月19日”圖層
C．將此文件導出成bmp文件后，可以看到投影、外發光和內發光三種圖層樣式效果
D．在當前狀態下，可用自由變換改變“醫師節”圖層中文字大小
6．（2020高三上·浙江開學考）將一時長為10分鐘、未經壓縮、采樣頻率為44.1KHZ，雙聲道WAV音頻文件另存為MP3格式其存儲容量約為10MB，壓縮比為10：1，該WAV音頻文件的量化位數是（　?。?br/>A．8位 B．16位 C．24位 D．4位
7．（2020高三上·浙江開學考）下列VB表達式中，可取到的最小值中，最小的為（　?。?br/>A．Rnd-99 B．Fix（（-Rnd*45））*2-10
C．int（（Rnd-Rnd）*100） D．-Int（Rnd*45）*2-10
8．（2020高三上·浙江開學考）某算法的流程圖如下圖所示。
當輸入x的值為109時，在標簽Label1中輸出的內容為（　?。?br/>A．4 B．33 C．36 D．48
9．（2020高三上·浙江開學考）有如下VB程序段：
flag=False: s="ShanShui2020！"
For i=1 To Len（s）
ch=Mid（s，i，1）
If Not（ch>="0" And ch<="9"）And Not flag Then
t=ch+t
End If
flag=Not flag
Next i
Text1.Text=t
執行完以上程序段后，文本框text1中的內容為（　?。?br/>A．!uSaS B．SaSu! C．!22uSaS D．ShanShui!
10．（2020高三上·浙江開學考）有如下VB程序段
Dim a（1 To 5）As Integer
Dim d（1 To 5）As Integer
a（1）=12：a（2）=21：a（3）=19：a（4）=11：a（5）=20
n=5：Max=0
For i=1 To n
d（i）=0
For j=1 To i-1
If a（j）Next j
If d（i）>Max Then Max=d（i）
Next i
執行完以上程序段后，Max的值為（　　）
A．1 B．2 C．3 D．4
11．（2020高三上·浙江開學考）某查找算法的部分VB程序代碼如下：
i=1：j=8：k=0
key=15
Do While i<=j
k=k+1
m=Int（（i+j）/2）
If keyLoop
數組元素a（1）到a（8）的數據依次是“14，15，15，17，28，30，37，40”，該程序執行完畢后，下列各變量的值不正確的是（　　）
A．i=4 B．m=2 C．j=3 D．k=3
12．（2020高三上·浙江開學考）有如下VB程序段
Dim a（1 To 6）As Integer
For i=1 To 6
a（i）=Int（Rnd()*45）*2+10
Next i
For i=1 To 2
For j=2 To 6-i
If a（j）\10>a（j-1）\10 Then
temp=a（j）：a（j）=a（j-1）：a（j-1）=temp
End If
Next j
Next i
執行上述程序段后，下列選項中，a（1）到a（6）各元素值可能的是（　?。?br/>A．84，98，93，84，62，30 B．70，60，10，28，18，14
C．34，44，36，14，16，94 D．74，32，66，46，38，28
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2020高三上·浙江開學考）小林收集2020年度國內影院電影票房排行榜數據，并使用Excel軟件進行數據處理，如圖a所示。
圖a
請回答下列問題：
（1）如圖a所示，區域F2：F14是通過rank()函數計算得到的各電影票房的排名（注：rank（number，ref）函數表示返回一個數值在一組數值中的排位，例如：=rank（C3，C3：C10）求的是C3單元格中的數值在C3：C10這一組數值中的排名）。先在F2單元格輸入公式，再利用自動填充計算出F3：F14區域內所有的數據，則F2中的公式為　 　。
（2）如果要對各電影的數據以“票房（萬元）”為關鍵字進行降序排序，則應選擇數據區域是　 　。
（3）根據圖a中數據制作的“2020年電影票房餅圖”圖表如圖b所示，創建該圖表的數據區域為　 　。
圖b
（4）對圖a中的票房占比（%）進行篩選，篩選條件如圖c所示，則最終滿足條件的數據有幾條　 　。
圖c
14．（2020高三上·浙江開學考）小明要創作一個主題是“綠水青山就是金山銀山”的多媒體作品。請回答下列問題：
（1）在制作作品前，進行了相應的分析和規劃。下列屬于創作需求分析的是　 ?。ǘ噙x，填字母：A .該作品需要使用的相關軟件/B .該作品面向中學生演示播放/C .該作品的主題思想為“綠水青山就是金山銀山”/D .該作品將在網絡上進行發布/E.制作作品的媒體元素分解表）。
（2）使用Flash軟件制作該多媒體作品，如圖所示。圖中“小船”圖層第1幀到第20幀的補間動畫實現了“小船”實例從左到右的動畫效果，該動畫的補間類型是　 　。
（3）測試場景時，“小船”圖層內容在播放完第40幀后消失。為了使該圖層第40幀內容延續顯示至本場景動畫結束，解決方法是：　 　；
（4）測試影片時，本場景播放結束后，聲音還在繼續播放，可知“標題”圖層第1幀中聲音的同步類型為　 　。（選填：事件/數據流）
（5）測試影片時，單擊“詳情”按鈕，實現在瀏覽器中顯示位于同一文件夾下“兩山論.txt”文件的內容，則“詳情”按鈕的動作腳本為　 　。
15．（2020高三上·浙江開學考）暑假小明的弟弟問了他一道小學一年的數學題，題目是：“小紅去超市買東西，里面有：巧克力一盒28元、火腿腸一包24元、皮球一個16元、毛巾一條4元、N95口罩一包15元、筆記本一本8元、鉛筆盒一個7元、水晶泥一盒12元、水彩筆一盒24元、牛奶一瓶5元等很多商品。小紅帶的錢剛好購買其中的兩樣東西。請問她可以買哪兩樣東西，有幾種組合？”為解決這個問題，小明專門編寫了一個VB程序。在文本框中text1輸入商品和價格，在文本框text2中輸入帶的錢，單擊“挑選”按鈕，在列表框list1中輸出查詢結果。程序運行界面如下圖：
請回答下面問題：
（1）下列對象中，有Caption屬性的是　 ?。▎芜x，填字母：mand1/B .Text1/C .Lis1）。
（2）實現挑選兩樣商品功能的VB程序如下，請在劃線處填入合適的代碼。
Private Sub Command1_Click()
Dim n，i，j，k，x，L，R，c As Integer
Dim goods（1 To 20）As String 'goods（i）存儲商品的名稱
Dim price（1To 20）As Integer 'price（i）存儲商品的價格
Dim s，ch As String
s=Text1.Text：x=Val（Text2. Text）
j=1：k=0
For i=1 To Len（s）
ch=Mid（s，i，1）
If
ch="，" Then
k=k+1
If k Mod
2=1 Then
　 　
Else
price（k\2）=Val（Mid（s，j，i-j））
End If
j=i+1
End If
Next i
n=k\2
For i=1 To n-1
For i=1 To
n-i
If price（j）>price（j+1）Then
k=price（j）：price（j）=price（j+1）：price（j+1）=k
End If
Next j
Next i
For i=2 To n
　 　
L=i：R=n
Do While L<=R
m=（L+R）\2
If price（m）+price（k）=x Then
c=c+1
List1. Addltem goods（k）& Str（price（k））&"元 和" & goods（m）& Str（price（m））& "元"
j=m
Do While price（j）=price（j-1）
j=j-1
c=c+1
Listl. Addltem goods（k）& Str（price（k））& "元 和" & goods（j）& Str（price（j））& "元"
Loop
Do While　 　
m=m+1
c=c+1
List1. Addltem goods（k）& Str（price（k））& "元 和" & goods（m）& Str（price（m））& "元"
Loop
Exit Do ‘Exit Do 表示退出Do循環
Elself price（m）+price（k）>x Then
R=m-1
Else
L=m+1
End If
Loop
Next i
List1. Addltem"共有：" & Str（c）& "種組合"
End Sub
（3）程序中加框處代碼有錯，請改正。
16．（2020高三上·浙江開學考）給定一個字符串（由字母、空格、句末點號組成，單詞中不出現其它符號），你需要反轉字符串中每個單詞的字符順序且輸出均為大寫字母，同時仍保留單詞的初始順序、空格和句末點號。小李同學編寫的“字符反轉”VB程序如下，文本框Text1中輸入的是反轉前字符串，單擊“反轉”按鈕后，在文本Text2中輸出字符串反轉結果，程序運行界面如圖所示。
（1）請在劃線處填入合適的代碼。
Private Sub Command1_Click()
Dim a（1 To 20）As String
Dim n，m，i，j As Integer
Dims，s1，s2 As String
s1=Text1. Text：n=Len（s1）
m=0：s=""
For i=1 To n
If Mid（s1，i，1）="" Or Mid（s1，i，1）="." Then
m=m+1
a（m）=s
s=""
Else
　 　
End If
Next i
For j=1 To m
n=Len（a（j））
For k=1 To n
　 　
If t﹥="a" And t<="z" Then
　 　
s2=s2+t
Else
s2=s2+t
End If
Next k
Text2. Text=Text2. Text+s2
s2=" "
Next j
Text2. Text=Text2. Text & "."
End Sub
（2）觀察程序運行界面和閱讀下面程序可知，原字符串輸入“ShanShui LianMeng”單擊“反轉”按鈕的則反轉結果輸出　 　。
答案解析部分
1．【答案】D
【知識點】信息及其特征；信息表達方式與表達技術；電子郵件，電子公告板等信息交流方式
2．【答案】B
【知識點】文本的基本編輯
3．【答案】C
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯
4．【答案】D
【知識點】進制及數制轉換
5．【答案】A
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】C
【知識點】運算符、基本運算與表達式
8．【答案】D
【知識點】常量、變量及變量的賦值；流程圖識讀
9．【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】B
【知識點】常量、變量及變量的賦值；查找算法及程序實現
12．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
13．【答案】（1）=RANK（D2，$D$2：$D$14）或=RANK（D2，D$2：D$14）
（2）A1：G14或A2：G14或A1：E14或其它等價答案
（3）C3：D4，C8：D9或C1：D1，C3：D4，C8：D9
（4）1
【知識點】表格數據的基本操作；表格數據的處理與計算
14．【答案】（1）ACD
（2）動畫補間動畫
（3）在“小船”圖層的50幀執行插入幀或插入關鍵幀命令 或在“小船”圖層的最后一幀執行插入幀或插入關鍵幀命令
（4）事件
（5）On（press）{getur1（“兩山論.txt”）；}或On（release）{getur1（“兩山論.txt”）；}
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．【答案】（1）A
（2）goods（k\2+1）=Mid（s，j，i-j）或goods（（k+1）/2）=Mid（s，j，i-j） 或goods（k+1）\2）=Mid（s，j，i-j）或其它等價答案；k=i-1；price（m）=price（m+1）
（3）ch=goods（j）：goods（j）=goods（j+1）：goods（j+1）=ch 或其它等價答案
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；運算符、基本運算與表達式；常量、變量及變量的賦值；查找算法及程序實現
16．【答案】（1）s=s+Mid（s1，i，1）；t=Mid（a（j），n-k+1，1）；t=Chr（Asc（t）-Asc（"a"）+Asc（"A"））或t=Chr（Asc（t）-32）或其它等價答案
（2）IUHSNAHS.
【知識點】運算符、基本運算與表達式；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省“山水聯盟”2021屆高三上學期信息技術開學考試試卷
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
1．（2020高三上·浙江開學考）下列有關信息和信息技術的說法中，正確的是（　?。?br/>A．語言、聲音、網絡和文字是信息的常見表達方式
B．計算機中的信息可以復制，因此只有計算機中的信息才具有共享性
C．電子郵件有利于信息的交流，接收郵件的過程中用到了SMTP協議
D．人們可以利用各種信息技術，把信息從一種形態轉換為另一種形態
【答案】D
【知識點】信息及其特征；信息表達方式與表達技術；電子郵件，電子公告板等信息交流方式
2．（2020高三上·浙江開學考）使用Word編輯文檔時的部分界面如圖所示。下列說法正確的是（　?。?br/>A．刪除批注內容“蓄水養水，才有源頭活水”，則該批注框將隨之被刪除
B．文檔中存在三處修訂
C．文檔中圖片的環繞方式為嵌入型
D．取消“修訂”狀態，文檔中的已有修訂標記會發生改變
【答案】B
【知識點】文本的基本編輯
3．（2020高三上·浙江開學考）某Access數據表編輯界面如下圖所示。以下說法正確的是（　?。?br/>A．該數據表的名稱為“唱片收藏”，共有8條記錄
B．如果把“CD類型”字段的數據類型改為文本型，里面的字段值會變為“是”或“否”
C．該數據表有8個字段，可以在“唱片價格”字段前面添加“銷售數量”新字段
D．在數據表視圖中，當前選中的記錄為第4條記錄，可以將其“ID”字段的值改為“4”
【答案】C
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯
4．（2020高三上·浙江開學考）下列十六進制數中，轉換為二進制數后含有偶數個“1”的是（　　）
A．10AC B．B342 C．5D09 D．F11A
【答案】D
【知識點】進制及數制轉換
5．（2020高三上·浙江開學考）使用Photoshop制作“中國醫師節”作品，部分編輯界面如圖所示。下列說法正確的是（　?。?br/>A．可用油漆桶工具改變“醫師節”圖層中文字的顏色
B．可將“醫師節”圖層的圖層樣式拷貝到“8月19日”圖層
C．將此文件導出成bmp文件后，可以看到投影、外發光和內發光三種圖層樣式效果
D．在當前狀態下，可用自由變換改變“醫師節”圖層中文字大小
【答案】A
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2020高三上·浙江開學考）將一時長為10分鐘、未經壓縮、采樣頻率為44.1KHZ，雙聲道WAV音頻文件另存為MP3格式其存儲容量約為10MB，壓縮比為10：1，該WAV音頻文件的量化位數是（　?。?br/>A．8位 B．16位 C．24位 D．4位
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2020高三上·浙江開學考）下列VB表達式中，可取到的最小值中，最小的為（　?。?br/>A．Rnd-99 B．Fix（（-Rnd*45））*2-10
C．int（（Rnd-Rnd）*100） D．-Int（Rnd*45）*2-10
【答案】C
【知識點】運算符、基本運算與表達式
8．（2020高三上·浙江開學考）某算法的流程圖如下圖所示。
當輸入x的值為109時，在標簽Label1中輸出的內容為（　?。?br/>A．4 B．33 C．36 D．48
【答案】D
【知識點】常量、變量及變量的賦值；流程圖識讀
9．（2020高三上·浙江開學考）有如下VB程序段：
flag=False: s="ShanShui2020！"
For i=1 To Len（s）
ch=Mid（s，i，1）
If Not（ch>="0" And ch<="9"）And Not flag Then
t=ch+t
End If
flag=Not flag
Next i
Text1.Text=t
執行完以上程序段后，文本框text1中的內容為（　　）
A．!uSaS B．SaSu! C．!22uSaS D．ShanShui!
【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．（2020高三上·浙江開學考）有如下VB程序段
Dim a（1 To 5）As Integer
Dim d（1 To 5）As Integer
a（1）=12：a（2）=21：a（3）=19：a（4）=11：a（5）=20
n=5：Max=0
For i=1 To n
d（i）=0
For j=1 To i-1
If a（j）Next j
If d（i）>Max Then Max=d（i）
Next i
執行完以上程序段后，Max的值為（　?。?br/>A．1 B．2 C．3 D．4
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2020高三上·浙江開學考）某查找算法的部分VB程序代碼如下：
i=1：j=8：k=0
key=15
Do While i<=j
k=k+1
m=Int（（i+j）/2）
If keyLoop
數組元素a（1）到a（8）的數據依次是“14，15，15，17，28，30，37，40”，該程序執行完畢后，下列各變量的值不正確的是（　?。?br/>A．i=4 B．m=2 C．j=3 D．k=3
【答案】B
【知識點】常量、變量及變量的賦值；查找算法及程序實現
12．（2020高三上·浙江開學考）有如下VB程序段
Dim a（1 To 6）As Integer
For i=1 To 6
a（i）=Int（Rnd()*45）*2+10
Next i
For i=1 To 2
For j=2 To 6-i
If a（j）\10>a（j-1）\10 Then
temp=a（j）：a（j）=a（j-1）：a（j-1）=temp
End If
Next j
Next i
執行上述程序段后，下列選項中，a（1）到a（6）各元素值可能的是（　?。?br/>A．84，98，93，84，62，30 B．70，60，10，28，18，14
C．34，44，36，14，16，94 D．74，32，66，46，38，28
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2020高三上·浙江開學考）小林收集2020年度國內影院電影票房排行榜數據，并使用Excel軟件進行數據處理，如圖a所示。
圖a
請回答下列問題：
（1）如圖a所示，區域F2：F14是通過rank()函數計算得到的各電影票房的排名（注：rank（number，ref）函數表示返回一個數值在一組數值中的排位，例如：=rank（C3，C3：C10）求的是C3單元格中的數值在C3：C10這一組數值中的排名）。先在F2單元格輸入公式，再利用自動填充計算出F3：F14區域內所有的數據，則F2中的公式為　 　。
（2）如果要對各電影的數據以“票房（萬元）”為關鍵字進行降序排序，則應選擇數據區域是　 　。
（3）根據圖a中數據制作的“2020年電影票房餅圖”圖表如圖b所示，創建該圖表的數據區域為　 　。
圖b
（4）對圖a中的票房占比（%）進行篩選，篩選條件如圖c所示，則最終滿足條件的數據有幾條　 　。
圖c
【答案】（1）=RANK（D2，$D$2：$D$14）或=RANK（D2，D$2：D$14）
（2）A1：G14或A2：G14或A1：E14或其它等價答案
（3）C3：D4，C8：D9或C1：D1，C3：D4，C8：D9
（4）1
【知識點】表格數據的基本操作；表格數據的處理與計算
14．（2020高三上·浙江開學考）小明要創作一個主題是“綠水青山就是金山銀山”的多媒體作品。請回答下列問題：
（1）在制作作品前，進行了相應的分析和規劃。下列屬于創作需求分析的是　 ?。ǘ噙x，填字母：A .該作品需要使用的相關軟件/B .該作品面向中學生演示播放/C .該作品的主題思想為“綠水青山就是金山銀山”/D .該作品將在網絡上進行發布/E.制作作品的媒體元素分解表）。
（2）使用Flash軟件制作該多媒體作品，如圖所示。圖中“小船”圖層第1幀到第20幀的補間動畫實現了“小船”實例從左到右的動畫效果，該動畫的補間類型是　 　。
（3）測試場景時，“小船”圖層內容在播放完第40幀后消失。為了使該圖層第40幀內容延續顯示至本場景動畫結束，解決方法是：　 ?。?br/>（4）測試影片時，本場景播放結束后，聲音還在繼續播放，可知“標題”圖層第1幀中聲音的同步類型為　 　。（選填：事件/數據流）
（5）測試影片時，單擊“詳情”按鈕，實現在瀏覽器中顯示位于同一文件夾下“兩山論.txt”文件的內容，則“詳情”按鈕的動作腳本為　 　。
【答案】（1）ACD
（2）動畫補間動畫
（3）在“小船”圖層的50幀執行插入幀或插入關鍵幀命令 或在“小船”圖層的最后一幀執行插入幀或插入關鍵幀命令
（4）事件
（5）On（press）{getur1（“兩山論.txt”）；}或On（release）{getur1（“兩山論.txt”）；}
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．（2020高三上·浙江開學考）暑假小明的弟弟問了他一道小學一年的數學題，題目是：“小紅去超市買東西，里面有：巧克力一盒28元、火腿腸一包24元、皮球一個16元、毛巾一條4元、N95口罩一包15元、筆記本一本8元、鉛筆盒一個7元、水晶泥一盒12元、水彩筆一盒24元、牛奶一瓶5元等很多商品。小紅帶的錢剛好購買其中的兩樣東西。請問她可以買哪兩樣東西，有幾種組合？”為解決這個問題，小明專門編寫了一個VB程序。在文本框中text1輸入商品和價格，在文本框text2中輸入帶的錢，單擊“挑選”按鈕，在列表框list1中輸出查詢結果。程序運行界面如下圖：
請回答下面問題：
（1）下列對象中，有Caption屬性的是　 ?。▎芜x，填字母：mand1/B .Text1/C .Lis1）。
（2）實現挑選兩樣商品功能的VB程序如下，請在劃線處填入合適的代碼。
Private Sub Command1_Click()
Dim n，i，j，k，x，L，R，c As Integer
Dim goods（1 To 20）As String 'goods（i）存儲商品的名稱
Dim price（1To 20）As Integer 'price（i）存儲商品的價格
Dim s，ch As String
s=Text1.Text：x=Val（Text2. Text）
j=1：k=0
For i=1 To Len（s）
ch=Mid（s，i，1）
If
ch="，" Then
k=k+1
If k Mod
2=1 Then
　 　
Else
price（k\2）=Val（Mid（s，j，i-j））
End If
j=i+1
End If
Next i
n=k\2
For i=1 To n-1
For i=1 To
n-i
If price（j）>price（j+1）Then
k=price（j）：price（j）=price（j+1）：price（j+1）=k
End If
Next j
Next i
For i=2 To n
　 　
L=i：R=n
Do While L<=R
m=（L+R）\2
If price（m）+price（k）=x Then
c=c+1
List1. Addltem goods（k）& Str（price（k））&"元 和" & goods（m）& Str（price（m））& "元"
j=m
Do While price（j）=price（j-1）
j=j-1
c=c+1
Listl. Addltem goods（k）& Str（price（k））& "元 和" & goods（j）& Str（price（j））& "元"
Loop
Do While　 　
m=m+1
c=c+1
List1. Addltem goods（k）& Str（price（k））& "元 和" & goods（m）& Str（price（m））& "元"
Loop
Exit Do ‘Exit Do 表示退出Do循環
Elself price（m）+price（k）>x Then
R=m-1
Else
L=m+1
End If
Loop
Next i
List1. Addltem"共有：" & Str（c）& "種組合"
End Sub
（3）程序中加框處代碼有錯，請改正。
【答案】（1）A
（2）goods（k\2+1）=Mid（s，j，i-j）或goods（（k+1）/2）=Mid（s，j，i-j） 或goods（k+1）\2）=Mid（s，j，i-j）或其它等價答案；k=i-1；price（m）=price（m+1）
（3）ch=goods（j）：goods（j）=goods（j+1）：goods（j+1）=ch 或其它等價答案
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；運算符、基本運算與表達式；常量、變量及變量的賦值；查找算法及程序實現
16．（2020高三上·浙江開學考）給定一個字符串（由字母、空格、句末點號組成，單詞中不出現其它符號），你需要反轉字符串中每個單詞的字符順序且輸出均為大寫字母，同時仍保留單詞的初始順序、空格和句末點號。小李同學編寫的“字符反轉”VB程序如下，文本框Text1中輸入的是反轉前字符串，單擊“反轉”按鈕后，在文本Text2中輸出字符串反轉結果，程序運行界面如圖所示。
（1）請在劃線處填入合適的代碼。
Private Sub Command1_Click()
Dim a（1 To 20）As String
Dim n，m，i，j As Integer
Dims，s1，s2 As String
s1=Text1. Text：n=Len（s1）
m=0：s=""
For i=1 To n
If Mid（s1，i，1）="" Or Mid（s1，i，1）="." Then
m=m+1
a（m）=s
s=""
Else
　 　
End If
Next i
For j=1 To m
n=Len（a（j））
For k=1 To n
　 　
If t﹥="a" And t<="z" Then
　 　
s2=s2+t
Else
s2=s2+t
End If
Next k
Text2. Text=Text2. Text+s2
s2=" "
Next j
Text2. Text=Text2. Text & "."
End Sub
（2）觀察程序運行界面和閱讀下面程序可知，原字符串輸入“ShanShui LianMeng”單擊“反轉”按鈕的則反轉結果輸出　 　。
【答案】（1）s=s+Mid（s1，i，1）；t=Mid（a（j），n-k+1，1）；t=Chr（Asc（t）-Asc（"a"）+Asc（"A"））或t=Chr（Asc（t）-32）或其它等價答案
（2）IUHSNAHS.
【知識點】運算符、基本運算與表達式；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑