VB模擬試題一

1、天津工業(yè)大學(xué)專業(yè)VB模擬試題一一、選擇題1. 工程文件的擴(kuò)展名是（）A. .vbg B. .vbp C .vbw D. .vbl2. 個(gè)窗體中帶圖片框控件（已裝入圖像）的VB應(yīng)用程序從文件上看，至少應(yīng)該包括的文件有（）A. 窗體文件（.frm）、項(xiàng)目文件（.vbp/vbw）B. 窗體文件（.frm）、項(xiàng)目文件（.vbp/vbw）和代碼文件（.baS）C. 窗體文件（.frm）、項(xiàng)目文件（.vbp/vbw）和模塊文件（.baS）D. 窗體文件（.frm）、項(xiàng)目文件（.vbp/vbw）和窗體的二進(jìn)制文件（.frx）3. 以下關(guān)于窗體描述正確的是（）A. 只有用于啟動(dòng)的窗體可以有菜單B. 窗體事件和

2、其中所有控件事件的代碼都放在窗體文件中C. 窗體的名字和存盤的窗體文件名必須相同D. 開始運(yùn)行時(shí)窗體的位置只能是設(shè)計(jì)階段時(shí)顯示的位置4. VB中控件主要分為3類，下面哪一種不是 VB中的控件類（）A.標(biāo)準(zhǔn)控件B. ActiveX C可插入控件D.外部控件5. 在VB的基本數(shù)據(jù)類型中，通用類型（Variant可以表示任何類型的變量，如果有定義Dim a,則以下變量賦值中正確的是()A. a= ” OK' B. A$=OK C a=04/01/2001 D. a$= ” OK6. 在窗體上添加一個(gè)命令按鈕和一個(gè)文本框，并在命令按鈕中編寫如下代碼:Private Sub Comma nd1_

3、Click()A=1.2C=Le n( Str$(A)+Space(10)Text1.text=CEnd Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示()A. 3 B. 8 C 14 D 107. 在MsgBo函數(shù)中哪一個(gè)參數(shù)是必須的()A. prompt B. butt ons C title D . con text8. 以下語句的輸出結(jié)果是()Print Format$(1234.5,” 00,000.00 ”)A. 1234.5 B 01,234.50 C 01,234.5 D 1,234.509 .有如下語句：Type Stude ntName As Stri ngAge As I

4、n tegerSex As Stri ngEnd TypeDim Stu As Stude ntWith Stu.Name ='張紅".Age = 22.Sex = '女"End With執(zhí)行Print Stu.Ag后的結(jié)果是（）A. 張紅 B. 22 C “女” D. Age10以下控件中可以作為容器控件的是（）A. Image圖像框控件 B. PictureBox圖片框控件C. TextBox文本框控件 D. ListBox列表框控件11. VB提供的選擇框（CheckBo）可具有的功能是（）A. 多重選擇B.單一選擇C.多項(xiàng)選擇D.選擇一次12以下關(guān)于

5、作用范圍的描述正確的是（）A. 所有變量（Public/Global/Static/Private）都可以放到窗體的通用部分定義B. 所有變量（Public/Global/Static/Private）都可以放到標(biāo)準(zhǔn)模塊中定義C. Public/Global類的變量只能放在標(biāo)準(zhǔn)模塊中定義D.只有Global類的變量必須放在標(biāo)準(zhǔn)模塊中定義13. 建立一個(gè)圖書資料管理輸入界面，要求選擇圖書的借閱情況、語種（中文 /英文/日文/其他） 及分類（10類，存在重復(fù)分類，臺(tái)一本圖書屬于 1類，也同時(shí)屬于2類）。應(yīng)如何在窗體中利用單選鈕 和選擇框?qū)崿F(xiàn)（）A. 用一組16個(gè)選擇框來實(shí)現(xiàn)B. 將10種分類用一組

6、10個(gè)選擇框、借閱情況和語種用 6個(gè)單選鈕實(shí)現(xiàn)C. 將10種分類用一組10個(gè)單選鈕、借閱情況和語種用6個(gè)選擇框?qū)崿F(xiàn)D. 將10種分類用一組10個(gè)選擇框、借閱情況用2個(gè)單選鈕、語種用4個(gè)單選鈕實(shí)現(xiàn)14. 有關(guān)列表框的屬性和方法的正確描述是（）A. 列表框的內(nèi)容由屬性Item Data來確定B. 當(dāng)多選屬性（MultiSelect為True時(shí)，可通過Text屬性獲得所有內(nèi)容C. 選中的內(nèi)容應(yīng)通過List屬性來訪問D. 選中的內(nèi)容應(yīng)通過Text屬性來訪問，并且每次只能獲得一條內(nèi)容15若要求在文本框中輸入密碼時(shí)文本框中只顯示*號，則應(yīng)在此文本框的屬性窗口中設(shè)置（）A. Text屬性值為* B. Cap

