VB程序設(shè)計(jì) 及 參考答案

1、VB程序設(shè)計(jì)及參考答案一、單選題（共20分，每小題1分）1、要改變控件的寬度，應(yīng)修改該控件的（）屬性。（A）TOP （B）width （C）Left （D）Height2、將命令按鈕Command1設(shè)置為不可見(jiàn)，應(yīng)修改該命令按鈕的（）屬性。（A）Visible （B）Value （C）Caption （D）Enabled3、（）對(duì)象具有clear方法。（A）圖片框（B）窗體（C）復(fù)選框（D）列表框4、啟動(dòng)VB后，就意味著要建立一個(gè)新（）。（A）窗體（B）文件（C）工程（D）程序5、下列（）對(duì)象不具有Clear方法。（A）列表框（B）組合框（C）剪貼框（D）圖片框6、組合框有三種風(fēng)格，它們由St

2、yle屬性所決定，其中為簡(jiǎn)單組合框時(shí)，Style屬性值應(yīng)為（）（A）0 （B）1 （C）2 （D）37、下列可調(diào)整圖片框的大小以適合圖片的屬性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode8、要想清除文本框中的內(nèi)容則可利用（）進(jìn)行。（A）Caption （B）Text （C）Clear （D）Cls9、在文本框控件中將Text的內(nèi)容全部顯示為所定義的字符的屬性是（）。（A）Password （B）PasswordChar（C）需要編程來(lái)實(shí)現(xiàn)（D）以上都不是10、Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，所采用的編程機(jī)制是（）。

3、（A）從主程序開(kāi)始執(zhí)行（B）按過(guò)程順序執(zhí)行（C）事件驅(qū)動(dòng)（D）按模塊順序執(zhí)行11、下列四項(xiàng)中合法的變量名是（）。（A）a-bc （B）a_bc （C）4abc （D）integer12、無(wú)論何種控件，共同具有的屬性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代碼如下：Text1.Text = "Visual Basic程序設(shè)計(jì)"則Text1、Text ，和"Visual Basic程序設(shè)計(jì)"分別代表（）。（A）對(duì)象，值，屬性（B）對(duì)象，方法，屬性（C）對(duì)象，屬性，值（D）屬性，對(duì)象，值14、下列賦值語(yǔ)句

4、正確的是（）。（A）a b=c （B）c=a b （C）-a=b （D）5=a b15、要在窗體Form1內(nèi)顯示“myfrm”，使用的語(yǔ)句是（）（A）Form.caption="myfrm" （B）Form1.caption="myfrm"（C）Form1.print "myfrm" （D）Form. print "myfrm"16、將數(shù)據(jù)項(xiàng)“China”添加到列表框List1中成為第一項(xiàng)，應(yīng)使用的語(yǔ)句是（）（A）List1.AddItem"China", （B）List1.AddItem&qu

5、ot;China",0（C）List1.AddItem"China",1 （D）List1.AddItem"1,China"17、如果創(chuàng)建了命令按鈕數(shù)組控件，那么Click事件的參數(shù)是（）（A）Index （B）Caption （C）Tag （D）沒(méi)有參數(shù)18、使圖像框Image控件中的圖像自動(dòng)適應(yīng)控件的大小應(yīng)（）。（A）將控件的 AutoSize屬性設(shè)為True （B）將控件的 AutoSize屬性設(shè)為False（C）將控件的 Stretche屬性設(shè)為True （D）將控件的 Stretche屬性設(shè)為False19、在Visual Basic

6、中，變量的默認(rèn)類型是（）（A）Integer （B）Double （C）Currency （D）Variant20、下列控件中不能響應(yīng)Click事件的是（）。（A）Frame （B）Label （C）Timer （D） Form二、填空題（共20分，每小題1分）1、欲設(shè)置定時(shí)器的時(shí)間間隔為2秒，則屬性Interval的值為。2、對(duì)象的三要素是屬性、。3、控件數(shù)組的名字由屬性指定，而數(shù)組中的每個(gè)元素由_ 屬性決定。4、執(zhí)行賦值語(yǔ)句a="Visual" "Basic"后，變量a的值是。5、在Visual Basic語(yǔ)言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次

