VB歷年真題集真題一一、選擇題在下列各題的A）、B）、C）、D）四個選項中，只有一個選項是正確的，請將正確的選項涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。（1）為了避免流程圖在描述程序邏輯時的靈活性,提出了用方框圖來代替?zhèn)鹘y(tǒng)的程序流程圖,通常也把這種圖稱為 A)PAD圖B)N-S圖 C)結(jié)構(gòu)圖D)數(shù)據(jù)流圖（2）結(jié)構(gòu)化程序設(shè)計主要強調(diào)的是 A)程序的規(guī)模 B)程序的效率 C)程序設(shè)計語言的先進性 D)程序易讀性 （3）為了使模塊盡可能獨立,要求 A)模塊的內(nèi)聚程度要盡量高,且各模塊間的耦合程度要盡量強 B)模塊的內(nèi)聚程度要盡量高,且各模塊間的耦合程度要盡量弱 C)模塊的內(nèi)聚程度要盡量低,且各模塊間的耦合程度要盡量弱 D)模塊的內(nèi)聚程度要盡量低,且各模塊間的耦合程度要盡量強（4）需求分析階段的任務(wù)是確定 A)軟件開發(fā)方法 B)軟件開發(fā)工具 C)軟件開發(fā)費用 D)軟件系統(tǒng)功能（5）算法的有窮性是指 A)算法程序的運行時間是有限的B)算法程序所處理的數(shù)據(jù)量是有限的 C)算法程序的長度是有限的D)算法只能被有限的用戶使用 （6）對長度為n的線性表排序,在最壞情況下,比較次數(shù)不是n(n-1)/2的排序方法是 A)快速排序 B)冒泡排序 C)直接插入排序 D)堆排序 （7）如果進棧序列為e1,e2,e3,e4,則可能的出棧序列是 A)e3,e1,e4,e2 B)e2,e4,e3,e1 C)e3,e4,e1,e2 D) 任意順序 （8）將E-R圖轉(zhuǎn)換到關(guān)系模式時,實體與聯(lián)系都可以表示成 A)屬性 B)關(guān)系 C)鍵 D)域 （9）有三個關(guān)系R、S和T如下: 由關(guān)系R和S通過運算得到關(guān)系T,則所使用的運算為 A)并 B)自然連接 C)笛卡爾積 D)交 （10）下列有關(guān)數(shù)據(jù)庫的描述,正確的是 A)數(shù)據(jù)處理是將信息轉(zhuǎn)化為數(shù)據(jù)的過程 B)數(shù)據(jù)的物理獨立性是指當數(shù)據(jù)的邏輯結(jié)構(gòu)改變時,數(shù)據(jù)的存儲結(jié)構(gòu)不變 C)關(guān)系中的每一列稱為元組,一個元組就是一個字段 D)如果一個關(guān)系中的屬性或?qū)傩越M并非該關(guān)系的關(guān)鍵字,但它是另一個關(guān)系的關(guān)鍵字,則稱其為本關(guān)系的外關(guān)鍵字 （11）窗體文件的擴展名是 A) .bas B) .cls C) .frm D) .res （12）設(shè)y是整形變量,能判斷y為奇數(shù)的表達式是 A)Not(y Mod 2<>0) B)y Mod 2<>0 C)(y-1)Mod 2<>0 D)y Mod 2<>1 （13）下面說法不正確的是 A) 變量名的長度不能超過255個字符 B) 變量名可以包含小數(shù)點或者內(nèi)嵌的類型聲明字符 C) 變量名不能使用關(guān)鍵字 D) 變量名的第一個字符必須是字母 （14）定義有5個整數(shù)型元素的數(shù)組,正確的語句是 A)Dim a(4) As Integer B)Option Base 1:Dim a(5) C)Dim a &(5) D)Dime a(5) As Integer （15）設(shè)a=6,則執(zhí)行 x=IIF(a>5,-1,0) 后,x的值為 A)5 B)6 C)0 D)-1 （16）如果將文本框的Locked屬性設(shè)置為True,則以下說法正確的是 A) 此時在屬性窗口不可以修改文本框的Text屬性值 B) 運行時用戶不可以在界面修改文本框中的內(nèi)容 C) 在程序代碼中不可以修改文本框的內(nèi)容,如不可以使用語句"aaa" D) 以上均不正確（17）編寫如下事件過程: Private Sub Form_keyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode) End Sub Private Sub Form_Keypress(KeyAscii As Integer)Print Chr(KeyAscii) End Sub 在一般情況下(即不按住Shift鍵和鎖定大寫鍵時) 運行程序,若按"T"鍵,則程序輸出的結(jié)果是 A) T B) t T T C) T D) t t t（18）以下事件過程可以將打開對話框的標題改為"新時代"的是 A) Private Sub Command2_Click() "新時代" End Sub B) Private Sub Command2_Click() "新時代" End Sub C) Private Sub Command2_Click() "新時代" End Sub D) Private Sub Command2_Click() "新時代" End Sub （19）如果要將窗體中的某個命令按鈕設(shè)置成無效狀態(tài),應(yīng)該設(shè)置命令按鈕的什么屬性 A) Value B) Visible C) Enabled D) Default （20）要使文本框可輸入多行文字,要更改的默認選項是 A) SorollBoars和MultiLine B) Visible C) ScrillBoars D) 以上都不是 （21）要觸發(fā)組合框的DblClick事件,只有將組合框的Style屬性設(shè)置為 A) 0 B) 1 C) 2 D) 3 （22）在窗體上有一個文本框控件,名稱為TextTime;一個計時器控件,名稱為Timer1。要求每一秒在文本框中顯示一次當前的時間。程序為: Private Sub Timer1_ _________( ) End Sub 在下劃線上應(yīng)填入的內(nèi)容是 A) Enabled B) Visible C) Interval D) Timer （23）要使文本框獲得輸入焦點,則應(yīng)采用文本框控件的方法是 A) GotFocus B) LostFocous C) KeyPress D) SetFocus （24）假定有如下的窗體事件過程: Private Sub Form_Click() a$="MicrosoftVisual Basic" b$=Right(a$,5) c$=Mid(a$,1,9) MsgBox a$,34,b$,c$,5 End Sub 程序運行后,單擊窗體,則在彈出的信息框的標題欄中顯示的信息是 A) Microsoft Visual B) Microsoft C) Basic D) 5 （25）下面程序段執(zhí)行結(jié)果為 x=Int(Rnd()+4) Select Case x Case 5 Print"excellent" Case4 Print"good" Case 3 Print"pass" Case Else Print "fail" End Select A) excellent B) good C) pass D) fall （26）設(shè)A="123456",則表達式Val(Left(A,4)+Mid(A,4,2))的值為 A)123456 B)123445 C)5 D)6 （27）在窗體上畫一個通用對話框,其名稱為CommonDialog1,然后畫一個命令按鈕,并編寫如下事件過程。 Private Sub Command1_Click() "All Files(*.*) |*.*|Text Files(*.txt)|*.txt MsgBox End Sub 程序運行后,單擊命令按鈕,將顯示一個"打開"對話框,此時在"文件類型"框中顯示的是 A) All Files(*.*) B) Text Files(*.txt) C) Batch Files(*.bat) D) All Files(*.*) |Text Files(*.txt) （28）如果要將窗體中的某個命令按鈕設(shè)置成無效狀態(tài),應(yīng)該設(shè)置命令按鈕的哪個屬性 A) Value B) Visible C) Enabled D) Default（29）函數(shù)過程Fun1的功能是:如果參數(shù)b為奇數(shù),則返回值為1,否則返回值為0。 Function Fun1(b As Integer) if _____ Then Fun1=0 Else Fun1=1 End If End Function 使該功能完整,應(yīng)在空行處填入以下哪條語句 A)b Mod 2<>0 B)b Mod 2=0 C)b / 2=1D)b （30）假定有下表所列的菜單結(jié)構(gòu): 要求程序運行后,如果單擊菜單項"大圖標",則在該菜單項前添加一個"√"。以下正確的事件過程是 A) Private Sub bigicon_Click() End SubB) Private Sub bigicon_Click() End Sub C) Private Sub bigicon_Click() End SubD) Private Sub bigicon_Click() End Sub （31）下列對變量的定義中,不能定義a為變體變量的是 A)Dim a As Double B)Dim a As Variant C)Dim a D)a=24 （32）有如下程序: Private Sub Command1_Click()a$="A WORKER IS HERE" x=Len(a$) For i=1 To x - 1 b$=Mid$(a$, i, 3) If b$="WOR" Then S=S + 1 Next Print S End Sub 單擊命令按鈕，程序運行結(jié)果為A) 1 B) 2 C) 3 D) 5 （33）Mid("Hello Everyone",7,3)的執(zhí)行結(jié)果是 A)yon B) every C) Eve D) one （34）在窗體上有一個命令按鈕,然后編寫如下事件過程。 Private Sub Command1_Click()Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+ (i-1)) Next For Each b In a Print b; Next End Sub 程序運行后,單擊命令按鈕,輸出結(jié)果是 A)ABCDE B)1 2 3 4 5 C)abcde D)出錯信息 （35）在窗體上畫一個命令按鈕,然后編寫如下事件過程: Private Sub Command1_Click()For i=1 To 4 x=4 For j=1 To 2 x=x+6 Next Next Print x End Sub 程序運行后,單擊命令按鈕,輸出結(jié)果是 A)12 B)13 C)16 D)17 二、填空題請將每一個空的正確答案寫在答題卡序號的橫線上，答在試卷上不給分。（1）測試的目的是暴露錯誤,評價程序的可靠性;而 【1】 的目的是發(fā)現(xiàn)錯誤的位置并改正錯誤。 （2）某二叉樹中度為2的結(jié)點有18個,則該二叉樹中有 【2】 個葉子結(jié)點。（3）當循環(huán)隊列非空且隊尾指針等于隊頭指針時,說明循環(huán)隊列已滿,不能進行入隊運算。這種情況稱為 【3】 。（4）在關(guān)系模型中,把數(shù)據(jù)看成一個二維表,每一個二維表稱為一個 【4】 。 （5）在計算機軟件系統(tǒng)的體系結(jié)構(gòu)中,數(shù)據(jù)庫管理系統(tǒng)位于用戶和 【5】 之間。 （6）下列程序計算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一項為n個。 例如: a=5 , n=4時,則Sn=5+55+555+5555。請在空白處填入適當?shù)膬?nèi)容,將程序補充完整。 Private Sub Command1_Click()Dim a As Integer, n As Integer, Cout As Integer Dim Sn As Long, Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox("請輸入a的值:") n = InputBox("請輸入n的值!") Do Tn=Tn * 10 + a Sn=Sn + Tn Cout=Cout + 1 【6】 a, n, Sn End Sub （7）用戶可以用 【7】 語句定義自己的數(shù)據(jù)類型。（8）下列程序運行后的輸出結(jié)果是 【8】 。 Private Sub f(k,s) s=1 For j=1 To k s=s*j Next End Sub Private Sub Command1_Click()Sum=0 For i=1 To 3 Call f(i,s) Sum=Sum+s Next Print Sum End Sub （9）函數(shù)Int(Rnd*10)+10的值為范圍是 【9】 。（10）有如下 函數(shù)過程: Function gys(By Val x As Integer, ByVal y As Integer) As Integer Do While y<>0 preminder=x / y x=Y y=preminder Loop gys=x End Function 以下是調(diào)用該函數(shù)的事件過程,該程序的運行結(jié)果是 【10】 。 Private Sub Command1_Click Dim a As Integer,b As Integer a=10:b=2 x=gys(a,b) Print x End Sub （11）語句 0 表示 【11】 ; 語句 1 表示 【12】 ;（12）下列程序的功能是:將數(shù)據(jù)1,2,…,8寫入順序文件中,請補充完整。 Private Sub Form_Click()Dim i As Integer Open ""For Output As #1 For i=1 To 8 ? 【13】 ? Next Close #1 End Sub （13）下列事件過程的功能是:建立一個名為Datal的隨機文件,存放角度值及這些角度的正弦函數(shù)值和余弦函數(shù)值,角度為1,2,3,…,90。請在空白處填入適當?shù)膬?nèi)容,將程序補充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form Dim Y As Single Open ? 【14】 ? Y= / 180 For i=1 To 90 (i * Y) (i * Y) ? 【15】 ? Next i Close #2 End Sub 真題二一、選擇題在下列各題的A）、B）、C）、D）四個選項中，只有一個選項是正確的，請將正確的選項涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。（1）程序流程圖中帶有箭頭的線段表示的是 A)圖元關(guān)系 B)數(shù)據(jù)流 C)控制流 D)調(diào)用關(guān)系 （2）下面不屬于軟件設(shè)計原則的是 A)抽象 B)模塊化 C)自底向上 D)信息隱蔽（3）下列選項中,不屬于模塊間耦合的是 A)數(shù)據(jù)耦合 B)標記耦合 C)異構(gòu)耦合 D)公共耦合（4）下列敘述中,不屬于軟件需求規(guī)格說明書的作用的是 A)便于用戶、開發(fā)人員進行理解和交流 B)反映出用戶問題的結(jié)構(gòu),可以作為軟件開發(fā)工作的基礎(chǔ)和依據(jù) C)作為確認測試和驗收的依據(jù) D)便于開發(fā)人員進行需求分析 （5）算法的時間復(fù)雜度是指 A)執(zhí)行算法程序所需要的時間 B)算法程序的長度 C)算法執(zhí)行過程中所需要的基本運算次數(shù) D)算法程序中的指令條數(shù)（6）已知數(shù)據(jù)表A中每個元素距其最終位置不遠,為節(jié)省時間,應(yīng)采用的算法是 A)堆排序 B)直接插入排序 C)快速排序 D)B)和C)（7）棧底至棧頂依次存放元素A、B、C、D,在第五個元素E入棧前,棧中元素可以出棧,則出棧序列可能是 A)ABCED B)DCBEAC)DBCEAD)CDABE （8）數(shù)據(jù)庫設(shè)計包括兩個方面的設(shè)計內(nèi)容,它們是 A)概念設(shè)計和邏輯設(shè)計 B)模式設(shè)計和內(nèi)模式設(shè)計 C)內(nèi)模式設(shè)計和物理設(shè)計 D)結(jié)構(gòu)特性設(shè)計和行為特性設(shè)計 （9）關(guān)系表中的每一橫行稱為一個 A)元組B)字段C)屬性D)碼 （10）設(shè)有表示學(xué)生選課的三張表,學(xué)生S(學(xué)號,姓名,性別,年齡,身份證號),課程C(課號,課名),選課SC(學(xué)號,課號,成績),則表SC的關(guān)鍵字 (鍵或碼)為 A)課號,成績 B)學(xué)號,成績 C)學(xué)號,課號 D)學(xué)號,姓名,成績（11）下列選項中,不屬于模塊間耦合的是 A) 數(shù)據(jù)耦合 B) 同構(gòu)耦合 C) 異構(gòu)耦合 D) 公用耦合 （12）設(shè)a=5,b=4,c=3,d=2,則表達式3>2*b Or a=c And b<>c Or c>d的值是 A) 1B) TrueC) False D) 2（13）以下合法的變量名是 A)A%B B)Test1 C)1cost D)And （14）下列程序運行時輸出的結(jié)果是 Option Base 1 Private Sub Form_Click()Dim x(10) As Integer,y(5) As Integer For i=1 to 10 x(i)=10-i+1 Next For i= 1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i= 1 to 5 Print y(i) Next End Sub A) 3 7 11 45 19 B) 19 15 11 7 3 C) 1 3 5 7 9 D) 不確定的值 （15）在窗體上畫一個命令按鈕和一個文本框,名稱分別為Command1和Text1,然后編寫如下程序: Private Sub Command1_Click() a=InputBox("請輸入日期 (1~31)") t="旅游景點:"& IIf(a>0 And a<=10, "長城","") & IIf(a>10 And a<=20, "故宮","") & IIf(a>20 And a<=31, "頤和園","") End Sub 程序運行后,如果從鍵盤上輸入16,則在文本框中顯示的內(nèi)容是 A) 旅游景點:長城故宮 B) 旅游景點:長城頤和園 C) 旅游景點:頤和園 D) 旅游景點:故宮 （16）若要求從文本框中輸入密碼時在文本框中只顯示"*"號,則應(yīng)當在此文本框的屬性窗口中設(shè)置 A)Text屬性值為* B)Caption屬性值為* C)password屬性值為空 D)Passwordchar屬性值為* （17）編寫如下兩個事件過程: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) 恒轉(zhuǎn)換出來都是大寫字母End Sub Private Sub Form_Keypress(KeyAscii As Integer) Print Chr(KeyAscii) 看實際情況~~~~End Sub 在一般情況下(即不按住Shift鍵和鎖定大寫鍵時) 運行程序,如果按"A"鍵,則程序輸出的結(jié)果是 A)AA B)aA C)Aa D)aa （18）單擊滾動條的滾動箭頭時,產(chǎn)生的事件是 A)Click B)Scroll C)Change D)Move （19）當把框架的什么屬性設(shè)置為False時,其標題會變灰,框架中所有的對象均被屏蔽 A) NameB) EnabledC) CaptionD) Visible （20）要獲得當前驅(qū)動器應(yīng)使用驅(qū)動器列表框的屬性是 A) Path B) DriveC) DirD) Pattern （21）在Visual Basic中,組合框是文本框和下列哪一項的特性的組合 A) 復(fù)選框B) 標簽C) 列表框D) 目錄列表框（22）計時器文件設(shè)置時間間隔的屬性是 A)Enabeld B) IndexC)TagD) Interval （23）要使文本框獲得輸入焦點,則應(yīng)采用文本框控件的 A)GotFocus方法 B)LostFocus方法 C)KeyPress方法 D)SetFocus方法 （24）在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程: Private Sub Command1_Click() c="ABCD" For n=1 To 4 Print ______ Next End Sub 程序運行后,單擊命令按鈕,要求在窗體上顯示如下內(nèi)容: D CD BCD ABCD 則在______處應(yīng)填入的內(nèi)容為 A) Left(c,n)B) Right(c,n) C) Mid(c,n,1)D) Mid(c,n,n) （25）閱讀程序: Function Fun(a As Integer) Static c b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Command1_Click()Dim a As Integer a=2 For i=1 To 2 Print Fun(a); Next End Sub 運行上面的程序,單擊命令按鈕,輸出結(jié)果為 A)8 16B)9 18C)10 20D)7 14 （26）下列程序段的執(zhí)行結(jié)果為 For X=5 To 1 Step -1 For Y=1 To 6-x Print Tab(Y+5); "*"; Next Print Next A) ***** **** *** ** * B) ***** **** *** ** * C) * ** *** **** ***** D) * *** ***** ******* ********* （27）下列各選項說法錯誤的一項是 A) 文件對話框可分為兩種,即打開(Open) 文件對話框和保存(Save As) 文件對話框 B) 通用對話框的Name屬性的默認值為CommonDialogX,此外,每種對話框都有自己的默認標題 C) 打開文件對話框可以讓用戶指定一個文件,由程序使用;而用保存文件對話框可以指定一個文件,并以這個文件名保存當前文件 D) DefaultEXT屬性和DialogTitle屬性都是打開對話框的屬性,但非保存對話框的屬性 下列各選項說法錯誤的一項是 （28）以下語句中那句可以選擇指定的表項或取消已選擇的表項 A) 列表框.Selected(索引值) B) 列表框.Selected(索引值)=True|False C) 列表框.Selected D) 列表框.Selected=True|False （29） Sub過程與Function過程最根本的區(qū)別是 A) Sub過程可以用Call語句直接使用過程名調(diào)用,而Function過程不可以 B) Function過程可以有形參,Sub過程不可以 C) Sub過程不能返回值,而Function過程能返回值 D) 兩種過程參數(shù)的傳遞方式不同 （30）要使菜單項MenuOne在程序運行時失效,使用的語句是 A) B) C) D) （31）設(shè)用復(fù)制、粘貼的方法建立了一個命令按鈕數(shù)組Command1,以下對該數(shù)組說法錯誤的是 A) 命令按鈕的所有Caption屬性都是Command1 B) 在代碼中訪問任意一個命令按鈕只需使用名稱Command1 C) 命令按鈕的大小都相同 D) 命令按鈕共享相同的事件過程（32）以下關(guān)系表達式中,其值為假的是 A)"XYZ"< "XYz" B)"VisualBasic"="visualbasic" C)"the"<>"there" D)"Integer">"Int" （33）在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程: Private Sub Command1_Click()c="ABCD" For n=1 To 4 Print Next End Sub 程序運行后,單擊命令按鈕,要求在窗體上顯示如下內(nèi)容: D CD BCD ABCD 則在處應(yīng)填入的內(nèi)容為 A) Left(c,n)B) Right(c,n) C) Mid(c,n,1)D) Mid(c,n,n) （34）閱讀程序: Option Base 1 Dim arr()As Integer Private Sub Form_Click()Dim i As Integer, j As Integer ReDim arr(3,2) For i = 1 To 3 For j = 1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序運行后,單擊窗體,輸出結(jié)果為 A) 21 B) 13C) 8D) 25 （35）下列程序段的執(zhí)行結(jié)果為 a=3:b=1 For i=1 To 3 f=a + b:a=b:b=f Print f Next I A) 4 3 6B) 4 5 9C) 6 3 4D) 7 2 8 二、填空題請將每一個空的正確答案寫在答題卡序號的橫線上，答在試卷上不給分。（1）測試用例包括輸入值集和 【1】 值集。（2）在樹形結(jié)構(gòu)中,樹根結(jié)點沒有 【2】 。（3）數(shù)據(jù)結(jié)構(gòu)分為邏輯結(jié)構(gòu)與存儲結(jié)構(gòu),線性鏈表屬于 【3】 。（4）一個項目具有一個項目主管,一個項目主管可管理多個項目,則實體"項目主管"與實體"項目"的聯(lián)系屬于 【4】 的聯(lián)系。（5）數(shù)據(jù)庫設(shè)計分為以下6個設(shè)計階段:需求分析階段、 【5】 、邏輯設(shè)計階段、物理設(shè)計階段、實施階段、運行和維護階段。 （6）設(shè)有如下程序: Private Sub Form_Click()Dim a As Integer, s As Integer n=8:s=0 Do s=s+n:n=n-1 Loop While n>0 Print s End Sub 以上程序的功能是計算1到8的和。程序運行后,單擊窗體,輸出結(jié)果為 ? 【6】 ?。 （7）如果不指明函數(shù)過程參數(shù)的類型,則該參數(shù)的數(shù)據(jù)類型為 【7】 。（8）下面運行程序后,單擊命令按鈕,輸出的結(jié)果是 ? 【8】 ? 。 Private Sub Command1_Click()Dim a%(1 To 5),i%, s# For i=1 To 5 a(i)=i Next s=Fun(a) Print "s="; s; End Sub Function Fun(a() As Integer) Dim t#, i% t=1 For i=LBound(a) To UBound(a) t=t*a(i) Next Fun=t End Function（9）在Visual Basic的立即窗口內(nèi)輸入以下語句 X=97 ?Chr$(X) 在窗口中顯示的結(jié)果是 【9】 。（10）下列程序計算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一項為n個。 例如: a=5 , n=4時,則Sn=5+55+555+5555。請在空白處填入適當?shù)膬?nèi)容,將程序補充完整。 Private Sub Command1_Click()Dim a As Integer, n As Integer, Cout As Integer Dim Sn As Long, Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox("請輸入a的值:") 【10】 Do Tn=Tn * 10 + a Sn=Sn + Tn Cout=Cout + 1 【11】 a, n, Sn End Sub （11）在n個運動員中選出任意r個人參加比賽,有很多種不同的選法,選法的個數(shù)可以用公式n!/(n-r)!r!計算,下圖窗體中3個文本框的名稱依次是Text1、Text2、Text3。程序運行時在Text1、Text2中分別輸入n和r的值,單擊Command1按鈕即可求出選法的個數(shù),并顯示在Text3文本框中(見下圖)。請?zhí)羁铡? click()Private Sub Command 1Dim r As Integer,n As Integer n=Text1 r=Text2 Text3=fun(n)/ fun( 【12】 )/ fun(r) End Sub Function fun(n As Integer)as long Dim t As Long x=1 For k=1 To n t=t*k Next fun=t End Function（12）下面程序是由鼠標事件在窗體上畫圖,如果按下鼠標將可以畫圖,雙擊窗體可以清除所畫圖形。補充完整下面的程序。 首先在窗體層定義如下變量: Dim PaintStart As Boolean 編寫如下事件過程: Private Sub Form_Load()DrawWidth=2 ForeColor=vreen End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)PaintStart = True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If PaintStart Then PSet (X, Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 【13】 End Sub Private Sub Form_DblClick()Cls End Sub （13）有一個事件過程,其功能是:從已存在于磁盤上的順序文件中讀取數(shù)據(jù),計算讀出數(shù)據(jù)的平方值,將該數(shù)據(jù)及其平方值存入新的順序文件中。請?zhí)羁铡?Private Sub Form_Click()Dim x As Single, y As Single Open "" For Input As #1 Open "" For Input As #2 Do While Not EOF(1) ? 【14】 ? Print x y=x ^2 ? 【15】 ? Print y Loop Close #1, #2 End Sub