7、tion屬性值為*C. Password!性值為空 D. PasswordCha屬性值為 *16以下關(guān)于控件的敘述中，錯(cuò)誤的是（）A. VB允許用戶亂設(shè)計(jì)并使用控件B. 主窗體中工具條中的工具不是工具箱中包含的常用控件C. 若使用系統(tǒng)提供的OCX控牛，應(yīng)先將有關(guān)的控件添加到工具箱中D. 使用系統(tǒng)提供的00控件進(jìn)行程序調(diào)，其編程的方法與工具箱中常用控件的編程有所不同17.在菜單設(shè)計(jì)時(shí)，在某菜單項(xiàng)（Caption中一個(gè)字母前加以“ &”符號的含義是（）A. 設(shè)置該菜單項(xiàng)的“訪問鍵”，即該字母帶有下劃線，可以通過鍵盤操作 Ctrl+帶下劃線的字母選 擇該菜單項(xiàng)B. 設(shè)置該菜單項(xiàng)的“訪問鍵”，

8、即該字母帶有下劃線，可以通過鍵盤操作 Alt+帶下劃線的字母選 擇該菜單項(xiàng)C. 設(shè)置該菜單項(xiàng)的“訪問鍵”，即該字母帶有下劃線，可以通過鍵盤操作Shift+帶下劃線的字母 選擇該菜單項(xiàng)D .在此菜單項(xiàng)前加上選擇標(biāo)記18 VB為命令按鈕提供的Cance屬性（）A.用來指定命令按鈕是否為窗體的“取消”按鈕B .用來指定命令按鈕的功能是停止一個(gè)程序的運(yùn)行C. 用來指定命令按鈕的功能是關(guān)閉一個(gè)運(yùn)行程序D. 用來指定命令按鈕的功能是中斷一個(gè)程序的運(yùn)行19. 有關(guān)多文檔界面（Multiple document nbsplntefac©的不正確描述是（）A. 多文檔界面（MD）是指在一個(gè)父窗口下面可

9、以同時(shí)打開多個(gè)子窗口B. 子窗口歸屬于父窗口C. 如果父窗口關(guān)閉，則所有子窗口全部關(guān)閉D. 如果所有子窗口全部關(guān)閉，則父窗口關(guān)閉20. 文件的基本操作指的是文件的刪除、拷貝、移動(dòng)、改名等，對文件進(jìn)行改名的操作是（）A. FileCopy B Name C ReName D Kill21. 在VB中，按下鼠標(biāo)鍵觸發(fā)事件，正確的程序段是（）A. Private Sub Form_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）End SubB. Private Sub Form_MouseUP(Butt

10、on As Integer, Shift As Integer, X As Single, Y As Single)End SubC. Private Sub Form_MouseMove(Button As In teger, Shift As In teger, X As Sin gle, Y As Sin gle)End SubD. Private Sub Form_Load()End Sub22.以下能夠正確計(jì)算1+2+3+10的程序是()A. Private Sub Command1_Click()B. Private Sub Command1_Click()Sum =0Sum =

11、0,I=1For I =1 To 10Do While I<=10Sum =Sum + 1Sum=Sum+INext II=I+1Print Sum loopPrint SumEnd SubEnd SubC. Private Sub Command1_Click() D. Private Sub Command1_Click()Sum = O;l=1DoSum = 0;I=1DoSum = Sum +1Sum=Sum+l1=1+1I=I+1Loop While I<10Loop Un til l<10Print SumPrint SumEnd SubEnd Sub23.在窗體

12、中添加兩個(gè)文本框（其Name屬性分別為Text1和Text?和一個(gè)命令按鈕（其 Name屬性為Comma nd)然后編寫如下程序:Private Sub Comma nd1_Click()X = 0Do While X < 10X = (X + 1) * (X + 2)n = n + 1LoopTextl.Text = Str( n)Text2.Text = Str(X)End Sub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框Textl和Text2中分別顯示的值是()A. 1 和 0 B. 2 和 12 C 2 和 72 D. 3 和 1224.在窗體中添加兩個(gè)文本框（其 Name屬性分別為

