2009 年12 月(二級(jí) Access 數(shù)據(jù)庫(kù)程序設(shè)計(jì))
2009 年12 月(二級(jí) Access 數(shù)據(jù)庫(kù)程序設(shè)計(jì))一、單項(xiàng)選擇題(每題1 分,共40 分)1. 馮. 諾依曼型計(jì)算機(jī)的工作原理是 1 。A )計(jì)算精度高 B)量子理論C )運(yùn)行速度快 D )存
2009 年12 月(二級(jí) Access 數(shù)據(jù)庫(kù)程序設(shè)計(jì))
一、單項(xiàng)選擇題(每題1 分,共40 分)
1. 馮. 諾依曼型計(jì)算機(jī)的工作原理是 1 。
A )計(jì)算精度高 B)量子理論
C )運(yùn)行速度快 D )存儲(chǔ)并自動(dòng)執(zhí)行程序
2. 在計(jì)算機(jī)硬件系統(tǒng)中,CPU 的組成主要包括 2 。
A )運(yùn)算器和控制器 B)控制器和存儲(chǔ)器
C )運(yùn)算器和存儲(chǔ)器 D)運(yùn)算器和I/O 設(shè)備
3. 計(jì)算機(jī)系統(tǒng)中的1 個(gè)字節(jié)由 3 位二進(jìn)制數(shù)組成。
A )2 B)4 C )8 D)16
4. 在計(jì)算機(jī)系統(tǒng)中,管理軟、硬件資源的是 4 。
A )監(jiān)控系統(tǒng) B )操作系統(tǒng)
C )管理軟件 D)應(yīng)用軟件
5. 在Windows 中,回收站里的文件占用 5 空間。
A )內(nèi)存 B)光盤(pán) C)軟盤(pán) D )硬盤(pán)
6. 電子郵件地址的格式是 6 。
A )用戶(hù)名. 主機(jī)域名 B)主機(jī)域名. 用戶(hù)名
C )用戶(hù)名@主機(jī)域名 D)主機(jī)域名@用戶(hù)名
7. 下列選項(xiàng)中, 7 通常作為音頻文件擴(kuò)展名。
A )mp3 B)doc C)exe D)txt
8. 在計(jì)算機(jī)網(wǎng)絡(luò)分類(lèi)中,LAN 表示 8 。
A )廣域網(wǎng) B)蜂窩網(wǎng) C)城域網(wǎng) D )局域網(wǎng)
9. 下列選項(xiàng)中, 9 不是計(jì)算機(jī)病毒的特征。
A )傳染性 B)破壞性 C )免疫性 D)隱蔽性
10. 用 10 編寫(xiě)的程序不需要編譯,可以在計(jì)算機(jī)上直接運(yùn)行。
A )人工智能語(yǔ)言 B )機(jī)器語(yǔ)言 C)匯編語(yǔ)言 D)高級(jí)語(yǔ)言
11.以下關(guān)于數(shù)據(jù)庫(kù)的描述中,錯(cuò)誤的是 。
A )數(shù)據(jù)庫(kù)中的數(shù)據(jù)獨(dú)立于應(yīng)用程序且可以被不同的應(yīng)用程序共享
B )數(shù)據(jù)庫(kù)是存儲(chǔ)在磁盤(pán)等存儲(chǔ)介質(zhì)上,按一定結(jié)構(gòu)組織起來(lái)的數(shù)據(jù)集合
C )目前使用的數(shù)據(jù)庫(kù)一般都屬于層次型數(shù)據(jù)庫(kù)
D )在一個(gè)數(shù)據(jù)庫(kù)中,可能包含一個(gè)或者多個(gè)表
12.以下關(guān)于關(guān)系的描述中,錯(cuò)誤的是 。
A )從直觀上看,一個(gè)關(guān)系就是一個(gè)二維表
B )關(guān)系中的元組就是二維表中的行,在一個(gè)關(guān)系中可以有兩個(gè)相同的元組
C )關(guān)系中的屬性就是二維表中的列,同一列的數(shù)據(jù)類(lèi)型必須相同
D )在關(guān)系數(shù)據(jù)庫(kù)中,一個(gè)關(guān)系就是數(shù)據(jù)庫(kù)中的一個(gè)表
13.以下關(guān)于Access 的描述中,錯(cuò)誤的是 。
A )Access 是一個(gè)典型的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)
B )Access 可以與Excel 交換數(shù)據(jù)
C )通過(guò)Access 的向?qū)В梢詣?chuàng)建大多數(shù)Access 數(shù)據(jù)庫(kù)對(duì)象
2
D )一個(gè)Access 數(shù)據(jù)庫(kù)包含多個(gè)獨(dú)立的文件,分別用于存儲(chǔ)表、窗體及報(bào)表等
14.在進(jìn)行Access 數(shù)據(jù)庫(kù)設(shè)計(jì)時(shí),首先要做的工作是 。
A )進(jìn)行需求分析,以綜合并明確描述用戶(hù)的應(yīng)用需求
,B )進(jìn)行窗體設(shè)計(jì),以確定系統(tǒng)主要的輸入與顯示界面是否滿(mǎn)足用戶(hù)需求
C )進(jìn)行報(bào)表設(shè)計(jì),以確定用戶(hù)需要從數(shù)據(jù)庫(kù)中獲取什么樣的信息
D )進(jìn)行菜單設(shè)計(jì),以確定系統(tǒng)包含哪些功能
15.保存一個(gè)“日期/時(shí)間”型數(shù)據(jù)需要 個(gè)字節(jié)的存儲(chǔ)空間。
A )4 B )8 C)64 D)256
16.在Access 數(shù)據(jù)表中,通常用 字段保存邏輯型數(shù)據(jù)。
A )文本型 B)數(shù)字型 C)備注型 D )是/否型
17.在Access 數(shù)據(jù)表中,如果定義了自動(dòng)編號(hào)型字段,系統(tǒng)將自動(dòng)為每一個(gè) 分配 一個(gè)編號(hào)。
A )字段 B )記錄 C)表 D)域
18.在Access 數(shù)據(jù)表中,用于存放照片之類(lèi)的數(shù)據(jù)時(shí),其字段類(lèi)型通常應(yīng)該是 。
A )數(shù)字 B)備注 C)文本 D )OLE 對(duì)象
19.以下關(guān)于主關(guān)鍵字的描述中,錯(cuò)誤的是 。
A )主關(guān)鍵字段設(shè)置好后不能更改 B)主關(guān)鍵字能夠唯一標(biāo)識(shí)表中的每條記錄
C )主關(guān)鍵字可以由一個(gè)或多個(gè)字段組成 D)主關(guān)鍵字不允許有重復(fù)值和空值
20.以下關(guān)于索引的描述中,錯(cuò)誤的是 。
A )創(chuàng)建索引可以提高數(shù)據(jù)檢索速度 B)索引數(shù)量過(guò)多可能會(huì)影響表的更新速度
C )同一個(gè)表中的索引字段的值不能重復(fù) D)如果設(shè)置了主鍵,系統(tǒng)將自動(dòng)創(chuàng)建索引
21.以下關(guān)于查詢(xún)的描述中,錯(cuò)誤的是 。
A )查詢(xún)可以顯示或者修改表中的數(shù)據(jù) B )查詢(xún)只能以表作為數(shù)據(jù)源
C )查詢(xún)的結(jié)果隨表中記錄的變化而變化 D)查詢(xún)可以作為窗體等數(shù)據(jù)庫(kù)對(duì)象的數(shù)據(jù)源
22.創(chuàng)建一個(gè)查詢(xún),查找數(shù)據(jù)表中“出生日期”在1990-1-1 至1990-12-31 之間的記錄,在 設(shè)計(jì)視圖的相應(yīng)字段對(duì)應(yīng)的條件行中,可設(shè)置為_(kāi)_____ 。
A )Between 1990-1-1 And 1990-12-31 B )Between #1990-1-1# And #1990-12-31#
C )Between 1990-1-1 Or 1990-12-31 D)Between #1990-1-1# Or #1990-12-31#
23.將查詢(xún)結(jié)果保存到一個(gè)新表中的查詢(xún)稱(chēng)為 。
A )生成表查詢(xún) B)追加查詢(xún) C)刪除查詢(xún) D)SQL 查詢(xún)
24.在創(chuàng)建參數(shù)查詢(xún)的設(shè)計(jì)視圖中,需要將指定的參數(shù)名用 括起來(lái)。
A )( ) B)< > C){ } D )[ ]
25.在創(chuàng)建交叉表查詢(xún)時(shí),在設(shè)計(jì)視圖的交叉表行中必需確定的選項(xiàng)有 。
A )值 B)列標(biāo)題 C)行標(biāo)題 D )以上三個(gè)都是
26.查詢(xún)“學(xué)生”表中所有“籍貫”為“合肥”的記錄信息,對(duì)應(yīng)的SQL 語(yǔ)句為 。
A )Select * From 學(xué)生 Where 籍貫=合肥
B )Select * From 學(xué)生 Where 籍貫="合肥"
3
C )Select * From 學(xué)生 While 籍貫=合肥
D )Select * From 學(xué)生 While 籍貫="合肥"
27.在Access 數(shù)據(jù)庫(kù)中,窗體對(duì)象的Caption 屬性的作用是確定窗體的 。
A ) 標(biāo)題 B)名稱(chēng) C)邊界類(lèi)型 D)字體
28.在顯示具有一對(duì)多關(guān)系的表或查詢(xún)中的數(shù)據(jù)時(shí),一般使用_______窗體。
A) 縱欄式 B) 表格式 C ) 主/子 D) 圖表式
29.以下關(guān)于Access 窗體和報(bào)表的描述中,錯(cuò)誤的是________。
A )窗體和報(bào)表均可以修改數(shù)據(jù)表中的數(shù)據(jù)
B )窗體和報(bào)表均可以顯示數(shù)據(jù)表中的數(shù)據(jù)
,C )窗體和報(bào)表的數(shù)據(jù)來(lái)源均可以是查詢(xún)
D )窗體和報(bào)表的數(shù)據(jù)來(lái)源均可以是SQL 語(yǔ)句
30.窗體的設(shè)計(jì)視圖由多個(gè)部分組成,每部分稱(chēng)為節(jié),其中 節(jié)是每個(gè)窗體都必須有的。
A) 窗體頁(yè)眉 B) 頁(yè)面頁(yè)眉 C ) 主體 D) 頁(yè)面頁(yè)腳
31.在窗體中,可以用來(lái)輸入或編輯文本、數(shù)字、日期/時(shí)間型字段數(shù)據(jù)的交互控件是_______。
A ) 文本框控件 B) 標(biāo)簽控件 C) 命令按鈕控件 D) 選項(xiàng)組控件
32.圖書(shū)訂單表中包含書(shū)名、單價(jià)和訂購(gòu)數(shù)量等三個(gè)字段,以該表為數(shù)據(jù)源創(chuàng)建的窗體中有 一個(gè)用于顯示某種圖書(shū)訂購(gòu)金額的文本框,其“控件來(lái)源”屬性可設(shè)置為_(kāi)_______。
A) [單價(jià)]*[訂購(gòu)數(shù)量] B) [單價(jià)]*[圖書(shū)訂單]![訂購(gòu)數(shù)量]
C ) =[單價(jià)]*[訂購(gòu)數(shù)量] D) =[圖書(shū)訂單]![單價(jià)]*[訂購(gòu)數(shù)量]
33.報(bào)表是以打印格式顯示數(shù)據(jù)的一種有效方式,它不能完成的任務(wù)是_______。
A) 分組數(shù)據(jù) B) 匯總數(shù)據(jù) C ) 輸入數(shù)據(jù) D)輸出數(shù)據(jù)
34.以下關(guān)于創(chuàng)建報(bào)表的描述中,不正確的是_______。
A) 可以利用向?qū)Ш驮O(shè)計(jì)視圖創(chuàng)建報(bào)表 B) 可以利用向?qū)?chuàng)建圖表式和標(biāo)簽式報(bào)表
C) 可以自動(dòng)創(chuàng)建縱欄式和表格式報(bào)表 D ) 自動(dòng)創(chuàng)建報(bào)表時(shí)可以根據(jù)需要選擇字段
35.要在報(bào)表中按字段分組統(tǒng)計(jì),可以在____________節(jié)中設(shè)置用于顯示分組統(tǒng)計(jì)信息的文 本框控件。
A )報(bào)表頁(yè)腳 B )組頁(yè)腳 C)主體 D)頁(yè)面頁(yè)腳
36.以下關(guān)于數(shù)據(jù)訪問(wèn)頁(yè)的描述中,錯(cuò)誤的是 。
A )數(shù)據(jù)訪問(wèn)頁(yè)是Access 數(shù)據(jù)庫(kù)對(duì)象之一,以獨(dú)立的HTML 文件保存
B )用戶(hù)可以通過(guò)數(shù)據(jù)訪問(wèn)頁(yè)查看或者編輯表中的記錄
C )可以通過(guò)設(shè)計(jì)視圖創(chuàng)建數(shù)據(jù)訪問(wèn)頁(yè),且可以在其中添加多種控件
D )用戶(hù)只有在瀏覽器中才能打開(kāi)數(shù)據(jù)訪問(wèn)頁(yè)文件
37.以下關(guān)于宏的描述中,錯(cuò)誤的是 。
A )一個(gè)宏中可以包含一個(gè)或多個(gè)操作
B )可以將幾個(gè)相關(guān)的宏組織在一起構(gòu)成一個(gè)宏組
C )已經(jīng)創(chuàng)建的宏可以通過(guò)事件觸發(fā)
D )運(yùn)行宏時(shí),將按順序執(zhí)行其中所有的操作
4
38. 目前使用比較普遍的用于開(kāi)發(fā)應(yīng)用系統(tǒng)的程序設(shè)計(jì)語(yǔ)言一般都是____________的語(yǔ)言。
A) 面向機(jī)器 B) 面向過(guò)程 C ) 面向?qū)ο?D) 面向服務(wù)
39. 在VBA 程序中,如果需要?jiǎng)?chuàng)建一個(gè)存儲(chǔ)整數(shù)的變量x ,可以用_________語(yǔ)句定義。
A ) Dim x as Integer B) Static x as Char
C) Dim x as Date D) Static x as String
40. 在VBA 程序中,用于表示
c
a b
3
6 2
的表達(dá)式為_(kāi)______________。
A) 6a b^2/3*c B) 6*a b^2/(3*c) C) (6*a b*b)/3*c D ) (6*a b*b)/(3*c)
二、填空題(每空2 分,共30 分)
1.在關(guān)系數(shù)據(jù)庫(kù)中,為了實(shí)現(xiàn)各種查詢(xún),需要進(jìn)行專(zhuān)門(mén)的關(guān)系運(yùn)算。常用的關(guān)系運(yùn)算包括 ___選擇_____、投影和聯(lián)接等3 種類(lèi)型。
,2.在同一個(gè)Access 數(shù)據(jù)庫(kù)中,相關(guān)的數(shù)據(jù)表之間的聯(lián)系主要有____一對(duì)一________、一對(duì) 多及多對(duì)多等3 種類(lèi)型。
3.在使用Access 的過(guò)程中,如果遇到操作困難可以按“F1”鍵打開(kāi)__幫助_______,以獲 取與當(dāng)前操作主題相關(guān)的信息。
4.在Access 數(shù)據(jù)庫(kù)中包括表、___查詢(xún)_________、窗體、報(bào)表、宏、頁(yè)和模塊等基本對(duì)象。
5.在Access 中,字段的數(shù)據(jù)類(lèi)型主要包括自動(dòng)編號(hào)、____文本____、備注、數(shù)字、日期/ 時(shí)間、貨幣、是/否、OLE 對(duì)象、超鏈接和查閱向?qū)У葦?shù)據(jù)類(lèi)型。
6.用于返回系統(tǒng)當(dāng)前日期的函數(shù)為_(kāi)__date()_____。
7.在創(chuàng)建分組查詢(xún)時(shí),在查詢(xún)?cè)O(shè)計(jì)視圖中用于分組字段的總計(jì)項(xiàng)應(yīng)設(shè)置為_(kāi)__分組_____。
8.在Access 數(shù)據(jù)庫(kù)中,SQL 查詢(xún)主要包括____數(shù)據(jù)定義__、聯(lián)合查詢(xún)、傳遞查詢(xún)和子查詢(xún) 等幾種類(lèi)型。
9.在Access 數(shù)據(jù)庫(kù)中,有4 種操作查詢(xún),其中的____更新____查詢(xún)將會(huì)修改數(shù)據(jù)表中記錄 的字段值。
10. 在Access 數(shù)據(jù)庫(kù)對(duì)象中,窗體的主要作用是__顯示、輸入、輸出、修改或刪除___數(shù)據(jù)。
11. 在Access 數(shù)據(jù)庫(kù)中,窗體和報(bào)表的數(shù)據(jù)來(lái)源主要包括___表_____、查詢(xún)和SQL 語(yǔ)句。
12. 窗體有多種視圖,如果創(chuàng)建的窗體不理想,可以切換到__設(shè)計(jì)______視圖中進(jìn)行修改。
13. 在各種類(lèi)型的數(shù)據(jù)報(bào)表中,___圖表報(bào)表_____以圖表的形式表示信息,可以直觀地表示 數(shù)據(jù)之間的關(guān)系。
14. 在以成績(jī)表(學(xué)號(hào),課程,成績(jī))為數(shù)據(jù)源建立的分組統(tǒng)計(jì)報(bào)表中,要顯示每位學(xué)生的 平均成績(jī),則在學(xué)號(hào)頁(yè)腳節(jié)中添加一個(gè)計(jì)算型控件,該控件的“控件來(lái)源”屬性應(yīng)該設(shè) 置為_(kāi)__=avg([成績(jī)])。
15. 在VBA 程序中,主要有3 種基本控制結(jié)構(gòu)。如果某些語(yǔ)句需要反復(fù)執(zhí)行多次,可以使 用其中的____循環(huán)____結(jié)構(gòu)。
三、閱讀理解題(每題3 分,共15 分)
1. 請(qǐng)閱讀下列程序,并回答:① 該過(guò)程在什么情況下被觸發(fā)?② 其中的輸出語(yǔ)句是什么? ③ 過(guò)程執(zhí)行后顯示的具體值是什么? 單擊按鈕Cmd1; msgbox; 12
Private Sub Cmd1_Click( )
5
Dim x(1 to 10) as Integer
x(1)=1
x(3)=2
x(5)=x(1) x(3)
x(7)=x(1) x(3) x(5)
x(9)=x(1) x(3) x(5) x(7)
MsgBox (x(9))
End Sub
2. 請(qǐng)閱讀下列程序,并回答:① Fun 函數(shù)的功能是什么?② 在程序中第一次調(diào)用Fun 函 數(shù)后返回的值是什么?③ 程序執(zhí)行后,消息框顯示的內(nèi)容是什么?
Function Fun(x as Integer, y as Integer) as Integer
Dim a as Integer
If x > y Then
a = x
Else
a = y
,End If
Fun= a
End Function 返回傳遞進(jìn)來(lái)的較大數(shù);2;3
3. 請(qǐng)閱讀下列程序,并回答:① 循環(huán)結(jié)束后,變量c 的值是什么?② 循環(huán)共執(zhí)行了多少 次?③ 程序執(zhí)行后消息框中顯示的內(nèi)容是什么? 9;4;32
Private Sub Form_Click( )
Dim a as Integer, b as Integer, c as Integer
a = 8
b = 2
For c=1 To a Step 2
b = b * 2
Next c
MsgBox b
End Sub
4.請(qǐng)閱讀下列程序,并回答:①輸入是通過(guò)什么語(yǔ)句實(shí)現(xiàn)的?②共定義了幾種類(lèi)型的變量? ③ 如果輸入的數(shù)字分別是20 和30,輸出的值是多少? Inputbox ;3;運(yùn)算結(jié)果是:10 Private Sub Form4_Load( )
Dim x as Double, y as Single
Dim a as Integer, b as Integer
Dim r as Integer
x=val(InputBox ("x="))
y=val(InputBox ("y="))
a=Int(x)
b= Int(y)
Do while b<>0
Private Sub Cmd2_Click( )
Dim z as Integer
z=Fun(1,2)
MsgBox Fun(z, 3)
End Sub
6
r=a Mod b '將a 除以b 的余數(shù)賦值給r 變量
a=b
b=r
Loop
MsgBox "運(yùn)算結(jié)果是:" & a
End Sub
5. 本題涉及到的表如圖1 所示,請(qǐng)閱讀下列程序,并回答:① 打開(kāi)數(shù)據(jù)表的語(yǔ)句是什么? ② 為了保證從第一條記錄開(kāi)始訪問(wèn)工資表,使用的語(yǔ)句是什么?③ Do While 循環(huán)執(zhí)行 后,數(shù)據(jù)表中哪一個(gè)字段的值將發(fā)生改變? Rs.open ?;rs.movefirst ;實(shí)發(fā)工資 圖1 工資表
,Sub Pro5()
Dim cn as New ADODB.Connection '連接對(duì)象
Dim rs as New ADODB.Recordset '記錄集對(duì)象
Rem 將以下4 個(gè)變量定義為Field (字段)對(duì)象類(lèi)型
Dim jbgz as ADODB.Field
Dim jbf as ADODB.Field
Dim jj as ADODB.Field
Dim sfgz as ADODB.Field
Set cn = CurrentProject.Connection
rs.Open "工資表", cn, adOpenDynamic, adLockOptimistic, adCmdTable Rem 以下4 條語(yǔ)句建立對(duì)象類(lèi)型變量與數(shù)據(jù)表中字段的綁定
Set jbgz = rs.Fields("基本工資")
Set jbf = rs.Fields("加班費(fèi)")
Set jj = rs.Fields("獎(jiǎng)金")
Set sfgz = rs.Fields("實(shí)發(fā)工資") '將變量sfgz 綁定到實(shí)發(fā)工資字段 Rem 依次訪問(wèn)工資表中的每條記錄并處理數(shù)據(jù)
rs.MoveFirst
Do While Not rs.EOF '遍歷工資表
sfgz = jbgz jbf jj
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
7
Priavate Sub Cmd2_Click()
If me.text2>10 then
Me.text3=me.text1*me.text2*0.95
Else
Me.text3=me.text1*me.text2
End if
End sub
Set cn = Nothing
End Sub
四、編程題(共15 分)
,1. 窗體中有兩個(gè)文本框(名稱(chēng)依次為T(mén)ext1 和Text2),分別表示球的半徑和體積;一個(gè)命令
按鈕(標(biāo)題為“計(jì)算”,名稱(chēng)為Cmd1),如圖2 所示。請(qǐng)編寫(xiě)程序,在窗體中輸入半徑, 單擊“計(jì)算”按鈕,計(jì)算球的體積,并將結(jié)果顯示在Text2 文本框中。(4 分) 說(shuō)明:已知半徑R ,球的體積V= 3
3
4
p R (p =3.14)。
圖2 計(jì)算球的體積圖
圖3 計(jì)算應(yīng)付款
2. 振興商場(chǎng)舉行促銷(xiāo)活動(dòng),一次性購(gòu)買(mǎi)10 件以上(含10 件)商品可享受5的優(yōu)惠。窗體 中已設(shè)計(jì)有三個(gè)文本框(名稱(chēng)依次為T(mén)ext1、Text2 和Text3),分別表示商品的單價(jià)、數(shù) 量和應(yīng)付款;一個(gè)命令按鈕(標(biāo)題為“計(jì)算”,名稱(chēng)為Cmd2),如圖3 所示。請(qǐng)編寫(xiě)程序, 在窗體中輸入單價(jià)與數(shù)量,單擊“計(jì)算”按鈕,計(jì)算應(yīng)付款并顯示在Text3 文本框中。(5 分)
3. 如圖4、圖5 所示的是已經(jīng)設(shè)計(jì)好的學(xué)生成績(jī)表和成績(jī)錄入窗體。窗體中有6 個(gè)文本框(名 稱(chēng)依次是TXH 、TXM 、TPS 、TSY 、TQM 和TZP ),分別表示學(xué)生的學(xué)號(hào)、姓名、平時(shí)
成績(jī)、實(shí)驗(yàn)成績(jī)、期末成績(jī)和總評(píng)成績(jī);還有2 個(gè)命令按鈕(標(biāo)題分別是“保存數(shù)據(jù)” 和“關(guān)閉窗體”,名稱(chēng)分別是Cmd1 和Cmd2)。程序的功能如下:(6 分)
① 運(yùn)行窗體時(shí),首先輸入學(xué)號(hào)等前5 個(gè)字段的數(shù)據(jù),單擊“保存數(shù)據(jù)”按鈕,計(jì)算總評(píng) 成績(jī),并將數(shù)據(jù)保存到學(xué)生成績(jī)表中。
② 單擊“關(guān)閉窗體”按鈕,關(guān)閉窗體。
圖4 學(xué)生成績(jī)表
,圖5 成績(jī)錄入窗體
說(shuō)明:
① 已經(jīng)給出部分代碼,請(qǐng)將代碼補(bǔ)充完整。
② 總評(píng)成績(jī)=平時(shí)成績(jī)×0.2 實(shí)驗(yàn)成績(jī)×0.3 期末成績(jī)×0.5
圖4 學(xué)生成績(jī)表 圖5 成績(jī)錄入窗體
Private Sub Cmd1_Click( )
Dim cn as New ADODB.Connection '連接對(duì)象
Dim rs as New ADODB.Recordset '記錄集對(duì)象
Private sub Cmd1_Click
Dim r as double
R=me.text1
Me.text2=4*3.1415*r*r*r/3
End sub
8
Rem 將以下6 個(gè)變量定義為Field (字段)對(duì)象類(lèi)型
Dim xh ① as ADODB.Field
Dim xm as ADODB.Field
Dim pscj as ADODB.Field
Dim sycj as ADODB.Field
Dim qmcj as ADODB.Field
Dim zpcj as ADODB.Field
Set cn = CurrentProject.Connection
rs.Open "學(xué)生成績(jī)表", cn, adOpenDynamic, adLockOptimistic, adCmdTable Rem 以下6 條語(yǔ)句建立對(duì)象類(lèi)型變量與數(shù)據(jù)表中字段的綁定
② set xh=rs.fields(“學(xué)號(hào)”)
Set xm = rs.Fields("姓名")
Set pscj = rs.Fields("平時(shí)成績(jī)")
Set sycj = rs.Fields("實(shí)驗(yàn)成績(jī)")
Set qmcj = rs.Fields("期末成績(jī)")
Set zpcj = rs.Fields("總評(píng)成績(jī)")
③ rs.addnew ' 增加一條新紀(jì)錄
Rem 以下5 條語(yǔ)句將文本框的值賦給相應(yīng)變量
④ xh=TXH.value
xm=TXM. value
,pscj=TPSCJ. value
sycj=TSYCJ. value
qmcj=TQMCJ.value
⑤ Zpcj=pscj*0.2 sycj*0.3 qmcj*0.5 ' 計(jì)算總評(píng)成績(jī) ⑥ rs.save ' 保存數(shù)據(jù)
⑦ rs.close ' 關(guān)閉記錄集
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
Rem 程序的功能是單擊" 關(guān)閉窗體" 按鈕, 關(guān)閉窗體 ⑧
⑨
⑩
Private Sub Cmd2_Click()
DoCmd.Close
End Sub__