2023年VisualBasic程序設(shè)計形成性考核冊參考答案

《VisualBasic程序設(shè)計》形成性考核冊作業(yè)及答案

《VisualBasic程序設(shè)計》形成性考核冊作業(yè)及答案作業(yè)1

一、選擇題

1、在設(shè)計應(yīng)用程序時，可以查看到應(yīng)用程序工程所有組成部分的窗口是（D）。

A、窗體設(shè)計

B、代碼

C、屬性

D、工程資源管理器窗口

2、窗體的load事件的觸發(fā)時機是（B）。

A、用戶單擊窗體時

B、窗體被加載時

C、窗體顯示之后

D、窗體卸載時

3、與傳統(tǒng)的程序設(shè)計語言相比，VisualBasic最突出的特點是（C）。

A、結(jié)構(gòu)化程序設(shè)計

B、程序開發(fā)環(huán)境

C、事件驅(qū)動編程機制

D、程序調(diào)試技術(shù)

4、VB6.0集成開發(fā)環(huán)境的主窗口中不涉及（C）。

A、標題欄

B、菜單欄

C、狀態(tài)欄

D、工具欄

5、假如對象的名稱為Mytext,并且對象有一個屬性Text，那么在代碼中引用該屬性的對的格式是（B）。

A、text.Mytext

B、Mytext.Text

C、Mytext.(Text)

D、Mytext*Text

6、下列可以激活屬性窗口的操作是（D）。

A、用鼠標雙擊窗體的任何部位

B、執(zhí)行“工程“菜單中的”屬性窗口“命令

C、按Ctrl+F4

D、按F4

7、假定已在窗體上畫了多個控件，并有一個控件是活動的，為了在屬性窗口中設(shè)立窗體的屬性，預(yù)先應(yīng)執(zhí)行的操作是（A）。

A、單擊窗體上沒有控件的地方

B、單擊任一個控件

C、不執(zhí)行任何操作

D、雙擊窗體的標題欄

8、假如要在文本框鍵入字符時，只顯示某個字符，假如（*），應(yīng)設(shè)立文本框的（B）屬性。

A、Caption

B、PasswordChar

C、Text

D、Char

9、假如想要在文本框中的內(nèi)容在運營時不能編輯，需要文本框的（A）屬性設(shè)立為True.

ALocked

B、MultiLine

C、TabStop

DVisible

10對于定期器（Tiner）控制，設(shè)立其定期是否啟動的屬性是（C）

A、Index

B、Tag

C、Enabled

D、Left

11、要在窗口體Fornl內(nèi)顯示“myfrm”使用的語句是（C）

A、Form.caption=“myfrm”B、Fornl.caption=“myfrm”

C、forml.print“myfrm”D、form.print“myfrm”

12、對象的性質(zhì)和狀態(tài)特性稱為（C）

A、事件

B、方法

C、屬性

D、類

13、下列對的的賦值語句是（B）

A、x+y=20

B、y=x+20

C、3x=y

D、s=

14、當使用上下文相關(guān)的幫助時，選擇要幫助的內(nèi)容，然后按（D）鍵，就可出現(xiàn)MSDN窗口直接顯示所需的幫助信息。

A、Help

B、F10

C、Ese

D、F1

15、將調(diào)試通過的工程經(jīng)“文獻”菜單的“生成.exe文獻“編繹成名.exe后，將該可執(zhí)行文獻放到其它機器上不能運營的重要因素是（D）。

A、運營的機器上無VB系統(tǒng)

B、缺少.frm窗體文獻

C、該執(zhí)行文獻有病毒

D、以上因素都不對

二、填空題

1、當進入VB集成開發(fā)環(huán)境后，發(fā)現(xiàn)沒有顯示“工具箱”窗口。應(yīng)選擇視圖菜單的

工具箱選項，使“工具箱”窗口顯示。

2、在VB中，事件過程名由對象名和

事件名

構(gòu)成。

3、工程文獻的擴展名是

vbp，窗體文獻擴展名是

frm

。

4、對象時代碼和數(shù)據(jù)的集合，例如，VisualBasic中的

窗體、

按鈕、

文本框

等都是對象。

5、對象的方法用于

實行某種操作功能

。當方法不需要任何參數(shù)并且也沒有返回值，調(diào)用對象的方法的格式為

對象名.方法名

。例如對窗體Forml使用Show方法，應(yīng)寫成

form1.show

。

6、要使文本框顯示滾動條，需要將其ScrollBars

屬性設(shè)立為

3

。

7、欲設(shè)立定期的時間間隔為4秒，則屬性Interval的值為

4000。

8、要使標簽框的大小隨Caption屬性做自動調(diào)整，應(yīng)將AutoSize

屬性設(shè)立為

True

。

9、通過

窗體布局窗口

可以在設(shè)計時直觀地調(diào)整窗體在屏幕的位置。

10、要想在代碼中給名為txtshow的文框賦予文本：GOODWORK！時，應(yīng)當編寫的語句是

txtshow.text=”GOODWORK！”

。

11、若命令按鈕的名稱為Cmdopen，程序規(guī)定單擊以上命令按鈕，打開一個窗口frml,請對以下事件過程填空。

PrivateSubCmdopen

click()

Frm1.show

EndSud

