VisualBasic程序設計方案考試及答案2

1、Visual Basic 程序設計模擬試題及答案(二)、單項選擇題 (每小題 2 分，共 30 分)1后綴為 bas 的文件表示 VB 的()。A 類模塊文件B 窗體文件C.工程文件D 標準類模塊文件2 無論何種控件，共同具有的屬性是()。B Caption 屬性D Autosize 屬性Mytext ，而且對象有一個屬性Text，那么在代碼中引用該屬性的正確A. Text屬性C Name 屬性3 如果對象的名稱為 格式是 ()。A. Text. Mytext B.Mytext. TextC. Mytext. (Text) D.Mytext*Text( )。4在設計動畫時，用時鐘控件來控制動畫

2、速度的屬性是A EnabledB.IntervalC TimerD Move5要在窗體上顯示“歡迎您！ ”，使用的語句是 ()A Formcaption -”歡迎您！”B Forml caption - “歡迎您！”C Forml. print ”歡迎您！”D Form print “歡迎您！ ”6關于語句行，下列說法正確的是()。A 一行只能寫一條語句B 長度不能超過255個字符C.每行的酋字符必須大寫D 一條語句可以分多行書寫7下列正確的賦值語句是 ()。A x+y= 20B y=x+20C. 3x=y D. s= n *r*r&如果希望以模態(tài)方式顯示窗體Forml，下列正確的語句

