Visual-Basic程序設(shè)計(jì)模擬練習(xí)題一

PAGEPAGE1VisualBasic程序設(shè)計(jì)模擬練習(xí)題一

一、單項(xiàng)選擇題（每小題2分，共30分）

1．VisualBasic是一種面向?qū)ο蟮目梢暬幊陶Z(yǔ)言，采取了（

）的編程機(jī)制。A．按過(guò)程順序執(zhí)行

B．從主程序開(kāi)始執(zhí)行

C．事件驅(qū)動(dòng)

D．按模塊順序執(zhí)行2．要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個(gè)屬性是（

）A．Caption和Picture

B．、Style和PictureC．Style和Icon

D、Value和Icon3．工程文件的擴(kuò)展名是（

）。A．.vbp

B．.frmC．.bas

D．.frx4．有程序代碼如下：Text1.Text="歡迎學(xué)習(xí)VB程序設(shè)計(jì)"則Text1，Text，和"歡迎學(xué)習(xí)VB程序設(shè)計(jì)"分別代表（

）。A．對(duì)象，值，屬性

B．對(duì)象，屬性，值

C．對(duì)象，方法，屬性

D．屬性，對(duì)象，值

5.VisualBasic6.0集成開(kāi)發(fā)環(huán)境有三種工作模式，下列不屬于三種工作模式之一的是（

）。A．設(shè)計(jì)模式

B．編寫代碼模式

C．執(zhí)行模式

D．中斷模式

6．下列控件中，不能改變大小的是（

）。A．TextBox

B．Label

C．Timer

D．PictureBox7．多窗體程序是由多個(gè)窗體組成，在缺省情況下，VB在應(yīng)用程序執(zhí)行時(shí)，總是把（

）指定為啟動(dòng)窗體。A．不包含任何控件的窗體

B．命名為Frm1的窗體C．包含控件最多的窗體

D．設(shè)計(jì)時(shí)的第一個(gè)窗體8．DimA(1To4,0To3)定義的數(shù)組包含的元素的個(gè)數(shù)是（

）。A．12

B．16C．15

D．動(dòng)態(tài)變化

9．如果創(chuàng)建了命令按紐控件數(shù)組，則Cilick事件的參數(shù)是（

）。A．Caption

B．Index

C．Tag

D．沒(méi)有參數(shù)10．不屬于VB數(shù)據(jù)庫(kù)引擎的是（）A．ODBC

B．Jet引擎C．OLEDB

D．BDE11．要向圖片框P1中加載“d:\hainan\zhiwu.bmp”圖像文件，應(yīng)使用語(yǔ)句（

）。A．Picture1.Picture="d:\hainan\zhiwu.bmp"

B．Picture1.Picture=LoadPicture("d:\hainan\zhiwu.bmp")

C．P1.Picture=LoadPicture("d:\hainan\zhiwu.bmp")

D．P1.Picture=LoadPicture(d:\hainan\zhiwu.bmp)

12．.以下屬性只能用程序代碼設(shè)置，不能通過(guò)屬性窗口設(shè)置的是（

）。A．Index屬性

B．Pattern屬性

C．Visible屬性

D．Drive屬性13．以下有關(guān)VisualBasic語(yǔ)言描述中錯(cuò)誤的是（

）。A．語(yǔ)句是一行一句，以回車鍵結(jié)束B(niǎo)．用“,”分隔一行中的多個(gè)語(yǔ)句C．不區(qū)分大小寫D．一條語(yǔ)句放在多行中，則在前一行結(jié)束處使用續(xù)行符“_”連接下一行13.在下列選項(xiàng)中，不能將圖像裝入圖片框和圖像框的是（

）A．在界面設(shè)計(jì)時(shí)，通過(guò)Picture屬性裝入B．在界面設(shè)計(jì)時(shí)，手工在圖像框和圖片框中繪制圖形C．在界面設(shè)計(jì)時(shí)，利用剪貼板把圖像粘貼上D．在程序運(yùn)行期間，用LoadPicture函數(shù)把圖形文件裝入14.使用ADO對(duì)象模型時(shí)，使Recordset和Connection對(duì)象建立連接的屬性是（

）。A．Open

B．ExecuteC．CommandType

D．ActiveConnection15．要發(fā)送數(shù)據(jù)，通常使用Winsock控件的（）A．Listen

B．AcceptC．SendData

D．GetData一、單項(xiàng)選擇題（每小題2分，共30分）1.C

2.B

3.A

4.B

5.B

6.C

7.D

8.B

9.B

10.D

11.C

12．D

13．B

14.D

15.C二、填空題（每小題2分，共20分）1．每個(gè)應(yīng)用程序必須有一個(gè)惟一的

文件。2．表達(dá)式13\2-2^3*5MOD6的值是

。3．如果要每隔3s產(chǎn)生一個(gè)Timer事件，則Interval屬性應(yīng)設(shè)置為

。

4．VB中的程序錯(cuò)誤類型主要有實(shí)時(shí)錯(cuò)誤

、

三種。5.控件數(shù)組的名字由

屬性指定，而數(shù)組中的每個(gè)元素由

屬性決定。6．Winsock控件主要用來(lái)編制基于

或

協(xié)議的網(wǎng)絡(luò)應(yīng)用程序。7．如果不能事先確定變量的數(shù)據(jù)類型，則可以把它生命為

類型。8．以寫方式打開(kāi)D盤中的Text.dat文件，正確的語(yǔ)句是

