VB程序設(shè)計(jì)期末復(fù)習(xí)題

1、B a s i c 程 序 設(shè) 計(jì) 期 末 復(fù) 習(xí) 題一、單項(xiàng)選擇題1 Visual Basic是一種面向?qū)ο蟮目梢暬幊陶Z(yǔ)言，采取了（A.按過(guò)程順序執(zhí)行C事件驅(qū)動(dòng)2.與傳統(tǒng)的設(shè)計(jì)語(yǔ)言相比，A.程序開(kāi)發(fā)環(huán)境C.程序調(diào)試技術(shù)）的編程機(jī)制。B.從主程序開(kāi)始執(zhí)行D.按模塊順序執(zhí)行Visual Basic 最突出的特點(diǎn)是（B.結(jié)構(gòu)化程序設(shè)計(jì)D.事件驅(qū)動(dòng)的編程機(jī)制.exe 文件”編譯成 .exe 后，將該可執(zhí)行文件拿到其它機(jī)3. 將調(diào)試通過(guò)的工程經(jīng)“文件”菜單的“生成 器上不能運(yùn)行的主要原因是（ ）。A.缺少.frm窗體文件B.該可執(zhí)行文件有病毒C.運(yùn)行的機(jī)器上無(wú) VB系統(tǒng)D.以上原因都不對(duì)4. Vis

2、ual 集成開(kāi)發(fā)環(huán)境有三種工作模式，下列不屬于三種工作模式之一的是（A.設(shè)計(jì)模式B.編寫代碼模式）。5后綴為 .bas 的文件表示（）。A.工程文件B窗體文件C.窗體二進(jìn)制數(shù)據(jù)文件D標(biāo)準(zhǔn)類模塊文件6工程文件的擴(kuò)展名是（）。A.vbpB.frmC.basD.frx7剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是（）。A.時(shí)鐘控件B.圖像框C.框架D.通用對(duì)話框8.以下敘述中錯(cuò)誤的是（）。C.執(zhí)行模式D.中斷模式A 一個(gè)工程中可以包含多個(gè)窗體文件B. 在設(shè)計(jì)Visual Basic程序時(shí)，窗體、標(biāo)準(zhǔn)模塊、類模塊等需要分別保存為不同類型的文件C. 在一個(gè)窗體文件中用Private定義的通用

3、過(guò)程能被其它窗體調(diào)用D. 全局變量必須在標(biāo)準(zhǔn)模塊中定義9.要在窗體Forml內(nèi)顯示“歡迎您！”使用的語(yǔ)句是（）A.="歡迎您!"B="歡迎您!"CForm. print " 歡迎您!"D " 歡迎您 !10 決定標(biāo)簽內(nèi)顯示內(nèi)容的屬性是（）A NameB TextCCaptionDAlignment11要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個(gè)屬性是（）A. Caption 和 PictureB. Style 和 PictureC. Style 和 IconD. Value 和 Icon12將數(shù)據(jù)項(xiàng)“ China ”添加到列表框

4、 List1 中成為第一項(xiàng)，應(yīng)使用的語(yǔ)句是（A "China"B "1,China"C "China",0D "China",113 在VB中，下列各項(xiàng)合法的變量名是（）。A Integer B ab-cC 2abcD a_bc14.在VB中，下列合法的變量名是（）A4EFB integer CE-FDE_F15如果要在文本框中鍵入字符時(shí)，只顯示某個(gè)字符，如星號(hào)（* ），應(yīng)設(shè)置文本框的（ ）屬性A PasswordCharB CaptionC TextD Locked16要使窗體在運(yùn)行時(shí)不可改變窗體的大小和沒(méi)有最大

5、化和最小化按鈕，只要對(duì)下列 ）屬性設(shè)置就有效。AMaxButtonCWidth 17下列控件中不能響應(yīng)A TextBox BListBoxB BorderSyleD MinButtonClick 事件的是( )。Timer C Label D18有程序代碼如下：= " 歡迎學(xué)習(xí) VB 程序設(shè)計(jì) "則Textl , Text，和"歡迎學(xué)習(xí)VB程序設(shè)計(jì)"分別代表（）A.對(duì)象，值，屬性B.對(duì)象，屬性，值C.對(duì)象，方法，屬性D.屬性，對(duì)象，值19.設(shè) a=” Visual Basic ”，下面使b=”Basic ”的語(yǔ)句是（）。A. b=left(a,8,12)