12、事件就是對象上所發(fā)生的事情，VisualBasic中的事件如單擊

、

裝入

、

鼠標移動等。一個對象響應(yīng)的事件可以有

多個，用戶不能建立新的事件。事件過程是指

響應(yīng)某個事件后所執(zhí)行的代碼

。假設(shè)某一事件過程如下：

PrivateSubcmd1_Click()

Form1.Caption=”VB示例”

EndSub

則響應(yīng)過程的對象名是

cmd1

，事件名是

Click

。

13、對象的方法用于在對象上實行某種操作功能

。當方法不需要任何參數(shù)并且也沒有返回值，調(diào)用對象的方法格式為

對象名.方法名

，例如，對窗體Form1使用Show方法，應(yīng)寫成

Form1.Show

。

14、為了在編寫代碼時能自動語法檢查，必須執(zhí)行工具

菜單中的

選項

命令，打開

選項

對話框，然后選擇“編輯器”選項卡中的自動語法檢測。

15、定期器（Timer）控件可辨認的事件是Timer，了生該事件的時間間隔定期由定期器的

Interval屬性設(shè)立，其單位為毫秒。

三、問答題

1、什么是可視化編程和事件驅(qū)動？

答：可視化編程是指無須編程，僅通過直觀的操作方式即可完畢界面的設(shè)計工作的這種編程方式。

當VB的應(yīng)用程序運營后，系統(tǒng)處在等待狀態(tài)，當某個事件發(fā)生后，程序就去執(zhí)行此事件的事件過程，當這個事件過程執(zhí)行完后，系統(tǒng)又處在等待另一個事件發(fā)生的狀態(tài)，這就是事件驅(qū)動程序方式。

2、對象、屬性、事件和文獻之間的關(guān)系如何？

答：對象是代碼和數(shù)據(jù)的封裝體。對象的操作通過與該對象有關(guān)的屬性、事件、方法來描述。

屬性是一個對象的基本特性，每個對象都有它自己的屬性。

方法是對象要執(zhí)行的動作。

事件是在對象上所發(fā)生的事情。

3、簡述事件驅(qū)動機制與傳統(tǒng)編程方式的不同。

答：傳統(tǒng)的面向過程的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行那一部分代碼按何種順序執(zhí)行代碼，程序從第一行代碼開始執(zhí)行并按應(yīng)用程序中預(yù)定的途徑執(zhí)行，用戶無法改變程序的執(zhí)行流程。而事件驅(qū)動機制則由用戶來決定執(zhí)行的路線。這就是兩者的不同。

4、簡述事件驅(qū)動的工作過程。

答：事件驅(qū)動的工作過程如下：（1）啟動應(yīng)用程序，裝載和顯示窗體。（2）窗體或窗體上的控件等待事件的發(fā)生。（3）當某個事件發(fā)生后，執(zhí)行其相應(yīng)的事件過程代碼。（4）反復(fù)執(zhí)行（2）和（3），直到碰到END語句或單擊“結(jié)束”按鈕停止程序的運營。

四、程序設(shè)計題

1、在窗體上添加一個文本框和兩個命令按鈕，并把兩個命令按鈕的標題分別設(shè)立為“隱藏文本框”和“顯示文本框”。當單擊第一個命令按鈕時，文本框消失；而當單擊第二個命令按鈕時，文本框重新出現(xiàn)，并在文本框中顯示“VB程序設(shè)計”（字體大小為16）。程序運營界面如圖所示。

圖1

解：“隱藏文本框”按鈕中的代碼為：Text1.Visible=False

“顯示文本框”按鈕中的代碼為：Text1.Visible=True

Text1.Text=”VB程序設(shè)計”

Text1.FontSize=”16”

2、設(shè)計一個計算程序。該程序用戶界面如圖2所示，由四個文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command3）組成。程序運營后，用戶按清除按鈕，則清除文本框中顯示的內(nèi)容，按計算按鈕，則計算三科平均成績。單擊退出按鈕則退出。

解：command1中的代碼為：text1=””：text2=””：text3=””：text4=””

command2中的代碼為：text4=(val(Text1)+val(Text2)+val(Text3))/3

command2中的代碼為：End

3、編寫一收款計算程序。規(guī)定用戶輸入商品的“單價”、“數(shù)量”和“折扣”后，單擊“計算”按鈕顯示“應(yīng)付款”，單擊“清除”按鈕，清除文本框中所有的數(shù)據(jù)。程序運營界面如圖3所示。

答：“計算”按鈕的代碼：text4=val(Text1)*val(Text2)*val(Text3)/100

“清除”按鈕的代碼：text1=””：text2=””：text3=””：text4=””

作業(yè)2

一、選擇題

1．按照變量的作用域可將變量劃分為（B

）。

A、公有、私有、系統(tǒng)

B、全局變量、模塊級變量、過程變量

C、動態(tài)、常數(shù)、靜態(tài)

D、Public、Private、Protected

2.可獲得字符的ASCII碼的函數(shù)是（C）。

Ａ、ValＢ、FixＣ、Asc

Ｄ、Chr

3、要退出Do….Loop循環(huán)，可使用的語句的（D）語句。

A、Exit

B、Exit

For

C、EndDo

D、ExitDo

4.把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是（B）。

A、Val

B、Str

