VB程序設計試卷A及答案

1、_號學_名姓_級班_部系- VB程序設計試卷（ A 卷）-（時間 90 分鐘 滿分 100 分）-線-題號一二三四五合計-分數-閱卷人-一、選擇題：（ 30 分，每題 2 分）-閱卷人得分-1、“x 是小于 100 的非負數”，用 VB表達式表示正確的是（）-A、 0 x<100 B 、0<=x<100C、0<=x or x<100 D 、0<=x and x<100-封-2、下面哪組語句可以將變量A 和 B 的值互換？（）-A、 A=B: B=AB、 A=(A+B)/2: B=(A-B)/2-C、 A=A+B:B=A-B:A=A-BD、 A=C:C

2、=B:B=A-3、在 Select Case X 結構中，描述判斷條件 3X 7的測試項應該寫成-_ 。-A、 Case 3 X 7B、 Case 3 To 7-C 、 case Is3, Is 3D、 Case 3 X ， X 7-密4、下面（）是算術運算符？-A、modB 、 impC、notD、like-5、以下控件中可以入選為容器控件的是() 。-A、Image 圖像框控件B、 ListBox列表框控件-C、TextBox 文本框控件D、Picture圖片框控件-第 1 頁-6、下列操作不能打開代碼窗口的是( )A、選中對象 , 單擊鼠標右鍵 , 在彈出的快捷菜單中選擇“查看代碼”命令

3、B、選中對象 , 雙擊鼠標左鍵C、按 F7 鍵D、按 F4 鍵7、函數 Mid(" 山羊上山山碰山羊腳 ", 3, 2)的結果是（）A、山羊B、羊上C、上山D、山山8、窗體運行后，要使窗體自動顯示在屏幕的中央位置，應設置窗體的（ ）屬性？A、WindowstateB、StartuppositionC、IconD、mousePointer9、下列哪個語句是錯誤的VB語句（）A 、 Text1.Text = " 你好！ " ； Text1.BackColor = RedB 、 Text1.Text = " 你好！ " ： Text1.Ba

4、ckColor = RedC 、Text1.Text = "你好！ "D 、 Option Explicit10、以下描述中錯誤的是 ()A、符號常量的使用和變量的使用沒有差別B、 常量可分為字符型常量，數值常量，時間/ 日期型常量，布爾型常量C、 符號常量是用一個標識符來代表一個常量D、 常量在程序執(zhí)行期間其值不會發(fā)生變化11、若想要建立一個學生管理的輸入界面，其中要求選擇學生的性別/ 政治面貌（黨 / 團/ 群眾）及選課情況（共有5 門課，可任選），應如何在窗體中利用單選鈕和選擇框來實現（）。A將 5 門課程用一組 5 個選擇框來表示，將性別和政治面貌用5 個單選鈕來表

5、示B將 5 門課程用一組 5 個選擇框來表示，用兩個框架分別將性別用2 個單選鈕，政治面貌用 3 個單選鈕來表示C將 5 門課程用一組 5 個單選鈕來表示，將性別和政治面貌用5 個選擇框來表示D用一組 10 個選擇框來表示課程、性別和政治面貌12、下面程序段中求兩數中的大數，（）不正確A、max=iif(x>y,x,y)B、if x>y then max=x else max=y（共 4頁）_號學_名姓_級班_部系-C、 max=xD、if y>=x then max=y-if y>x then max=ymax=x-13、執(zhí)行 inputbox后顯示效果如圖 2-3

6、所示，將輸入結果保存在變量x 中，-inputbox正確的寫法為：（）-線-圖 2-3-A、 x = InputBox("調查", "您年齡幾何？ ", 30)-B、 x = InputBox("您年齡幾何？ ", " 調查 ", 30)-C、 x = InputBox "調查 ","您年齡幾何？ ", 30-D、 x = InputBox "您年齡幾何？ ", " 調查 ", 30-封-14、在當前應用程序的目錄下有一圖片文件p1.j

7、pg ，程序運行后，要在圖片框-picture1中顯示圖片 p1.jpg，可使用的語句是：（）-A、picture1.picture=app.path &”p1.jpg ”-B、picture1.picture=loadpicture(app.path &“p1.jpg”)-C、picture1.picture=app.path &“p1.jpg”)-、“”-picture1.picture=loadpicture(app.path &p1.jpg)-D-15要將列表框 list1的第 3項內容顯示在文本框 text1中，可使用的語句是：-（ ）密-A、text

8、1.text=list1.listcountB、 text1.text=list1.listC-C、text1.text=list1.listindexD、 text1.text=list1.listB-二、填空題：（ 10 分，每題 2 分）-閱卷人得分-16、VB中的過程包括有事件過程和過程。-第 2 頁-17、VB中代碼存儲在 3 種不同的模塊中：窗體模塊、和類模塊。18、使用公用對話框的屬性，設置顯示文件的類型。19、菜單項可以響應的事件過程為。20、通過連接對象的方法，可對連接執(zhí)行各種操作。三、判斷題（ 30 分，每題 1.5 分，對打“”，錯打“×”）閱卷人得分21、窗體