6、B. b=mid(a,8,5)C. b=right(a,5,5)D. b=left(a,8,5)20.確定一個(gè)控件在窗體上位置的屬性是（）A . Top 或 LeftB. Top 和 LeftC. Width 或 HeightD. Width 和 Height21.執(zhí)行 (0, 10)-(10, -10)語(yǔ)句后，F(xiàn)orm1 窗體坐標(biāo)系 x 軸和 y 軸的正方向是A.向右和向上B.向左和向下C.向右和向下D.向左和向上22 .如果希望以模態(tài)方式顯示窗體Forml，下列正確的語(yǔ)句是（）A. 0B.1C.D.以下都不正確23.改變驅(qū)動(dòng)器列表框的Drive 屬性值，將激活（）事件。A. KeyDown

7、B.KeyUpC. ScollD. Change24 多窗體程序是由多個(gè)窗體組成，在缺省情況下，VB 在應(yīng)用程序執(zhí)行時(shí)，總是把 （ ）指定為啟動(dòng)窗體。A. 不包含任何控件的窗體B .命名為Frm1的窗體C.包含控件最多的窗體D.設(shè)計(jì)時(shí)的第一個(gè)窗體25. Dim A（1 To 4,0 To 3） 定義的數(shù)組包含的元素的個(gè)數(shù)是（ ）。A . 12 B . 16C. 15 D .動(dòng)態(tài)變化26. 如果創(chuàng)建了命令按紐控件數(shù)組，則Click 事件的參數(shù)是（ ）。A. Caption B . Index C . Tag D .沒(méi)有參數(shù)27.如果準(zhǔn)備向隨機(jī)文件中寫入數(shù)據(jù)，正確的語(yǔ)句是（）A.Write # 1

8、,recB.Print # 1,recC.Get # 1,recD.Put # 1,rec28.要以讀方式打開(kāi) D盤的一個(gè)順序文件，應(yīng)使用的語(yǔ)句是（）A. Open " " For Output As #1B. Open "D: " For Input As #1C. Open "D: " For Output As #1D. Ope n ” ” For In put As #129.以下屬性只能用程序代碼設(shè)置，不能通過(guò)屬性窗口設(shè)置的是（）。A. Index 屬性 B . Pattern 屬性 C . Visible 屬性 D . D

9、rive 屬性 30.以下有關(guān)Visual Basic 語(yǔ)言描述中錯(cuò)誤的是（）。A.語(yǔ)句是一行一句，以回車鍵結(jié)束B(niǎo)用“，”分隔一行中的多個(gè)語(yǔ)句C. 不區(qū)分大小寫D. 條語(yǔ)句放在多行中，則在前一行結(jié)束處使用續(xù)行符“連接下一行31 不屬于VB數(shù)據(jù)庫(kù)引擎的是（）A. ODBC B. Jet 引擎C. OLE DBD. BDE32.使用ADC對(duì)象模型時(shí)，使Recordset和Conn ectionA .對(duì)象建立連接的屬性是（）。33 .Open B. ExecuteC. CommandType用來(lái)從數(shù)據(jù)庫(kù)表中刪除記錄的SQL命令是（C. update）。）。D.ActiveC onn ecti onA

10、. whereB. selectvb程序中通常不會(huì)產(chǎn)生錯(cuò)誤提示的是（A.編譯錯(cuò)誤B.邏輯錯(cuò)誤C.運(yùn)行時(shí)錯(cuò)誤D.實(shí)時(shí)錯(cuò)誤35 .在VB程序中逐語(yǔ)句調(diào)試的鍵是（A. F8 鍵B .C. CtrlF8 鍵D.36 .當(dāng)Win sock控件處于偵聽(tīng)狀態(tài)時(shí)，其D. delete34 .)。F9鍵CtrlF9State鍵屬性的值是（A. 0 B. 1C. 2D. 337 .要發(fā)送數(shù)據(jù)，通常使用Win sock控件的（A. ListenB.38.下列敘述不正確的是（Accept)。C. SendDataD. GetDataA.注釋語(yǔ)句是非執(zhí)行語(yǔ)句，僅對(duì)程序的有關(guān)內(nèi)容起注釋作用，客觀存在不被解釋和 編譯B.