C、Asc

D、Chr

5.關(guān)于語句行，下列說法對的的是（B）。

Ａ．一行只能寫一條語句Ｂ．一條語句可以分多行書寫

Ｃ．每行的首字符必須大寫Ｄ．長度不能超過255個字符

６．表達式6+10Mod4*2+1的值是（A）．

Ａ．９Ｂ．11C．１D.3

7.以下可以作為ＶisualBasic變量名的是（B）．

Ａ．SIN

B.CO1

C.COS(X)

D.X(-1)

8.表達式Ａbs(-5)+Len(“ABCDE”)的值為（C）．

Ａ．5ABCDEＢ.－5ABCDE

C.10

D.0

9.在代碼編輯器中，假如一條語句太長，無法在一行內(nèi)寫下（不涉及注釋），要折行書寫，可以在行末使用續(xù)行字符（A），表達下一行是當前行的繼續(xù)．

Ａ．一個空格加一個下劃字符（＿）Ｂ．一個下劃字符（＿）

Ｃ．直接回車

Ｄ．一個空格加一個字符（－）

10.Sub過程與Function過程最主線的區(qū)別是（D）．

Ａ．Sub過程可以使用Ｃall語句或直接使用過程名調(diào)用，而Function過程不可以．

Ｂ．Function過程可以有參數(shù)，Sub過程不可以．

Ｃ．兩種過程參數(shù)的傳遞方式不同．

Ｄ．Sub過程的過程名不能返回值，而Function過程可以通過過程名返回值．

11.＂Ｘ是小于80的非負數(shù)＂，用VB表達式表達對的的是（C）.

A..0≤X<80

B.0<=X<80

C.0<=xandx<80

D.0<=xOrx<80

12.在設(shè)計菜單時,假如要在菜單中加入一個菜單分隔條,則菜單分隔條的標題必須設(shè)立為(B)

A.加號(+)

B.減號(-)

C.星號(*)

D.感慨號(!)

13.假如要在程序中顯示一個彈出式菜單,那么要調(diào)用VisualBasic中提供的方法是(D).

A.Print

B.Move

C.Refresh

D.PopupMenu

14.下列可以用來存儲圖像供其他對象使用的控件是(C).

A.ToolBar

B.StatursBar

C.ImageList

D.TreeView

15.當單擊工具攔上的按扭時,會觸發(fā)的事件是(A).

A.ButtonClick

B.Change

C.Load

D.KeyPress

16.要運用公用對話框控件來顯示”打開文獻”對話框,需要調(diào)用控件的(B)方法.

A.ShowPrinter

B.ShowOpen

C.ShowSave

D.ShowColor

17.對于窗體級變量,下列說法中錯誤的是(C).

A.所在窗體的各子程序都可以訪問

B.其他窗體的子程序不能訪問

C.所在窗體發(fā)子程序不能訪問用Private定義的窗體級變量

D.一定要在所在窗體的通用區(qū)內(nèi)定義

18.從一個字符串中的第3個字符開始,獲取5個字符,應(yīng)使用(B)

A.Len函數(shù)

B.Mid函數(shù)

C.Left函數(shù)

D.Right函數(shù)

19.用下面的語句所定義的數(shù)組的元素的個數(shù)是(D).

DimA(-3To5)As

Integer

A.6

B.7

C.8

D.9

20.有如下程序段:

DimstrlAsString*5

Strl=”VisualBasic”

當該段程序被執(zhí)行完時,變量strl的值為(B).

A.”Visual”

B.”Visua”

C.”V”

D.”Visual

Basic”

二、填空題

1．菜單一般有_下拉式_和_彈出式__兩種基本類型。

2．通用對話框控件可顯示的常用對話框有__打開_、_保存_、__顏色_、__字體_、__打印_。

3．組合框具有__文本框_和__列表框_兩種控件的基本功能。

4．要使數(shù)組的默認下標從“1開始，則應(yīng)在窗體或標準模塊代碼的聲明部分使用語句__OptionBase1_。

5．調(diào)用Sub過程時，使用__call__語句,語句用于把程序控制傳送到一個VisualBasic的Sub過程。

6．若已建立了Form1和Form2兩個窗體，默認啟動窗體為Form1。通過_工程_菜單__屬性_命令的_通用_選項卡，可將啟動窗體設(shè)立為Form2。在程序中若要顯示Form1窗體，則執(zhí)行_Form1.show_語句。

7．列表框中項目的序號是從_0_開始的。

8．Sub過程與Function過程最主線的區(qū)別是_Sub過程名無返回值，F(xiàn)unction過程名有返回值。

9．VB的代碼存儲在模塊中。在VB中提供了三種類型的模塊：_類模塊_、_窗體模塊__和_標準模塊_。

10．使用Hide方法會隱藏被調(diào)用的窗體，但是在調(diào)用Hide方法之后不會把窗體__卸載_，被調(diào)用的窗體中的屬性等已處在_內(nèi)存中_。

11．將下列數(shù)學(xué)式子寫成VisualBasic表達式。

⑴

答：2*cos(a)*sin(a)/(2*a)

⑵答：sqr(s*(s-a)*(s-b)*(s-c))

⑶sin45°:sin(45*2*3.1415/360)_

12.將下列數(shù)學(xué)式子各條件寫成VisualBasic邏輯表達式。

