VB第三次作業(yè) (8 ~ 10章)

VB第三次作業(yè)(8~10章)

一、選擇題(每題2分，共2x20=40分)

1、要獲得當(dāng)前驅(qū)動(dòng)器應(yīng)使用驅(qū)動(dòng)器列表框的屬性是

A.Path

B.Drive

C.Dir

D.Pattern

2,設(shè)在窗體上有個(gè)文本框，然后編寫如下的事件過程：

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

ConstAlt=4

ConstKey_F2=&H71

altdown%=(ShiftAndAlt)>0

f2down%=(KeyCode=Key_F2)

Ifaltdown%Andf2down%Then

Textl.Text=nBBBBBu

EndIf

EndSub

上述程序運(yùn)行后，如果按【Shift+F2］，則在文本框中顯示得是

A.Alt+F2

B.BBBBB

C.隨機(jī)出幾個(gè)數(shù)

D.文本框平均內(nèi)容無變化

3、下列程序的功能是調(diào)用字體對(duì)話框來設(shè)置文本框字體，單擊按鈕彈出對(duì)話框后，按Cancel

鍵退出對(duì)話框，則

PrivateSubCommand1_Click()

CommonDialog1.CancelError=True

CommonDialogl.Flags=cdlCFEffectsOrcdlDFBoth

CommonDialog1.Action=4

CommonDialogl.ShowFont

Textl.Font.Name=CommonDialogl.FontName

Text1.Font.Size=CommonDialogl.FontSize

Textl,Font.Bold=CommonDialogl.FontBold

Textl.Font.Italic=CommonDialog1.Fontltalic

Textl.Font.Underline=CommonDialogl.FontUnderline

Text1.FontStrikethru=CommonDialog1.FontStrikethru

Textl.ForeColor=CommonDialog1.Color

EndSub

A.Textl的字體不發(fā)生變化

B.Textl的字體發(fā)生變化

C.Textl的字體和顏色發(fā)生變化

D.程序出錯(cuò)！

4、以下敘述中錯(cuò)誤的是

A)在KeyUp和KeyDown事件過程中，從鍵盤上輸入A或a被視作相同的字母(即具有相

同的KeyCode)

B)在KeyUp和KeyDown事件過程中，將鍵盤上的“1”和右側(cè)小鍵盤上的“1”視作不同的數(shù)

字(具有不同的KeyCode)

C)KeyPress事件中不能識(shí)別鍵盤上某個(gè)鍵的按下與釋放

D)KeyPress事件中可以識(shí)別鍵盤上某個(gè)鍵的按下與釋放

5、在用通用對(duì)話框控件建立“打開”或“保存”文件對(duì)話框時(shí)，如果需要指定文件列表框所列

出的文件類型是文本文件(即.txt文件)，則正確的描述格式是

A)“text(.txt)l(*.txt)”B)”文本文件(.txt)I(.txt)”

C)“text(.txt)ll(*.txt)"D)"text(.txt)(*.txt)”

6、以下敘述中正確的是

A)一個(gè)記錄中所包含的各個(gè)元素的數(shù)據(jù)類型必須相同

B)隨機(jī)文件中每個(gè)記錄的長(zhǎng)度是固定的

C)Open命令的作用是打開一個(gè)已經(jīng)存在的文件

D)使用Input#語句可以從隨機(jī)文件中讀取數(shù)據(jù)

7、目錄列表框的Path屬性的作用是

A)顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄結(jié)構(gòu)

B)顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名

C)顯示根目錄下的文件名

D)顯示該路徑下的文件

8、設(shè)有語句

open"c：\Test.Dat"ForOutPutAs#l

則以下錯(cuò)誤的敘述是

A)該語句打開C盤根目錄下一個(gè)己存在的文件Test.Dat

B)該語句在C盤根目錄下建立一個(gè)名為Test.Dat的文件

C)該語句建立的文件的文件號(hào)為1

D)執(zhí)行該語句后，就可以通過Print#語句向文件Test.Dat中寫入信息

9、在窗體上畫一個(gè)名稱為TxtA的文本框，然后編寫如下的事件過程：

PrivateSubTxta_KeyPress(keyasciiasinteger)