11、注釋語(yǔ)句不能放在代碼中的任何位置C. 注釋語(yǔ)句可以放在代碼中的任何位置D. 代碼中加入注釋語(yǔ)句的目的是提高程序的可讀性39 . ADO對(duì)象模型含有七種對(duì)象，其中用于建立一個(gè)和數(shù)據(jù)源的連接的對(duì)象是（）。A. Comma ndB. ConnectionC. RecordsetD. Field40 . ADO對(duì)象模型含有七種對(duì)象，其中代表數(shù)據(jù)庫(kù)表中的一整套記錄或執(zhí)行一條命令而得到的結(jié)果的對(duì) 象是（）。、填空題1.每個(gè)應(yīng)用程序必須有一個(gè)唯一的 文件，至少有一個(gè) 文件。2. 表達(dá)式 132-2A3*5 MOD 6 的值是。3. 如果要每隔3s產(chǎn)生一個(gè)Timer事件，則Interval屬性應(yīng)設(shè)置為。4.

12、VB中的程序錯(cuò)誤類型主要有實(shí)時(shí)錯(cuò)誤、三種。5.控件數(shù)組的名字由屬性指定，而數(shù)組中的每個(gè)元素由屬性決定。6.用Dim A（4,4）語(yǔ)句聲明二維數(shù)組后，數(shù)組A的元素共有個(gè)。7 設(shè)某個(gè)程序中要用到一個(gè)二維數(shù)組，要求數(shù)組名為R,類型為整型，第一維下標(biāo)從 -2到2,第二維下標(biāo)從0到4,則相應(yīng)數(shù)組聲明語(yǔ)句為。8 某個(gè)程序中要用到一個(gè)二維數(shù)組，要求數(shù)組名為C,類型為整型，第一維下標(biāo)從 -1到3,第二維下標(biāo)從0到4,則相應(yīng)數(shù)組聲明語(yǔ)句為。9 過(guò)程級(jí)變量是指在聲明的變量，窗體級(jí)或模塊級(jí)變量是指窗體或模塊的代碼聲明段用或聲明的變量，在全局變量在整個(gè)應(yīng)用程序中有效，一般在標(biāo)準(zhǔn)模塊中使用語(yǔ)句聲明。10 在Visual

13、 Basic語(yǔ)言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以適先確定，可使用ForNext循環(huán)循環(huán)；若要求先判斷循環(huán)進(jìn)行的條件，可使用循環(huán)。11 為了在運(yùn)行時(shí)把當(dāng)前路徑下的圖形文件裝入圖片框P1，所使用的語(yǔ)句為。12.將圖片框的AutoSize屬性設(shè)置成時(shí)，可使圖片框根據(jù)圖片調(diào)整大小。13 Win sock控件主要用來(lái)編制基于TCP/IP或協(xié)議的網(wǎng)絡(luò)應(yīng)用程序。如果希望得到本地計(jì)算機(jī)的IP地址，可以使用 Win sock控件的 屬性。14 Win sock控件主要用來(lái)編制基于或協(xié)議的網(wǎng)絡(luò)應(yīng)用程序。15 如果不能事先確定變量的數(shù)據(jù)類型，則可以把它聲明為類型。16 以寫方式打開(kāi) D盤中的 文件，正

14、確的語(yǔ)句是 17.列表框中項(xiàng)目的序號(hào)是從開(kāi)始的。18 .執(zhí)行賦值語(yǔ)句 y = “ abc” +" def ”后，變量y的值是。19 全局變量是指那些在中有效的變量，一般在模塊代碼編輯器的頂部使用聲明。20 VB中參數(shù)傳遞的機(jī)制有兩種，一種是參數(shù)，另一種是參數(shù)。21 閏年的條件是：年號(hào)（Y能被4整除，但不能被100整除；或者年號(hào)能被 400整除。表示該條件的邏輯表達(dá)式是。22 若窗體的左上角坐標(biāo)為（-250 , 250），右下角坐標(biāo)為（300 , 0）,貝U X軸的正向向Y軸的正向向。23 .在 VB 中，將 Access 稱為, SQL Server 稱為 , Foxpro 稱為。2