⑴1≤x<12:1<=xandx<12

⑵A+B≥C或a-c≤c:(A+B)>=COR(a-c)<=c

⑶a和b都為正整數(shù)或同為負數(shù):(a>=0andb>=0)or(a<=0andb<=0)

13．設(shè)A=2，B=3，C=4，D=5。表達式NotA<=COr4*B^2AndB<>A+C的值為_False_。

14．在VisualBasic語言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以事先擬定，可使用_For…next__循環(huán)；若規(guī)定先判斷循環(huán)進行的條件，可使用_Dowhile…loop_循環(huán)或_while…Wend_循環(huán)。

15．以下語句的輸出結(jié)果是__3_。

a%=3.14159

Printa%

三、閱讀下列程序，寫出程序運營結(jié)果。

1、PrivateSubForm_Click()

StaticSumAsInteger

ForI=1to100

Sum=Sum+I

NextI

PrintSum

EndSub

程序運營結(jié)果為：1+2+…….+99+100=5050

2、privateSubForm_Click()

A=10:b=15:c=20:d=25

PrintA;Spc(5);b;Spc(7);c

PrintA;Spc(8);b;Space$(5);c

Printc;Spc(3);”+”;Spc(3);c+d

EndSub

10(5個空格)15(7個空格)20

10(8個空格)15(5個空格)20

20(三個空格)+(三個空格)45

3、PrivateSubForm_click()

Fori%=1to3

Forj%=1toi

PrintLTrim(Str(i%))+“*”+LTrim(Str(j%))+“=”;i%*j%;

Nextj%

Print

Nexti%

EndSub

1*1=1

2*1=2

2*2=4

3*1=3

3*2=6

3*3=9

4、PrivateSubCommand1_Click()

Dima,bAsInteger

A=3.4

B=3.4

Text1.Text=a

Text2.Text=b

EndSub

Text1顯示3、4

Text2顯示3

5、PrivateSubForm_Click()

ForI=1to5

PrintTab(11–I)

ForJ=1ToI*2–1

Print“*”;

Next

Nexti

EndSub

*

***

*****

*******

*********

四、程序設(shè)計題

1、購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；（2）在200元以上者，按九折優(yōu)惠；（3）300元以上者，按八折優(yōu)惠；（4）500元以上者按七折優(yōu)惠。在窗體上添加兩個文本框和一個命令按鈕，規(guī)定在Text1中輸入購物商品總金額，單擊命令按鈕，在Text2中輸入優(yōu)惠后的價格。程序運營結(jié)果如圖解所示。

IfVal(text1)>=500thentext2=Val(text1)*0.7

ElseifVal(text1)>=300thentext2=Val(text1)*0.85

ElseifVal(text1)>=200thentext2=val(text1)*0.9

Elseifval(text1)>=100thentext2=val(text1)*0.95

Endif

2、輸出100~200之間不能被3整除的的數(shù)，規(guī)定用Do語句的一種形式來實現(xiàn)，程序運營結(jié)果如圖5所示。

窗體的裝入事件中加入如下代碼：

Dimaasinteger

A=100

Dowhilea<=200

If(amod3)<>0then

List1.additenstr(a)

Endif

A=a+1

loop

3、編寫程序，打印如下的乘積表：

DimI,jasinteger

Print”*”:space(5):

Fori=3to12step3

Printstr(i);space(5);

Nexti

Print

ForI=15to18

Printstr(i);space(3);

Forj=3to12step3

Printstr(i*j);space(4);

Nextj

Print

Nextj

4、設(shè)計一個計算程序。該程序用戶界面如圖7所示。規(guī)定程序運營后，用戶選中單擊選按鈕，則程序作10和2的相應(yīng)計算，并把計算結(jié)果在文本框中顯示出來。如用戶選中加法單選按鈕，則程序作10和2的相加，計算結(jié)果12在文本框中顯示出來。按結(jié)束，則退出。

乘法單選按鈕的單擊事件中添加如下代碼：

Text1=10*2

除法單選按鈕中添加如下代碼：

Text1=10/2

加法單選按鈕中添加如下代碼：

Text1=10+2

減法單選按鈕中添加如下代碼：text1=10-2

結(jié)束按鈕中代碼:end或unloadme

5、編寫輸入一個0~6數(shù)字，顯示漢字對照輸出星期的Function過程。程序運營結(jié)果如圖8所示。

文本框的change事件中代碼如下:

Selectcaseval(text1)

Case0

Label1.caption=”星期天”+chr(13)+”(Sunday)”

Case1

Label1.caption=”星期一”+chr(13)+”(monday)”

Case2

Label1.caption=”星期二”+chr(13)+”(Tuesday)”

Case3

Label1.caption=”星期三”+chr(13)+”(wednesday)”

Case4

Label1.caption=”星期四”+chr(13)+”(thursday)”

Case5

Label1.caption=”星期五”+chr(13)+”(firday)”

Case6

Label1.caption=”星期六”+chr(13)+”(saturday)”

Endselect

6、編寫一個程序，當鼠標移到Picturel控件時，鼠標指針改變形狀；當在Picturel控件上單擊鼠標右鍵時，通過消息框顯示“Youpressedrightbutton”，并再次改變鼠標指針的形狀。

