Visual-Basic程序設(shè)計(jì)形成性考核冊(cè)作業(yè)答案四

1、精選優(yōu)質(zhì)文檔-傾情為你奉上Visual Basic程序設(shè)計(jì)形成性考核冊(cè)作業(yè)答案四一、選擇題1、WinsockServer.LocalPort=10001語(yǔ)句的含義是（ A ）。A、設(shè)置偵聽(tīng)端口 B、設(shè)置計(jì)算機(jī)IP地址 C、設(shè)置中斷地址 D、設(shè)置通訊協(xié)議2、當(dāng)Winsock控件處于關(guān)閉狀態(tài)時(shí)，其State屬性的值是（ B ）。A、1 B、0 C、2 D、63、相對(duì)于UDP協(xié)議而言，TCP協(xié)議是一種（ A ）。A、面向連接的協(xié)議 B、無(wú)連接協(xié)議 C、計(jì)算機(jī)間不建立連接 D、適用于傳送少量數(shù)據(jù)4、VB程序中通常不會(huì)產(chǎn)生錯(cuò)誤提示的（ D ）。A、編譯錯(cuò)誤 B、實(shí)時(shí)錯(cuò)誤 C、運(yùn)行時(shí)錯(cuò)誤 D、邏輯錯(cuò)誤5、

2、VB程序的編譯錯(cuò)誤一般可通過(guò)VB集成環(huán)境的何種設(shè)置，自動(dòng)檢測(cè)（ B ）。A、要求變量聲明 B、自動(dòng)語(yǔ)法檢測(cè) C、自動(dòng)顯示快速信息量 D、根本無(wú)法自動(dòng)檢測(cè)6、VB程序中設(shè)置斷點(diǎn)的按鍵是（ C ）。A、F5鍵 B、F6鍵 C、F9鍵 D、F10鍵 7、On Error Go To ErrLB語(yǔ)句中，ErrLB的含義是（ A ）。A、行標(biāo)識(shí)號(hào) B、SUB過(guò)程名 C、FUNCTION過(guò)程名 D、錯(cuò)誤號(hào)8、Err對(duì)象中，用來(lái)表示錯(cuò)誤描述的屬性是（ B ）。A、ErrNo B、Description C、Number D、Source二、填空題。1、使用Winsock控件時(shí)，一旦有數(shù)據(jù)到達(dá)，將首先觸發(fā)該控

3、件的DataArrival事件。而如果要發(fā)送數(shù)據(jù)，則通常使用該控件的senddata方法。2、Winsock控件主要用來(lái)編制或基于TCP/IP經(jīng)UDP協(xié)議的通話程序。3、ActiveXEX文件的后綴是exe。4、COM對(duì)象有兩種類型接口，即標(biāo)準(zhǔn)接口和用戶接口。5、如果希望得到本地計(jì)算機(jī)的IP地址，可以使用Winsock控件的localIP屬性。6、Winsock控件的BytesReceived屬性返回接受到的數(shù)據(jù)，通常使用getdata方法來(lái)獲取這些數(shù)據(jù)了。7、Winsock1.Listen語(yǔ)句的含義是使服務(wù)程序處于偵聽(tīng)狀態(tài)等待客戶訪問(wèn)。8、常用中的VB網(wǎng)絡(luò)編程控件主要有Winsock 、In

4、ternet Transfer、WebBrowser 三種。9、VB中的程序錯(cuò)誤類型主要有編譯錯(cuò)誤、邏輯錯(cuò)誤、實(shí)時(shí)錯(cuò)誤等三種。10、VB中用于關(guān)閉錯(cuò)誤捕獲機(jī)制的語(yǔ)句是on error goto 0。三、問(wèn)答題。1、簡(jiǎn)述基于Sock e t的通信過(guò)程。 Socket在計(jì)算機(jī)提供了一個(gè)通信端口，可以通過(guò)這個(gè)端口與任何一個(gè)也同時(shí)具有Socket接口的計(jì)算機(jī)進(jìn)行通信，應(yīng)用程序在網(wǎng)絡(luò)上傳輸、接收的信息都通過(guò)這個(gè)Socket接口實(shí)現(xiàn)，只需要對(duì)Socket接口進(jìn)行數(shù)據(jù)的讀寫操作就可以了。2、簡(jiǎn)要設(shè)計(jì)錯(cuò)誤處理程序的3個(gè)步驟。（1）捕捉錯(cuò)誤，并強(qiáng)制程序跳轉(zhuǎn)（2）編寫錯(cuò)誤處理程序，對(duì)所有可預(yù)見(jiàn)的錯(cuò)誤作出反應(yīng)（3）

