資源簡介

浙江省教育綠色評價聯盟2020屆高三上學期信息技術10月適應性考試試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2019高三上·浙江月考）下列關于信息技術的說法正確的是(　　)
A．常用的網頁制作軟件有IE、記事本、Dreamweaver、Frontpage、IPS
B．通過新浪微博分享身邊見聞是種比較常見的表達方式
C．信息可以從一種形態變成另一種形態，這體現信息的加工處理性
D．信息不可以脫離它所反應的事物被存儲和保存
2．（2019高三上·浙江月考）使用OCR軟件將某產品海報識別后使用Word編輯，界面如下圖所示，以下說法不正確的是(　　)
A．編輯該文檔時不小心將“1600萬像素”中的數據改為了“16萬”，批注不會被刪除
B．該文檔有2個批注，3處修訂
C．該圖片的環繞方式可能為四周型
D．使用OCR軟件可識別海報圖中的文本，可通過去噪、濾波提高識別正確串
3．（2019高三上·浙江月考）下列關于多媒體技術應用說法正確的是(　　)
A．在同一個圖像中，規則物體和規則背景的表面物理特性具有相關性，這些相關性在數字圖像中表現為結構冗余。
B．將BMP格式圖片另存為JPEG格式后，再按原參數保存為BMP格式，圖片畫質無影響。
C．多媒體作品創作工具中Flash是以時間為基礎的創作工具，Authorware 是以圖標和流程圖為基礎的創作工具。
D．文字腳本制作之前，需先完成腳本大綱和制作腳本的工作，制作腳本作為作品制作的直接依據。
4．（2019高三上·浙江月考）下列有關數據庫和數據表的說法，正確的是(　　)
A．數據表視圖中刪除記錄不能用“撤銷”恢復，設計視圖中刪除字段能用“撤銷”恢復
B．數據庫管理系統中Oracle、FoxPro、Access 等是小型數據庫管理系統
C．同一個數據庫中的數據表名稱不能相同，字段名也不能相同
D．數據表中只能在最后插入新字段
5．（2020高三上·寧波月考）一段未經壓縮的NTSC制式的AVI格式無聲視頻，時長為10秒，每幀畫面為512×400像素，存儲容量約為117.2 MB，則該視頻中圖像的每個像素所占的位數為（　　）
A．2位 B．8位 C．16位 D．24位
6．（2019高三上·浙江月考）使用UltraEdit軟件觀察字符“2019年世界杯，女排Fighting！”的內碼界面如下圖所示，下列說法不正確的是(　　)
A．采用ASCII編碼時，同一個字母的大小寫編碼值相差00000B
B．ASCII由數字、字母、符號等組成，圖中數字、字母、符號均占1個字節
C．由圖可知“G”的內碼為“47”
D．“2019” 這4個數字存儲占4B
7．（2019高三上·浙江月考）已知t=5.1，s=9，m=-8，則表達式的值為True的有(　　)
A．t > Abs(m) B．Sqr(s) = Int(s-t)
C．S Mod 10< Fix (t) \10 D．Not (s=9)
8．（2019高三上·浙江月考）某算法的部分流程圖如圖所示。執行這部分流程，分別輸7、9、0、8、2、1、-1，則輸出值依次為(　　)
A．9 0 B．9 8 C．8 9 D．0 1
9．（2019高三上·浙江月考）有下列程序執行后文本框Text1顯示的內容是(　　)
s = "Happy new year↑”
flag=False：m=0
For i=1 To Len(s)
c= Mid(s，i，1)
If c >=“a" And c <= "z” Then
If Not flag Then
m=m+1
flag=True
End If
Else
flag = False
End If
Next i
A．4 B．3 C．6 D．11
10．（2019高三上·浙江月考）a(1)~a(12)是升序排列的數組元素，但是其中有重復數據，經過程序處理后，在文本框Text1中顯示去重后數據，實現該功能的VB程序段如下：
n =1
For i=2 To 12
If ⑴ Then
n=n+1
⑵
End If
Next i
S=””
For i=1 To n
s=s+Str(a(i))
Next i
Text1.Text = s
上述程序中劃線處可選語句為：①a(i)<>a(n) ②a(i)=a(n) ③a(n)=a(i)
則(1)、(2)處語句依次是(　　)
A．①、② B．②、① C．①、③ D．②、③
11．（2019高三上·浙江月考）有如下程序段：
Const n=8
a(1)=33：a(2)=8：a(3)=49：a(4)=25：a(5)=56：a(6)=3：a(7)=12：a(8)=41
x=n\2
For i=x To 2 Step-1
For j=1 To i - 1
If a(j)< a(i) Then
t=a(j)：a(j)=a(i)：a(i)=t
End If
Next j
Next i
i =n
Do While i>x+ 1
k=i
For j=i-1Tox+1 Step -1
If a(j)>a(k) Then k=j
Next j
If k<>I Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
i=i-1
Loop
執行完這段代碼后，數組a中各個元素的值為(　　)
A．8 25 33 49 3 12 41 56
B．49 33 25 8 3 12 41 56
C．8 25 33 49 56 41 12 3
D．49 33 25 8 56 41 12 3
12．（2019高三上·浙江月考）有如下程序段：
i =1：j = 10： n=0： flag = True
Key = Val (text1.Text)
Do While i<=j And flag=True
n=n+1
m=(i+j)\2
If a(m) = Key Then flag = False
If Key > a(m) Then i = m+1 Else j=m-1
Loop
數組元素a(1)到a(10)的值依次是：“5，12，23，29，34，48，51，67，70，89”，key值為57時，運行結束后下列說法正確的是(　　)
A．n=4 B．flag=False C．j=m-1 D．m=8
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2019高三上·浙江月考）王老師使用Excel軟件處理學校運動大比武評分結果，部分界面如圖a所示。
請回答下列問題：
（1）計算“總分”時先在G3單元格輸入公式　 　(總分前三項比分之和×70%÷第四項比分30%)，然后使用自動填充得到區城G4：G17的數據。
（2）根據圖a中的數據建立了圖b所示的圖表，該圖表的數據區城是　 　
（3）王老師要找出高三年級總分最高的兩支隊伍(若存在得分相同的多支隊伍，則全部選取)，下列方法可行的是 (多選，填字母)。
A．以“年級”為主要關鍵字按筆畫降序排列，以“總分”為次要關鍵字降序排列，選取排在最前面的隊伍
B．以“年級” 為高三進行篩選，“總分”為最大2項進行篩選，然后選取篩選出的隊伍
C．以“年級”為高三進行篩選，“總分”列為主要關鍵字進行降序排列，選取排在最前面的隊伍
D．以“總分”為關鍵字進行降序排列，以“年級”為高三進行篩選，選取排在最前面的隊伍
14．（2019高三上·浙江月考）某同學制作了主題為中秋的多媒體作品，請回答下列問題：
（1）如圖a所示，下列說法正確的有 (多選，選填字母)。
A．“文字”圖層沒有添加濾鏡和圖層樣式
B．“文字”圖層能和“月亮”圖層執行向下合并操作
C．把歡度中秋文字仿制到“月亮”圖層，“嫦娥”圖層也會得到相同內容
D．可以用油漆桶改變背景圖層的顏色
E．在當前狀態下，可以用移動工具將嫦娥圖像移到月亮圖像上方
（2）音樂圖層的聲音屬性如圖b，測試影片時聽見的聲音時長為　 　秒。
（3）如圖c所示“按鈕”圖層中按鈕在最后一幀才出現，為了在動畫開始播放就出現在舞臺并持續到結束，應該如何操作　 　。
（4）選擇控制菜單的“播放”，在播放動畫時能實現的效果有 (單選，填字母)
A．影片剪輯的動畫效果
B．圖層的聲音效果
C．動作腳本的控制效果
（5）點擊“按鈕”圖層上的按鈕，實現靜音并跳轉到本場景的第1幀開始播放動畫，按鈕上應添加腳本　 　。
15．（2019高三上·浙江月考）某數據解密算法描述如下：1)在輸入的數字字串中依次提取有效的密文，有效的密文是一組連續的，都小于5的三位數字串； 2) 數字不能重復被提取：3)對有效密文進行解密：
①將密文進行轉換為一個十進制數值：例如密文242轉換的表達式為：2*53+4*5*+2*5*=72 對應的明文字符為大寫“H"：
②得到的數值就是對應明文的ASCII 字符的十進制編碼(提示：空格所對應的ASCII值為十進制32，小寫字母“z”所對應的ASCII值為十進制數122)；
程序運行界面如下圖所示。在文本框Text1中輸入密文，單擊“解密”按鈕，在文本框Text2 中輸出解密后的明文密碼。實現上述功能的VB代碼如下：
Private Sub Convnand1_Click()
Dim st， p， c1， c2， c3 As String
Dim i， d， res As Integer
st = Text1.Text： n = Len(st)
i=1：res=””
Do While i <=n- 2 '提取有效密文，并進行轉換
c1 = Mid(st， i， 1)： c2 = Mid(st， i + 1， 1)： c3= Mid(st， i +2， 1)
If Then ‘①
p = Mid(st， i， 3)
d = conv(p)
If d>=32 And d<=122 Then res= res + Chr(d)
②
Else
i =i+1
End If
Loop
Text2 Text = ③
End Sub
‘以下代碼是將有效密文數字轉換為十進制數的函數
Function conv(p As String) As Integer
Dim k As Integer， q As String， i As Integer
k=0：q=””
For i =ITo 3
q = Mid(p， i， 1)
④
Next i
conv=k
End Function
（1）若輸入密文為“841497230235"，則明文是　 　
（2）程序代碼中①加框處的語句有錯，請改正：　 　
（3）程序代碼中②下劃線請補充完整：　 　
（4）程序代碼中③下劃線請補充完整：　 　
（5）程序代碼中④下劃線請補充完整：　 　
16．（2019高三上·浙江月考）班級里有48名學生，按6行8列安排座位，每2列為一組，共4組，矮的在前，高的在后。班級里每周都進行位置輪換，輪換規則如下：第一組同學換到第二組，第二組同學換到第三組，第三組同學換到第四組，第四組同學換到第一組，
并且同桌之間互換位置。為了方便學生在座位輪換的時候快速找到自己的新座位，設計了如下VB程序：窗體加載時，從數據庫中讀取班級學生數據，并按身高從小到大排序后，以6行8列的形式顯示在列表框List1中：單擊命令按鈕Comand1后，在列表框list2中顯示進行次輪換后的座位表。 程序運行界面如下：
實現上述功能的VB程序如下，請回答下列問題：
（1）“換座位”按鈕的對象名為：　 　
（2）請在劃線處填入合適的代碼，完成上述算法。
Dim xn(1 To 50) As String， sg(1 To 50) As Integer
Dim n as integer， i as integer， j as integer， ch as string， t1 8s string， t2 as integer
Private sub form_load(　　) ‘把數據表中姓名和身高分別存儲到數組xm(　　)和sg(　　)，代碼略
‘按身高從低到高對學生數據進行排序，代碼略
List1.Clear
List1.AddItem“第一組”+“第二組”+“第三組”+“第四組”
List1.AddItem
“------------------------------------------------------------”
‘將排序好的學生姓名按6行8列的格式輸出在列表框list1中
For i=1 To
n
ch=ch+xm(i)+””
If i
Mod2=0 Then ch=ch+””
If 　 　 Then
List1.Addltem
ch
ch=””
End If
Next i
End Sub
Private Sub Com1_Click(　　)
Dim a(1 To
50) As String， b(1 To 50) As
String
Dim st As
String
‘下面進行組與組之間的調換，調換后的數據保存在數組a中
For i =1
To 6
For
j=1 To 8
a((-1)*8+j)= 　 　
Next j
Next i
‘下面進行同桌之間互換位置，互換后的數據保存在數組b中
For i=1 To
6
For
j=1 To 8
If j Mod2=1 Then
b((-1)*8+j)=　 　
Else
b((i-1)*8+j)=a((-1)*8+j-1)
End If
Next j
Next i
‘在列表框List2中輸出輪換后的結果，代碼略
‘下面進行數據重新賦值，為下一次輪換做準備
For i=1 To
48
xm(i)單b(i)
Next i
End Sub
答案解析部分
1．【答案】C
【知識點】信息及其特征；信息表達方式與表達技術；常用的網頁編輯與制作工具
2．【答案】B
【知識點】文本的基本編輯
3．【答案】C
【知識點】多媒體作品的規劃和設計；多媒體數據壓縮技術；圖片格式的轉換；多媒體數據采集與編輯軟件
4．【答案】A
【知識點】數據庫的分類與應用；數據表、字段、記錄的概念；數據表、字段、記錄的編輯；數據表視圖與設計視圖
5．【答案】C
【知識點】聲音、圖像、視頻編碼
【解析】【解答】NTSC制式為每秒鐘播放30幀。根據視頻文件存儲容量的公式可得：512*400*x*30*10/(8*1024*1024)＝117.2，計算可得x≈16。故答案選C。
【分析】本題考查視頻文件存儲容量的計算。視頻存儲量(B)＝水平像素×垂直像素×每個像素所占位數/8×幀頻×播放時間（秒）。
6．【答案】B
【知識點】字符編碼
7．【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
8．【答案】B
【知識點】流程圖識讀
9．【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】B
【知識點】排序算法及程序實現
12．【答案】A
【知識點】查找算法及程序實現
13．【答案】（1）=sum（C3:E3）*0.7+F3*0.3 或者=（C3+D3+E3）*70%+F3*30%其他等價答案
（2）B2：F2,B18:F18
（3）A；C；D
【知識點】表格數據的處理與計算
14．【答案】（1）B；D
（2）7
（3）將按鈕圖層最后一幀的按鈕對象復制到第一幀
（4）B
（5）on (press) {stopAllsounds();gotoAndplay(1); }或 on (release) {stopAllsounds();gotoAndplay(1); }
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作；動畫的實現；常用影片控制函數的應用；聲音同步屬性設置
15．【答案】（1）A
（2）c1< "5" and c2 < "5" and c3 < "5"
（3）i = i + 3
（4）res
（5）k = k * 5 + Val(q)或者 k = k+ + Val(q)*5^(3-i)
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
16．【答案】（1）Com1
（2）i mod 8=0或其他等價答案；xm ((i-1)* 8+(6+j-1) mod 8 + 1)或其他等價答案；a((i - 1) * 8 + j + 1) 或其他等價答案
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1浙江省教育綠色評價聯盟2020屆高三上學期信息技術10月適應性考試試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2019高三上·浙江月考）下列關于信息技術的說法正確的是(　　)
A．常用的網頁制作軟件有IE、記事本、Dreamweaver、Frontpage、IPS
B．通過新浪微博分享身邊見聞是種比較常見的表達方式
C．信息可以從一種形態變成另一種形態，這體現信息的加工處理性
D．信息不可以脫離它所反應的事物被存儲和保存
【答案】C
【知識點】信息及其特征；信息表達方式與表達技術；常用的網頁編輯與制作工具
2．（2019高三上·浙江月考）使用OCR軟件將某產品海報識別后使用Word編輯，界面如下圖所示，以下說法不正確的是(　　)
A．編輯該文檔時不小心將“1600萬像素”中的數據改為了“16萬”，批注不會被刪除
B．該文檔有2個批注，3處修訂
C．該圖片的環繞方式可能為四周型
D．使用OCR軟件可識別海報圖中的文本，可通過去噪、濾波提高識別正確串
【答案】B
【知識點】文本的基本編輯
3．（2019高三上·浙江月考）下列關于多媒體技術應用說法正確的是(　　)
A．在同一個圖像中，規則物體和規則背景的表面物理特性具有相關性，這些相關性在數字圖像中表現為結構冗余。
B．將BMP格式圖片另存為JPEG格式后，再按原參數保存為BMP格式，圖片畫質無影響。
C．多媒體作品創作工具中Flash是以時間為基礎的創作工具，Authorware 是以圖標和流程圖為基礎的創作工具。
D．文字腳本制作之前，需先完成腳本大綱和制作腳本的工作，制作腳本作為作品制作的直接依據。
【答案】C
【知識點】多媒體作品的規劃和設計；多媒體數據壓縮技術；圖片格式的轉換；多媒體數據采集與編輯軟件
4．（2019高三上·浙江月考）下列有關數據庫和數據表的說法，正確的是(　　)
A．數據表視圖中刪除記錄不能用“撤銷”恢復，設計視圖中刪除字段能用“撤銷”恢復
B．數據庫管理系統中Oracle、FoxPro、Access 等是小型數據庫管理系統
C．同一個數據庫中的數據表名稱不能相同，字段名也不能相同
D．數據表中只能在最后插入新字段
【答案】A
【知識點】數據庫的分類與應用；數據表、字段、記錄的概念；數據表、字段、記錄的編輯；數據表視圖與設計視圖
5．（2020高三上·寧波月考）一段未經壓縮的NTSC制式的AVI格式無聲視頻，時長為10秒，每幀畫面為512×400像素，存儲容量約為117.2 MB，則該視頻中圖像的每個像素所占的位數為（　?。?br/>A．2位 B．8位 C．16位 D．24位
【答案】C
【知識點】聲音、圖像、視頻編碼
【解析】【解答】NTSC制式為每秒鐘播放30幀。根據視頻文件存儲容量的公式可得：512*400*x*30*10/(8*1024*1024)＝117.2，計算可得x≈16。故答案選C。
【分析】本題考查視頻文件存儲容量的計算。視頻存儲量(B)＝水平像素×垂直像素×每個像素所占位數/8×幀頻×播放時間（秒）。
6．（2019高三上·浙江月考）使用UltraEdit軟件觀察字符“2019年世界杯，女排Fighting！”的內碼界面如下圖所示，下列說法不正確的是(　　)
A．采用ASCII編碼時，同一個字母的大小寫編碼值相差00000B
B．ASCII由數字、字母、符號等組成，圖中數字、字母、符號均占1個字節
C．由圖可知“G”的內碼為“47”
D．“2019” 這4個數字存儲占4B
【答案】B
【知識點】字符編碼
7．（2019高三上·浙江月考）已知t=5.1，s=9，m=-8，則表達式的值為True的有(　　)
A．t > Abs(m) B．Sqr(s) = Int(s-t)
C．S Mod 10< Fix (t) \10 D．Not (s=9)
【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
8．（2019高三上·浙江月考）某算法的部分流程圖如圖所示。執行這部分流程，分別輸7、9、0、8、2、1、-1，則輸出值依次為(　　)
A．9 0 B．9 8 C．8 9 D．0 1
【答案】B
【知識點】流程圖識讀
9．（2019高三上·浙江月考）有下列程序執行后文本框Text1顯示的內容是(　　)
s = "Happy new year↑”
flag=False：m=0
For i=1 To Len(s)
c= Mid(s，i，1)
If c >=“a" And c <= "z” Then
If Not flag Then
m=m+1
flag=True
End If
Else
flag = False
End If
Next i
A．4 B．3 C．6 D．11
【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．（2019高三上·浙江月考）a(1)~a(12)是升序排列的數組元素，但是其中有重復數據，經過程序處理后，在文本框Text1中顯示去重后數據，實現該功能的VB程序段如下：
n =1
For i=2 To 12
If ⑴ Then
n=n+1
⑵
End If
Next i
S=””
For i=1 To n
s=s+Str(a(i))
Next i
Text1.Text = s
上述程序中劃線處可選語句為：①a(i)<>a(n) ②a(i)=a(n) ③a(n)=a(i)
則(1)、(2)處語句依次是(　　)
A．①、② B．②、① C．①、③ D．②、③
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2019高三上·浙江月考）有如下程序段：
Const n=8
a(1)=33：a(2)=8：a(3)=49：a(4)=25：a(5)=56：a(6)=3：a(7)=12：a(8)=41
x=n\2
For i=x To 2 Step-1
For j=1 To i - 1
If a(j)< a(i) Then
t=a(j)：a(j)=a(i)：a(i)=t
End If
Next j
Next i
i =n
Do While i>x+ 1
k=i
For j=i-1Tox+1 Step -1
If a(j)>a(k) Then k=j
Next j
If k<>I Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
i=i-1
Loop
執行完這段代碼后，數組a中各個元素的值為(　　)
A．8 25 33 49 3 12 41 56
B．49 33 25 8 3 12 41 56
C．8 25 33 49 56 41 12 3
D．49 33 25 8 56 41 12 3
【答案】B
【知識點】排序算法及程序實現
12．（2019高三上·浙江月考）有如下程序段：
i =1：j = 10： n=0： flag = True
Key = Val (text1.Text)
Do While i<=j And flag=True
n=n+1
m=(i+j)\2
If a(m) = Key Then flag = False
If Key > a(m) Then i = m+1 Else j=m-1
Loop
數組元素a(1)到a(10)的值依次是：“5，12，23，29，34，48，51，67，70，89”，key值為57時，運行結束后下列說法正確的是(　　)
A．n=4 B．flag=False C．j=m-1 D．m=8
【答案】A
【知識點】查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2019高三上·浙江月考）王老師使用Excel軟件處理學校運動大比武評分結果，部分界面如圖a所示。
請回答下列問題：
（1）計算“總分”時先在G3單元格輸入公式　 　(總分前三項比分之和×70%÷第四項比分30%)，然后使用自動填充得到區城G4：G17的數據。
（2）根據圖a中的數據建立了圖b所示的圖表，該圖表的數據區城是　 　
（3）王老師要找出高三年級總分最高的兩支隊伍(若存在得分相同的多支隊伍，則全部選取)，下列方法可行的是 (多選，填字母)。
A．以“年級”為主要關鍵字按筆畫降序排列，以“總分”為次要關鍵字降序排列，選取排在最前面的隊伍
B．以“年級” 為高三進行篩選，“總分”為最大2項進行篩選，然后選取篩選出的隊伍
C．以“年級”為高三進行篩選，“總分”列為主要關鍵字進行降序排列，選取排在最前面的隊伍
D．以“總分”為關鍵字進行降序排列，以“年級”為高三進行篩選，選取排在最前面的隊伍
【答案】（1）=sum（C3:E3）*0.7+F3*0.3 或者=（C3+D3+E3）*70%+F3*30%其他等價答案
（2）B2：F2,B18:F18
（3）A；C；D
【知識點】表格數據的處理與計算
14．（2019高三上·浙江月考）某同學制作了主題為中秋的多媒體作品，請回答下列問題：
（1）如圖a所示，下列說法正確的有 (多選，選填字母)。
A．“文字”圖層沒有添加濾鏡和圖層樣式
B．“文字”圖層能和“月亮”圖層執行向下合并操作
C．把歡度中秋文字仿制到“月亮”圖層，“嫦娥”圖層也會得到相同內容
D．可以用油漆桶改變背景圖層的顏色
E．在當前狀態下，可以用移動工具將嫦娥圖像移到月亮圖像上方
（2）音樂圖層的聲音屬性如圖b，測試影片時聽見的聲音時長為　 　秒。
（3）如圖c所示“按鈕”圖層中按鈕在最后一幀才出現，為了在動畫開始播放就出現在舞臺并持續到結束，應該如何操作　 　。
（4）選擇控制菜單的“播放”，在播放動畫時能實現的效果有 (單選，填字母)
A．影片剪輯的動畫效果
B．圖層的聲音效果
C．動作腳本的控制效果
（5）點擊“按鈕”圖層上的按鈕，實現靜音并跳轉到本場景的第1幀開始播放動畫，按鈕上應添加腳本　 　。
【答案】（1）B；D
（2）7
（3）將按鈕圖層最后一幀的按鈕對象復制到第一幀
（4）B
（5）on (press) {stopAllsounds();gotoAndplay(1); }或 on (release) {stopAllsounds();gotoAndplay(1); }
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作；動畫的實現；常用影片控制函數的應用；聲音同步屬性設置
15．（2019高三上·浙江月考）某數據解密算法描述如下：1)在輸入的數字字串中依次提取有效的密文，有效的密文是一組連續的，都小于5的三位數字串； 2) 數字不能重復被提?。?)對有效密文進行解密：
①將密文進行轉換為一個十進制數值：例如密文242轉換的表達式為：2*53+4*5*+2*5*=72 對應的明文字符為大寫“H"：
②得到的數值就是對應明文的ASCII 字符的十進制編碼(提示：空格所對應的ASCII值為十進制32，小寫字母“z”所對應的ASCII值為十進制數122)；
程序運行界面如下圖所示。在文本框Text1中輸入密文，單擊“解密”按鈕，在文本框Text2 中輸出解密后的明文密碼。實現上述功能的VB代碼如下：
Private Sub Convnand1_Click()
Dim st， p， c1， c2， c3 As String
Dim i， d， res As Integer
st = Text1.Text： n = Len(st)
i=1：res=””
Do While i <=n- 2 '提取有效密文，并進行轉換
c1 = Mid(st， i， 1)： c2 = Mid(st， i + 1， 1)： c3= Mid(st， i +2， 1)
If Then ‘①
p = Mid(st， i， 3)
d = conv(p)
If d>=32 And d<=122 Then res= res + Chr(d)
②
Else
i =i+1
End If
Loop
Text2 Text = ③
End Sub
‘以下代碼是將有效密文數字轉換為十進制數的函數
Function conv(p As String) As Integer
Dim k As Integer， q As String， i As Integer
k=0：q=””
For i =ITo 3
q = Mid(p， i， 1)
④
Next i
conv=k
End Function
（1）若輸入密文為“841497230235"，則明文是　 　
（2）程序代碼中①加框處的語句有錯，請改正：　 　
（3）程序代碼中②下劃線請補充完整：　 　
（4）程序代碼中③下劃線請補充完整：　 　
（5）程序代碼中④下劃線請補充完整：　 　
【答案】（1）A
（2）c1< "5" and c2 < "5" and c3 < "5"
（3）i = i + 3
（4）res
（5）k = k * 5 + Val(q)或者 k = k+ + Val(q)*5^(3-i)
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
16．（2019高三上·浙江月考）班級里有48名學生，按6行8列安排座位，每2列為一組，共4組，矮的在前，高的在后。班級里每周都進行位置輪換，輪換規則如下：第一組同學換到第二組，第二組同學換到第三組，第三組同學換到第四組，第四組同學換到第一組，
并且同桌之間互換位置。為了方便學生在座位輪換的時候快速找到自己的新座位，設計了如下VB程序：窗體加載時，從數據庫中讀取班級學生數據，并按身高從小到大排序后，以6行8列的形式顯示在列表框List1中：單擊命令按鈕Comand1后，在列表框list2中顯示進行次輪換后的座位表。 程序運行界面如下：
實現上述功能的VB程序如下，請回答下列問題：
（1）“換座位”按鈕的對象名為：　 　
（2）請在劃線處填入合適的代碼，完成上述算法。
Dim xn(1 To 50) As String， sg(1 To 50) As Integer
Dim n as integer， i as integer， j as integer， ch as string， t1 8s string， t2 as integer
Private sub form_load(　　) ‘把數據表中姓名和身高分別存儲到數組xm(　　)和sg(　　)，代碼略
‘按身高從低到高對學生數據進行排序，代碼略
List1.Clear
List1.AddItem“第一組”+“第二組”+“第三組”+“第四組”
List1.AddItem
“------------------------------------------------------------”
‘將排序好的學生姓名按6行8列的格式輸出在列表框list1中
For i=1 To
n
ch=ch+xm(i)+””
If i
Mod2=0 Then ch=ch+””
If 　 　 Then
List1.Addltem
ch
ch=””
End If
Next i
End Sub
Private Sub Com1_Click(　　)
Dim a(1 To
50) As String， b(1 To 50) As
String
Dim st As
String
‘下面進行組與組之間的調換，調換后的數據保存在數組a中
For i =1
To 6
For
j=1 To 8
a((-1)*8+j)= 　 　
Next j
Next i
‘下面進行同桌之間互換位置，互換后的數據保存在數組b中
For i=1 To
6
For
j=1 To 8
If j Mod2=1 Then
b((-1)*8+j)=　 　
Else
b((i-1)*8+j)=a((-1)*8+j-1)
End If
Next j
Next i
‘在列表框List2中輸出輪換后的結果，代碼略
‘下面進行數據重新賦值，為下一次輪換做準備
For i=1 To
48
xm(i)單b(i)
Next i
End Sub
【答案】（1）Com1
（2）i mod 8=0或其他等價答案；xm ((i-1)* 8+(6+j-1) mod 8 + 1)或其他等價答案；a((i - 1) * 8 + j + 1) 或其他等價答案
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