9．全局變量是指那些在

中有效的變量，一般在模塊代碼編輯器的頂部使用

聲明。

10．VB中參數(shù)傳遞的機(jī)制有兩種，一種是

參數(shù)，另一種是

參數(shù)。二、填空題（每空1分，共15分）1．vbp2．23．30004．邏輯錯(cuò)誤

編譯錯(cuò)誤5．Name

Index6.TCP/IP

UDP7．變體型(或Variant)

8.open"D:\text.dat"ForOutputAs#19.整個(gè)應(yīng)用程序

Public10．引用參數(shù)傳遞（或按址傳遞）

按值傳遞三、閱讀程序題（共25分）閱讀下列程序并寫出程序運(yùn)行結(jié)果1．(6分)PrivateSubForm_Click()

DimxAsInteger

StaticyAsInteger

x=x+2

y=y+3

Form1.Print"x=";x,"y=";yEndSub寫出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，F(xiàn)orm1上的輸出結(jié)果。

2．(6分)PrivateSubCommand1_Click()

x=0

DoWhilex<60

x=(x+3)*(x+4)

n=n+1

Loop

Text1.Text=Str(n)

Text2.Text=Str(x)

Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSub寫出程序運(yùn)行后，文件框Text3的結(jié)果。

3.(6分)PrivateSubForm_Click()

DimA(1To3)AsString

DimcAsInteger

DimjAsInteger

A(1)="4"

A(2)="8"

A(3)="12"

c=1

Forj=1To3

c=c+Val(A(j))

Nextj

PrintcEndSub寫出程序運(yùn)行時(shí)單擊窗體后，窗體Form1上的結(jié)果。

4.(7分)PublicSubchange1(ByValxAsInteger,ByValyAsInteger)

DimtAsInteger

t=x

x=y

y=tEndSubPublicSubchange2(xAsInteger,yAsInteger)

DimtAsInteger

t=x

x=y

y=tEndSubPrivateSubForm_Click()

DimaAsInteger,bAsInteger

a=22:b=33

change1a,b

Form1.Print"A1=";a,"B1=";b

a=22:b=33

change2a,b

Form1.Print"A2=";a,"B2=";bEndSub寫出程序運(yùn)行時(shí)，單擊窗體Form1上的輸出結(jié)果。三、閱讀程序題（每小題5分，共20分）

1．x=2

y=3x=2

y=6x=2

y=9

2.242

3．

25

4．

A1=22

B1=33A2=33

B2=22

四、完善程序題（共10分）1．列表框應(yīng)用程序。要求從文本框中輸入課程名稱，然后按“添加”按鈕，將該課程名程添加到列表框中；當(dāng)選擇列表框中某一項(xiàng)后，按“刪除”按鈕，則從列表框中刪除該項(xiàng)；當(dāng)選擇列表框中某一項(xiàng)后，按“修改”按鈕，把列表框中選取的項(xiàng)送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認(rèn)”。在文本框的內(nèi)容修改好后，按“修改確認(rèn)”按鈕，再把文本框中修改后的信息送到列表框且“修改確認(rèn)”按鈕變?yōu)椤靶薷摹?。程序運(yùn)行結(jié)果如圖1所示。

List1Command3Command2Command1Text1

圖1程序如下，請(qǐng)補(bǔ)充完整。PrivateSubForm_Load()

List1.AddItem"VisualBasic程序設(shè)計(jì)"

List1.AddItem"SQLSERVER數(shù)據(jù)庫(kù)應(yīng)用"

List1.AddItem"信息管理系統(tǒng)"

List1.AddItem"ERP原理與應(yīng)用"

List1.AddItem"網(wǎng)絡(luò)實(shí)用技術(shù)基礎(chǔ)"

List1.AddItem"系統(tǒng)開(kāi)發(fā)規(guī)范與文檔編寫"

List1.AddItem"信息系統(tǒng)測(cè)試"EndSub

PrivateSubCommand1_Click()

IfText1.Text<>""Then

[1]

’將文本框中的內(nèi)容加到列表框中

Text1.Text=""

[2]

MsgBox"請(qǐng)?jiān)谖谋究蛑休斎胄畔ⅲ?

EndIfEndSubPrivateSubCommand2_Click()

[3]

’刪除選定的項(xiàng)目EndSubPrivateSubCommand3_Click()

IfCommand3.Caption=

[4]

Then

Text1.Text=

[5]

Text1.SetFocus

Command1.Enabled=[6]

Command2.Enabled=False

Command3.Caption=[7]

Else

List1.List(List1.ListIndex)=Text1.Text

Command1.Enabled=True

Command2.Enabled=True

Text1.Text=""

Command3.Caption=[8]

EndIfEndSub四、完善程序題（共10分）[1]List1.AddItemText1.Text[2]Else

[3]List1.RemoveItemList1.ListIndex[4]"修改"

[5]List1.Text

[6]False[7]"修改確認(rèn)"[8]"修改"

五、編寫程序題（共15分）編寫一工資調(diào)整程序。若基本工資大于等于800元，增加工資20%，若小于800元大于600元，則增加工資15%；若小于600元?jiǎng)t增加工資10%。要求在文本框Text1中輸入某職工的基本工資，單擊“計(jì)算”按鈕，在標(biāo)簽框Label1中輸出增加后的工資。程序運(yùn)行界面如圖4所示。圖2五、編寫程序題（共15分）