程序設(shè)計(jì)模擬試題三

1、Visual Basic程序設(shè)計(jì)模擬試題三 一、單項(xiàng)選擇題（每小題2分，共30分）1與傳統(tǒng)的設(shè)計(jì)語(yǔ)言相比，Visual Basic最突出的特點(diǎn)是（ ）A程序開(kāi)發(fā)環(huán)境 B結(jié)構(gòu)化程序設(shè)計(jì) C程序調(diào)試技 D術(shù)事件驅(qū)動(dòng)的編程機(jī)制2VB集成開(kāi)發(fā)環(huán)境中，提供控件的窗口是（ ）。A工具箱 B工具欄C屬性窗 D工程管理器3剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是（ ）。A時(shí)鐘控件 B圖像框 C框架 D通用對(duì)話框4在VB6.0集成開(kāi)發(fā)環(huán)境中有三種工作模式，下列不屬于三種工作模式之一的是（）A設(shè)計(jì)模式 B執(zhí)行模式C編寫(xiě)代碼模式 D中斷模式 5要在窗體Form1內(nèi)顯示“歡迎您！”，使用的語(yǔ)句是（ ）

2、AForm.caption=歡迎您! BForm1.caption=歡迎您!CForm. print 歡迎您! DForm1.print 歡迎您! 6決定標(biāo)簽內(nèi)顯示內(nèi)容的屬性是（ ） AName B Text CCaption DAlignment7在VB中，下列合法的變量名是（ ）A4EF Binteger CE-F DE_F8如果要在文本框中鍵入字符時(shí)，只顯示某個(gè)字符，如星號(hào)（*），應(yīng)設(shè)置文本框的（ ）屬性。 APasswordCha B r Caption CText DLocked9要使窗體在運(yùn)行時(shí)不可改變窗體的大小和沒(méi)有最大化和最小化按鈕，只要對(duì)下列（ ）屬性設(shè)置就有效。AMaxBu

3、tton BBorderSyle CWidth DMinButton10要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個(gè)屬性是（ ）AStyle和Icon B Style和Picture CCaption和Picture DValue和Icon11VB程序中通常不會(huì)產(chǎn)生錯(cuò)誤提示的是（）。A編譯錯(cuò)誤B邏輯錯(cuò)誤C運(yùn)行時(shí)錯(cuò)誤D實(shí)時(shí)錯(cuò)誤12執(zhí)行Form1.Scale (0, 10)-(10, -10)語(yǔ)句后，F(xiàn)orm1窗體坐標(biāo)系x軸和y軸的正方向是（ ）。A向右和向上 B向左和向下 C向右和向下 D向左和向上13使用ADO數(shù)據(jù)模型時(shí)，建立Recordset和Connection對(duì)象連接的屬性是（ ）AExec

4、ute BCommandTypeCActiveConnection D Open14用來(lái)從數(shù)據(jù)庫(kù)表中刪除記錄的SQL命令是（ ）。Awhere BselectCupdate Ddelete 15要發(fā)送數(shù)據(jù)，通常使用Winsock控件的（）。AListen方法 BGetDate方法CAccept方法 D SendData方法一、單項(xiàng)選擇題（每小題2分，共30分）1.D 2.A 3.D 4.C 5.D 6.C 7.D 8.A 9.B 10.B 11.B 12A 13A 14.D 15.D得分評(píng)卷人二、填空題（每小題2分，共20分）1.每個(gè)應(yīng)用程序必須有一個(gè)唯一的 文件，至少有一個(gè) 文件。2某個(gè)程序

5、中要用到一個(gè)二維數(shù)組，要求數(shù)組名為C，類型為整型，第一維下標(biāo)從-1到3，第二維下標(biāo)從0到4，則相應(yīng)數(shù)組聲明語(yǔ)句為 。3過(guò)程級(jí)變量是指在 聲明的變量，窗體級(jí)或模塊級(jí)變量是指窗體或模塊的代碼聲明段用 或 聲明的變量，在全局變量在整個(gè)應(yīng)用程序中有效，一般在標(biāo)準(zhǔn)模塊中使用 語(yǔ)句聲明。4在VB中，將Access稱為 ，SQL Server稱為 ，F(xiàn)oxpro稱為 。5數(shù)據(jù)庫(kù)應(yīng)用程序?qū)儆谝环N非常典型的前后臺(tái)軟件結(jié)構(gòu)，前后臺(tái)之間進(jìn)行通訊的主要機(jī)制稱為 。6Winsock控件主要用來(lái)編制TCP/IP或 協(xié)議的通話程序。7變量是應(yīng)用程序運(yùn)行期間其值可以變化的量，如果不能適先確定變量的數(shù)據(jù)類型，則可以把它聲明為

