VisualBasic程序設(shè)計(jì)模擬練習(xí)題二.doc

Visual Basic程序設(shè)計(jì)模擬練習(xí)題二一、單項(xiàng)選擇題（每小題2分，共30分）1后綴為.bas的文件表示（）。A工程文件 B窗體文件C窗體二進(jìn)制數(shù)據(jù)文件 D標(biāo)準(zhǔn)類模塊文件 2Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，所采用的編程機(jī)制是（ ）。A從主程序開始執(zhí)行 B按過程順序執(zhí)行 C按模塊順序執(zhí)行 D事件驅(qū)動(dòng)3有程序代碼如下：Text1.Text = 你好則Text1，Text ，和你好分別代表（ ）。A對(duì)象，值，屬性 B對(duì)象，屬性，值C對(duì)象，方法，屬性 D屬性，對(duì)象，值 4.以下敘述中錯(cuò)誤的是（ ）。A一個(gè)工程中可以包含多個(gè)窗體文件 B在設(shè)計(jì)Visual Basic程序時(shí)，窗體、標(biāo)準(zhǔn)模塊、類模塊等需要分別保存為不同類型的文件 C在一個(gè)窗體文件中用Private定義的通用過程能被其它窗體調(diào)用 D全局變量必須在標(biāo)準(zhǔn)模塊中定義5將數(shù)據(jù)項(xiàng)“China”添加到列表框（List1中成為第一項(xiàng)，應(yīng)使用的語句是（ ）AList1.AddItemChina BList1.AddItem1,ChinaCList1.AddItemChina,0 DList1.AddItemChina,16在VB中，下列各項(xiàng)合法的變量名是（ ）。AInteger Bab-cC2abc D a_bc 7下列控件中不能響應(yīng)Click事件的是（ ）。ATextBox BTimer CLabel DListBox8不屬于VB數(shù)據(jù)庫引擎的是（）AODBC B Jet引擎CBDE DOLE DB9確定一個(gè)控件在窗體上位置的屬性是（ ）A Top或Left BTop和LeftCWidth或Height DWidth和Height 10如果希望以模態(tài)方式顯示窗體Form1，下列正確的語句是（ ）AForm1.Show 0 BForm1.Show 1CForm1.Show D以下都不正確11改變驅(qū)動(dòng)器列表框的Drive屬性值，將激活（）事件。AKeyDown BKeyUp CScoll D Change12如果創(chuàng)建了命令按鈕數(shù)組控件，那么該命令按鈕的Click事件的參數(shù)是（）ATag BCaptionCIndex D沒有參數(shù)13.在下列選項(xiàng)中，不能將圖像裝入圖片框和圖像框的是（ ）A在界面設(shè)計(jì)時(shí)，通過Picture屬性裝入B在界面設(shè)計(jì)時(shí)，手工在圖像框和圖片框中繪制圖形C在界面設(shè)計(jì)時(shí)，利用剪貼板把圖像粘貼上D在程序運(yùn)行期間，用LoadPicture函數(shù)把圖形文件裝入14 在VB程序中逐語句調(diào)試的鍵是（）。AF8鍵 BF9鍵CCtrlF8鍵DCtrlF9鍵15當(dāng)Winsock控件處于偵聽狀態(tài)時(shí)，其State屬性的值是（）A0 B1C2 D3一、單項(xiàng)選擇題（每小題2分，共30分）1.D 2.D 3.B 4.C 5.C 6.D 7.B 8.C 9.B 10.B 11.D 12C 13B 14.A 15.C二、填空題（每小題2分，共20分）1欲設(shè)置定時(shí)器的時(shí)間間隔為2秒，則屬性Interval的值為 。2表達(dá)式17/3-23*7 MOD 6的值是 。3在Visual Basic語言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以適先確定，可使用ForNext循環(huán)循環(huán)；若要求先判斷循環(huán)進(jìn)行的條件，可使用 循環(huán)。 4為了在運(yùn)行時(shí)把當(dāng)前路徑下的圖形文件flower.jpg裝入圖片框P1，所使用的語句為 。5. 將圖片框的AutoSize屬性設(shè)置成 時(shí)，可使圖片框根據(jù)圖片調(diào)整大小。6Winsock控件主要用來編制基于TCP/IP或 協(xié)議的網(wǎng)絡(luò)應(yīng)用程序。如果希望得到本地計(jì)算機(jī)的 IP地址，可以使用Winsock控件的 屬性。7在控件數(shù)組中，所有元素的 屬性均相同，數(shù)組中的每個(gè)元素由 屬性指定。8設(shè)某個(gè)程序中要用到一個(gè)二維數(shù)組，要求數(shù)組名為R，類型為整型，第一維下標(biāo)從-2到2，第二維下標(biāo)從0到4，則相應(yīng)數(shù)組聲明語句為 。9閏年的條件是：年號(hào)（Y）能被4整除，但不能被100整除；或者年號(hào)能被400整除。表示該條件的邏輯表達(dá)式是 。10若窗體的左上角坐標(biāo)為（-250，250），右下角坐標(biāo)為（300，0），則X軸的正向向 ，Y軸的正向向 。二、填空題（每空1分，共15分）12000203ForNext循環(huán) DoLoop循環(huán)4P1. Picture = LoadPrcture(flower.jpg)5True 6. UDP LocalIP7Name Index 8.Dim R(-2To 2,0 To 4) As Integer9. Y MOD 4=0 And Y MOD 1000 OR Y MOD 400=010右 上三、閱讀程序題（共25分）閱讀下列程序并寫出程序運(yùn)行結(jié)果1(6分)Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 4 y = y + 6 Form1.Print x=; x, y=; yEnd Sub寫出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，F(xiàn)orm1上的輸出結(jié)果。2(6分)Private Sub Form_Click() Dim i As Integer, k As Integer k = 1 For i = 1 To 4 If i 3 Then k = k + 4 Exit For Else k = k + 3 End IfNext iPrint i, kEnd Sub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。 3. (6分)Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 6 i = 2 Do While i 7 i = i + 4 s = s + i Loop Text1.Text = sEnd Sub寫出程序運(yùn)行后，單擊Command1按鈕，文件框Text1的輸出結(jié)果是：4. (7分)Function F(a As Integer) Static c b = b + 3 c = c + 3 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 5 For i = 1 To 4 Print F(a) Next iEnd Sub寫出程序運(yùn)行時(shí)，單擊命令按鈕在窗體上的輸出結(jié)果。三、閱讀程序題（每小題5分，共20分）1.x=4 y=6x=4 y=12x=4 y=182.4 143 22411141720四、完善程序題（共10分）已知存在一名為“學(xué)生”的SQL Server數(shù)據(jù)庫，其中的“students”數(shù)據(jù)表用來存儲(chǔ)學(xué)生的基本情況信息，包括學(xué)號(hào)、姓名、籍貫、性別。請(qǐng)編寫一個(gè)簡單的應(yīng)用程序，向students表中添加學(xué)生記錄。程序的基本邏輯是：當(dāng)窗體被加載時(shí)，程序聯(lián)接SQL Server數(shù)據(jù)庫；當(dāng)點(diǎn)擊“增加”按鈕時(shí)，首先查詢學(xué)號(hào)是否重復(fù)，如果不重復(fù)則向students表中添加學(xué)生記錄。其運(yùn)行界面如下圖所示。圖1程序如下，請(qǐng)補(bǔ)充完整。聲明對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接Private ADOcn As ConnectionPrivate Sub Form_Load()連接SQL Server數(shù)據(jù)庫Dim strDB As StringstrDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 If ADOcn Is Nothing Then Set ADOcn =2 3 End IfEnd SubPrivate Sub Command1_Click()增加學(xué)生記錄Dim strSQL As StringDim ADOrs As 4 ADOrs. 5 =ADOcnADOrs.Open “Select 學(xué)號(hào) From Students Where 學(xué)號(hào)=”+” “+Text1+” “If Not 6 Then MsgBox “你輸入的學(xué)號(hào)已存在，不能新增加！”Else StrSQL=”Insert Into students (學(xué)號(hào),姓名,籍貫, 性別) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOcn.Execute 7 MsgBox “添加成功，請(qǐng)繼續(xù)！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub四、完善程序題（共10分）1學(xué)生2New Connection3 ADOcn.Open strDB4 New Recordset5 ActiveConnection 6 ADOrs.EOF7 strSQL五、編寫程序題（共15分） 請(qǐng)根據(jù)下列描述編寫購物優(yōu)惠程序。某商場(chǎng)為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；（2）在200元以上者，按九折優(yōu)惠；（3）300元以上者，按八折優(yōu)惠；（4）500元以上者按七折優(yōu)惠。在窗體上添加兩個(gè)文本框和一個(gè)命令按鈕，要求在Text1中輸入購物商品總金額，單擊命令按鈕，在Text2中輸出優(yōu)惠價(jià)。程序運(yùn)行結(jié)果如圖2所示。圖2五、編寫程序題（共15分）參考答案：Private Sub Command1_Click() Dim x As Single, y As Si