3、是()。A. Forml. Show B.Forml. Show 0C. Forml. Show l D .以下都不正確9對于定時器 ( Timer) 控件，設置其定時是否開啟的屬性是 ()。A IndexB TagC Enabled D Left l0 多窗體程序是由多個窗體組成，在缺省情況下， VB 在應用程序執(zhí)行時，總是把 ( 指定為啟動窗體。A .不包含任何控件的窗體B .設計時的第一個窗體C.包含控件最多的窗體D .命名為Frml的窗體11. Dim l As Integer 則運行時變量 I 的初始值是 ()。A0B1C -1 D 空值12. 使用ADO數(shù)據(jù)模型時，建立 Recor

4、dset和Conn ection對象連接的屬性是(A ExecuteB OpenC.ActiveConnection D.CommandType13. 下列關于變量的說法不正確的是()。A .局部變量是指那些在過程中用Dim語句或Static語句聲明的變量R.局部變量的作用域僅限于聲明它的過程C. 靜態(tài)局部變量是在過程中用Staric語句聲明的D. 局部變量在聲明它的過程執(zhí)行完畢后就被釋放了14. 下列數(shù)據(jù)對象模型中采用OLE DB 訪問數(shù)據(jù)庫的是 ()。A DAOBADOC.RDO DRDO 和 ADO15為了在運行時把 d:pic 文件夾下的圖形文件 a.jpg 裝入圖片框 Picture

5、l 中，所使用 的語句為 ()A. Picturel.Text= LoadPicture(a”.jpgd: ”)B. Picturel.Picture =LoadPicture("d: pica.jpg")C. Picturel. Picture =LoadPicture(d:pica.jpg)D. Picturel.Picture =Load( ”dlpica.jpg”)二、填空題(每小題 2 分，共 20分)16.在 VB 中，要想獲得某個相關控件或語句的幫助信息，一般可首先選中該控件 或語句，然后按 鍵17表達式 8+13 Mod 2*4+3 的值是 18.全局變量在

6、整個應用程序中有效，一般在標準模塊中使用 ，語句聲明。19若窗體 Forml 左上角坐標為 (0，600)，右下角的坐標為( 800- 200)。則 X 軸 的正向向 ，Y 軸的正向向 。20將圖片框的 AutoSize 屬性設置成 時可使圖片框根據(jù)圖片調(diào)整大小。21Winsock 控件主要用來編制基于 或協(xié)議的網(wǎng)絡應用程序。22. VB中.Access敷據(jù)庫屬于 .(說明是哪種數(shù)據(jù)庫類型)23VB 應用程序與數(shù)據(jù)庫進行通信的主要機制稱為 24.設某個程序中要用到一個二維散組，要求數(shù)組名為A類型為字符串類型，第一維下標從 l 到 3，第二維下標從 -1 到 2則相應的數(shù)組聲明語句為 25列表框

7、控件中最后一項的序號等于ListCount 屬性減 三、閱讀程序題(共 25 分)閱讀下列程序并寫出程序運行結果26(6 分)Private Sub Command1_Click()Dim Suml As Integer, Sum2 As IntegerSuml = O ：Sum2=2For i =1 T0 2For j=1 To iSum2=Sum2*jNext jSuml = Suml+Sum2Next iPrint SumlEnd Sub 寫出程序運行時單擊 Commandl 按紐后， Forml 上的輸出結果27( 6 分)Privaie Sub Commandl_Click()Do

8、While x<50x=(x+1)*(x+2)n=n+lLoopTextl. Text = Str(n)Text2. Text = Str(x)End Sub 寫出程序：運行時單擊 Commandl 按紐后 textl 和 text2 上的輸出結果。 28(6 分)Private Sub Form_Click()a =3： b=4Print "A=" ； a； "B=" bCall mult(a)Print "A="a ； "B=" bEnd SubPrivate Sub mult(x)x=3+xb=5+bE

9、nd Sub寫出程序運行后，單擊窗體時的輸出結果29. (7 分)Privale Sub CommandI_CLick()Static b As IntegerDim l As IntegerI=1Dob=b+lI=I+lLoop While I<=4Textl. Text=bText2. Text=IEnd Sub寫出程序運行時兩次單擊 Commandl 按紐后，文本框 Text1、 Text2 上的輸出結果四、完善程序題(共 10 分)30假設在 C 盤根目錄中存在一個名為“學生 MDB 的 Access 數(shù)據(jù)庫，其中包含一 張名為“學生基本情況”的數(shù)據(jù)表，表中存放了學生的基本信息，

10、如圖 1 所示?，F(xiàn)在要求利用 VB 編寫一個數(shù)據(jù)庫記錄增加程序， 程序的運行界面如圖 2 所示， 基 本邏輯是：分別在 Textl 、Text2、Text3 中輸入學號、姓名、籍貫信息，然后點擊“保存”按 鈕(Commandl)將該記錄添加到數(shù)據(jù)庫中。如果數(shù)據(jù)庫中已經(jīng)存在相同的學號信息，則程序 應提示用戶 “記錄已存在， 請重新輸入” ，并將焦點置于 Textl 上，等待用戶修改或重新輸入。 當點擊退出按鈕 (Command2) 時關閉本窗體。re 1程序如下，請補充完整.Private Sub Form_Load()1 " Provider = Microsoft. Jet. OL

11、EDB.4.0 ; Dataource =學生.mdb; PersistSecurity lnfo= False"End SubPrivate Sub Comma ndl_Click()Dim strSQL As Stri ng2 -3 = ADOc nDim ADOrs As New RecordsetADOrs. ActiveCo nn ection = ADOc nstrSQL="Select * from 學生基本情況 Where 學號='"+ Textl+"'"ADOrs. Ope n 4lf Not ADOrs .

12、EOF ThenMsgBox "學號已經(jīng)存在，請重新輸入！”，vbOKOnly , ”信息提示”ElseTextl. SetFocusstrSQL="Insert Into學生基本情況(學號，姓名，籍貫) ”srrSQL=strSQL+"Values (”'+Textl+"'，”'+Text2+"',”'+Text3+"')".Execute strSQLMsgBox "添加成功！ ",vbOKOnly,"信息提示”End IfEnd SubPri

13、vate Sub Comma nd2_Click()Un load MeEnd Sub五、編寫程序題(共15分)31.編寫簡單的工資計算程序，要求在 Textl、Text2、Text3中分別輸入基本工資、獎金、 扣款，單擊“計算”按鈕(Commandl)后，首先計算。應發(fā)工資”(Text4)，然后根據(jù)“應發(fā)工資”計算個人所得稅(Text5).最后計算出實發(fā)工資(Text6).(1) 應發(fā)工資=基本工資+獎金-扣款(2) 個人所得稅的計算規(guī)則假設為： 當應發(fā)工資在1000元以內(nèi)部分(含1000元).不扣所得稅， 當應發(fā)工資大干1000，但小于等于4000元時，超過1000元的部分按15%計算所得

14、 稅。 當應發(fā)工資大于 4000.按20%扣稅，程序運行結果如圖3所示。囹3Visual Basic程序設計（二）試題答案及評分標準單項選擇題（每小題2 分，共 30 分）1D2C3B4B5C6D7B8C9C10B11.A12.C13.D14B15B填空題（每小題 2分，共20 分）16F1171618Public19右上20True21TCP/IPUDP22本地數(shù)據(jù)庫23數(shù)據(jù)庫引擎24Dim A(l TO 3,-1 TO 2) As String251三. 閱讀程序置l共25分)26. (6 分)627. (6分)3 18228. (6分)A=3B=4A=6B=429(7 分)10 520 5四. 完善程序題 (共 10 分)30. 1 ADOcn. Open2 Dim ADOrs As New Recordsei3 ADOrs, ActiveConnection4 strsoL5 ADOcn.五. 編寫程序題 (共 15 分)Private Sub Commandl_Click()Text4=Val(Text1)+Val(Text2) - Val(Text3)If Val(Te