《ViｓｕalBasic程序設(shè)計》一、單項選擇題１4.

\、/、Moｄ、*四個算術(shù)運算符中，優(yōu)先級別最低的是（C)。C．ModA58.

AＤＯ控件屬于ＡctiveX控件，使用之前必須加載MicｒosofｔAＤODataConctrol6.0(ＯLEDＢ），將AＤO控件添加到工具箱中。添加ADO控件的菜單為(Ｂ）。B.“工程”→“部件”B17.

表達式４＋5＼6*7/８Ｍｏd９的值是(B)。B．５Ｃ４．

以下控件中,（Ａ)控件不會影響到界面設(shè)計效果。Ａ．計時器C９.

(C）控件不具有Ｃaｐtion屬性。C．TｅxtＢoｘC33.

菜單編輯器中，同層次的（B)屬性值設(shè)立為相同，才可以設(shè)立索引值。B.NameC44.

程序運營時,驅(qū)動器列表框下列(A）屬性能返回磁盤驅(qū)動器的名稱。A．DriｖeＤ3７.

當單擊工具欄上的按鈕，會觸發(fā)的事件是(A）。A．BuｔｔonClickＤ64.

多媒體控件(MMCｏntrol）具有一組執(zhí)行ＭCI命令的下壓式按鈕。其中Reｃord按鈕表達為（B）。B.錄制G１０.

改變控件在窗體中的上下位置，應(yīng)設(shè)立控件的（A）屬性。A.ToｐＧ４6．

改變驅(qū)動器列表框的Driｖｅ屬性值將激活其（A）事件。A.CｈangeH18．

函數(shù)Int（Rｎd*1０)是在（C）范圍內(nèi)的整數(shù)。Ｃ．[0,１０）J1３．

假設(shè)已定義Intｅger變量ｘ、ｙ,則以下賦值語句對的的是(Ｃ）。C.y=x+yJ４0.

檢測文獻是否結(jié)束的函數(shù)是(C）。C.EOF()J5７.

鍵盤事件的執(zhí)行順序是(B)。B.KeyＤｏwｎ，KｅｙＰreｓs，KeｙUpJ６2.

決定系統(tǒng)是否自動檢測多媒體控件（MMCｏｎtｒol)各按鈕的狀態(tài)的屬性是(B)。B．AuｔoＥnaｂｌeJ63.

將多媒體控件（MMCｏｎｔrｏl)的Frａmes屬性設(shè)為3,則以下敘述對的的是（A)。A．指定Back或Ｓtep命令后退或前進的幀數(shù)都為3K2６.

可通過（C)屬性判斷ＬistBｏx列表框控件的項目總數(shù)目。C.LisｔcｏｕntL２5．

LisｔBoｘ中若沒有任何條目選中，其ＬisｔIｎｄｅｘ屬性值為（A)。A．－1L２7.

列表框的（B）屬性用于返回或設(shè)立列表框中各列表項的文本。Ｂ.ＬｉsｔL５4.

Line（1０0,100)-Ｓtep(40０,4０0)將在窗體中的（Ｃ)畫一條直線。C．（10０，100)到（50０，500)L59.

運用ＡDＯ訪問數(shù)據(jù)庫，一方面要創(chuàng)建一個（A)對象,用于建立和數(shù)據(jù)庫的連接。A.Cｏｎnｅction對象M3４.

每創(chuàng)建一個頂級菜單,它的下面最多可以有(Ｃ）級子菜單。C.５N２4．

能通過(D)來刪除列表框中的選擇項。D.ＲemｏｖeItem方法R1.

假如要設(shè)立窗體的標題欄，應(yīng)選擇(B）屬性。Ｂ．ＣaｐｔionR30.

若要把“XXX”添加到列表框Ｌｉｓt１中的第三項，則可執(zhí)行語句(Ｂ）。Ｂ.Ｌist１.ＡddIｔem"ＸXＸ"，2R36．

假如要在程序中顯示一個彈出菜單，需調(diào)用（D)方法。D.PｏpupＭenｕR55.

RGB函數(shù)通過紅、綠、藍三基色混合產(chǎn)生某種顏色,若使用三個滾動條分別輸入三種基色,為保證輸入數(shù)值有效,則應(yīng)設(shè)立滾動條的(A）屬性。A.Mａx和ＭｉｎR56.

假如在圖片框上使用繪圖方法繪制一個圓,則圖片框的(B)屬性決定了該圓的顏色。B．ForeCoｌorS2.

要使命令按鈕不響應(yīng)用戶生成的事件,應(yīng)設(shè)立命令按鈕的(D)屬性。D．EｎａbledS3.

要使標簽?zāi)芡赋龃绑w的背景，應(yīng)設(shè)立標簽的（Ａ）屬性。A．ＢackＳtylｅＳ28.

設(shè)Liｓt1為列表框控件，List1．Cleaｒ中的Cleａr是（A）。A.方法S41.

要讀出C盤根目錄下順序文獻stud.txｔ內(nèi)容,下列打開方式(C)。C.Oｐeｎ"C:\sｔud．txｔ"FｏrIｎpｕtＡs#1S42．

隨機文獻使用（C)語句寫數(shù)據(jù)。Ｃ．PuｔS43.

隨機文獻使用(Ｄ）語句讀數(shù)據(jù)。Ｄ．GeｔS47.

使用目錄列表框的（Ｂ)屬性可以返回或設(shè)立當前工作目錄的完整途徑(涉及驅(qū)動器盤符)。B.PatｈＳ51.

要向圖片框ｐiｃP中加載“d:\haｉnａn\zhiwu.bmp”圖像文獻，應(yīng)使用語句(C)。c．picP．Piｃture=ＬｏadPｉcture(＂d:\hainａn\ｚhiｗu．bmp＂)S60.

SQL語言的Selecｔ語句中，用于分組的語句為（B）。Ｂ.grｏｕｐbyW7．

某計時器控件的intｅrvａl屬性為0時,表達(A)。Ａ．計時器關(guān)閉計時W１1.

文本框中選定的內(nèi)容,由下列（C）屬性反映。C．SeltｅxtW65.

為了使多媒體控件(MMControl)中的錄制按鈕不顯示,應(yīng)添加代碼（C)。C．MMCｏntrol1.RecoｒdVｉsibｌe=FalseW67.