Picture1_mouseup

Ifbutton=2then

I=1

Msgbox”youpressedrightbutton”

Endif

Endsub

7、列表框應(yīng)用程序。規(guī)定從文本框中輸入姓名，然后按“添加”按鈕，把姓名添加到列表框中；當選擇列表框中某一項時，按“刪除”按鈕，從列表框中刪除；當列表框中某一項時，按“修改”按鈕，把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認”。在文本框的內(nèi)容修改好后，按“修改確認”按鈕，再把文本框中修改后的信息送到列表框且“修改確認”按鈕變?yōu)椤靶薷摹?。程序運營結(jié)果如圖9所示。

添加按鈕代碼：list1.additemtext1.text

Text1.text=””

刪除:iflist1.text<>””then

List1.removeitem=list1.listindex

Endif

修改:

Ifcommand3.caption=“修改”then

Text1.text=list1.text

Command3.caption=”修改確認”

Else

If

command3.caption=”修改確認”then

List1.list=list1.listindex>=text1.text

Command3.caption=”修改”

Endif

Endif

作業(yè)3

一、選擇題

1、VisibleBasic根據(jù)計算機訪問文獻的方式將文獻提成三類，其中不涉及（B）

A．順序文獻

B.Unix文獻

C.二進制文獻

D.隨機文獻

2、隨機文獻進行文獻讀取的單位是（B）

A．字節(jié)

B。記錄

C。整個文獻

D。字符

3、為了使目錄途徑列表框Dir1的內(nèi)容符合驅(qū)動器列表框Drive1的選擇，應(yīng)當（B）。

A．在Dir1_Click事件中加入Dir1.Path=Drive1.Drive

B．在Drive1_Click事件中加入Dir1.Path=Drive1.Drive

C．在Dir1_Click事件中加入Drive1.Path=Dir1.Drive

D．在Dir1_Click事件中加入Drive1.Path=Dir1.Drive

4、為了使drive1驅(qū)動器列表框、dir1目錄途徑列表框和file1文獻列表框能同步協(xié)調(diào)工作，需要在（B）

A．drive1的Change事件過程中加入drive1.Drive=dir1.Path，在dir1的Change事件過程中加入dir1.Path=file1.Path代碼。

B．drive1的Change事件過程中加入dir1.Path=drive1.Drive，在dir1的Change事件過程中加入file1.Path=dir1.Path代碼。

C．dir1的Change事件過程中加入dir1.Path=drive1.Drive，在file1的Click事件過程中加入file1.Path=file1.fileName代碼。

D．dir1的Change事件過程中加入dir1.Path=drive1.Drive，在file1的Click事件過程中加入file1.Path=dir1.Path代碼。

5、下面關(guān)于順序文獻的描述對的的是（A）

A．每條記錄的長度必須相同

B．可通過編程對文獻中的某條記錄方便地修改

C．數(shù)據(jù)只能以ASCII碼形式存放在文獻中，所以可通過文本編輯軟件顯示

D．文獻的組織結(jié)構(gòu)復(fù)雜

6、KILL語句在VB語言中的功能是（C）。

A．清內(nèi)存

B。清病毒

C。刪除磁盤上的文獻

D。清屏幕

7、可用來改變坐標度量單位的是（D）

A.Drawstyle屬性

B.DrawWidth屬性

C.Scale方法

D.ScaleMode屬性

8、以下的屬性和方法中，可重定義坐標系的是（C）

A．Drawstyle屬性

B.DrawWidth屬性

C.Scale

D.

ScaleMode屬性

9、當用Line方法畫直線后，當前坐標在（C）

A.(0,0)

B.直線起點

C.直線終點

D.容器的中心

10、Line(200,200)-Step(500,500)將在窗體（C）畫一直線。

A．（200,200）到(500,500)

B.（200,200）到(300,300)

C.（200,200）到(700,700)

D.（300,300）到(500,500)

11、設(shè)立對象的邊框類型的屬性是（B）。

A.Drawstyle

B.Borderstyle

C.DrawWidth

D.ScaleMode

12、為了清除圖片框Picture1中的圖形，應(yīng)采用的對的方法是（B）

A．選擇圖片框，然后按Del鍵

B．執(zhí)行語句Picture1.picture=LoadPicture(“”)

C．執(zhí)行語句Picture1.picture=“”

D．選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按回車鍵

13、繪制多種形狀的圖形，需要設(shè)立Shape控件的（A）屬性。

A．Shape

B.Borderstyle

C.FillStyle

D.Style

14、繪制多種形狀的直線，需要設(shè)立Line控件的（B）屬性。

A．Shape

B.Borderstyle

C.FillStyle

D.Style

15、假如準備讀文獻，打開順序文獻“text.dat”的對的語句是（C）

A.

open“text.dat”forwriteAs#1

B.

open“text.dat”forBinary

As#1

C.

open“text.dat”forInput

As#1

D.

open“text.dat”forRandom

As#1

16、假如準備向隨機文獻中寫入數(shù)據(jù)，對的的語句是（C）

A.Print#1,rec

B.Write

#1,rec

C.Put#1,rec

D.

Get#1,rec

17、下列“CommandDialog1”控件程序代碼，CommandDialog1.Action=1，代表（B）

A．文獻另存為