15、4 數(shù)據(jù)庫(kù)應(yīng)用程序?qū)儆谝环N非常典型的前后臺(tái)軟件結(jié)構(gòu)，前后臺(tái)之間進(jìn)行通訊的主要機(jī)制稱為。25 常用的 VB網(wǎng)絡(luò)編程控件主要有 、和三種。26 通?？梢詫⑽谋究蚩丶膶傩栽O(shè)置為False，以禁止鍵盤輸入。如果不希望某個(gè)控件獲得焦點(diǎn)，則可以將它的屬性設(shè)置為False。27 VB應(yīng)用程序可分為單窗體、多窗體和。28 若窗體Form1左上角坐標(biāo)為（0, 600）,右下角的坐標(biāo)為（800 , -200 ）。貝U X軸的正向向，丫軸的正向向。29 數(shù)據(jù)庫(kù)應(yīng)用程序?qū)儆谝环N非常典型的前后臺(tái)軟件結(jié)構(gòu)，而前后臺(tái)之間進(jìn)行通信的主要機(jī)制稱為。30 VB中將數(shù)據(jù)庫(kù)分為本地?cái)?shù)據(jù)庫(kù)、 和三種類型。三、閱讀程序題閱讀下列程序并

16、寫出程序運(yùn)行結(jié)果1 Private Sub Form_Click()Dim x As In tegerStatic y As In tegerx = x + 2y = y + 3 "x=" x, "y=" yEnd Sub寫出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后， Form1 上的輸出結(jié)果 2Private Sub Command1_Click()x = 0Do While x < 60x = (x + 3) * (x + 4) n = n + 1Loop = Str(n) = Str(x) = Val + ValEnd Sub 寫出程序運(yùn)行后，文件框 T

17、ext3 的結(jié)果。3.Private Sub Form_Click()Dim A(1 To 3) As StringDim c As IntegerDim j As IntegerA(1) = "4"A(2) = "8"A(3) = "12"c = 1For j = 1 To 3 c = c + Val(A(j)Next jPrint cEnd Sub 寫出程序運(yùn)行時(shí)單擊窗體后，窗體 Form1 上的結(jié)果。4.Public Sub change1(ByVal x As Integer, ByVal y As Integer) Dim

18、t As Integer t = xx = y y = tEnd SubPublic Sub change2(x As Integer, y As Integer)Dim t As Integer t = xx = y y = t End SubPrivate Sub Form_Click()Dim a As Integer, b As Integera = 22: b = 33 change1 a, b"A1=" a, "B1=" ba = 22: b = 33 change2 a, b"A2=" a, "B2="

19、; bEnd Sub 寫出程序運(yùn)行時(shí)，單擊窗體 Form1 上的輸出結(jié)果。5Private Sub Form_Click()Dim i As Integer, k As Integerk = 1For i = 1 To 4If i > 3 Thenk = k + 4Exit ForElsek = k + 3End IfNext iPrint i, kEnd Sub 寫出程序運(yùn)行時(shí)單擊窗體后， Form1 上的輸出結(jié)果。6.Private Sub Command1_Click()Dim s As DoubleDim i As Integer s = 6 i = 2 Do While i &

20、lt; 7 i = i + 4 s = s + iLoop= sEnd Sub寫岀程序運(yùn)行后，單擊Command1按鈕，文件框 Textl的輸岀結(jié)果是:7.Function F(a As Integer)Static cb = b + 3c = c + 3F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 5For i = 1 To 4Print F(a)Next iEnd Sub寫出程序運(yùn)行時(shí)，單擊命令按鈕在窗體上的輸出結(jié)果。 8Private Sub Form_Click()Dim c As In

21、teger, j As Integer, k As Integer k = 3c = 4For j = 1 To 6If j > 3 Thenc = c + 6Exit ForElsek = k + 2End If Next jPrint c, k End Sub 寫出程序運(yùn)行時(shí)單擊窗體后， c,k 的值分別是：9. (6 分 )Private Sub Command1_Click() Dim s As DoubleDim i As Integer s = 5 i = 1Do While i < 8i = i + 2 s = s + iLoop= sEnd Sub文件框 Text1

22、 的輸出結(jié)果是10. (7 分 ) Sub test(i As Integer)i = i + 4End SubPrivate Sub form_Click()Dim x As Integerx = 5Print "x=" xCall test(x)Print "x=" xEnd Sub寫出程序運(yùn)行后，單擊窗體時(shí)程序的運(yùn)行結(jié)果。四、完善程序題1列表框應(yīng)用程序。要求從文本框中輸入課程名稱，然后按“添加”按鈕，將該課程名程添加到列表 框中；當(dāng)選擇列表框中某一項(xiàng)后，按“刪除”按鈕，則從列表框中刪除該項(xiàng)；當(dāng)選擇列表框中某一項(xiàng)后， 按“修改”按鈕，把列表框中選取的

23、項(xiàng)送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認(rèn)”。在文本框的內(nèi)容修 改好后，按“修改確認(rèn)”按鈕，再把文本框中修改后的信息送到列表框且“修改確認(rèn)”按鈕變?yōu)椤靶?改”。程序運(yùn)行結(jié)果如圖 1所示。List1TextlComma nd1Comma nd2Comma nd3程序如下，請(qǐng)補(bǔ)充完整。Private Sub Form_Load()"Visual Basic程序設(shè)計(jì)""SQL SERVER數(shù)據(jù)庫(kù)應(yīng)用“"信息管理系統(tǒng)“"ERP 原理與應(yīng)用“"網(wǎng)絡(luò)實(shí)用技術(shù)基礎(chǔ)“"系統(tǒng)開(kāi)發(fā)規(guī)范與文檔編寫"信息系統(tǒng)測(cè)試“End Sub圖1Priv