9、文件的擴展名為BAS。 （）22、當完成完成的全部文件后，通過編譯工程可以將此工程轉換成可執(zhí)行文件exe。（）23、在窗體上復制控件， 如果復制的控件名稱相同， 系統會出現一個是否創(chuàng)建控件數組 的對話框。（）24、在 VB中，對于沒有聲明的變量，其默認的數據類型是variant 。（）25、對象變量賦值，必須使用關鍵字set。（）26、如果今天是星期五，那么 print weekday(now()輸出的結果是 4。（）27、使用 print 方法可以將信息直接輸出到窗體或者picturebox中。（）28、在設計程序時改變文本框的 multiline屬性和 scrollbars屬性，可使文本框

10、顯示多行并且出現滾動條？（）29、文本框的 selstart屬性，設置所選擇文本框的起始點， sellength屬性設置或者返回所選擇的字符數？這二個屬性只能程序代碼完成。（）30、設置時鐘控件的 Enabled 屬性，指定了兩個 timer事件之間的毫秒數。（）31、Do loop 循環(huán)中使用 exit do不能跳出循環(huán)。（）32、如果沒有使用 option base 1語句，則缺省的數組下限為 0。（）33、調用對象方法的格式為：對象名. 方法名。（）34、一個控件的事件過程將控件的實際名、下畫線和事件名組合起來。（）35、改變當前的驅動器為e: ，使用的語句是： chdrive“ e”。

11、（）36、VB菜單設計器中“復選”，其作用是：設置下拉菜單項的 checked 屬性。（）（共 4頁）_號學_名姓_級班_部系-37、用戶可以通過設置菜單項的 visible 屬性值為 false 來使該菜單項不可見。-（）-38、數據表是由多列多行構成的集合、每列稱為一個字段，每行稱為一條記錄。-（）-39、保存對當前記錄的修改，可以通過記錄集的update 方法完成。（）-線-40、指示當前記錄指針位置是否位于首記錄前，使用記錄集的EOF屬性；指示是-否位于末記錄尾，使用記錄集的 BOF屬性。（）-四、程序閱讀：（ 12 分，每題 6 分）-閱卷人得分-41、本程序有一個標準模塊和一個窗體

12、模塊。 Sub main 過程是本程序的啟動過程，-其他過程是窗體模塊的事件過程，執(zhí)行本程序，依次單擊命令按command1和-command2，在窗體上輸出的 3 行內容分別是、。封-標準模塊-public x as integer-sub main()-x=5-form1.show-form1.print x-end sub-密-dim y as integer-窗體模塊-private sub command1_click()-y=x*2-print y-end sub-Private Sub Command2_Click()-第 3頁-y = x / 2Print yEnd Sub42

13、、下邊的程序的功能是計算f=1-1/(2*3)+1/(3*4)-1/(4*5)+ 、+1/(19*20),請完成填空private sub form_click()dim f as single,I as integer,sign as integerf=1f=f+sign/(I*(I+1)next Iprint“ f= ”;fend sub五、編寫程序：（ 18 分，每題 9 分）閱卷人得分43、（ 9 分）編寫程序，在文本框 text1 中輸入一個整數并按回車鍵后，判斷輸入的整數是奇數和偶數，在標簽 label1 中顯示“奇數”或者“偶數”，是奇數以紅字顯示，偶數時以藍字顯示。44、（ 9

14、 分）在單擊窗體上“打印五角星”命令按鈕，在窗體上打印圖3。圖 3（共 4頁）_號學_名姓_級班_部系- VB程序設計試卷（ A 卷）答案-（時間 90 分鐘 滿分 100 分）-線-題號一二三四五-分數-閱卷人-一、選擇題：（ 30 分，每題 2 分）-閱卷人得分-1234-DCBA-6789封-DCBA-11121314-BDBD-二、填空題：（ 10 分，每題 2 分）-閱卷人得分-16、通用17、標準模塊18 、 filter-密-19、 click20、 execute-三、判斷題（ 30 分，每題 1.5 分）-閱卷人得分-21222324-×-26272829-合計5D10A15D2530第 4 頁×3132333435×3637383940×四、程序閱讀：（12 分，每題 6 分）閱卷人得分41、510242、sign=-1for I=2 to 19sign=-sign五、編寫程序：（ 18 分，每題 9 分）閱卷人得分43、If KeyAscii = 13 ThenDim x As Integerx = Val(Text1.Text)If x Mod 2 = 0 ThenLabel1.Caption