B.打開文獻

C.色彩

D.打印

18、FileFilter.Pattern=”*.bat”程序代碼執(zhí)行后，會顯示（A）。

A只包含擴展文獻名為”*.bat”的文獻

B。第一個bat文獻

C．包含所有的文獻

D。會顯示磁盤的途徑

19、下列數(shù)據(jù)對象模型中采用OLEDB訪問數(shù)據(jù)庫的是（C）。

A．DAO

B.RDO

C.ADO

D.RDO和ADO

20.設(shè)ADOrs為Recordset對象，從“學(xué)生基本情況表”中獲取所有記錄的語句是（B）

A．ADOrs.New“Select*From學(xué)生基本情況表”

B．ADOrs.Open“Select*From學(xué)生基本情況表”

C．ADOrs.Execute“Select*From學(xué)生基本情況表”

D．ADOrs.Select“Select*From學(xué)生基本情況表”

21、VB中將變量xl聲明為Excel應(yīng)用程序?qū)ο蟮姆椒ㄊ牵ˋ）

A．DimxlAsExcel.Application

B.DimxlAsExcel.Workbook

C.

DimxlAsExcel.Worksheet

D.DimxlAsExcel.Worksheets

二、填空題

1、假如要新建一個順序文獻，用Open語句時，操作方式關(guān)鍵詞是output。

2．在VisualBasic程序中實現(xiàn)復(fù)制文獻“C：\”到D:盤根目錄下的語句

為filecopy

“c:\”,”d:\”。

3.在VisualBasic程序中實現(xiàn)刪除文獻”D:\tem.tmp”的語句為__kill”d:\tem.tmp”。

4.按文獻號為1打開順序文獻SEQNEW.DAT,用于寫入數(shù)據(jù),語句

為___open”SEQNEW.DAT”foroutputas

#1。

5.按文獻號為2打開順序文獻SEQOLD.DAT,用于從該文獻讀出數(shù)據(jù),語句為___open”SEQOLD.DAT”forinputas#2。

6.若窗體的左上角坐標為(-200,250),右下角坐標為(300,-150),則X軸的正向向右，Y軸的正向向上_。

7.Stretch屬性設(shè)立為_false_時,圖像框可自動改變大小以適應(yīng)其中的圖形.

8.在圖片框Picture1中畫一個左上角在(500,500),邊長為500的紅色實心正方形的語句為_picture1.line(500,500)-step(500,500),vbred,BF。

9.設(shè)

CurrentX=50,CurrentY=100,執(zhí)行指令”line(100,20)-Step(300,500)”后,Current=_(400,520)_.

10.使用ADO模型時,可通過_ActiveConnect_屬性建立Recordset和Connection對象的連接.

11.VB中將數(shù)據(jù)庫分為本地數(shù)據(jù)庫、遠程數(shù)據(jù)庫和__外部數(shù)據(jù)庫_三種類型.

12.采用ADO模型時,當使用Open方法打開一個記錄集后,與ADOrs.Fields(“學(xué)號”)等效的語句是_ADOrs(“符號”)_.

13.ADO模型中一般可通過Connection對象的Execute方法執(zhí)行__增長_、__刪除_、__修改__等三類不返回結(jié)果集的SQL語句.

14.設(shè)StrSQL、Str1為字符串變量,其中Str1的值為”001”,那么執(zhí)行賦值語句StrSQL=”Select*fromTabel1Where學(xué)號=’”+Str1+”’”后,StrSQL的值等于_”select.*fromtabel1where學(xué)號=’001’”_.

15.在VB中,將Foxpro稱為外部數(shù)據(jù)庫,Access稱為__本地數(shù)據(jù)庫_，SQLServer稱為__遠程數(shù)據(jù)庫__.

三、程序設(shè)計題

1、在窗體上建立一個驅(qū)動器列表框、目錄列表框、文獻列表框、圖片框。規(guī)定程序運營后，驅(qū)動器列表框Drive1的默認驅(qū)動器設(shè)立為C盤，選擇File1中所列的確圖片文獻（*.Bmp和*.jpg），則相應(yīng)的圖片顯示在圖片框Picture1中。程序運營結(jié)果如圖10所示。

解：依據(jù)圖10設(shè)計界面，文獻列表框的pattern屬性設(shè)立為：*.Bmp;*.jpg

驅(qū)動器列表框的change事件中添加如下代碼：

chdrivedrive1.drive

dir1.path=drive1.drive

目錄列表框的change事件中添加如下代碼：

chdirdir1.path

file1.path=dir1.path

文獻列表框的click事件中添加如下代碼：

picture1.picture=loadpicturefile1.filename

2．余弦曲線的方程為y=cosx，畫出x從-2到2的確余弦曲線，并在坐標軸上標出刻度，如圖11所示。

如圖窗體的單擊事件中添加如下代碼：

Form1.scale(-2*3.14159,1)-(2*3.14159,-1)

Form1.line(-2*3.14159,0)-(2*3.14159,0)

Form1.line(0,1)-(0,-1)

Form1.currentx=0.2：form1.currentY=-0.1:print”0”

Form1.currentx=-3.2：form1.currentY=-0.1:print”-pi”

Form1.currentx=3.3：form1.currentY=-0.1:print”pi”