24、ate Sub Comma nd1_Click()If <> "" The n1L III!將文本框中的內(nèi)容加到列表框中MsgBox " 請(qǐng)?jiān)谖谋究蛑休斎胄畔?End IfEnd Sub刪除選定的項(xiàng)目Private Sub Comma nd2_Click()'End SubPrivate Sub Comma nd3_Click()If = 4 Then=5 =False=7Else=True=True=8End IfEnd Sub2 .已知存在一名為"學(xué)生"的SQLServer數(shù)據(jù)庫(kù)，其中的"students &q

25、uot;數(shù)據(jù)表用來(lái)存儲(chǔ)學(xué)生的基本情況信息，包括學(xué)號(hào)、姓名、籍貫、性別。請(qǐng)編寫一個(gè)簡(jiǎn)單的應(yīng)用程序，向stude nts表中添加學(xué)生記錄。程序的基本邏輯是：當(dāng)窗體被加載時(shí)，程序聯(lián)接SQL Server數(shù)據(jù)庫(kù)；當(dāng)點(diǎn)擊“增加”按鈕時(shí)，首先查詢學(xué)號(hào)是否重復(fù)，如果不重復(fù)則向stude nts表中添加學(xué)生記錄。其運(yùn)行界面如下圖所示。圖1程序如下，請(qǐng)補(bǔ)充完整。'聲明對(duì)象變量ADOcn用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接Private ADOc n As Co nn ectionPrivate Sub Form_Load()'連接SQL Server數(shù)據(jù)庫(kù)Dim strDB As Stri ngstrDB =

26、 "Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1"If ADOc n Is Nothi ng The nSet ADOc n =2 3 End IfEnd SubPrivate Sub Comma nd1_Click()'增加學(xué)生記錄Dim strSQL As Stri ngDim ADOrs As ADOrs. 5=ADOc n“ Select 學(xué)號(hào) From Students Where學(xué)號(hào)=” +”' “ +Text1 + ”' “If Not The nMsgBox “你輸入的

27、學(xué)號(hào)已存在，不能新增加！”ElseStrSQL=” Insert Into students (學(xué)號(hào) ,姓名”籍貫,性別)StrSQL=strSQL+Values(” +”' “ +text1+ ”'， “ +text2+ ”', '“ +text3+ ”','“ +text4+ ”) ”MsgBox "添加成功，請(qǐng)繼續(xù)！"End IfPrivate Sub Comma nd2_Click()Un load MeEnd Sub3假設(shè)用Access創(chuàng)建了一個(gè)名為“學(xué)生.MDB”的數(shù)據(jù)庫(kù)，并在其中創(chuàng)建了一張名為“學(xué)生基本情 況”的