5、退出錯(cuò)誤處理程序3、簡(jiǎn)述常用的程序調(diào)式技巧（1）事先做好備份（2）分離受懷疑的程序（3）縮小搜索范圍（4）使用MSGBOX語(yǔ)句4、簡(jiǎn)述基于Winsock控件的開(kāi)發(fā)模式。（1）服務(wù)器程序的開(kāi)發(fā)模式(A)服務(wù)器程序必須設(shè)置好LOCALPORT，作為偵聽(tīng)端口，該值可設(shè)置成任意一個(gè)整數(shù)，只要其他應(yīng)用和諧沒(méi)有使用過(guò)的值均可，但習(xí)慣上應(yīng)大于1000（B）使用LISTRN方法使用服務(wù)器進(jìn)入偵聽(tīng)狀態(tài)，等待客戶機(jī)程序的連接請(qǐng)求。（C）客戶機(jī)程序發(fā)出連接請(qǐng)求后，將觸發(fā)服務(wù)器程序的CONNECTIONREQUEST事件，該事件得到一個(gè)參數(shù)REQUESTID。（D）服務(wù)器程序使用ACCEPT方法接受客戶機(jī)程序的REQ

6、UESTID請(qǐng)求，至此，服務(wù)器程序就可以使用SRNDDATA方法向客戶機(jī)發(fā)送數(shù)據(jù)了。此時(shí)應(yīng)特別注意兩點(diǎn)：一是ACCEPT方法必須用到上一步的REQUESTID作為其參數(shù)；二是在執(zhí)行ACCEPT方法前，服務(wù)器仍處于偵聽(tīng)狀態(tài)，此時(shí)應(yīng)首先使用CLOSE方法關(guān)閉服務(wù)器，然后再調(diào)用ACCEPT方法。（E）當(dāng)服務(wù)器程序接收到數(shù)據(jù)時(shí)，會(huì)產(chǎn)生DATAARRIVAL事件。在該事件中可以使用GETDATA方法接收數(shù)據(jù)。(2)客戶機(jī)程序的開(kāi)發(fā)模式（A）客戶程序首先應(yīng)設(shè)置好REMOTEHOST屬性，用來(lái)指向運(yùn)行器程序的主機(jī)名或IP地址（B）設(shè)置REMOTEPORT屬性，用來(lái)指向服務(wù)器程序和偵聽(tīng)端口號(hào)。（C）使用CON

7、NECT方法向服務(wù)器提出連接請(qǐng)求。（D）如果服務(wù)器接受上述連接請(qǐng)求，客戶機(jī)程序會(huì)產(chǎn)生CONNECT事件?？梢愿鶕?jù)需要，在此事件中編寫程序，比如使用MSGBOX函數(shù)向用戶提示“連接已成功”之類的信息。（E）連接成功之后，就可以根據(jù)需要使用SENDDATA方法向服務(wù)器發(fā)送數(shù)據(jù)了。（F）當(dāng)客戶機(jī)程序接收到數(shù)據(jù)時(shí)，會(huì)產(chǎn)生DATAARRIVAL事件，可以用GETDATA方法接收數(shù)據(jù)。四、程序設(shè)計(jì)題。1、利用冒泡排序算法開(kāi)發(fā)以下程序，請(qǐng)指出程序中存在的錯(cuò)誤并改正。Private Sub Command1_Click()Dim A( 1 To 20 )As IntegerDim c , j , T As I