Form1.currentx=-6.2：form1.currentY=-0.1:print”-2pi”

Form1.currentx=5.7：form1.currentY=-0.1:print”2pi”

Form1.currentx=0.2：form1.currentY=0.5:print”0.5”

Form1.currentx=0.2：form1.currentY=-0.5:print”-0.5”

ForI=-6.282to6.282step0.08

Form1.pset(I,cos(I))

NextI

3,使用Line控件顯示直線,并且可以顯示直線的線寬和線型.程序運營界面如圖12所示.

如圖添加代碼如下

復(fù)選框的單擊事件代碼：

Ifcheck1.value=1then

Line1.borderwidth=4

Else

Line1.borderwidth=1

Endif

實線、虛線、單選框要弄成一個option1單選框控件數(shù)組。單選框單擊事件代碼：

Selectcaseindex

Case0

Line1.borderstyle=1

Case1

Line1.borderstyle=2

Case2

Line1.borderstyle=3

Endselect

4.使用Shape控件顯示幾種圖形,并可以設(shè)立圖形的邊框和填充效果等.程序運營界面如圖13所示.

一方面按圖作出程序界面。形狀框架里的單選框要做成option1控件數(shù)組，邊框類型框架里的單選框最成option2控件數(shù)組，填充風格框架里的單選做成option3控件數(shù)組。

Option1單擊事件代碼如下：

Selectcaseindex

Case0

Shape1.shape=0

Case1

Shape1.shape=1

Case2

Shape1.shape=3

Case3

Shape1.shape=4

Endselect

Option2單擊事件代碼如下:

Selectcaseindex

Case0

Shape1.borderstyle=0

Case1

Shape1.borderstyle=2

Case2

Shape1.borderstyle=1

Case3

Shape1.borderstyle=3

Case4

Shape1.borderstyle=4

Endselect

Option3單擊事件代碼如下:

Selectcaseindex

Case0

Shape1.fillstyle=1

Case1

Shape1.fillstyle=1

Case2

Shape1.fillstyle=3

Case3

Shape1.fillstyle=6

Endselect

5.使用SQLServer或Access建立名稱為”學(xué)生的數(shù)據(jù)庫,并在其中創(chuàng)建”students”的數(shù)據(jù)庫表,其結(jié)構(gòu)及初始記錄如表1所示.使用ADO對象和MSFlexGrid控件設(shè)計數(shù)據(jù)庫列表顯示程序.程序的設(shè)計界面和運營結(jié)果如圖14、圖15所示。

表1

學(xué)號

姓名

專業(yè)

2023001

張紅

軟件專業(yè)

2023003

李強

會計專業(yè)

2023002

王麗

軟件專業(yè)

聲名對象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接

PrivateADOcnAsconnection

Readfromtable

Privatesubreadfromtable()

DimstrtmpAsstring

DimADOrsAsnewrecordset

ADOrs.activeconnection=ADOcn

ADOrs.open“select*fromstudentsorderby“學(xué)號”

MSFlexgrid1.clear

MSFlexgrid1.rows=0

MSFlexgrid1.cols=3

Strtmp=“學(xué)號”+vbtab+“姓名”+vbtab+“專業(yè)”

MSFlexgrid1.additemstrtmp

DowhilenotADOrs.eof

Strtmp=ADOrs(“學(xué)號”)+vbtab+ADOrs(“姓名”)+vbtab+ADOrs(“專業(yè)”)

MSFlexgrid1.addttemstrtmp

ADOrsmovenext

Loop

MSFlexgrid1.fixedcols=0

MSFlexgrid1.fixedrows=1

Endsub

Privatesubform_load()

DimstrDBAsstring

strDB=”provider=SQLOLEDB;LSF;UserID=sa;password=;database=學(xué)生”

ifADOcnisnothingthen

setADOcn=newconnection

ADOcn.openstrDB

Endif

Readfromtable

Endsub

Privatesubcommand1_click()

Unloadme

Endsub

作業(yè)4

一、選擇題

1、WinsockServer.LocalPort=10001語句的含義是（

A）。

A、設(shè)立偵聽端口

B、設(shè)立計算機IP地址

C、設(shè)立中斷地址

D、設(shè)立通訊協(xié)議

2、當Winsock控件處在關(guān)閉狀態(tài)時，其State屬性的值是（

B）。

A、1

B、0

C、2

D、6

3、相對于UDP協(xié)議而言，TCP協(xié)議是一種（

A）。

A、面向連接的協(xié)議B、無連接協(xié)議

C、計算機間不建立連接

D、合用于傳送少量數(shù)據(jù)

4、VB程序中通常不會產(chǎn)生錯誤提醒的（D

）。

A、編譯錯誤

B、實時錯誤

C、運營時錯誤

D、邏輯錯誤

5、VB程序的編譯錯誤一般可通過VB集成環(huán)境的何種設(shè)立，自動檢測（

B）。

A、規(guī)定變量聲明

B、自動語法檢測

C、自動顯示快速信息量

D、主線無法自動檢測

6、VB程序中設(shè)立斷點的按鍵是（

C

）。

A、F5鍵

B、F6鍵

C、F9鍵

D、F10鍵

7、OnErrorGoToErrLB語句中，ErrLB的含義是（

A

）。

A、行標記號