7、數(shù)可以適先確定，可使用循環(huán)；若要求先判斷循環(huán)進(jìn)行的條件，可使用_ 循環(huán)。6、變量的聲明方法有隱式和兩種，如果采用隱式聲明方法，那么VB會(huì)自動(dòng)將變量聲明為。7、過(guò)程級(jí)變量是指在過(guò)程內(nèi)部聲明的變量，只有在該過(guò)程中的代碼才能訪問(wèn)這個(gè)變量。模塊級(jí)或窗體級(jí)變量的作用域是，全局變量在整個(gè)應(yīng)用程序中有效，其作用域是。8、VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，這三種基本結(jié)構(gòu)是選擇結(jié)構(gòu)、 _ 、。9、將圖片框的AutoSize屬性設(shè)置成時(shí)，可使圖片框根據(jù)圖片調(diào)整大小。10、定時(shí)器（Timer）控件可識(shí)別的事件是，發(fā)生該事件的時(shí)間間隔由定時(shí)器的屬性設(shè)置。三、判斷題（共10分，每小題1分）1、設(shè)置屬性的語(yǔ)句格式為

8、：“對(duì)象名屬性名屬性值”。（）2、設(shè)置屬性的語(yǔ)句格式為：“對(duì)象名屬性名屬性值”。（）3、若用戶在鍵盤(pán)上按下一個(gè)鍵，則會(huì)產(chǎn)生一個(gè)Click事件。（）4、在中，字符型常量應(yīng)使用號(hào)將其括起來(lái)。（）5、事件過(guò)程可以由用戶事件觸發(fā)執(zhí)行，也可以由其他過(guò)程所調(diào)用。（）6、Do While條件.Loop和DO Until Not 條件.Loop 兩條循環(huán)語(yǔ)句，實(shí)現(xiàn)循環(huán)控制是等效的。（）7、在窗體或模塊文件中聲明為Private的過(guò)程，只能被本窗體或模塊中的過(guò)程所調(diào)用。（）8、一個(gè)VB應(yīng)用程序中至少要有一個(gè)窗體模塊。（）9、模塊級(jí)過(guò)程是在某個(gè)模塊內(nèi)定義的過(guò)程，該過(guò)程可以被本模塊外的其它過(guò)程調(diào)用。（）10、過(guò)程不

9、可以嵌套調(diào)用但可以嵌套定義。（）四、程序分析。（共30分，1-3題各7分，第4題9分）1、寫(xiě)出單擊窗體時(shí)顯示的結(jié)果Private sub form_click()第3/7頁(yè)Dim b as integer, y as integerCall Mysub2(3,b)Y=bCall Mysub2(4,b)Print y bEnd subPrivate sub Mysub2(x,t)T=0For i=1 to xT=t kNextEnd sub2、寫(xiě)出以下程序輸出的結(jié)果。Dim aA=array(1,2,3,4,5,6,7,8)For i=Lbound(A) to 5A(i)=A(i)*A(i)Ne

10、xt iPrint a(i)3、設(shè)有如下通用過(guò)程：Public Function f(x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd Function在窗體上畫(huà)一個(gè)名稱為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click()Static x As Integerx = 10y=5y = f(x)第4/7頁(yè)P(yáng)rint x; yEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是（）4、如要實(shí)現(xiàn)下圖的“計(jì)時(shí)器”程序，請(qǐng)根據(jù)已有代碼完成填空。Dim h As Intege

11、rDim m As IntegerDim s As IntegerPrivate Sub Command1_Click()If Command1.Caption = "開(kāi)始計(jì)時(shí)" ThenCommand1.Caption = "停止計(jì)時(shí)"ElseTimer1.Enabled = FalseCommand2.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()h = 0: m = 0: s = 0Text1.Text = Format(h, "00") & ":

12、" & Format(m, "00") & ":" & Format(s, "00")第5/7頁(yè)End SubPrivate Sub Timer1_Timer()s = s 1If s > 59 Thenm =_s = 0If m > 59 Thenh = h 1m = 0End IfEnd IfText1.Text = Format(h, "00") & ":" & Format(m, "00") & &

13、quot;:" & Format(s, "00") End Sub五、編寫(xiě)程序（本題20分，每小題10分）編寫(xiě)程序，計(jì)算函數(shù)：3n 2 n<0Y= 0 n=02n-1 n>0VB程序設(shè)計(jì)參考答案一、1-5 B A D C D 6-10 B B B B C11-15 B B C B C 16-20 B A C D C二、1、2000 2、事件、方法 3、name、index 4、“VisualBasic”5、For 、while6、顯式、Variant 7、窗體模塊級(jí)、整個(gè)工程 8、順序結(jié)構(gòu)、循環(huán)結(jié)構(gòu) 9、TRUE10、Timer、interval三、1、T 2、T 3、F 4、F 5、 T 6、T 7、T 8、T 9、F 10、F四、1、結(jié)果為0 2、結(jié)果為7 3、窗體上顯示的內(nèi)容是（10，40）第6/7頁(yè)