資源簡介

浙江省溫州市十校聯合體2015-2016學年高二下學期期中聯考信息技術試題
一、單項選擇題
1．（2016高二下·溫州期中）小明要把信息作業上傳到教師機上。教師機的服務器地址為"FTP://10.133.22.110/ "，地址中的"FTP"表示（　　）
A．超文本傳輸協議 B．文件傳輸協議
C．TCP協議 D．SMTP協議
2．（2016高二下·溫州期中）小麗用OCR軟件識別文件，發現OCR識別的準確率很低，準備向老師求助，應該把下列哪組文件發送給老師（　　）。
A．th.jpg和th.fla
B．th.bmp和th.rtf
C．th.png和th.tif
D．th.txt和th.png
3．（2016高二下·溫州期中）某Access數據表打開后如圖所示，下列描述中正確的是（　　）
A．“商品代碼”字段的類型是數值型
B．該數據表記錄數少于10條
C．該數據表字段數是6個
D．刪除“銷售日期”字段后，記錄數不會少
4．（2016高二下·溫州期中）語句 “ i=3：s=1/(i-3)” 無法執行，原因是它違反了算法特征中的（　　）
A．有窮性 B．唯一性 C．可行性 D．確定性
5．（2016高二下·溫州期中）用UltraEdit觀察字符內碼，結果如圖所示：
則字符“It”的十六進制內碼值為：（　　）
A．43 54 B．43 74 C．49 54 D．49 74
6．（2016高二下·溫州期中）使用GoldWave軟件處理名為sound1.wav的雙聲道音頻，刪除了右聲道中的聲音，并將音量降低到原來的一半，然后按原格式以sound2.wav為文件名保存。Sound1.wav 與sound2.wav相比，存儲容量（　　）
A．不變 B．減小1/2 C．減小1/3 D．減小1/4
7．（2016高二下·溫州期中）用Photoshop處理圖像，下列說法正確的是（　　）
A．吸管工具可以從圖像中取色，并指定為新的前景色
B．將PSD格式文件存儲為BMP格式后，不會丟失任何信息
C．對某圖層使用濾鏡效果，會使其圖層的數目增加
D．Photoshop中“背景層”始終在最底層
8．（2016高二下·溫州期中）下圖是制作某flash作品時的截圖，從圖中可知，“背景”圖層中的背景圖片僅在第1幀到第20幀出現，若要使背景圖片一直延續到第45幀，可在該圖層的第21幀上進行的操作是（　　）
A．清除關鍵幀 B．刪除幀
C．清除幀 D．插入幀
9．（2016高二下·溫州期中）用迅雷軟件下載一部25幀/秒、10秒、分辨率為1024×768、16色彩色、未經壓縮的視頻片段，當時網絡的下載速度是 380 KB/s，下載完這個片段大約需要多少時間（　　）
A．10分鐘 B．2分鐘 C．4.2分鐘 D．16.8分鐘
10．（2016高二下·溫州期中）VB表達式9\8/2 + 12 Mod 3*3 的值是(　　)。
A．0.5 B．7 C．3.5 D．5
11．（2016高二下·溫州期中）數學老師寫了一組數列1，4，7，10，13，……求前N項的和，小明想用遞歸算法來完成，那么他設計的遞推公式正確的是(　　)。
A．f(1)=1: f(n)=n*2-1 B．f(1)=1: (n)=n*2+1
C．f(1)=1: f(n)=n+3 D．f(1)=1: f(n)=f(n-1)+3
二、綜合題
12．（2016高二下·溫州期中）以下(圖1)為2016年高一（1）班的成績表，請根據表格提供的信息回答下面幾道小題。
圖1
（1）觀察數據表，發現A列數據格式應該設為　 　。
（2）某一同學想用RNK函數和自動填充的方法實現對總分的排名，則I2單元格公式為　 　 。（rank函數是求某一個數值在某一區域內的排名，如=RANK(A1，A1:A5),表示A1在區域A1:A5中的名次）。
（3）下圖(圖2)圖表的數據源區域為　 　,系列產生在 　 　 。
圖2
（4）想只顯示平均分低于80分的學生的名單，可使用　 　 來實現。操作后發現圖表 　 　（填“會”或“不會“） 發生變化。
13．（2016高二下·溫州期中）求孿生素數。孿生素數是指兩個相鄰奇數且都是素數，由于它們是最近的素數，就像孿生兄弟一樣。下列Visual Basic程序用于查找100以內的所有孿生素數，其中函數f用于判斷一個數是否是素數，程序運行界面如圖(圖1)所示，Command1鼠標單擊事件過程的流程圖如圖(圖2)所示。
程序代碼如下：
Private Sub Command1_Click()
Dim i As Integer
List1.Clear '清除列表框內容
For i = 3 To 97 ___①___ If f(i) And f(i+2)=true Then List1.AddItem Str(i) + " 和 " + Str(i + 2) End If Next i
End Sub
Private Function f(x As Integer) As Boolean '判斷是否為素數，若是返回true,若不是則返回false
………
End Function
（1）程序中加框部分的算法是　 　（選填：解析算法/枚舉算法）
（2）應用程序界面設計時，為添加”100以內的孿生素數”，應使用圖3所示的“控件工具箱”中的　 　（填寫相應編號），并將其　 　屬性設置為”100以內的孿生素數
（3）在程序①劃線處，填入適當的語句或表達式，把程序補充完整：
程序中①劃線處應填入　 　
14．（2016高二下·溫州期中）小周同學制作了Flash動畫，某個場景制作界面如圖所示，請回答下列問題。
（1）根據圖中所示，當前場景的名稱為 　 　。該場景總共有60幀，則執行播放完該場景共需　 　秒。玫瑰花圖層的動畫屬于　 　 動畫。
（2）執行“影片測試”，發現動畫循環播放，小周想播放一遍后停止，他必須在　 　 圖層添加腳本動作為 　 　 。
15．（2016高二下·溫州期中）下列VB程序的功能是：程序運行時，單擊命令按鈕Commandl后，產生10個[1，999]范圍內互不相同的隨機整數，依次顯示在列表框List1中，然后將它們按從小到大的順序排序，排序結果顯示在列表框List2中。
數組a用于存儲產生的10個隨機整數，函數f(x)用于判斷隨機整數x與已生成的整數是否有重復，若有重復則返回True，否則返回False。
（1）虛線框內程序段所采用的排序算法名稱是　 　。（填：冒泡排序/選擇排序）
（2）在程序①和②劃線處，填入適當的語句或表達式，把程序補充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean
′代碼略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于統計已經產生的隨機整數個數
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize ′初始化Rnd函數
n=0
List1.Clear ′清除列表框中內容
List2.Clear
Do While n<10
x=①　 　 ′產生[1，999]范圍內的隨機整數
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str(a(n))
End If
Loop
For i=1 To 9
For j=10 To i+1 step -1
If ②　 　 Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i=1 To 10
List2.AddItem Str(a(i))
Next i
End Sub
16．（2016高二下·溫州期中）由人民政府授權發放給市民用于辦理個人相關事務和享受公共服務的集成電路卡（IC卡），具有信息儲存、身份識別、電子支付等功能。每位市民都可以擁有一張唯一卡號的市民卡，卡內會記錄每位市民的姓名、電話、金額等信息。
假設共有500個市民，市民的相關信息都存儲在“information.accdb”的data表中，”xm, ye,kh” 字段放市民的姓名，余額,卡號。查詢程序界面如第16題圖所示。工作人員在文本框Text1中輸入卡號，單擊“查詢”按鈕，如果找到，就在Label1中顯示卡內市民姓名和卡內余額；否則顯示“查無此人”。程序如下，請按要求將程序補充完整。
Private Sub command1_click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String
Dim a,b,c as string
Dim n as integer
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ ① "
conn.Open
strSQL ="select * from data"
Set rs.ActiveConnection = conn
rs.Open strSQL
Label1.Caption = ""
c=val(text1.text)
n=0
rs.movefirst
Do while not rs.EOF
n=n+1
a=rs.Fields("xm")
②
If c= rs.Fields("kh") then
Label1.caption=a+ "的卡內余額為"+b+"元"
Exit if
else
rs.movenext
end if
loop
if n=500 then Label1.caption=”查無此人”
rs.close
conn.close
set rs=nothing
set conn=nothing
End Sub
（1）程序中①劃線處應填入　 　。
（2）程序中②劃線處應填入　 　。
答案解析部分
1．【答案】B
【知識點】網絡協議
【解析】【解答】SMTP是電子郵件傳輸協議；HTTP是超文本傳輸協議，
TCP是傳輸控制協議，FTP是文件傳輸協議。故答案選B。
【分析】本題考查的是網絡協議。HTTP是超文本傳輸協議，是用于在萬維網上傳輸文件（文本，圖形圖像，聲音，視頻和其他多媒體文件）的規則集； FTP是文件傳輸協議，用于使用TCP在FTP服務器和網絡中的客戶端計算機之間上傳和下載文件，可以將文件從一個主機復制到另一個主機；TCP協議提供連續的具有可靠的數據流式的傳輸服務；SMTP是負責電子郵件的發送協議。
2．【答案】C
【知識點】字符識別
【解析】【解答】根據使用OCR軟件進行漢字識別的原理，需要將圖片文件發送給老師，題中擴展名為jpg、bmp、Png、tif的文件都是圖片類型的文件。故答案選C。
【分析】本題考查OCR文字識別軟件能識別的文件格式。利用OCR( Optical Character Recognition, 光學字符識別)技術，將圖片、照片上的文字內容，直接轉換為可編輯文本的軟件。軟件可以把圖片轉換成可以編輯的文字。支持JPG、PNG、GIF、BMP等圖片格式。
3．【答案】D
【知識點】數據表、字段、記錄的概念
【解析】【解答】 由圖中觀察
“商品代碼”字段的類型是文本型，選項A錯誤；該數據表記錄數共有13條，選項B錯誤；該數據表字段數至少是7個，選項C錯誤；刪除字段后，跟記錄數沒有關系。故答案選D。
【分析】本題考查字段、記錄的概念。數據表是數據庫最重要的組成部分之一，數據庫只是一個框架，數據表才是其實質內容，它是一張由行和列構成的二維表，表中的列稱為字段，表中的行稱為記錄。
4．【答案】C
【知識點】算法的基本概念與特征
【解析】【解答】分析題干，當為3時，后面表達式的除數為0，除數是不能為0的，所以違反了算法的可行性。
故答案選C。
【分析】本題考查算法的特性。一個算法應該具有以下五個重要的特征
1、有窮性:一個算法必須保證執行有限步之后結束
2、確切性:算法的每一步驟必須有確切的定義
3、輸入:一個算法有0個或多個輸入，以刻畫運算對象的初始情況
4、輸出:一個算法有一個或多個輸出，以反映對輸入數據加工后的結果.沒有輸出的算法是毫無意義的
5．【答案】D
【知識點】信息的編碼
【解析】【解答】根據圖中所示字符“P”的內碼為：50H。字符“T”的內碼為：54H。所以字符“I”的內碼為字符“P”的內碼減7H，即50H-7H＝49H。字符“t”的內碼為字符“T”的內碼加32D，即54H+32D=54H+20H=74H。故答案選D。
【分析】本題考查字符的編碼。在ASCII表中字符之間都是相關的，如字母“a”的位于字母“A”后32位，所以我們可以可以根據“A”的ASCII碼值計算處“a”的ASCII碼值。本題可根據字符“P”“T”的內碼推算出字符“I”“t”的內碼。
6．【答案】A
【知識點】聲音、圖像、視頻編碼
【解析】【解答】刪除右聲道的聲音不是刪除右聲音，音頻文件的存儲容量只與采樣頻率、量化位數、聲道數及時長有關，與音量的大小無關，故答案選A。
【分析】本題考查的是影響聲音存儲容量的因素。音頻文件存儲容量公式為：音頻文件存儲容量=(采樣頻率× 采樣位數× 聲道數× 時間) / 8 (字節)，由公式知音頻文件的存儲容量只與采樣頻率、量化位數聲道數及時長有關。
7．【答案】A
【知識點】圖片加工常用工具的使用
【解析】【解答】選項A：吸管又叫取色工具，可以從圖像中提取顏色，并指定為前景色。本項對。選項B： 將PSD格式文件存儲為BMP格式后 ，圖層、一些不可見的圖層、樣式都不會被保存，本項錯。選項C：對某個圖層使用濾鏡只是在本圖層中應用不會產生新圖層，本項錯。選項D：“背景層”也是一種普通圖層，可以調換位置，本項錯。故答案選A。
【分析】本題考查的是圖片加工工具的使用、PS文件格式的存儲、濾鏡的使用。為了管理方便，Photoshop對圖像進行了分層操作，這樣不僅設置圖層的顏色、樣式、應用濾鏡都十分方便而且可以輕松改變圖層的疊放層次及空間位置。
8．【答案】A
【知識點】時間軸、幀、圖層、庫的概念及基本操作
【解析】【解答】 “背景”圖層中的背景圖片僅在第1幀到第20幀出現，而在第21幀后不出現的原因是在“背景”圖層的第21幀有一個空白關鍵幀若將該關鍵幀清除則“背景”就會從第1幀顯示到第45幀，故答案選A。
【分析】本題考查的是二維動畫中延續某一圖像的方法。在Flash中幀可以分為關鍵幀、空白關鍵幀及普通幀三種，其中關鍵幀是存放圖像或圖像改變的，而空白關鍵幀是表示圖像到此不再顯示的，而普通幀延續上一幀的圖像或在兩個關鍵幀之間做補間的。
9．【答案】C
【知識點】聲音、圖像、視頻編碼
【解析】【解答】根據題中信息計算該視頻文件存儲量=1024*768*4*25*10/8=98304000B=96000KB，下載所需的時間是96000÷380≈253秒≈4.2分鐘。 故答案選C。
【分析】本題考查視頻文件的存儲容量。容量大小:字節數＝分辨率＊色彩位數＊每秒幀數＊秒數/8 。色彩深度是用＂n位顏色＂來說明的。若色彩深度是n位，即有2n種須色選擇，而儲存每像素所用的位數就是n。
10．【答案】D
【知識點】運算符、基本運算與表達式
【解析】【解答】 9\8/2 + 12 Mod 3*3=9\4+12 mod 9 =2+3=5，故答案選D。
【分析】本題考查的是Visual Basic的算術運算符的優先級。算術運算符的優先級順序為：負號（-）—->冪（^或**）->乘（*）、除（/)->整除 (\)、求模（mod)->加（+）、減（-）。
11．【答案】D
【知識點】遞歸算法
【解析】【解答】遞歸算法就是調用自身的算法，選項A、選項B中沒有調用自身，選項C雖然調用自身但沒有出口就會形成死循環。故答案選D。
【分析】本題考查的是遞歸算法的公式。遞歸算法在計算機科學中是指一種通過重復將問題分解為同類的子問題而解決問題的方法，這種算法要求：一必須有一個出口，二在調用自身時參數必須是遞增遞減的。
12．【答案】（1）文本
（2）=RANK(H2，$H$2:$H$13)
（3）A2：B13，H2：H13；列
（4）篩選；會
【知識點】表格數據的基本操作；表格數據的處理與計算
【解析】【解答】（1）
觀察數據表 A列數據001，002，003…，格式應該設為（文本）。故答案為：文本
（2）根據rank函數是求某一個數值在某區域內的排名，實現對總分的排名，I2單元格公式為＝RANK（H2， $H$2:$H$13 ) 。故答案為：=RANK(H2, $H$2:$H$13 )
（3）圖2顯示了有關學號、姓名、總分的相關數據，故數據區域選擇A2:B13，H2:H13，X軸標志為學號，姓名，系列產生在（列）。故答案為：A2:B13，H2:H13； 列
（4） 想只顯示平均分低于80分的學生的名單，執行篩選后，不滿足條件的數據將被隱藏而不是被刪除。本題使用（篩選），圖表只顯示篩選出來的相關數據，所以圖表（會）發生變化。故答案為：篩選；會
【分析】本題考查Excel的操作，主要涉及函數與公式的使用，數據的篩選。Rank函數是求某一個數值在某一區域內的排名。關于篩選般為了快速篩選一些比較大的數據，執行篩選后，不滿足條件的數據將被隱藏而不是被刪除。
13．【答案】（1）枚舉算法
（2）1；caption
（3）step 2
【知識點】枚舉算法及程序實現
【解析】【解答】（1）本程序是對100內的奇數逐個驗證是否為素數，故答案填：枚舉算法。
（2）由圖3知：工具1為標簽，工具2為文本框，工具3為命令按鈕，命令4為框架。 應用程序界面設計時，為添加”100以內的孿生素數” 使用的是標簽的標題屬性，故本小題第一個空答案填寫：1，第二個空答案填寫：caption。
（3）本題程序分析如下：
Private Sub Command1_Click() ‘命令按鈕單擊事件開始
Dim i As Integer ‘定義一個整型變量i
List1.Clear '清除列表框內容
For i = 3 To 97 ___①___ ‘使用i來控制循環，i代表100內的奇且已知99不是素數故i的初值為3，終值為97，步長為2，故本處答案填寫：step 2 If f(i) And f(i+2)=true Then ‘如果i和i+2為自定義函數f（）的值都為true（即i和i+2都是素數）則進行如下處理 List1.AddItem Str(i) + " 和 " + Str(i + 2) ‘將i和i+2在列表框中輸出 End If ‘結束判斷 Next i ‘結束循環
End Sub ‘結束命令按鈕單擊事件過程
Private Function f(x As Integer) As Boolean '判斷是否為素數，若是返回true,若不是則返回false
………
End Function
由以上程序析知： 程序①劃線處為使用i來控制循環，i代表100內的奇且已知99不是素數故i的初值為3，終值為97，步長為2，故本處答案填寫：step 2。
【分析】本題考查的是使用枚舉算法查找孿生素數的過程。枚舉算法是我們在日常中使用到的最多的一個算法，它的核心思想就是:枚舉所有的可能。枚舉法的本質就是從所有候選答案中去搜索正確的解,使用該算法需要滿足兩個條件：(1)可預先確定候選答案的數量；(2)候選答案的范圍在求解之前必須有一個確定的集合。
14．【答案】（1）scene 1；6；逐幀
（2）文字；stop();
【知識點】動畫的類型；常用影片控制函數的應用；多媒體作品的調試與遞交
【解析】【解答】（1）由圖可知當前的場景名稱為scene1，該場景共60幀，幀頻為10fps，則需要播放6秒，由圖可知玫瑰花由一系統的關鍵幀組成的屬于逐幀動畫，故本小題第一個空答案填寫：scene1，第二個空答案填寫：6，第三個空答案填寫：逐幀。
（2）由圖知在文字圖層的第60幀有一個空白關鍵幀共他各圖層的第60幀都沒有關鍵幀，故可以在文字圖層的第60幀插入停止播放動畫動作腳本，故本小題第一個空答案填寫：文字。第二個空答案填寫：stop（）。
【分析】本題考查的是動畫的播放時間、動畫類型及動作腳本命令。動畫的播放時間等于動畫的總幀數除以幀頻；動畫類型有補間動畫和逐幀動畫兩種，其中補間動畫又可分為動畫補間和形狀補間兩種。為了增強人機交互功能可以使用添加動作腳本命令。
15．【答案】（1）冒泡排序
（2）x=Int(Rnd*999)+1；a(j)【知識點】過程與自定義函數；排序算法及程序實現
【解析】【解答】（1）由程序知進行比較的兩個數是相鄰數組的兩個元素故這種排序方法是冒泡排序法，故本小題答案填寫：冒泡排序。
（2）本題程序分析如下：
Dim a(1 To 10) As Integer ‘定義窗體級整型數組a，用于存放10個隨機整數
Function f(x As Integer) As Boolean ’自定義函數f（）開始，f（）用于判斷參數x是否與上面的數重復
′代碼略
End Function ‘自定義函數結束
Private Sub Commandl_Click() ‘命令按鈕單擊事件開始
Dim n As Integer ′定義整型變量n，n用于統計已經產生的隨機整數個數
Dim i As Integer.j As Integer ‘定義整型變量i和j，用于控制循環
Dim x As Integer.k As Integer ‘定義整型變量x和k
Randomize ′初始化Rnd函數
n=0 ‘初始化變量n
List1.Clear ′清除列表框1中內容
List2.Clear ‘清除列表框2中的內容
Do While n<10 在n小于10時執行循環
x=① ′產生[1，999]范圍內的隨機整數，故此處答案填寫：int（999*rnd）+1
If Not f(x) Then ‘如果f（x）的值為false（即隨機整數x不重復）則進行如下處理
n=n+1 ‘將n值增1，代表又成功產生了一個指定范圍內的隨機整數
a(n)=x ‘將本次產生的隨機整數放入數組a中
List1.AddItem Str(a(n)) ‘在列表框1中占用一列顯示這個數
End If ‘結束條件判斷
Loop ‘結束循環
For i=1 To 9 ‘使用i來控制外層循環 ，i代表排序時比較的輪數
For j=10 To i+1 step -1 ‘使用j來控制內層循環，j代表每輪比較的次數
If ② Then ‘如果數組的前一個元素比后一個元素的值小時，則進行如下處理，故本處答案應填寫：a(j)k=a(j):a(j)=a(j-1):a(j-1)=k ‘借助第三變量k交換前后兩個數組元素的值
End If ‘結束條件判斷
Next j ‘結束內層循環
Next i ‘結束外層循環
For i=1 To 10 ‘使用i來控制循環
List2.AddItem Str(a(i)) ‘在列表框2中將已經排好順序的數組a輸出
Next i ‘結束循環
End Sub ‘結束事件過程
由以上程序分析知，在1處：產生[1，999]范圍內的隨機整數，故此處答案填寫：int（999*rnd）+1。
程序2處：如果數組的前一個元素比后一個元素的值小時，則進行如下處理，故本處答案應填寫：a(j)【分析】本題考查的是自定義函數的定義和引用、冒泡排序法及產生指定范圍內的整數公式。在使用冒泡法進行排序時使用i控制外層循環，代表每次的比較輪數，j控制內層循環代表每輪比較次數，在進行一輪比較后將最大值放到數列的末尾（本題是放到開頭），在經過n輪比較后將輸入的數排成一個由小到大（或由大到小）的數列。隨機數公式：int((上限-下限+1）*rnd）+下限。
16．【答案】（1）information.accdb
（2）b=rs.Fields("ye")
【知識點】程序訪問數據庫
【解析】【解答】本題程序分析如下：
Private Sub command1_click() ‘命令按鈕單擊事件開始
‘定義數據庫連接對象connection和記錄集對象rs
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String ‘定義查找字符串（變量）strSQL
Dim a,b,c as string ‘定義字符串變量a，b，c
Dim n as integer ‘定義整型變量n
‘使用數據庫連接對象的連接方法連接數據庫information.accdb,故此處答案應填寫數據庫名稱：information.accdb
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ ① "
conn.Open ‘使用數據庫對象的（打開）方法打開數據庫
strSQL ="select * from data" ‘對查找字符串strSQL進行賦值
Set rs.ActiveConnection = conn ‘將記錄集對象與連接數據庫對象建立關聯
rs.Open strSQL ‘使用記錄集的對象方法在data表中查找記錄
Label1.Caption = "" ‘將標簽1的標題屬性設為空
c=val(text1.text) ‘將文本框1輸入的卡號轉為數值型賦給變量c
n=0 ‘初始化記數器n
rs.movefirst ‘將指針移動到第一條記錄
Do while not rs.EOF ‘ 如果記錄指針不在文件底時進行循環
n=n+1 ‘使用記數器n進行記數
a=rs.Fields("xm") ‘將data表中的xm字段（姓名）的值賦給變量a
② ‘將data表中的ye 字段（余額）的值賦給變量b，故此處應填寫：b=rs.fields("ye")
If c= rs.Fields("kh") then ‘如果輸入的卡號（在變量c中）與data表中的kh字段（卡號）值相同則進行如下處理
Label1.caption=a+ "的卡內余額為"+b+"元" ‘在標簽1中顯示持卡人的姓名和余額
Exit do ‘退出循環（此處應為exit do）
else ‘否則（即本條記錄的卡號與輸入的卡號不一致時）進行如下處理
rs.movenext ‘將記錄指針下移一條
end if ‘結束條件判斷
loop ‘結束循環
if n=500 then Label1.caption=”查無此人” ‘如果n的值等于500時在標簽1中輸出“查無此人”
rs.close ‘關閉數據庫
conn.close ‘關閉連接
set rs=nothing ‘釋放對象rs
set conn=nothing ‘釋放對象conn
End Sub ‘結束命令按鈕單擊事件過程
由以上分析知： 程序中①劃線處：使用數據庫連接對象的連接方法連接數據庫information.accdb,故此處答案應填寫數據庫名稱：information.accdb。
程序中②劃線處：將data表中的ye 字段（余額）的值賦給變量b，故此處應填寫：b=rs.fields("ye") 。
【分析】本題考查的是使用VB程序訪問數據庫的方法及步驟。在VB和數據庫進行連接時先定義連接對象和數據庫記錄對象，然后使用連接字符打開數據表。最后使用查詢字符在表中使用指針進行定位，然后字段就可以象簡單變量一樣使用了。在不使用數據庫后要關閉數據庫及連接和釋放對象。
1 / 1浙江省溫州市十校聯合體2015-2016學年高二下學期期中聯考信息技術試題
一、單項選擇題
1．（2016高二下·溫州期中）小明要把信息作業上傳到教師機上。教師機的服務器地址為"FTP://10.133.22.110/ "，地址中的"FTP"表示（　　）
A．超文本傳輸協議 B．文件傳輸協議
C．TCP協議 D．SMTP協議
【答案】B
【知識點】網絡協議
【解析】【解答】SMTP是電子郵件傳輸協議；HTTP是超文本傳輸協議，
TCP是傳輸控制協議，FTP是文件傳輸協議。故答案選B。
【分析】本題考查的是網絡協議。HTTP是超文本傳輸協議，是用于在萬維網上傳輸文件（文本，圖形圖像，聲音，視頻和其他多媒體文件）的規則集； FTP是文件傳輸協議，用于使用TCP在FTP服務器和網絡中的客戶端計算機之間上傳和下載文件，可以將文件從一個主機復制到另一個主機；TCP協議提供連續的具有可靠的數據流式的傳輸服務；SMTP是負責電子郵件的發送協議。
2．（2016高二下·溫州期中）小麗用OCR軟件識別文件，發現OCR識別的準確率很低，準備向老師求助，應該把下列哪組文件發送給老師（　　）。
A．th.jpg和th.fla
B．th.bmp和th.rtf
C．th.png和th.tif
D．th.txt和th.png
【答案】C
【知識點】字符識別
【解析】【解答】根據使用OCR軟件進行漢字識別的原理，需要將圖片文件發送給老師，題中擴展名為jpg、bmp、Png、tif的文件都是圖片類型的文件。故答案選C。
【分析】本題考查OCR文字識別軟件能識別的文件格式。利用OCR( Optical Character Recognition, 光學字符識別)技術，將圖片、照片上的文字內容，直接轉換為可編輯文本的軟件。軟件可以把圖片轉換成可以編輯的文字。支持JPG、PNG、GIF、BMP等圖片格式。
3．（2016高二下·溫州期中）某Access數據表打開后如圖所示，下列描述中正確的是（　　）
A．“商品代碼”字段的類型是數值型
B．該數據表記錄數少于10條
C．該數據表字段數是6個
D．刪除“銷售日期”字段后，記錄數不會少
【答案】D
【知識點】數據表、字段、記錄的概念
【解析】【解答】 由圖中觀察
“商品代碼”字段的類型是文本型，選項A錯誤；該數據表記錄數共有13條，選項B錯誤；該數據表字段數至少是7個，選項C錯誤；刪除字段后，跟記錄數沒有關系。故答案選D。
【分析】本題考查字段、記錄的概念。數據表是數據庫最重要的組成部分之一，數據庫只是一個框架，數據表才是其實質內容，它是一張由行和列構成的二維表，表中的列稱為字段，表中的行稱為記錄。
4．（2016高二下·溫州期中）語句 “ i=3：s=1/(i-3)” 無法執行，原因是它違反了算法特征中的（　　）
A．有窮性 B．唯一性 C．可行性 D．確定性
【答案】C
【知識點】算法的基本概念與特征
【解析】【解答】分析題干，當為3時，后面表達式的除數為0，除數是不能為0的，所以違反了算法的可行性。
故答案選C。
【分析】本題考查算法的特性。一個算法應該具有以下五個重要的特征
1、有窮性:一個算法必須保證執行有限步之后結束
2、確切性:算法的每一步驟必須有確切的定義
3、輸入:一個算法有0個或多個輸入，以刻畫運算對象的初始情況
4、輸出:一個算法有一個或多個輸出，以反映對輸入數據加工后的結果.沒有輸出的算法是毫無意義的
5．（2016高二下·溫州期中）用UltraEdit觀察字符內碼，結果如圖所示：
則字符“It”的十六進制內碼值為：（　　）
A．43 54 B．43 74 C．49 54 D．49 74
【答案】D
【知識點】信息的編碼
【解析】【解答】根據圖中所示字符“P”的內碼為：50H。字符“T”的內碼為：54H。所以字符“I”的內碼為字符“P”的內碼減7H，即50H-7H＝49H。字符“t”的內碼為字符“T”的內碼加32D，即54H+32D=54H+20H=74H。故答案選D。
【分析】本題考查字符的編碼。在ASCII表中字符之間都是相關的，如字母“a”的位于字母“A”后32位，所以我們可以可以根據“A”的ASCII碼值計算處“a”的ASCII碼值。本題可根據字符“P”“T”的內碼推算出字符“I”“t”的內碼。
6．（2016高二下·溫州期中）使用GoldWave軟件處理名為sound1.wav的雙聲道音頻，刪除了右聲道中的聲音，并將音量降低到原來的一半，然后按原格式以sound2.wav為文件名保存。Sound1.wav 與sound2.wav相比，存儲容量（　　）
A．不變 B．減小1/2 C．減小1/3 D．減小1/4
【答案】A
【知識點】聲音、圖像、視頻編碼
【解析】【解答】刪除右聲道的聲音不是刪除右聲音，音頻文件的存儲容量只與采樣頻率、量化位數、聲道數及時長有關，與音量的大小無關，故答案選A。
【分析】本題考查的是影響聲音存儲容量的因素。音頻文件存儲容量公式為：音頻文件存儲容量=(采樣頻率× 采樣位數× 聲道數× 時間) / 8 (字節)，由公式知音頻文件的存儲容量只與采樣頻率、量化位數聲道數及時長有關。
7．（2016高二下·溫州期中）用Photoshop處理圖像，下列說法正確的是（　　）
A．吸管工具可以從圖像中取色，并指定為新的前景色
B．將PSD格式文件存儲為BMP格式后，不會丟失任何信息
C．對某圖層使用濾鏡效果，會使其圖層的數目增加
D．Photoshop中“背景層”始終在最底層
【答案】A
【知識點】圖片加工常用工具的使用
【解析】【解答】選項A：吸管又叫取色工具，可以從圖像中提取顏色，并指定為前景色。本項對。選項B： 將PSD格式文件存儲為BMP格式后 ，圖層、一些不可見的圖層、樣式都不會被保存，本項錯。選項C：對某個圖層使用濾鏡只是在本圖層中應用不會產生新圖層，本項錯。選項D：“背景層”也是一種普通圖層，可以調換位置，本項錯。故答案選A。
【分析】本題考查的是圖片加工工具的使用、PS文件格式的存儲、濾鏡的使用。為了管理方便，Photoshop對圖像進行了分層操作，這樣不僅設置圖層的顏色、樣式、應用濾鏡都十分方便而且可以輕松改變圖層的疊放層次及空間位置。
8．（2016高二下·溫州期中）下圖是制作某flash作品時的截圖，從圖中可知，“背景”圖層中的背景圖片僅在第1幀到第20幀出現，若要使背景圖片一直延續到第45幀，可在該圖層的第21幀上進行的操作是（　　）
A．清除關鍵幀 B．刪除幀
C．清除幀 D．插入幀
【答案】A
【知識點】時間軸、幀、圖層、庫的概念及基本操作
【解析】【解答】 “背景”圖層中的背景圖片僅在第1幀到第20幀出現，而在第21幀后不出現的原因是在“背景”圖層的第21幀有一個空白關鍵幀若將該關鍵幀清除則“背景”就會從第1幀顯示到第45幀，故答案選A。
【分析】本題考查的是二維動畫中延續某一圖像的方法。在Flash中幀可以分為關鍵幀、空白關鍵幀及普通幀三種，其中關鍵幀是存放圖像或圖像改變的，而空白關鍵幀是表示圖像到此不再顯示的，而普通幀延續上一幀的圖像或在兩個關鍵幀之間做補間的。
9．（2016高二下·溫州期中）用迅雷軟件下載一部25幀/秒、10秒、分辨率為1024×768、16色彩色、未經壓縮的視頻片段，當時網絡的下載速度是 380 KB/s，下載完這個片段大約需要多少時間（　　）
A．10分鐘 B．2分鐘 C．4.2分鐘 D．16.8分鐘
【答案】C
【知識點】聲音、圖像、視頻編碼
【解析】【解答】根據題中信息計算該視頻文件存儲量=1024*768*4*25*10/8=98304000B=96000KB，下載所需的時間是96000÷380≈253秒≈4.2分鐘。 故答案選C。
【分析】本題考查視頻文件的存儲容量。容量大小:字節數＝分辨率＊色彩位數＊每秒幀數＊秒數/8 。色彩深度是用＂n位顏色＂來說明的。若色彩深度是n位，即有2n種須色選擇，而儲存每像素所用的位數就是n。
10．（2016高二下·溫州期中）VB表達式9\8/2 + 12 Mod 3*3 的值是(　　)。
A．0.5 B．7 C．3.5 D．5
【答案】D
【知識點】運算符、基本運算與表達式
【解析】【解答】 9\8/2 + 12 Mod 3*3=9\4+12 mod 9 =2+3=5，故答案選D。
【分析】本題考查的是Visual Basic的算術運算符的優先級。算術運算符的優先級順序為：負號（-）—->冪（^或**）->乘（*）、除（/)->整除 (\)、求模（mod)->加（+）、減（-）。
11．（2016高二下·溫州期中）數學老師寫了一組數列1，4，7，10，13，……求前N項的和，小明想用遞歸算法來完成，那么他設計的遞推公式正確的是(　　)。
A．f(1)=1: f(n)=n*2-1 B．f(1)=1: (n)=n*2+1
C．f(1)=1: f(n)=n+3 D．f(1)=1: f(n)=f(n-1)+3
【答案】D
【知識點】遞歸算法
【解析】【解答】遞歸算法就是調用自身的算法，選項A、選項B中沒有調用自身，選項C雖然調用自身但沒有出口就會形成死循環。故答案選D。
【分析】本題考查的是遞歸算法的公式。遞歸算法在計算機科學中是指一種通過重復將問題分解為同類的子問題而解決問題的方法，這種算法要求：一必須有一個出口，二在調用自身時參數必須是遞增遞減的。
二、綜合題
12．（2016高二下·溫州期中）以下(圖1)為2016年高一（1）班的成績表，請根據表格提供的信息回答下面幾道小題。
圖1
（1）觀察數據表，發現A列數據格式應該設為　 　。
（2）某一同學想用RNK函數和自動填充的方法實現對總分的排名，則I2單元格公式為　 　 。（rank函數是求某一個數值在某一區域內的排名，如=RANK(A1，A1:A5),表示A1在區域A1:A5中的名次）。
（3）下圖(圖2)圖表的數據源區域為　 　,系列產生在 　 　 。
圖2
（4）想只顯示平均分低于80分的學生的名單，可使用　 　 來實現。操作后發現圖表 　 　（填“會”或“不會“） 發生變化。
【答案】（1）文本
（2）=RANK(H2，$H$2:$H$13)
（3）A2：B13，H2：H13；列
（4）篩選；會
【知識點】表格數據的基本操作；表格數據的處理與計算
【解析】【解答】（1）
觀察數據表 A列數據001，002，003…，格式應該設為（文本）。故答案為：文本
（2）根據rank函數是求某一個數值在某區域內的排名，實現對總分的排名，I2單元格公式為＝RANK（H2， $H$2:$H$13 ) 。故答案為：=RANK(H2, $H$2:$H$13 )
（3）圖2顯示了有關學號、姓名、總分的相關數據，故數據區域選擇A2:B13，H2:H13，X軸標志為學號，姓名，系列產生在（列）。故答案為：A2:B13，H2:H13； 列
（4） 想只顯示平均分低于80分的學生的名單，執行篩選后，不滿足條件的數據將被隱藏而不是被刪除。本題使用（篩選），圖表只顯示篩選出來的相關數據，所以圖表（會）發生變化。故答案為：篩選；會
【分析】本題考查Excel的操作，主要涉及函數與公式的使用，數據的篩選。Rank函數是求某一個數值在某一區域內的排名。關于篩選般為了快速篩選一些比較大的數據，執行篩選后，不滿足條件的數據將被隱藏而不是被刪除。
13．（2016高二下·溫州期中）求孿生素數。孿生素數是指兩個相鄰奇數且都是素數，由于它們是最近的素數，就像孿生兄弟一樣。下列Visual Basic程序用于查找100以內的所有孿生素數，其中函數f用于判斷一個數是否是素數，程序運行界面如圖(圖1)所示，Command1鼠標單擊事件過程的流程圖如圖(圖2)所示。
程序代碼如下：
Private Sub Command1_Click()
Dim i As Integer
List1.Clear '清除列表框內容
For i = 3 To 97 ___①___ If f(i) And f(i+2)=true Then List1.AddItem Str(i) + " 和 " + Str(i + 2) End If Next i
End Sub
Private Function f(x As Integer) As Boolean '判斷是否為素數，若是返回true,若不是則返回false
………
End Function
（1）程序中加框部分的算法是　 　（選填：解析算法/枚舉算法）
（2）應用程序界面設計時，為添加”100以內的孿生素數”，應使用圖3所示的“控件工具箱”中的　 　（填寫相應編號），并將其　 　屬性設置為”100以內的孿生素數
（3）在程序①劃線處，填入適當的語句或表達式，把程序補充完整：
程序中①劃線處應填入　 　
【答案】（1）枚舉算法
（2）1；caption
（3）step 2
【知識點】枚舉算法及程序實現
【解析】【解答】（1）本程序是對100內的奇數逐個驗證是否為素數，故答案填：枚舉算法。
（2）由圖3知：工具1為標簽，工具2為文本框，工具3為命令按鈕，命令4為框架。 應用程序界面設計時，為添加”100以內的孿生素數” 使用的是標簽的標題屬性，故本小題第一個空答案填寫：1，第二個空答案填寫：caption。
（3）本題程序分析如下：
Private Sub Command1_Click() ‘命令按鈕單擊事件開始
Dim i As Integer ‘定義一個整型變量i
List1.Clear '清除列表框內容
For i = 3 To 97 ___①___ ‘使用i來控制循環，i代表100內的奇且已知99不是素數故i的初值為3，終值為97，步長為2，故本處答案填寫：step 2 If f(i) And f(i+2)=true Then ‘如果i和i+2為自定義函數f（）的值都為true（即i和i+2都是素數）則進行如下處理 List1.AddItem Str(i) + " 和 " + Str(i + 2) ‘將i和i+2在列表框中輸出 End If ‘結束判斷 Next i ‘結束循環
End Sub ‘結束命令按鈕單擊事件過程
Private Function f(x As Integer) As Boolean '判斷是否為素數，若是返回true,若不是則返回false
………
End Function
由以上程序析知： 程序①劃線處為使用i來控制循環，i代表100內的奇且已知99不是素數故i的初值為3，終值為97，步長為2，故本處答案填寫：step 2。
【分析】本題考查的是使用枚舉算法查找孿生素數的過程。枚舉算法是我們在日常中使用到的最多的一個算法，它的核心思想就是:枚舉所有的可能。枚舉法的本質就是從所有候選答案中去搜索正確的解,使用該算法需要滿足兩個條件：(1)可預先確定候選答案的數量；(2)候選答案的范圍在求解之前必須有一個確定的集合。
14．（2016高二下·溫州期中）小周同學制作了Flash動畫，某個場景制作界面如圖所示，請回答下列問題。
（1）根據圖中所示，當前場景的名稱為 　 　。該場景總共有60幀，則執行播放完該場景共需　 　秒。玫瑰花圖層的動畫屬于　 　 動畫。
（2）執行“影片測試”，發現動畫循環播放，小周想播放一遍后停止，他必須在　 　 圖層添加腳本動作為 　 　 。
【答案】（1）scene 1；6；逐幀
（2）文字；stop();
【知識點】動畫的類型；常用影片控制函數的應用；多媒體作品的調試與遞交
【解析】【解答】（1）由圖可知當前的場景名稱為scene1，該場景共60幀，幀頻為10fps，則需要播放6秒，由圖可知玫瑰花由一系統的關鍵幀組成的屬于逐幀動畫，故本小題第一個空答案填寫：scene1，第二個空答案填寫：6，第三個空答案填寫：逐幀。
（2）由圖知在文字圖層的第60幀有一個空白關鍵幀共他各圖層的第60幀都沒有關鍵幀，故可以在文字圖層的第60幀插入停止播放動畫動作腳本，故本小題第一個空答案填寫：文字。第二個空答案填寫：stop（）。
【分析】本題考查的是動畫的播放時間、動畫類型及動作腳本命令。動畫的播放時間等于動畫的總幀數除以幀頻；動畫類型有補間動畫和逐幀動畫兩種，其中補間動畫又可分為動畫補間和形狀補間兩種。為了增強人機交互功能可以使用添加動作腳本命令。
15．（2016高二下·溫州期中）下列VB程序的功能是：程序運行時，單擊命令按鈕Commandl后，產生10個[1，999]范圍內互不相同的隨機整數，依次顯示在列表框List1中，然后將它們按從小到大的順序排序，排序結果顯示在列表框List2中。
數組a用于存儲產生的10個隨機整數，函數f(x)用于判斷隨機整數x與已生成的整數是否有重復，若有重復則返回True，否則返回False。
（1）虛線框內程序段所采用的排序算法名稱是　 　。（填：冒泡排序/選擇排序）
（2）在程序①和②劃線處，填入適當的語句或表達式，把程序補充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean
′代碼略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于統計已經產生的隨機整數個數
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize ′初始化Rnd函數
n=0
List1.Clear ′清除列表框中內容
List2.Clear
Do While n<10
x=①　 　 ′產生[1，999]范圍內的隨機整數
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str(a(n))
End If
Loop
For i=1 To 9
For j=10 To i+1 step -1
If ②　 　 Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i=1 To 10
List2.AddItem Str(a(i))
Next i
End Sub
【答案】（1）冒泡排序
（2）x=Int(Rnd*999)+1；a(j)【知識點】過程與自定義函數；排序算法及程序實現
【解析】【解答】（1）由程序知進行比較的兩個數是相鄰數組的兩個元素故這種排序方法是冒泡排序法，故本小題答案填寫：冒泡排序。
（2）本題程序分析如下：
Dim a(1 To 10) As Integer ‘定義窗體級整型數組a，用于存放10個隨機整數
Function f(x As Integer) As Boolean ’自定義函數f（）開始，f（）用于判斷參數x是否與上面的數重復
′代碼略
End Function ‘自定義函數結束
Private Sub Commandl_Click() ‘命令按鈕單擊事件開始
Dim n As Integer ′定義整型變量n，n用于統計已經產生的隨機整數個數
Dim i As Integer.j As Integer ‘定義整型變量i和j，用于控制循環
Dim x As Integer.k As Integer ‘定義整型變量x和k
Randomize ′初始化Rnd函數
n=0 ‘初始化變量n
List1.Clear ′清除列表框1中內容
List2.Clear ‘清除列表框2中的內容
Do While n<10 在n小于10時執行循環
x=① ′產生[1，999]范圍內的隨機整數，故此處答案填寫：int（999*rnd）+1
If Not f(x) Then ‘如果f（x）的值為false（即隨機整數x不重復）則進行如下處理
n=n+1 ‘將n值增1，代表又成功產生了一個指定范圍內的隨機整數
a(n)=x ‘將本次產生的隨機整數放入數組a中
List1.AddItem Str(a(n)) ‘在列表框1中占用一列顯示這個數
End If ‘結束條件判斷
Loop ‘結束循環
For i=1 To 9 ‘使用i來控制外層循環 ，i代表排序時比較的輪數
For j=10 To i+1 step -1 ‘使用j來控制內層循環，j代表每輪比較的次數
If ② Then ‘如果數組的前一個元素比后一個元素的值小時，則進行如下處理，故本處答案應填寫：a(j)k=a(j):a(j)=a(j-1):a(j-1)=k ‘借助第三變量k交換前后兩個數組元素的值
End If ‘結束條件判斷
Next j ‘結束內層循環
Next i ‘結束外層循環
For i=1 To 10 ‘使用i來控制循環
List2.AddItem Str(a(i)) ‘在列表框2中將已經排好順序的數組a輸出
Next i ‘結束循環
End Sub ‘結束事件過程
由以上程序分析知，在1處：產生[1，999]范圍內的隨機整數，故此處答案填寫：int（999*rnd）+1。
程序2處：如果數組的前一個元素比后一個元素的值小時，則進行如下處理，故本處答案應填寫：a(j)【分析】本題考查的是自定義函數的定義和引用、冒泡排序法及產生指定范圍內的整數公式。在使用冒泡法進行排序時使用i控制外層循環，代表每次的比較輪數，j控制內層循環代表每輪比較次數，在進行一輪比較后將最大值放到數列的末尾（本題是放到開頭），在經過n輪比較后將輸入的數排成一個由小到大（或由大到小）的數列。隨機數公式：int((上限-下限+1）*rnd）+下限。
16．（2016高二下·溫州期中）由人民政府授權發放給市民用于辦理個人相關事務和享受公共服務的集成電路卡（IC卡），具有信息儲存、身份識別、電子支付等功能。每位市民都可以擁有一張唯一卡號的市民卡，卡內會記錄每位市民的姓名、電話、金額等信息。
假設共有500個市民，市民的相關信息都存儲在“information.accdb”的data表中，”xm, ye,kh” 字段放市民的姓名，余額,卡號。查詢程序界面如第16題圖所示。工作人員在文本框Text1中輸入卡號，單擊“查詢”按鈕，如果找到，就在Label1中顯示卡內市民姓名和卡內余額；否則顯示“查無此人”。程序如下，請按要求將程序補充完整。
Private Sub command1_click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String
Dim a,b,c as string
Dim n as integer
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ ① "
conn.Open
strSQL ="select * from data"
Set rs.ActiveConnection = conn
rs.Open strSQL
Label1.Caption = ""
c=val(text1.text)
n=0
rs.movefirst
Do while not rs.EOF
n=n+1
a=rs.Fields("xm")
②
If c= rs.Fields("kh") then
Label1.caption=a+ "的卡內余額為"+b+"元"
Exit if
else
rs.movenext
end if
loop
if n=500 then Label1.caption=”查無此人”
rs.close
conn.close
set rs=nothing
set conn=nothing
End Sub
（1）程序中①劃線處應填入　 　。
（2）程序中②劃線處應填入　 　。
【答案】（1）information.accdb
（2）b=rs.Fields("ye")
【知識點】程序訪問數據庫
【解析】【解答】本題程序分析如下：
Private Sub command1_click() ‘命令按鈕單擊事件開始
‘定義數據庫連接對象connection和記錄集對象rs
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String ‘定義查找字符串（變量）strSQL
Dim a,b,c as string ‘定義字符串變量a，b，c
Dim n as integer ‘定義整型變量n
‘使用數據庫連接對象的連接方法連接數據庫information.accdb,故此處答案應填寫數據庫名稱：information.accdb
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ ① "
conn.Open ‘使用數據庫對象的（打開）方法打開數據庫
strSQL ="select * from data" ‘對查找字符串strSQL進行賦值
Set rs.ActiveConnection = conn ‘將記錄集對象與連接數據庫對象建立關聯
rs.Open strSQL ‘使用記錄集的對象方法在data表中查找記錄
Label1.Caption = "" ‘將標簽1的標題屬性設為空
c=val(text1.text) ‘將文本框1輸入的卡號轉為數值型賦給變量c
n=0 ‘初始化記數器n
rs.movefirst ‘將指針移動到第一條記錄
Do while not rs.EOF ‘ 如果記錄指針不在文件底時進行循環
n=n+1 ‘使用記數器n進行記數
a=rs.Fields("xm") ‘將data表中的xm字段（姓名）的值賦給變量a
② ‘將data表中的ye 字段（余額）的值賦給變量b，故此處應填寫：b=rs.fields("ye")
If c= rs.Fields("kh") then ‘如果輸入的卡號（在變量c中）與data表中的kh字段（卡號）值相同則進行如下處理
Label1.caption=a+ "的卡內余額為"+b+"元" ‘在標簽1中顯示持卡人的姓名和余額
Exit do ‘退出循環（此處應為exit do）
else ‘否則（即本條記錄的卡號與輸入的卡號不一致時）進行如下處理
rs.movenext ‘將記錄指針下移一條
end if ‘結束條件判斷
loop ‘結束循環
if n=500 then Label1.caption=”查無此人” ‘如果n的值等于500時在標簽1中輸出“查無此人”
rs.close ‘關閉數據庫
conn.close ‘關閉連接
set rs=nothing ‘釋放對象rs
set conn=nothing ‘釋放對象conn
End Sub ‘結束命令按鈕單擊事件過程
由以上分析知： 程序中①劃線處：使用數據庫連接對象的連接方法連接數據庫information.accdb,故此處答案應填寫數據庫名稱：information.accdb。
程序中②劃線處：將data表中的ye 字段（余額）的值賦給變量b，故此處應填寫：b=rs.fields("ye") 。
【分析】本題考查的是使用VB程序訪問數據庫的方法及步驟。在VB和數據庫進行連接時先定義連接對象和數據庫記錄對象，然后使用連接字符打開數據表。最后使用查詢字符在表中使用指針進行定位，然后字段就可以象簡單變量一樣使用了。在不使用數據庫后要關閉數據庫及連接和釋放對象。
1 / 1

展開更多......

收起↑