B、SUB過程名

C、FUNCTION過程名

D、錯誤號

8、Err對象中，用來表達錯誤描述的屬性是（B

）。

A、ErrNo

B、Description

C、Number

D、Source

二、填空題。

1、使用Winsock控件時，一旦有數(shù)據(jù)到達，將一方面觸發(fā)該控件的DataArrival事件。而假如要發(fā)送數(shù)據(jù)，則通常使用該控件的senddata方法。

2、Winsock控件重要用來編制或基于TCP/IP經(jīng)UDP協(xié)議的通話程序。

3、ActiveXEX文獻的后綴是exe。

4、COM對象有兩種類型接口，即標準接口和用戶接口。

5、假如希望得到本地計算機的IP地址，可以使用Winsock控件的localIP屬性。

6、Winsock控件的BytesReceived屬性返回接受到的數(shù)據(jù)，通常使用getdata方法來獲取這些數(shù)據(jù)了。

7、Winsock1.Listen語句的含義是使服務(wù)程序處在偵聽狀態(tài)等待客戶訪問。

8、常用中的VB網(wǎng)絡(luò)編程控件重要有Winsock、InternetTransfer、WebBrowser三種。

9、VB中的程序錯誤類型重要有編譯錯誤、邏輯錯誤、實時錯誤等三種。

10、VB中用于關(guān)閉錯誤捕獲機制的語句是onerrorgoto0。

三、問答題。

1、簡述基于Socket的通信過程。

Socket在計算機提供了一個通信端口，可以通過這個端口與任何一個也同時具有Socket接口的計算機進行通信，應(yīng)用程序在網(wǎng)絡(luò)上傳輸、接受的信息都通過這個Socket接口實現(xiàn)，只需要對Socket接口進行數(shù)據(jù)的讀寫操作就可以了。

2、簡要設(shè)計錯誤解決程序的3個環(huán)節(jié)。

（1）捕獲錯誤，并強制程序跳轉(zhuǎn)

（2）編寫錯誤解決程序，對所有可預(yù)見的錯誤作出反映

（3）退犯錯誤解決程序

3、簡述常用的程序調(diào)式技巧

（1）事先做好備份

（2）分離受懷疑的程序

（3）縮小搜索范圍

（4）使用MSGBOX語句

4、簡述基于Winsock控件的開發(fā)模式。

（1）服務(wù)器程序的開發(fā)模式

(A)服務(wù)器程序必須設(shè)立好LOCALPORT，作為偵聽端口，該值可設(shè)立成任意一個整數(shù)，只要其他應(yīng)用和諧沒有使用過的值均可，但習慣上應(yīng)大于1000

（B）使用LISTRN方法使用服務(wù)器進入偵聽狀態(tài)，等待客戶機程序的連接請求。

（C）客戶機程序發(fā)出連接請求后，將觸發(fā)服務(wù)器程序的CONNECTIONREQUEST事件，該事件得到一個參數(shù)REQUESTID。

（D）服務(wù)器程序使用ACCEPT方法接受客戶機程序的REQUESTID請求，至此，服務(wù)器程序就可以使用SRNDDATA方法向客戶機發(fā)送數(shù)據(jù)了。此時應(yīng)特別注意兩點：一是ACCEPT方法必須用到上一步的REQUESTID作為其參數(shù)；二是在執(zhí)行ACCEPT方法前，服務(wù)器仍處在偵聽狀態(tài)，此時應(yīng)一方面使用CLOSE方法關(guān)閉服務(wù)器，然后再調(diào)用ACCEPT方法。

（E）當服務(wù)器程序接受到數(shù)據(jù)時，會產(chǎn)生DATAARRIVAL事件。在該事件中可以使用GETDATA方法接受數(shù)據(jù)。

(2)客戶機程序的開發(fā)模式

（A）客戶程序一方面應(yīng)設(shè)立好REMOTEHOST屬性，用來指向運營器程序的主機名或IP地址

（B）設(shè)立REMOTEPORT屬性，用來指向服務(wù)器程序和偵聽端標語。

（C）使用CONNECT方法向服務(wù)器提出連接請求。

（D）假如服務(wù)器接受上述連接請求，客戶機程序會產(chǎn)生CONNECT事件。可以根據(jù)需要，在此事件中編寫程序，比如使用MSGBOX函數(shù)向用戶提醒“連接已成功”之類的信息。

（E）連接成功之后，就可以根據(jù)需要使用SENDDATA方法向服務(wù)器發(fā)送數(shù)據(jù)了。

（F）當客戶機程序接受到數(shù)據(jù)時，會產(chǎn)生DATAARRIVAL事件，可以用GETDATA方法接受數(shù)據(jù)。

四、程序設(shè)計題。

1、運用冒泡排序算法開發(fā)以下程序，請指出程序中存在的錯誤并改正。

PrivateSubCommand1_Click()

DimA(1To20)AsInteger

Dimc,j,TAsInteger

＇此處有錯，應(yīng)為Dimc,j,Tasinteger

‘隨機生成一組數(shù)據(jù)

Forc=1To20

A(c)=Int(Rnd*100)

Nextc

‘排序

Forc=1To20

Forj=c+1To20

IFA(c)>A(j)Then

T=A(j)

A(j)=A(c)

A(j)=T