EndSub

若焦點(diǎn)位于文本框中，則能夠觸發(fā)KeyPress事件的操作是

A)單擊鼠標(biāo)B)雙擊文本框

C)鼠標(biāo)滑過文本框D)按下鍵盤上的某個(gè)鍵

10、假定有如下事件過程：

PriVateSubForm_MouseDown(buttonAsInteger,ShiftAsInteger,xAsSingle,YAs

Single)

IfButton=2then

PopupMenupopForm

Endif

EndSub

則以下描述中錯(cuò)誤的是

A)該過程的功能是彈出一個(gè)菜單

B)popForm是在菜單編輯器中定義的彈出式菜單的名稱

C）參數(shù)X、Y指明鼠標(biāo)的當(dāng)前位置

D）Button=2表示按卜的是鼠標(biāo)左鍵

11、當(dāng)函數(shù)EOF（）的返回值為真時(shí)，表示文件的指針指向（）。

A、開頭B、尾部C、第一個(gè)記錄D、最后一個(gè)記錄

12、在VisualBasic中按文件的訪問方式不同，可以將文件分為（）

（A）順序文件、隨機(jī)文件和二進(jìn)制文件（B）文本文件和數(shù)據(jù)文件

（C）數(shù)據(jù)文件和可執(zhí)行文件（D）ASCH文件和二進(jìn)制文件

13、在順序文件中（）

（A）每條記錄的記錄號(hào)接從小到大排序

（B）每條記錄的長(zhǎng)度按從小到大排序

（C）按記錄的某個(gè)關(guān)鍵數(shù)據(jù)項(xiàng)的排序順序組織文件

（D）記錄按寫入的先后順序存放，并按寫入的先后順序讀出

14、下列（）組關(guān)鍵字是Select語句中不可缺少的。

（A）Select、From（B）Select、All

（C）From、OlrBy（D）Select、here

15、下面關(guān)于隨機(jī)文件的描述，不正確的是：

A、每條記錄的長(zhǎng)度必須相同

B、一個(gè)文件中記錄號(hào)不必惟一

C、可通過編程對(duì)文件中的某條記錄方便地修改

D、文件的組織結(jié)構(gòu)比順序文件復(fù)雜

16、以下說法錯(cuò)誤的是（）。

A、一個(gè)表可以構(gòu)成?個(gè)數(shù)據(jù)庫

B、多個(gè)表可以構(gòu)成一個(gè)數(shù)據(jù)庫

C、一個(gè)表的每一條記錄中的各數(shù)據(jù)項(xiàng)具有相同的類型

D、同一個(gè)字段的數(shù)據(jù)具有相同的類型

17、MicrisiftAccess數(shù)據(jù)庫文件的擴(kuò)展名是（）。

A、.dbfB、.AccC、.mdbD、.db

18、以下說法正確的是（）。

A、使用Data控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)

B、使用數(shù)據(jù)綁定控件可以直接訪問數(shù)據(jù)庫中的數(shù)據(jù)

C、使用Data控件可以對(duì)數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行操作，卻不能顯示數(shù)據(jù)庫中的數(shù)據(jù)

D、Data控件只有通過數(shù)據(jù)綁定控件才可以訪問數(shù)據(jù)庫中的數(shù)據(jù)

19、SQL語句Select學(xué)號(hào)，姓名，專業(yè)From學(xué)生Where專業(yè)="計(jì)算機(jī)”，所查詢的表

名稱是（）。

A、所有表B、學(xué)生C、計(jì)算機(jī)D、學(xué)號(hào)，姓名，專業(yè)

20、語句“Select*From學(xué)生基本W(wǎng)here性別="男"中的“*”號(hào)表示（）。

A、所有表B、所有指定條件的記錄

C、所有記錄D、指定表中的所有字段

二、填空題（每題2分，共2x15=30分）

1、要關(guān)閉所有已打開的文件，可以使用的語句為（）。Close

2、一個(gè)數(shù)據(jù)庫可以有表，表中的稱為記錄，表中的稱為字段。

個(gè)到多個(gè)；行；列