WindowsMedｉaPlayer控件的UiMoｄｅ屬性,表達播放器界面模式,以下選項是播放器模式的屬性值是(D）。D．以上都是X15．

下列哪組語句可以將變量Ａ、B值互換(B)。B.A=A+B:B＝Ａ–B:A＝A–BX19.

下面(A)運算符是算術(shù)運算符。A.ModX3８.

下列可以用來存儲圖像可以供其它控件使用的控件是(Ｃ）。C．ImaｇeLisｔX50.

下面對象中不能作為容器的是(B)。Ｂ．Imagｅ控件X5３.

下列圖形中不能使用Ｓhape控件繪制的是(B）。B．三角形X21．

下面程序段運營后，顯示的結(jié)果是(B）。Ｂ.1DimiｎtXAsIntegeｒIｆintXThenＰrｉｎｔｉntXElsｅＰrinｔinｔX+1ＥｎdIfＹ２２.

以下程序的輸出結(jié)果是(C)。C.10Ｄima,ｉ%,sｕm%ａ=Ａrraｙ(4,3,２,1）Ｆoｒｉ＝0To３sｕm＝sｕｍ+ａ(i）NexｔiPｒiｎtsumＹ16.

以下語句的輸出結(jié)果是（C）。PrintFormat(３2５48.5，“000,０00.0０”)C．032,54８.5０Y20．

已知三個變量Ａ、Ｂ、C,判斷A、B、Ｃ能否構(gòu)成三角形的邏輯表達式為（B)。B．A＋C>=BAndA+B>=ＣＡｎdB+C>=AＹ29．

以下（D)語句將刪除列表框Lisｔ1中的最后一項。D.Lisｔ１.RemovｅIｔeｍＬisｔ1.LｉstCount-1Y３１．

用戶可以通過設(shè)立菜單項的(Ｃ）屬性值為Fａlｓe來使該菜單項失效。C.EnabｌｅｄY３2.

用戶可以通過設(shè)立菜單項的(B）屬性值設(shè)立為False來使該菜單項不可見。B.ＶｉsiｂｌｅY4５.

要用通用對話框控件顯示標準的“字體”對話框，應(yīng)調(diào)用其(Ｃ）方法。C．ＳhoｗFｏntY６１.

以下四個控件,不屬于數(shù)據(jù)綁定控件的是（C)。C．Optｉoｎ控件Z5.

在VisｕaｌBａsic中,一般（B）屬性用來設(shè)立字體的顏色。B．ForｅColoｒZ6.

在VＢ中斷模式下，可用調(diào)試窗口監(jiān)視表達式和變量的值，其中在(A)窗口中可以直接鍵入命令以顯示命令所請求的信息。A.立即Z８.

在窗體Ｆorm1的Click事件過程中有以下語句:Laｂel１.Ｃaptｉoｎ＝"VｉsuaｌBasiｃ"若本語句執(zhí)行之前，標簽控件的Ｃａptiｏn屬性為默認值,則標簽控件的Name屬性和Captｉon屬性在執(zhí)行本語句之前的值分別為（Ｂ)。B．Lａbｅｌ1和Label1Z1２．

在ＶisualBaｓic中,變量的默認類型是(D）。D．VariantZ23.

在過程中定義的變量,若希望在離開該過程后，還能保存過程中局部變量的值，則應(yīng)使用(D）關(guān)鍵字在過程中定義局部變量。D．ＳtatiｃZ35.

在設(shè)計菜單時,為了創(chuàng)建分隔欄,要在（B）中輸入字符（-)。B．標題欄Ｚ3９．

在VisuａlＢasic中按文獻的訪問方式不同,可以將文獻分為（B)。B．順序文獻、隨機文獻和二進制文獻Z4８.

在隨機文獻中(D)。Ｄ.可以通過記錄號隨機讀取記錄Ｚ49．

執(zhí)行語句Open"Ｃ：Stｕｄ.txｔ"ForIｎｐuｔＡs#2后，系統(tǒng)(C）。C．打開Ｃ盤當前文獻夾下名為Sｔuｄ.ｔxt的文獻，用來讀取文獻內(nèi)容Z５2.

執(zhí)行Form１.Scaｌe(０,10）-（10,-10)語句,Foｒm1窗體坐標系x軸和y軸的正方向是(A）A．向右和向Z６6.

在多媒體控件(MMConｔrｏl）中,ＤeviceType屬性用于設(shè)立多媒體設(shè)備的類型，假如將要播放的文獻是CD歌曲,應(yīng)將DeviceTｙpe屬性設(shè)立為（D）。Ｄ.CＤＡudioZ68.

在WiｎｄoｗｓMediａPlａｙｅｒ控件中，決定播放文獻是否全屏的屬性是（A）。A.FuｌｌScｒeen二、填空題A3３．按文獻的存取方式，可將文獻分為順序文獻、隨機文獻和二進制文獻。A34.ＡDＯ模型中一般可通過Conneｃtion對象的Execｕｔe方法執(zhí)行增長、刪除、修改操作。使用ADO模型時，建立Recordｓet和Cｏnnｅｃｔioｎ對象連接的屬性是ActiveCoｎnecｔｉon。Ａ3５.ADO數(shù)據(jù)模型中一般可通過Connｅctｉon對象的Eｘeｃute方法對數(shù)據(jù)庫中的基本表進行增長、刪除、修改等不返回結(jié)果集的操作。C２2.創(chuàng)建第一個按鈕控件對象時，系統(tǒng)自動為其“Namｅ”屬性分派一個名字,該名字為Ｃomｍaｎｄ1。Ｄ28．對驅(qū)動器列表框來說,每次重新設(shè)立驅(qū)動器列表框的Ｄｒive屬性時,將引發(fā)Chａnge事件;對目錄列表框來說，當Ｐath屬性值改變時，將引發(fā)Chaｎｇｅ事件;對于文獻列表框,重新設(shè)立的Pａt(yī)h屬性，將引發(fā)Ｃhａnge事件。J4．

將1￡x<1２寫成VｉｓｕalＢasiｃ邏輯表達式x>=1Ａnｄx<１2。J1４基本程序控制結(jié)構(gòu)可以分為順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)３種。Ｊ3１.將圖片框PictｕreＢoｘ的AuｔoSｉze屬性設(shè)立成Ture時，圖片框能自動調(diào)整大小，以適應(yīng)其中的圖片。L６.

Left（"ａbcd",2)函數(shù)的返回值是ａb;Rｉght(＂abcｄ＂,2）函數(shù)的返回值是ｃd。L３2．

Lａbel和TeｘtBox控件用來顯示和輸入文本,假如僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用Lａbｅl控件；若允許用戶輸入文本，則應(yīng)使用TｅxtBox控件。M２7．

每次重新設(shè)立驅(qū)動器列表框的Drive屬性時，都將引發(fā)Ｃhaｎge事件?？稍谠撌录^程中編寫代碼修改目錄列表框的途徑,使目錄列表框內(nèi)容隨之發(fā)生改變。S９.

數(shù)組的類型可以是基本數(shù)據(jù)類型，也可以是用戶自定義的記錄類型。假如省略類型說明,數(shù)組會被設(shè)立為默認的變體類型（Vaｒiａｎt）。數(shù)組中各個元素在定義時假如是數(shù)值類型就被默認初始化為0,假如是字符串類型就被初始化為空字符串。Ｓ1.

數(shù)學表達式coｘ2x+寫成等價的VisualBasic表達式為cos(x）^2+Ｓqｒ(x^2-y^2)/２S２.

數(shù)學表達式寫成等價的VｉｓualBａsiｃ表達式為10^(１/2)*coｓ(５0*3．1４/1８0）或者Sqr(1０)*ｃoｓ（50*3.1４/１８０）S3.

數(shù)學式子相應(yīng)的VｉsualBaｓic運算表達式是:Sqr(s*(s-a)*（s-b)＊(s-ｃ))V13.

VisualBasic中變量依據(jù)其作用域不同可以分為過程級變量(局部變量）、模塊級變量和全局變量3類。過程級變量就是指在事件過程或通用過程內(nèi)定義的變量,它的作用域就是其所在的過程。模塊級變量涉及窗體級模塊變量和標準模塊級變量。窗體模塊變量的作用域是窗體內(nèi)的所有過程,標準模塊變量的作用域是模塊內(nèi)的所有過程。全局變量的作用域是整個工程中所有的模塊和所有的過程。16．

VisuaｌBasic一般用4種類型的文獻保存,分別是擴展名為．ｆrm的窗體文獻，擴展名為bas的標準模塊文獻,擴展名為.ｃls的類模塊文獻和擴展名為.vbp的工程文獻。V17．

VisuａｌBａsic程序開發(fā)有三種模式,即設(shè)計模式、運營模式和中斷模式。Ｖ18.

VisualＢasｉc中設(shè)立斷點的按鍵是F9,逐語句調(diào)試的語句是Ｆ８。V19.

VｉsuａｌBａｓｉｃ中的程序錯誤類型重要有編譯錯誤、實時錯誤和邏輯錯誤三種。Ｖ20.

ViｓｕaｌＢaｓic應(yīng)用程序即工程文獻通常由三類模塊組成,即窗體模塊、標準模塊和類模塊。窗體模塊包含窗體和代碼兩部分。標準模塊完全由代碼組成,這些代碼不與具體的對象相關(guān)聯(lián),一般用來定義全局變量和公用過程和函數(shù)。類模塊用于自定義類。W23.

為了在運營時把當前程徑下的圖形文獻pictuｒefile.jpg裝入圖片框Ｐictｕrｅ1,所使用的語句為Picturｅ1.Piｃture=ＬoａdＰrcture(“picturefile．ｊpg”)。Y5.

已知a=3，b＝4，c=５，表達式a>bａｎdNotc＞aOrc＞bAndｃ<a+b的值是Ｔrue。Y8.

有變量定義語句“ＤｉｍStr1，Stｒ2ＡsStｒing*10”,其中Str1變量的類型應(yīng)為變體型,其中Ｓtr2變量的類型應(yīng)為字符串型。Ｚ7．

在VisualBasｉc的轉(zhuǎn)換函數(shù)中將數(shù)值轉(zhuǎn)換為字符串的函數(shù)是Ｓtr（x);將數(shù)字字符串轉(zhuǎn)換為數(shù)值的函數(shù)是Vａl(x);將字符轉(zhuǎn)換為相應(yīng)的ＡＳCIＩ碼的函數(shù)是Asｃ(x)。Z10.

在VisualＢasic中,數(shù)組默認的下標下界是0,假如希望從1開始，可以使用OptｉonBａｓeｎ語句語句來設(shè)立。Z11．

在缺省情況下,用DimA（5,5）語句聲明二維數(shù)組后,數(shù)組A的元素共有36個。Z1２.

在VisｕalBasic中,參數(shù)通過按值傳遞和按地址傳遞兩種方式傳送。Z１５.

在ＶisualBａsic語言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以事先擬定，可使用For循環(huán)；若規(guī)定先判斷循環(huán)進行的條件，可使用Whｉｌe循環(huán)或Do循環(huán)。Ｚ２１.

在ＶisｕａlBａsic中將多重窗體程序中第一個被裝載內(nèi)存的窗體稱為啟動窗體。Z2４.

在ViｓｕalBaｓｉc中，每個菜單項都是一個圖形控件對象,所以它們也有一些與其他控件類似的屬性,標題就相稱于其他控件的Cａptioｎ屬性，而名稱就相稱于Ｎame屬性。Z２5.

在VisuａlBasic菜單中設(shè)立顯示一條分割線的操作是在【菜單編輯器】的標題欄中,輸入一個“－”。Z26.

在VisuaｌBaｓiｃ中,文獻系統(tǒng)控件涉及驅(qū)動器列表框（DriveＬｉsｔＢoｘ)、目錄列表框(DirLｉstBox）和文獻列表框(FileLｉstBoｘ)。三者協(xié)同操作可以訪問任意位置的目錄和文獻,可以進行文獻系統(tǒng)的人機交互管理。Z29.

執(zhí)行指令“Liｎｅ(200,200)–Step(5０0,50０)”后，ＣurreｎtＸ＝７00。Z30.

執(zhí)行指令“Ｌｉne(200，2００)–(50０，5０0)”后,ＣurrentX＝50０。程序閱讀題Ｙ閱讀以下程序，寫出其功能。Ｐrｉvａt(yī)eSuｂcmdWhy_Cｌicｋ()＇cmdＷhy為命令按鈕,ｌｂｌHｅlloVB為標簽,ｔｘｔHelloVＢ為文本框lblHellｏＶB.Captioｎ=＂為什么學ＶB"txtHelloVB=＂（1)VB簡樸易學，開發(fā)效率高，通用性強，用途廣泛。"_＋vｂCrLｆ＋vbCrLf+"（2）VB是國內(nèi)外最流行的程序設(shè)計語言之一,"_+"也是學習開發(fā)Winｄoｗs應(yīng)用程序首選的程序設(shè)計語言。"EndSub該程序功能:單擊cmdWhy按鈕,在lblHelｌoＶB標簽顯示“為什么學VＢ”,在txｔHeｌloVB文本框顯示以下內(nèi)容:1.VB簡樸易學，開發(fā)效率高，通用性強,用途廣泛。VB是國內(nèi)外最流行的程序設(shè)計語言之一，也是學習開發(fā)Ｗｉndows應(yīng)用程序首選的程序設(shè)計語言。Y閱讀以下程序,寫出其功能。ＰｒiｖａｔｅSｕｂcmdWhat_Ｃlicｋ（)'cｍｄWat為命令按鈕，lblHelloＶＢ為標簽，txｔHeｌloＶB為文本框lblHelloVB.Caｐtｉｏｎ＝"VB能干什么"tｘtHelloVB=＂ＶＢ能快速實現(xiàn)用戶界面的設(shè)計、"_+"文字和圖形圖像的解決以及數(shù)據(jù)庫的使用,能開發(fā)多媒體、數(shù)據(jù)庫、"_+"網(wǎng)絡(luò)和圖形等多方面的應(yīng)用程序;可以開發(fā)個人使用或小組"_+"使用的小工具、大型公司應(yīng)用系統(tǒng)以及遍及全球的分布式應(yīng)用程序。＂ＥndSub該程序功能:單擊ｃmdWｈaｔ按鈕,在lｂｌHellｏVB標簽顯示“VB能干什么”,在ｔｘｔＨelloＶB文本框顯示以下內(nèi)容：VB能快速實現(xiàn)用戶界面的設(shè)計、文字和圖形圖像的解決以及數(shù)據(jù)庫的使用,能開發(fā)多媒體、數(shù)據(jù)庫網(wǎng)絡(luò)和圖形等多方面的應(yīng)用程序；可以開發(fā)個人使用或小組使用的小工具、大型公司應(yīng)用系統(tǒng)以及遍及全球的分布式應(yīng)用程序。Ｙ閱讀以下程序,寫出其功能。Prｉvａt(yī)eSuｂcｍdHow_Clｉck()＇cmｄHow為命令按鈕，lbｌHｅlloVB為標簽,tｘtＨelloVB為文本框lblＨellｏVＢ.Ｃaｐtion=＂如何學好VB"txtHeｌloVB="(1)從實際應(yīng)用程序的開發(fā)過程中學習ＶB程序設(shè)計。"_+vbＣrLｆ＋vbCｒLｆ+"(２)學會分析問題和解決問題的思緒、"_+"算法設(shè)計和實現(xiàn)方法。"＋ｖbＣrLf+vbCrLf_+"(3)學會運用MSDＮ資源。"＋vbCrLf+vbCrLf_+"(4)養(yǎng)成良好的編程習慣。"EndＳub該程序功能:單擊cｍｄHoｗ按鈕，在lblHelloVB標簽顯示“如何學好VB”，在ｔｘtHeｌｌoＶB文本框顯示以下內(nèi)容:(１）從實際應(yīng)用程序的開發(fā)過程中學習VＢ程序設(shè)計。(2）學會分析問題和解決問題的思緒算法設(shè)計和實現(xiàn)方法。（3）學會運用MSDＮ資源。養(yǎng)成良好的編程習慣。Y閱讀以下程序,寫出其功能。SubｎeｗＱuestion(）DimiｎtＯp1ＡsIｎｔeger,intOp２AsIntegeｒ,iｎtＴeｍpAsIｎtｅgeｒDimstrＯｐrａt(yī)ｏrAsStringDimiｎtOpratoｒＮｕmＡsInteｇerＲaｎdomiｚeｉnｔOp１=Ｉnｔ(10*Rｎｄ+１）iｎｔＯp2＝Int(10*Rnd＋１)intＯpratｏｒＮum=Int(４*Rnd＋1)SｅlecｔCａsｅｉnｔOｐｒatorＮｕmCaｓｅ１sｔrOprator="+":intAｎsｗer=inｔOｐ1+intＯp2Ｃaｓｅ2ｓｔrOprator="-"：ＩfintOp1<iｎtＯp2TｈeniｎｔTemp=ｉntOp1:intOp１=iｎｔOp2:intＯp2=ｉntＴｅｍpEｎｄIfiｎtAnｓwer=intOp1-inｔOｐ２Cａse3ｓtrＯprａt(yī)ｏｒ="×＂:iｎtAｎsｗer＝iｎtOp1*ｉntOp2Casｅ4strＯpｒatoｒ="÷"ＩfｉntOp1<ｉｎtＯｐ2ThenｉnｔTemｐ＝intOｐ1：iｎｔＯp1=intＯp２：intＯp2＝iｎtＴemｐＥｎdIfＩfｉntOp1MｏｄinｔOp2<>0TheninｔOp1＝ｉntOp1-iｎtＯｐ1ModintOｐ２EｎdIfＥnｄSelect＇lｂｌＱuesｔion為標簽lｂlＱｕestｉoｎ.Ｃaｐtion=ｉntOｐ１＆"＂&ｓtrＯprator&""＆inｔOｐ2＆"="ＥnｄＳｕｂ該程序是一個隨機出題的過程。隨機產(chǎn)生兩個10以內(nèi)的操作數(shù)，隨機產(chǎn)生一個操作符（+、-、×、÷)。假如是減法和除法時,第一操作數(shù)小于第二操作數(shù)時互換兩個操作數(shù),且假如是除法則同時減去兩數(shù)相除所得的余數(shù)。最后在標簽lblQuｅstion上顯示題目。Y閱讀以下程序，寫出其功能。PuｂlicFunｃtｉoｎAｖg_maｒk(MaｒｋArray()AsＳｉnglｅ)AsＳiｎgleDiｍsnｇSumＡsSinｇlｅ,iAsＩnteger,nAｓInteｇeｒsngSum=０n＝UBｏｕnd（MarkArray）Fori＝0TｏｎｓngSｕｍ=sｎgＳum+MａrｋＡrｒaｙ(i）NｅｘtｉＡvg＿mａｒk=sngSｕｍ/nEndFｕnction該程序是一個求平均值的函數(shù)。以一個單精度的數(shù)組作為參數(shù),先求出數(shù)組元素的個數(shù)，接著求出數(shù)組所有元素的和，最后得出該數(shù)組的平均值。Y閱讀以下程序,寫出其功能。PuｂlicFuｎｃtionMaｘ＿Ｍarｋ(MaｒkＡｒraｙ（)AsSingｌe)AｓＳiｎglｅＤｉmsｎgMaxAsＳinｇlｅ，iAｓIｎtｅger,nAsＩntegeｒsｎgＭａｘ＝０ｎ=UＢouｎd(ＭarkＡrray)Forｉ=0TｏnIfMarkArray(ｉ）>sｎgMaｘTｈeｎsnｇMａｘ=MａｒkArraｙ(i)NextiMax_Mａrｋ＝snｇMaxEｎdFuｎction該程序是一個求最大值的函數(shù)。以一個單精度的數(shù)組作為參數(shù),先求出數(shù)組元素的個數(shù)，接著逐個比較，求出數(shù)組元素的最大值。Y閱讀以下程序，寫出其功能。PubｌｉｃFuncｔｉoｎPass_Mａrk(MarkArray()ＡｓＳingle）ＡsSiｎgleDiｍｉnｔCｏuntAsIｎtegｅｒ,iＡsInｔegｅr,ｎＡｓIｎtegｅrinｔCounｔ=0n=UBound(MａrkＡrray)Ｆorｉ=0TonｉfＭarkAｒraｙ(i)>=６０TｈeninｔCount＝ｉntCount+1ＮexｔｉＰaｓｓ_Marｋ=intCouｎｔ/ｎEndFunctioｎ該函數(shù)的功能是求一組數(shù)中大于等于60的數(shù)的比例。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù),接著逐個比較,求出數(shù)組元素中大于等于60的數(shù)的個數(shù),最后求出其比例。Y閱讀以下程序,寫出其功能。PrivateSubSort_Mark(MａrkＡrrａy()AsＳiｎglｅ）DiｍsnｇMtempAsＳinｇleDimｉＡｓＩnteｇer,ｎAｓIntegｅr，kＡｓInteｇer,jＡsInteｇｅｒn=UBｏuｎd（MａｒｋＡrraｙ)Ｆoｒi=0Ton–１k=iForj=i＋1ＴonIfMarｋＡｒray(j）＞MaｒkArray(k)Thenk＝ｊNextjsngＭtemｐ＝MarkArrａy(k）MarkArrａy(k）=MarkAｒray（i）MaｒkAｒｒaｙ(i)=sｎgMteｍｐNｅxtiEndSｕb該過程的功能是把一組數(shù)按從大到小排序。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著逐個比較,求出數(shù)組元素中的最大值和第一個元素互換位置;求出次大值和第二個元素互換位置；依次類推,完畢從大到小排序。Y閱讀以下程序,寫出其功能。ＰｒivateＳｕbｃhanｇｅcolｏｒ()DiｍrAsIntegeｒ，gAｓIｎtegｅr,ｂAsIntegerDimxＡsLｏｎｇ'hsbRｅd、ｈｓbGreen和hsｂBlue為水平滾動條ｈsｂRed.Min=0:hsbGrｅｅn.Mｉｎ=0:ｈｓbBlｕe.Min=0hｓbRed.Max＝２55:hsｂGｒeｅn.Max=255:hsｂBlue.Max=2５５r=hsbRed．Vaｌuｅg=hsbGreen．Valuｅb＝hsbBlue.Ｖalｕex＝RGB(r,g,ｂ)frｍMａin.ＢaｃkCｏｌor=xEndSub該過程的功能是用紅色、綠色、藍色三個滾動條調(diào)節(jié)窗體底色。先把紅色、綠色、藍色三個滾動條的Ｍｉｎ屬性設(shè)立為0、Ｍａx屬性設(shè)立為255，接著用取出三個滾動條的Ｖａlｕe屬性值，用RGB函數(shù)產(chǎn)生一個由紅、綠、藍三個Value屬性值混合而成的新顏色,并作為窗體底色。Ｙ閱讀以下程序,寫出其功能。ＰubｌicAＤOｃnAsＣonnｅctionＰuｂｌｉcＳｕｂMain（)ＤimstrAccessAｓSｔriｎgstrAccess＝"Provider=Microsofｔ.Jｅt.OLEDB.４.0;DataSｏuｒce=d:\xｓ.mdｂ＂IｆADOcｎI(lǐng)ｓNｏthｉnｇTｈenSetADＯcｎ=NeｗConnｅctioｎADOｃn.ＯｐenstｒＡccｅssEｎｄIｆfrｍMaｉn.Show＇frmMaiｎ為窗體EndSub該段程序的功能是建立數(shù)據(jù)庫的連接。實現(xiàn)與Ｄ盤根目錄下的文獻名為xｓ.mdb的Acｃess數(shù)據(jù)庫的連接，同時顯示fｒmMain窗體。Y閱讀以下程序,寫出其功能。PuｂlicADOｃnAsCｏnｎectｉonPubｌicAＤＯｒsＡｓＮｅwRｅcｏｒｄsetPrivaｔｅSubcｍdAdd_Cｌick()ＤimstrSQLAsStriｎg'文本框txtNo、txtＮａme和組合框cｂoＳｅx、ｃboClaｓs＇分別用來輸入學號、姓名、性別和班級sｔrＳQL="ｓelect*fｒom學生表wheｒｅ學號='＂+tｘｔNo.Texｔ＋"'"ADOrs.OpenｓtrSＱL,ＡDOcｎI(lǐng)fNotADOrｓ.EOＦTheｎＭｓgBox"該記錄已經(jīng)存在，不能繼續(xù)增長!＂,vbCritiｃal＋ｖｂOKOｎlｙAＤＯrｓ．CloseＥxｉtSuｂEｎdＩfstrSQL="insertintｏ學生表(學號,姓名,性別，班級）"ｓtrSＱL=strSQL+"valｕｅs（'"+ｔxtNｏ.Text＋＂','"+ｔxtNａme.Texｔ＋"',"strSＱL=sｔrSQL+"'＂+ｃboSex.Ｔext+＂','"tｘtClass.Tｅxｔ＋"')"AＤOcn.ＥxecutesｔrSQLEndSｕb該段程序的功能是把一個學生記錄插入到學生表中。一方面查找數(shù)據(jù)表中是否存在文本框ｔｘtＮｏ中輸入的學號,假如存在則不增長；假如不存在,則把該學生的信息記錄插入學生表中。程序設(shè)計題Ｂ編寫一個程序。程序初始界面如圖1左圖所示，設(shè)“學習目的”、“學習方法”和“退出”命令按鈕的名稱定義為ｃmdAiｍ、ｃmｄWay和cｍdＥｘiｔ,標簽控件的名稱定義為ｌblＣｏｎtｅnt。單擊“學習目的”按鈕，顯示如圖1的中圖所示;單擊“學習方法”命令按鈕，顯示如圖1的右圖所示;單擊“退出”按鈕時，退出程序。圖1ＰｒivatｅSubｃｍdAim_Ｃlick（)lblContｅnｔ．Captｉｏn="開發(fā)Winｄowｓ應(yīng)用程序"EｎdSｕbＰrivaｔｅSｕbｃmdＷaｙ_Cｌicｋ(）lblCｏntent.Cａptioｎ="從實際應(yīng)用程序的開發(fā)過程中學習ＶＢ"EndSubＰrｉｖatｅＳubcmｄＥｘit_Ｃlｉｃk(）EｎdEndSubB編寫一個數(shù)制轉(zhuǎn)換程序，運營界面如圖３所示。設(shè)三個文本框的名稱框定義分別為TxtDec、TxtHex和TxtOct。實現(xiàn)在第一個文本框中輸入十進制數(shù)后，第二個文本框自動顯示該數(shù)相應(yīng)的十六進制數(shù),第三個文本框自動顯示該數(shù)相應(yīng)的八進制數(shù)。提醒：運用文本框的Ｃｈange事件和轉(zhuǎn)換函數(shù)Hｅx、Oｃt。PriｖaｔeSubTxtDec＿Ｃhａnｇｅ()TｘtＨex.Ｔexｔ=Hex(Val(ＴxtDｅc.Teｘｔ）)TxtOct．Text=Oct(Vaｌ(TｘtDeｃ.Teｘｔ))EnｄSubB編寫一個猜數(shù)字程序。程序產(chǎn)生一個隨機數(shù)，由用戶來猜這個數(shù),并提醒用戶猜的數(shù)是否太大或太小,程序運營界面如4所示，設(shè)輸入文本框的名稱框定義為TxtAnsweｒ，神秘的數(shù)、評價標簽控件的名稱框定義為lblCｏmmｅnｔ和lbｌNｕｍ,“擬定”命令按鈕的名稱定義為ｃmdOk。DimiｎtＮumAsInｔeger'用于存放“神秘的數(shù)”ＤｉｍintCｏunｔAsInteｇer'用于猜數(shù)計數(shù)PrivateＳubｃmdOk＿Clｉcｋ（)intＣｏunt＝iｎｔCoｕnt＋1'計數(shù)IfＶaｌ(txtAnｓwer.Tｅxt)=inｔNｕmThen'猜對lｂlComment.Caｐtion＝＂猜對了！你一共猜了"＆ｉntCoｕnt＆＂次"lｂｌNｕｍ．Caｐｔiｏn＝intNuｍElseIfVal(txｔAnsｗer.Ｔext)>intＮumＴheｎlbｌCoｍmｅｎt.Captiｏn＝＂太大了!＂ＥlselbｌＣomment.Ｃaptｉｏn="太小了！"EndIｆEndSubＰrivatｅSubＦoｒm_Load()RａndomｉzeinｔNum=Int(Ｒnd*１０00＋1)EｎdSｕbB編寫一個判斷閏年的程序。判斷平年、閏年方法：凡是能被4整除但不能被100整除的年份為閏年,如１980年；凡是能被400整除的年份為閏年,如2023年;除以上兩種情況以外的其余年份都是平年。PｒｉvatｅSuｂCommanｄ1＿Clicｋ(）DｉmintYearAｓInｔeger＇用于存放年份ｉnｔＹear＝InpｕtBｏx("請輸入年份＂）IfｉntYｅarＭod4０0=0Or(iｎｔYearMod4=０AndintYｅarMod100<＞0)TｈenMsgBｏxiｎｔYeａr＆"年是閏年"EｌseMｓgＢoxｉｎtYear&"年是平年"EnｄIfEndSuｂＢ編寫一個列表框應(yīng)用程序,程序界面如圖5所示。設(shè)“添加”、“刪除”和“修改”按鈕的名稱定義為cmdAｄｄ、cmｄＤel和cmｄUｐdａｔe,列表框和文本框的名稱為默認。規(guī)定從文本框輸入姓名，然后按“添加”按鈕把姓名添加到列表框中；當選擇列表框中某一項時，按“刪除”按鈕，從列表框中刪除;當選擇列表框中某一項時,按“修改”按鈕,把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認”。在文本框的內(nèi)容修改好后，按“修改確認”按鈕，再把文本框中修改的信息送到列表框且“修改確認”按鈕變?yōu)椤靶薷摹?。Pｒｉｖａt(yī)eSubcmｄAdｄ_Cｌｉｃｋ（)Ｌｉｓｔ1.AｄdItemTeｘt1.ＴextTｅxt1.Ｔext＝""EｎｄＳubPｒｉvａt(yī)eSuｂcmdDeｌ＿Cｌick(）List１.ReｍｏｖeＩtｅmList1.ＬistIndexText1.Tｅxt=""EndSｕbPrｉvateSｕbcmｄUpdate＿Click()IｆｃmdＵpｄaｔe.Caption="修改"ThenTexｔ1.Texｔ=Ｌist１.Lｉst(Liｓt１.ＬistIndex)ｃmdUｐｄate．Caｐtion＝＂確認修改"EｌｓｅList1.Lisｔ（Lｉst1．ListIｎdｅx）=Ｔeｘt1.TｅxtcmdUｐｄaｔe.Captｉｏｎ＝"修改＂Tｅｘt1.Text＝""EndＩfEnｄSubB編寫一個函數(shù)圖形程序。用Pｓｅｔ方法在圖形框Piｃturｅ1內(nèi)繪制y＝Ｃosx在－π到π之間的圖形，運營結(jié)果圖7所示。設(shè)所有控件使用默認名稱。Cｏnstpi=3.1415926DiｍxAsSingｌｅＰrivａｔｅSubCｏｍｍand1_Click()Picture1.DraｗＷｉdｔｈ=２Fｏrx=-piToｐｉStep０.0０1Pictｕre1.PSet(x,Cｏs（x)）NextｘＥndSuｂPriｖａt(yī)eSubFｏｒm＿Load（）Ｐictｕre1.Sｃale（－４,２）-(4,-2)Picｔｕｒｅ1.Line（0，2）-(0,－2)Pictuｒe1.Line(-4,0)-（４,0)Picture１.Liｎｅ(-pi,０.１)-(-pi,0)CurreｎｔX=-pｉ:CｕrｒeｎtY=-0．2:Pictuｒe1.Pｒｉｎｔ"－π"Piｃtuｒe１．Line(-pi／2,0．1）-(-pi/2,0)Picｔure1.Lｉne(pi/2,0．１)-(pi/2,0)Ｐiｃture1．Liｎe(ｐi,0.１)-(pi，0)CurrｅntX=pi：CuｒｒentＹ=-０．2:Ｐｉctuｒe１.Prｉnt"π＂Pｉcture１．Ｌinｅ(0,1）-(0.１，1）CuｒｒeｎｔX=0.3:CurrｅntＹ＝１：Piｃture1.Print"1＂Pｉｃtuｒｅ1.Linｅ(0,-1）－(0．１,-1)CurrentX=0.３:CｕrrｅntＹ=-１:Picｔuｒe1.Print"-1"EndSubＰｒｉvaｔｅSubＣｏmｍand2＿Ｃlicｋ（)EndEndSubB編寫一個鍵盤按鍵程序。對窗體的KeyDown和KeｙPress事件編程,顯示按下、放開一個鍵時的事件發(fā)生通過,如當按下了A鍵時程序運營界面如圖8所示。PrｉvateSｕbＦoｒm_KeyDｏwn(KeyCodｅAｓInteｇer,ShiｆｔAsＩｎtｅger)ＩfKeｙＣode<＞０ThｅｎＰrint"KｅyDown事件:KｅyCode";KeyＣode,＂Shiｆｔ:"；ＳhifｔEｎｄＩfEndSuｂＰriｖaｔｅＳubForm＿KeｙPｒesｓ(KeｙAscｉiAsＩｎｔegeｒ）Prinｔ"KｅyＰress事件：KeyＡscｉi＂;KeｙAscｉi;"按下了：";Chｒ(KeｙAscii）EndSｕbＢ編寫使用ADO對象中的Conｎection對象連接SQLServｅｒ數(shù)據(jù)庫的代碼。PubｌicＡDＯcｎAsConneｃtionPｕblicSubMain()DiｍstrSqlServerＡsStringstrSqlＳerver="Provｉder＝ＳQLOLＥＤB;Ｓｅrｖeｒ=（ｌocal);ＵｓerID＝sａ;_Passwoｒd＝sa;Dａt(yī)aｂaｓe=XS"IfADＯｃnＩsＮoｔhinｇTｈenＳｅtＡDOcｎ=NewCｏnnecｔionＡＤOcn．OpenstrSqlSｅrｖer＇連接SQLServer數(shù)據(jù)庫ＥndIfEndSubS設(shè)計一個簡樸的加法程序，程序界面設(shè)計如圖2所示。設(shè)第一操作數(shù)、第二操作數(shù)和計算結(jié)果文本框的名稱分別定義為txｔFｉｒstNum、ｔxtSｅcoｎdNｕｍ和txtＳum,“計算”命令按鈕的名稱定義為cmdSｕｍ。PrivateＳｕbcmｄSum_Click()ｔxtＳum．Text=Val(ｔxtFiｒstＮum.Text)+Vａl(txtSecondNｕm.Tｅxｔ)EndSubJ假設(shè)在D盤驅(qū)動器上已建立了一個通信錄文獻(Ｔｘｌ.ｔxｔ）,文獻中的每個記錄涉及編號、用戶名、電話號碼和地址等４項內(nèi)容。試編寫一個程序，實現(xiàn)能按用戶名查找,并在文本框中顯示查找結(jié)果，如圖6所示。設(shè)“查找”按鈕的名稱定義為ｃmdFiｎdnaｍe，查找輸入名稱和結(jié)果文本框的名稱分別定義為txｔNａｍe和ｔxｔCoｕｎt,記錄條數(shù)標簽的名稱定義為ｌblCouｎt。設(shè)在標準模塊中已輸入以下代碼:TypeLxｒｉntBhＡｓInｔeger＇編號strXmAｓStｒing*8'姓名strＤhAsString*１1'電話strDzAsStｒing*3０'地址EndTｙpePublｉｃusｅｒAsLxr寫出查詢命令按鈕cmdFindname的Ｃｌicｋ事件代碼。PｒivateSｕbcmdＦiｎdname_Cｌｉck()DiｍiAsＩntｅgeｒ，intCouｎtＡsInteger,intReｃｏrｄＮumAsＩntegerDimstrＣｏｍp1AｓStr