6、數(shù)據(jù)類型。8執(zhí)行賦值語(yǔ)句y = “abc”+”def”后，變量a的值是 。9常用的VB網(wǎng)絡(luò)編程控件主要有 、 和 三種。10通?？梢詫⑽谋究蚩丶?屬性設(shè)置為False，以禁止鍵盤輸入。如果不希望某個(gè)控件獲得焦點(diǎn)，則可以將它的 屬性設(shè)置為False。二、填空題（每小題2分，共20分）1Vbp frm 2Dim C(-1 To 3,0 To 4) As Integer3過(guò)程內(nèi)部 Dim Private Public 4本地?cái)?shù)據(jù)庫(kù) 遠(yuǎn)程數(shù)據(jù)庫(kù) 外部數(shù)據(jù)庫(kù)5數(shù)據(jù)引擎6UDP 7.變體型（ Variant）8abcdef9Winsock Internet Transfe WebBrowser10Loc

7、ked TabStop三、閱讀程序題（共25分）閱讀下列程序并寫(xiě)出程序運(yùn)行結(jié)果1(6分)Private Sub Form_Click() Dim a As Integer Static b As Integer a = a + 6 b = a + b Form1.Print a=; a, b=; bEnd Sub寫(xiě)出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，F(xiàn)orm1上的輸出結(jié)果。2(6分)Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 3c = 4For j = 1 To 6 If j 3 Then c =

8、c + 6 Exit For Else k = k + 2End IfNext jPrint c, kEnd Sub 寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，c,k的值分別是： 3. (6分)Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1 Do While i 8 i = i + 2 s = s + i Loop Text1.Text = sEnd Sub文件框Text1的輸出結(jié)果是4. (7分)Sub test(i As Integer)i = i + 4End SubPrivate Sub form_Cl

9、ick() Dim x As Integer x = 5 Print x=; xCall test(x)Print x=; xEnd Sub寫(xiě)出程序運(yùn)行后，單擊窗體時(shí)程序的運(yùn)行結(jié)果。三、閱讀程序題（共25分）1.（6分）x=6 y=6x=6 y=12x=6 y=182. （6分）10 93（6分） 294（7分）x= 5x= 9四、完善程序題（共10分）1假設(shè)用Access創(chuàng)建了一個(gè)名為“學(xué)生.MDB”的數(shù)據(jù)庫(kù)，并在其中創(chuàng)建了一張名為“學(xué)生基本情況”的數(shù)據(jù)表，表中存放了學(xué)生的基本信息，如圖1所示?，F(xiàn)在要求利用VB編寫(xiě)一個(gè)數(shù)據(jù)庫(kù)查詢程序，程序的運(yùn)行界面如圖2所示，基本邏輯是：首先文本框(Text

10、1)中輸入希望查詢的學(xué)生學(xué)號(hào)，然后點(diǎn)擊“查詢”按鈕(Command1)，如果數(shù)據(jù)庫(kù)中存在該學(xué)號(hào)，則分別在Text2、Text3、Text4中顯示學(xué)號(hào)、姓名、籍貫信息，否則提示用戶“記錄不存在”并使Text1獲得焦點(diǎn)，要求用戶重新輸入。當(dāng)點(diǎn)擊退出按鈕(Command2)時(shí)關(guān)閉本窗體。圖1用Access創(chuàng)建的學(xué)生基本情況數(shù)據(jù)表圖2 查詢程序運(yùn)行界面程序如下，請(qǐng)補(bǔ)充完整。Private ADOcn As ConnectionPrivate Sub Form_Load() 1 ADOcn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c: 2 En

11、d SubPrivate Sub Command1_Click() Dim strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConnection = ADOcn strSQL = Select * From 學(xué)生基本情況 Where 學(xué)號(hào)= + + Text1 + 4 If 5 ADOrs.EOF Then Text2 = ADOrs.Fields(學(xué)號(hào)) Text3 = ADOrs.Fields(姓名) Text4 = ADOrs.Fields(籍貫) 6 MsgBox 要查詢的學(xué)號(hào)不存在，請(qǐng)重新輸入!, vbOKOnly, 信息提

12、示 Text1 = 7 End IfEnd SubPrivate Sub Command2_Click() 8 End四、完善程序題（共10分）1 Set ADOcn = New Connection2 學(xué)生.MDB 3 New4 ADOrs.Open strSQL5 Not6 Else7Text1.SetFocus8 UnLoad Me五、編寫(xiě)程序題（共15分）請(qǐng)根據(jù)下列描述編寫(xiě)財(cái)務(wù)部門征收勞務(wù)酬金所得稅程序，規(guī)定如下：（1）收入在1200元以內(nèi)，扣稅3%；（2）收入在1200-4000元內(nèi)，1000元以上部分扣稅15%，（3）收入在4000-5000元內(nèi)，4000元以內(nèi)按（2）的方法扣稅，4000元以上部分，扣稅20%，（4）當(dāng)收入達(dá)到5000元以上，扣稅25%。程序運(yùn)行界面如圖3所示。圖3五、編寫(xiě)程序題（共15分）參考答案：Private Sub Command1_Click() Dim x As Integer, tax As Single x = Val(Text1.Text) If x 1200