13、Textl和Text2和一個(gè)命令按鈕（NameB性為Comma ndl，然后編寫如下兩個(gè)事件過程：Private Sub Comma nd1_Click()a = UCase$(Text1.Text) + Left$(Text2，eXtPrint aEnd SubPrivate Sub Form_Load()Text1.Text = "aB"Text2.Text = "123456"End Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為（）A. ab12 B AB12 C AB56 D ab5625.在通用聲明中定義a,在窗體中添加一個(gè)命令按鈕 Comman

14、d1編寫如下程序代碼:Dim a As In tegerSub test()a = a + 1: b = b + 1: c = c + 1Print “ Sub: ” ;a;b;cEnd SubPrivate Sub Comma nd1_Click()a = 2: b = 3: c = 4Call testCall testEnd Sub程序運(yùn)行后，單擊命令按鈕，窗體中將顯示()A. Sub 3，4， 5 B. Sub 2， 3，4Sub 4， 5，6 Sub 2， 3，4C. Sub 3，1，1 D. Sub 1，1，1Sub 4，1，1 Sub 1，1，126.在窗體中添加一個(gè)命令按鈕 C

15、omma nd和一個(gè)文本框Text并有以下程序:Private Sub Comma nd1_Click()Static a As Varia nta = Array(20, 13, 45, -10, 50, 25)End Sub此程序的功能是求數(shù)組a的最小元素值，并把最小值放在文本框中。為實(shí)現(xiàn)程序的功能，省略號 處的程序段應(yīng)該是()A. Min = a(1) B Min = a(0)For i = 2 To 6 For i = 1 To 5If Min < a(i) Then If Min < a(i) ThenMin = a(i) Min = a(i)End If End IfN

16、ext I Next IText1.Text = Min Text1.Text = MinA. Min = a(0) B Min = a(0)For i = 1 To 5 For i = 1 To 5If Min < a(i) If Min < a(i) The nMin = a(i) Min = a(i)End If Next INext I Text1.Text = MinText1.Text = Min27 設(shè)有如下程序：Private Static Function fac(n As In teger) As In tegerDim f As In tegerf = f +

17、 nfac = fEnd Fun cti onPrivate Sub Form_Click()Dim i As In tegerFori = 2 To 3Prin t "#" i&"=" & fac(i)Next iEnd Sub程序運(yùn)行后，單擊窗體，在窗體上顯示的是()A. #2=2 B . #2=2 C. # ; 2=2 D. # ; 2=2#3=3 #3=5 # ; 3=3 # ; 3=528.在窗體中添加一個(gè)命令按鈕 Comma nd1并有以下程序:Fun cti on ret num()nl = Chr(13) + Chr(10

18、)msg$ = "1.運(yùn)行VB應(yīng)用程序"+ nl + "3 .計(jì)算器"msg$= msg$ + nl + "請輸入數(shù)字選擇"retnum = InputBox(msg$, Title, Default)End Fun cti onPrivate Sub Comma nd1_Click()r = retnumIf r = 1 The nx = Shell("c:vbpvbexam.exe", 1)ElseIf r = 2 The nz = Shelfcalc.exe", 1)ElseMsgBox請輸入1-2

19、的數(shù)"End IfEnd Sub2,窗體將顯示（）程序運(yùn)行后，單擊命令按鈕，在輸入對話框內(nèi)輸入A.請輸入1-2的數(shù)B. Windows的計(jì)算器C.調(diào)用C:vbpvbexam.exe程序并運(yùn)行D.出錯(cuò)29. 設(shè)在工程中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型：Type Booksn ame As Stri ng * 10te In um As Stri ng * 20End Type在窗體中添加一個(gè)名為 Comma nd的命令按鈕，要求當(dāng)執(zhí)行事件過程 Comma nd1_Cli（時(shí)，在順序文件Person.txt中寫入一條記錄。下列能夠完成該操作的程序段是（）A. Private Sub

20、 Command1_Click（）Dim B As BooksOpe n "c:perso n.txt" For Output As #1B. name = InputBox（輸入姓名"）B.telnum = InputBox（輸入電話號碼"）Write #1, B.n ame, B.tel numClose #1End SubB. Private Sub Command1_Click（）Dim B As BooksOpe n "c:perso n.txt" For Input As #1B.name = InputBox（輸入姓名&

21、quot;）B. telnum = InputBox（輸入電話號碼"）Write #1, B.n ame, B.tel numClose #1End SubC. Private Sub Command1_Click（）Dim B As BooksOpe n "c:perso n.txt" For Output As #1B.name = InputBox（輸入姓名"）B.telnum = InputBox（輸入電話號碼"）Write #1, BClose #1End SubA. Private Sub Command1_Click（）Dim B

22、 As BooksOpe n "c:perso n.txt" For Output As #1name = InputBox（'輸入姓名"）tel num = In putBox（'輸入電話號碼"）Write #1, n ame, telnumClose #1End Sub30. 個(gè)工程中包含兩個(gè)名稱分別為 Form1 Form2的窗體，一個(gè)名稱為Func的標(biāo)準(zhǔn)模塊。假定在Form1和Func中分別建立了自定義過程，其定義格式為：Form仲定義的過程：Private Sub Fun 1()End SubFunc中定義的過程:Private Sub Fun2（）End Sub若要在窗體Form2調(diào)用Form1和 Func