28、數(shù)據(jù)表，表中存放了學(xué)生的基本信息，如圖1所示?，F(xiàn)在要求利用 VB編寫一個(gè)數(shù)據(jù)庫(kù)查詢程序，程序的運(yùn)行界面如圖2所示，基本邏輯是：首先文本框(Text1)中輸入希望查詢的學(xué)生學(xué)號(hào)，然后點(diǎn)擊"查詢"按鈕(Command1)，如果數(shù)據(jù)庫(kù)中存在該學(xué)號(hào)，則分別在Text2、Text3、Text4中顯示學(xué)號(hào)、姓名、籍貫信息，否則提示用戶“記錄不存在”并使Text1獲得焦點(diǎn)，要求用戶重新輸入。當(dāng)點(diǎn)擊退岀按鈕(Comma nd2)時(shí)關(guān)閉本窗體。圖1用Access創(chuàng)建的學(xué)生基本情況數(shù)據(jù)表圖2查詢程序運(yùn)行界面程序如下，請(qǐng)補(bǔ)充完整。Private ADOc n As Co nn ectionPri

29、vate Sub Form_Load()12 “End SubPrivate Sub Comma nd1_Click()Dim strSQL As Stri ngDim ADOrs As 3 Recordset=ADOc nstrSQL = "Select * From學(xué)生基本情況 Where 學(xué)號(hào)="+ " ' " + Textl + "'"4 If 5 The nText2 =("學(xué)號(hào)")Text3 =("姓名")Text4 =("籍貫")6MsgBox

30、"要查詢的學(xué)號(hào)不存在，請(qǐng)重新輸入!", vbOKOnly,"信息提示“Textl =""7End IfEnd SubPrivate Sub Comma nd2_Click()8End五、編寫程序題1 編寫一工資調(diào)整程序。若基本工資大于等于800元，增加工資20%若小于800元大于600元，則增加工資15%若小于600元?jiǎng)t增加工資10%。要求在文本框 Text1中輸入某職工的基本工資，單擊“計(jì)算”按鈕，在標(biāo)簽框 Label1中輸岀增加后的工資。程序運(yùn)行界面如圖4所示。圖22 請(qǐng)根據(jù)下列描述編寫購(gòu)物優(yōu)惠程序。某商場(chǎng)為了加速促成商品流通，采用購(gòu)物打折

31、的優(yōu)惠辦法，每位顧客一次購(gòu)物(1)在100元以上者，按九五折優(yōu)惠；(2)在200元以上者，按九折優(yōu)惠；(3) 300元以上者，按八折優(yōu)惠； （4）500 元以上者按七折優(yōu)惠。在窗體上添加兩個(gè)文本框和一個(gè)命令按鈕，要求在Text1中輸入購(gòu)物商品總金額，單擊命令按鈕，在 Text2 中輸出優(yōu)惠價(jià)。程序運(yùn)行結(jié)果如圖 2 所示。圖23請(qǐng)根據(jù)下列描述編寫財(cái)務(wù)部門征收勞務(wù)酬金所得稅程序，規(guī)定如下：（ 1）收入在 1200 元以內(nèi)，扣稅 3%；（ 2）收入在 1200-4000 元內(nèi)， 1000 元以上部分扣稅 15%，（ 3）收入在 4000-5000 元內(nèi)， 4000 元以內(nèi)按（ 2）的方法扣稅， 40

32、00 元以上部分，扣稅 20%，（ 4）當(dāng)收入達(dá)到 5000 元以上，扣稅 25%。程序運(yùn)行界面如圖 3 所示。圖3答案：一、單項(xiàng)選擇題（每小題 2分，共 30 分）29 D 30 B38C二、填空題(每空 1分，共 15 分)1 Vbp frm223 30004邏輯錯(cuò)誤 編譯錯(cuò)誤5 Name Index625 R(-2To 2,0 To 4) As Integer8 Dim C(-1 To 3,0 To 4) As Integer9 過(guò)程內(nèi)部 Dim Private Public10 ForNext 循環(huán) DoLoop 循環(huán)11 P1. Picture = LoadPicture("")12 True13. UDP LocalIPIP UDP15變體型 ( 或 Variant)16. open"D:" For Output As # 117. 018 abcdef19. 整個(gè)應(yīng)用程序 Public20 引用參數(shù)傳遞(或按址傳遞)按值傳遞21. Y MOD 4=0 And Y MOD 100<>0 OR Y MOD 400=0 22右 上23 本地?cái)?shù)據(jù)庫(kù)遠(yuǎn)程數(shù)據(jù)庫(kù) 外部數(shù)據(jù)庫(kù)24數(shù)據(jù)引擎25 Winsock Inte