3、隨機(jī)文件以為單位讀寫，二進(jìn)制文件以為單位讀寫。記錄；字節(jié)

4、若要在3號(hào)通道上建立順序文件“c:\dirl.dat”,使用的語句為（）。Open"c:\dirl.dat”

ForOutputAs#3

5、把當(dāng)前驅(qū)動(dòng)器設(shè)置為e,使用的語句為（）。ChDrive“e:"

6、要?jiǎng)h除文件“c:\dirl.txt”使用的命令為（）。Kill“c:\dirl.txt”

7、執(zhí)行擴(kuò)展名為.exe的可執(zhí)行文件使用（）函數(shù)。Shell

8、按數(shù)據(jù)的組織方式不同，數(shù)據(jù)庫可以分為3種類型，即數(shù)據(jù)庫、數(shù)據(jù)

庫和數(shù)據(jù)庫。層次、網(wǎng)狀、關(guān)系

9^記錄集的屬性用于指示Recordset對(duì)象中記錄的總數(shù)。RecordCount

10、作為一個(gè)集編輯、編譯與運(yùn)行于一體的集成環(huán)境，VB的工作狀態(tài)可分為、

和三種模式。設(shè)計(jì)模式、運(yùn)行模式、中斷模式

11、VisculBasic提供捕獲錯(cuò)誤的語句是。OnError語句

12、要在當(dāng)前窗口輸出字符串“VisualBasic6.0”使用的Print方法分別是。Print

''VisualBasic6.0”

13、要在立即窗口輸出字符串“VisualBasic6.0”使用的Print方法分別是。

Debug.Print''VisualBasic6.0”

14、VB程序的錯(cuò)誤一般分為、和__________三類。編譯錯(cuò)誤，運(yùn)行

時(shí)錯(cuò)誤，邏輯錯(cuò)誤

15、刪除“總成績(jī)”表中“成績(jī)”字段值小于60分的記錄,相應(yīng)的Delete語句為:。

Delete*from總成績(jī)Where成績(jī)＜60

三、程序閱讀（每題5分，共5x4=20分）

1、下面事件過程的功能是讀取文件“c:\tst.txt”中的內(nèi)容，在橫線上填上適當(dāng)內(nèi)容。

PrivateSubCommand1_Click()

DimlinetextAsString

DimfilenoAsInteger

fileno=FreeFile

Open'c:\tst.txt"ForInputAs#fileno

Whi1e____________(1)____________

(2)

Printlinetext

Wend

Close#fileno

EndSub

答案：(l)NotEOF(fileno)

(2)LineInput#fileno,linetext

2、下面事件過程的功能是將學(xué)生的課程成績(jī)保存到文件“c:\chengji.txt”中，在橫線上填上

適當(dāng)內(nèi)容。

PrivateSubCommand1_C1ick()

Dimn%,i%,score!

n=InputBox(〃輸入學(xué)生人數(shù)：〃)

Open"c:\chengji.txt"(1)As#1

Fori=1Ton

score=InputBox(〃輸入第〃&Str(i)&〃個(gè)學(xué)生的成績(jī)：”)

(2)

Nexti

Close#1

EndSub

答案：(1)ForOutput

(2)Write#1,score

3、下面事件過程的功能是把某人每個(gè)月的收入存到二進(jìn)制文件“C:\gz.bng”中，在橫線上

填上適當(dāng)內(nèi)容。

PrivateSubCommand1_C1ick()

Dimi%,sr!,k%

(1)

k=1

Fori=1To12

sr=InputBox(〃輸入第〃&Str(i)&〃個(gè)月工資：〃)

Put#1,k,sr

(2)

Nexti

Close#1

EndSub

答案：(1)OpenKC:\gz.bng"ForBinaryAs#1

(2)k=4*i+1

4、寫出以下程序段的運(yùn)行結(jié)果。

PrivateSubForm_Click()

Dimi%

Dimf(2)

Fori=0To2

f(i)=sq(i*i+1)

Nexti

DoUntili=0

i=i-1

Print"Ff;i;〃)=〃；f(i)

Loop

EndSub

PublicFunctionsq(x)

x=x+2

sq=x*4-5

EndFunction

答案：F(2)=23