Visual Basic本科試卷及其參考答案

1、visual basic本科樣卷一、 單項選擇題（請將答案寫到題后的括號內，每小題2分，共30分）。1. 下面4個選項，不是窗體屬性的是（ ）a. minbutton b. borderstyle c. load d. caption2. 下列選項中合法的visual basic標識符是（ ）a. dowhile b.const c.8a d.a#x3. 表達式2*32+2*8/4+32的值是（ ）。a64 b31 c49 d424. 要退出fornext循環(huán)，可使用的語句是( )。aexit bexit do c exit for d end do5. 已知a=3,b=4,c=5,表達式a&

2、gt;b and not c>a or c>b and c<a+b的值是（ ）。 atrue bfalse c0 d1 6. 設a="visual basic",則下面使b="basic" 的語句是（ ）a.b=left(a,8,12） b.b=mid(a,8,5)c.b=right(a,5,5) d.b=left(a,8,5)7. 下列敘述中正確的是（ ）a. 窗體的name屬性指定窗體的名稱，用來標識一個窗體b. 窗體的name屬性值是顯示在窗體標題欄中的文本c. 可以在運行期間改變窗體的name屬性值d. 窗體的name屬性值可以

3、為空8. 以下case語句中錯誤的是（ ）a. case 0 to 10 b.case is>10 c.case is>10 and is<50 d. case 3,5,is>109.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程：private sub command1_click（） x=inputbox（"請輸入整數(shù)"） select case x case 1，3 print "分支 1" case is >4 print "分支 2" case else print &qu

4、ot;else 分支 " end selectend sub程序運行后,如果在輸入對話框中輸入2,則窗體上顯示的是( )a.分支1 b.分支2 c. else分支 d. 程序出錯10. 下述程序的運行結果是( )。 j = 0do while j30 j = （j+1）*（j+2） k=k+1loopprint k; ja.0 1 b.3 182 c. 30 30 d. 4 3011. 以下敘述中正確的是（ ）a一個sub過程至少要一個exit sub語句b. 一個sub過程至少要一個end sub語句c可以在sub過程中定義一個function過程，但不能定義sub過程 d. 調用

5、一個function過程可以獲得多個返回值12. 當一個單選按鈕被選中時，它的value屬性的值是( )。a.1 b.0 c.true d.false13. 執(zhí)行語句dim x, y as integer后（ ）a. x和y均被定義為整型變量b. x和y均被定義為變體類型變量c. x被定義為整型變量，y被定義為變體類型變量d. x被定義為變體類型變量，y被定義為整型變量14.若要刪除窗體上的文字信息，要采用下列哪個方法（ ）。 a.clear b.clean c.cls d.remove15. 以下語句用來定義過程subp其中正確的是（ ）adim sub subp(x,y) b. publi

6、c subp(x,y)cprivate sub subp(x,y) as integer d. sub subp(x,y)二、 填空題（請將答案寫在題中的橫線上，每空2分，共20分）。1. vb提供了結構化程序設計的三種基本結構，分別是順序結構、_和循環(huán)結構。2. 表達式5mod3+523的值為_。3. msgbox()函數(shù)的返回值類型為_。4.print spc(20);”hello”語句表示在窗體的第_列輸出字符串”hello”。5.若要將圖片框中加載的圖片刪除，可以使用語句_。6.dim a(1 to 4)定義的數(shù)組包含的元素的個數(shù)是_。7.定義數(shù)組時，若希望下標從1開始，可以在模塊的通

7、用部分使用_語句將其設為1。8使用代碼向vb6.0列表框添加項目，使用的方法是_ 。9. 為了通過傳值方式來傳送過程參數(shù)，應使用的關鍵字為_。10假定程序中有以下語句：answer=inputbox(“hello”,”world”,”good”,30),執(zhí)行該語句后，將顯示一個信息框，此時如果單擊確定按鈕，則answer的值為_。三、簡答題（請將答案寫在題后的空白處，每題5分，共20分）。1. 簡述創(chuàng)建visual basic應用程序的基本步驟。2. 圖片框和圖像框有什么區(qū)別？3. 簡述動態(tài)數(shù)組的定義步驟。4. visual basic中常用的鍵盤事件有哪些？分別在何時觸發(fā)？四、 讀程序寫結果

8、（請將答案寫在題中的橫線上，第1小題3分，第2小題3分，第3小題4分，共10分）。1. 在窗體上放置一個名稱為command1的命令按鈕和一個名稱為text1的文本框，并編寫如下事件代碼private sub command1_click() dim j as integer j = 5 call proc(j)end subprivate sub proc(n as integer) k = 1 for i = 1 to n step 1 k = k * i next i text1.text = kend sub當單擊該命令按鈕時，文本框中顯示的內容為_。2. 有如下事件代碼：privat

9、e sub form_click() dim a(1 to 3) as string dim c as integer dim j as integer a(1) = "4" a(2) = "8" a(3) = "12" c = 1 for j = 1 to 3 c = c + val(a(j) next j print cend sub當單擊窗體后程序運行時，窗體form1上顯示的結果為_。3. 下面程序運行后的輸出結果是_。x = “a”y = “b”z = “c”for i = 1 to 2x = y y = zz = xnex

10、t iprint x + y + z五、 編程題（請將代碼寫在題后的空白處，每題10分，共20分）。1.在窗體上放置兩個文本框，名稱分別為txtx和txty，再放置一個按鈕（cmdcal），在第一個文本框txtx中輸入一個數(shù)值x，當單擊按鈕時，按以下公式計算出y值，并將計算結果顯示在文本框txty中。2. 在窗體上放置一個按鈕（名稱為cmdcnt），單擊該按鈕時，通過inputbox函數(shù)輸入若干個字符，以？結束，分別統(tǒng)計其中字母、數(shù)字和其他字符的個數(shù)，將結果以以下格式輸出：“字母個數(shù)為：m，數(shù)字個數(shù)為：n，其他字符個數(shù)為：p”（其中m,n,p分別為具體數(shù)值）。本科樣卷參考答案及評分標準 一、單

11、項選擇題1-5 cabca6-10 daccc11-15 bcdcd評分標準：每小題2分，共30分，選錯或不選均不給分。二、填空題1選擇結構2103整型或（integer型）4215loadpicture(“”)647option base 18additem9byval10good評分標準：每小題2分，共20分，寫錯或不寫均不給分。三、簡答題1. 創(chuàng)建vb應用程序可分為以下四個步驟：（1）在窗體上建立對象；（1分）（2）設置對象的屬性；（1分）（3）編寫對象事件過程；（1分）（4）保存和運行程序。（2分）2. 2圖像框和圖片框的區(qū)別如下：（1）圖片框是容器控件，而圖像框不能作為容器；（1分）

12、（2）圖片框可以通過print方法顯示文本，圖像框則不能；（1分）（3）圖像框比圖片框占用內存少，顯示速度快；（1分）（4）在圖片的自適應問題上，圖片框用autosize屬性控制圖片框的尺寸自動適應圖片的大小，而圖像框用stretch屬性對圖片進行大小調整。（2分）3. 動態(tài)數(shù)組的定義通常分兩步完成：（1）在窗體、標準模塊和過程中用dim或public聲明一個沒有下標的數(shù)組（括號不能省略）；（2分）（2）數(shù)組重定義。在過程中需要使用該數(shù)組前，用redim語句定義數(shù)組大小，下標可為常量、變量或表達式，但變量或表達式必須有值。（3分）4常用鍵盤事件過程有三個（1分），分別為：keypress事件：

13、用戶按下并釋放一個能產生asc碼的鍵時被觸發(fā)。（2分）keyup事件：用戶釋放任一鍵時被觸發(fā)。（1分）keydown事件：用戶按下任意鍵時被觸發(fā)。（1分）評分標準：每小題5分，共20分，請按參考答案中給出的要點給分，若回答不準確或不完整，可酌情扣分。四、讀程序寫結果11202253cbc評分標準：第1小題3分，第2小題3分，第3小題4分，共10分，寫錯或不寫均不得分。五、編程題1private sub cmdcal_click() （1分） dim x as double,y as double x=val(txtx.text) （1分） if x>=0 and x<2 then

14、（1分）y=x （1分） elseif x<6 then （1分）y=x*x+1 （1分） elseif x<10 then （1分）y=sqr(x+1) （1分） else y=1/(x*x+1) （1分）end if txty.text=str(y) （1分）end sub評分標準：本題共10分，請按照上述代碼后標出的步驟給分。此題若用4 個單分支if語句實現(xiàn)，只要格式和條件及語句書寫正確，也可給滿分。若忘記寫end if，扣0.5分，若沒有用val和str函數(shù)進行轉換，扣0.5分，最終結果四舍五入取整。2private sub cmdcnt_click() dim str as string,zmnum as integer, sznum as integer,qtnum as integer zmnum=0 sznum=0 qtnum=0 str=inputbox(“請輸入一個字符”) (1分) do while str<> “?” (1分)if (str>=”a”and str<=”z”)or (str>=”a”and str<=”z”) then zmnum=zmnum+1 (2分)elseif str>=”0” and str<=”9” then sznum=sznum+1 (2