8、nteger 此處有錯(cuò)，應(yīng)為Dim c ,j ,T as integer 隨機(jī)生成一組數(shù)據(jù)For c= 1 To 20 A(c) = Int ( Rnd *100 )Next c排序For c = 1 To 20 For j = c+ 1 To 20 IF A(c)A( j )Then T=A ( j ) A( j )=A (c) A( j )=T 此處有錯(cuò)，應(yīng)為A（C）T，實(shí)現(xiàn) End IfA（C）和A（J）的交換 NextNext在窗體上輸出結(jié)果ClsFor c = 1 To 20 Print A (i)此處有錯(cuò)，應(yīng)為A（C）下標(biāo)越界Next cEnd Sub2、利用Winsock控件開(kāi)發(fā)

9、一個(gè)點(diǎn)對(duì)點(diǎn)聊天系統(tǒng)，該系統(tǒng)由一個(gè)服務(wù)器應(yīng)用程序和一個(gè)客戶端應(yīng)用程序組成，能夠?qū)崿F(xiàn)網(wǎng)絡(luò)中兩臺(tái)計(jì)算機(jī)間的通話任務(wù)。解：如下界面的設(shè)計(jì)中，若不說(shuō)明，各對(duì)象均采用默認(rèn)的名稱。 服務(wù)器程序的界面設(shè)計(jì)1、創(chuàng)建一個(gè)“標(biāo)準(zhǔn)EXE”工程。選中“工程”菜單的“部件”選項(xiàng)，在控件中找到Microsoft Winsock Control 并將其選中。如果沒(méi)有找到，通常是由于VB安裝不安全的緣故，可以找到安裝盤并安裝其中的Mswinsck.cad 壓縮包。2、將form1的名稱改為 frmSvr ，并在其中添加一個(gè)命令按鈕控件，將其Caption屬性修改為“退出”。3、在窗體上添加三個(gè)添加TextBox控件，分別將其名

10、稱修改為txtServerIP , txtSend 和txtReceive,用來(lái)顯示服務(wù)器的IP地址和需收發(fā)的信息。4、在窗體上添加一個(gè)Winsock控件，將其名稱改為WinsockServer，將Protocol（協(xié)議）屬性設(shè)置為0（即sckTCPProtocol）各控件及事件代碼如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()txtreceive.Text = txtsend.Text = Winsockserver.LocalPort = 10001txtserverip.Text = Winso

11、ckserver.LocalIPWinsockserver.ListenEnd SubPrivate Sub txtsend_Change()Winsockserver.SendData txtsend.TextEnd SubPrivate Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)Winsockserver.CloseWinsockserver.Accept requestIDEnd SubPrivate Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)

12、Dim mystr As StringWinsockserver.GetData mystrtxtreceive.Text = mystrEnd Sub 客戶機(jī)程序的界面設(shè)計(jì)1、與服務(wù)器程序類似，創(chuàng)建一個(gè)新的“標(biāo)準(zhǔn)EXE”工程，并添加Winsock控件。2、將form1的名稱改為 frmClt，并添加兩個(gè)命令按鈕控件，分別將它們的Caption屬性設(shè)置為“退出”和“連接聊天服務(wù)器”。3、在窗體添加四個(gè)文本框控件，分別將其名修改為txtClientIP, txtSenerIP, txtsend和txtReceive，用來(lái)顯示客戶機(jī)和要連接的服務(wù)器的IP地址以及需收發(fā)的信息。4、在窗體上添加一個(gè)W

13、insock控件，將其名稱改為WinsockClient，將（協(xié)議）屬性設(shè)置為0（即sckTCPProtocol）各控件及事件代碼如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()Winsockclient.RemoteHost = txtserverIP.TextWinsockclient.ConnectEnd SubPrivate Sub Form_Load()txtreceive.Text = txtsend.Text = Winsockclient.RemotePort = 10001txtclientIP.Text = Winsockclient.LocalIPEnd SubPrivate Sub txtsend_Change()Winsockclient.SendData txtsend.TextEnd SubPrivate Sub Winsockclient_