Basic程序設計形成性考核3

1、Visual Basic 程序設計形成性考核 3班級學號姓名 成績.是面向對象的編程語言 是面向過程的程序設計語言 ）。C. .cabD3. 在新建一個“標準A.列表框C.驅動器列表框4. 設窗體的名稱為 名稱是（ ）。A. Form1_Click（）C. Form_Click（）5. 對于定時器（ Timer ） A. Index B6. 在 Visual BasicA. .frmC. .clsD7. 有程序代碼如下：Text1.Text = ". .ocxEXE工程后,B）。不在工具箱中出現(xiàn)的控件是（.通用對話框.圖片框Forml,則在程序運行過程中，單擊窗體時，被執(zhí)行的事件過程

2、的中，B. Form1_DbClick（）D. Form_DbClick（）控件 , 設置其定時是否開啟的屬性是（ Tag C . Enabled D 工程文件的擴展名為（. .vbp. .bas歡迎走進VB世界！ ”）。）。. Interval一、單項選擇題1在下列有關 Visual Basic 的敘述中，錯誤的是（ ）。A. 米用了事件驅動的編程機制BC.是可視化的程序設計語言D2. 應用程序打包后，其包文件的后綴為（. .txtA. .exe則Textl , Text，和"歡迎走進VB世界！"分別代表（）。A. 對象，值，屬性B .對象，屬性，值C.對象，方法，屬性D

3、 .屬性，對象，值8. 以下敘述中正確的是（）。A. 窗體的Name屬性指定窗體的名稱，用來標識一個窗體B. 窗體的Name屬性的值是顯示在窗體標題欄中的文本C. 可以在運行期間改變對象的Name屬性的值D. 對象的Name屬性值可以為空9. VB 提供了結構化程序設計的三種基本結構是（）。A. 選擇結構、過程結構、順序結構B. 選擇結構、循環(huán)結構、順序結構C. 過程結構、轉向結構、遞歸結構D. 遞歸結構、選擇結構、循環(huán)結構10 .在VB中，下列變量名不合法的是（）。11下列說法中正確的是（）。為了保存一個 Visua Basic 應用程序，應當A.只保存窗體文件B. 只保存工程文件C. 分別

4、保存工程文件和標準模塊文件D. 分別保存工程文件、窗體文件和標準模塊文件12確定一個控件在窗體上的位置的屬性是A. Width 或 HeightBC. Top 和 LeftD13確定一個窗體或控件的大小的屬性是（A Width 或 HeightC. Top 或 LeftD)。 Width 和 Height Top 或 Left)B Width 和 Height Top 和 Left）。A.第一個添加的窗體B 最后一個添加的窗體14當一個工程含有多個窗體時，其中的啟動窗體是（C.包含控件最多的窗體D .在“工程屬性”對話框中指定的窗體15在一個語句行內(nèi)寫多條語句時，語句之間應該用（）分隔。A 逗

5、號B冒號C.頓號D.分號16要設置命令按鈕的背景圖形，必須設置的兩個屬性是（）。A. Style 和 PictureB. Style 和 IconC. Caption 和 PictureD. Value 和 Icon17 目錄列表框的 Path 屬性的作用是（ ）。A 顯示當前驅動器或指定驅動器上的某目錄下的文件名B 只顯示當前路徑下的文件C 顯示根目錄下的文件名D 顯示當前驅動器或指定驅動器上的路徑18 將數(shù)據(jù) " China" 項添加到列表框A List1.AddItem 0, " China"C List1.AddItem " China

6、" ,019 要繪制多種形狀的圖形，需要設置A、 StyleC、 FillStyleD20 下列可以把當前目錄下的圖形文件List1 )中成為第一項應使用的語句是(BList1.AddItem 1, " China"DList1.AddItem " China" ,1Shape 控件的()屬性。、 Borderstyle、 Shapepic1.jpg 裝入圖片框 Picture1 中的語句為）。)。A Picture1=" pic1.jpg "B Picture1 =LoadPicture("pic1.jpg&qu

7、ot;)C Picture 1.Picture=LoadPicture("pic1.jpg")D Picture 1.Picture=LoadPicture("pic1 ")21 如果要在窗體代碼編輯器的”通用”部分定義私有Sub 過程，則正確的語句是）。A Public SubPrivate SubC Public FunctionPrivate Function22 不屬于VB數(shù)據(jù)庫引擎的是（）。A ODBC B . BDE C . Jet 引擎 D . OLEDB23.在VB應用程序中，進行斷點設置的按鍵是（）。A Ctrl+F9 鍵B . F9

8、鍵C. Ctrl+F8 鍵D . F8 鍵24 .如果準備讀文件，打開順序文件”text.dat ”的正確語句是（）。A ope n"text.dat"For wrire As # 1B. ope n"text.dat"For Bin ary As # 1C. ope n"text.dat"For In put As # 1D. ope n"text.dat"For Ra ndom As # 125 .使用ADC對象模型時，使Recordset和Conn ection對象建立連接的屬性是 （）。A . OpenB.

9、 ExecuteC . Comma ndTypeD . ActiveC onn ecti on26.使用ADC對象模型時，使Recordset和Conn ection對象建立連接的屬性是 （）。A . OpenB. ExecuteC. Comma ndTypeD . ActiveC onnection27 .在VB中，一旦數(shù)據(jù)到達，將首先觸發(fā)Win sock控件的（A. DataArrival 事件C. DataSend 事件B . Connection Request 事件 D. GetGet 事件）.僅設置所用端口.返回或設置IP地址28 . Win sock控件的LocalPort 屬性

10、的作用是A .僅返回所用斷口BC.返回或設置所用端口D二、填空題1 .每個應用程序必須有一個惟一的 文件。2. 窗體文件和類模塊文件的擴展名分別是 和3. 表達式 6 + 15 2 * 2 Mod 2 的值是。4. 表達式172-2A3*5MOD6的值是 。5 .計時器控件響應的事件是 。6. 在 Visual Basic中，變量的默認類型是 。7. 為了在運行時把當前路徑下的圖形文件show.jpg裝入圖片框 P1，所使用的語句為。&設某個程序中要用到一個二維數(shù)組，要求數(shù)組名為A,類型為整型，第一維下標從 0到2,第二維下標從1到3，則相應數(shù)組聲明語句為 。9. 用Dim A（-2

11、to 3）語句聲明二維數(shù)組后，數(shù)組A的元素共有 個。10. VB中參數(shù)傳遞的機制有兩種，一種是 參數(shù)，另一種是參數(shù)。11. 控件數(shù)組的名字由 屬性指定，而數(shù)組中的每個元素由 屬性決定。12 .若窗體的左上角坐標為（-200, 250）,右下角坐標為（300, -150 ）,則X軸的正向向, Y軸的正向向。13 .窗體、圖片框或圖像框中的圖形通過對象 屬性。14 .在VB中，將Foxpro稱為外部數(shù)據(jù)庫，Access稱為, SQLServer稱為。15. vb應用程序與數(shù)據(jù)庫進行通信的主要機制稱為 。16. 全局變量必須在 模塊中定義，所使用的關鍵字為 。17. 全局變量是指那些中有效的變量，一

12、般在模塊代碼編輯器的頂部使用聲明。18 . Win sock控件主要用來編制或協(xié)議的網(wǎng)絡應用程序。三、閱讀程序題(共 25分)閱讀下列程序并寫出程序運行結果1.Private Sub Comma nd1_Click()Dim x As In tegerStatic s As In tegerx = Val(I nputBox("請輸入一個正整數(shù)=")If x < 5 The ns = s * xElses = s + xEnd IfText1.Text = "s=" & Str(s)End Sub程序運行時連續(xù) 3次單擊Command,1且

13、設輸入的數(shù)據(jù)為6、5、4時，分別寫出文本框Text1的值。2.Private Sub Form_Click()Static a As In tegerDim b As In tegera = a + 3b = b + 4Text1 = aText2 = bEnd Sub寫出程序運行時連續(xù)單擊三次窗體后，文本框 Text1和Text2顯示結果。3.Private Sub Form_Click()Dim A(1 To 3) As Stri ngDim c As In teger, j As In tegerA(1) = "2"A(2) = "4"A(3) =

14、 "6"c = 2Forj = 1 To 3c = c + Val(A(j)Next jPrint c End Sub寫出程序運行時單擊窗體后， Form1 上的輸出結果。4.Private Sub Form_Click() n = 0 For i = 1 To 2For j = 2 To 4If j Mod 2 <> 0 Thenn = n + 1End If n = n + 2Next jNext iPrint nEnd Sub 寫出程序運行時單擊窗體后，窗體Form1 上的輸出結果。5.Private Sub Command1_Click()Dim a A

15、s Integer, b As Integera = 2: b = 3For i = 1 To 3For j = 1 To i b = b + j Next j a = a + bNext iPrint a End Sub 寫出程序運行時單擊命令按鈕后，窗體 Form1 上的輸出結果。Private Sub Form_Click() Dim A(1 To 4) As String Dim c As Integer Dim j As IntegerA(1) = "4"A(2) = "6"A(3) = "8"6.A(4) = "

16、10"c = 1For j = 1 To 4c = c + Val(A(j)Next jPrint cEnd Sub 寫出程序運行時單擊窗體后，窗體Form1 上的結果。7.Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tPrint x, yEnd SubPrivate Sub Form_Click()Dim a As Integer, b As Integera = 10: b = 20Change a, bPrint a, bEnd Sub寫出程序運行時單擊窗

17、體后， Form1 上的輸出結果。8.Function F(n As Integer) As LongDim i As Integer, Temp As LongTemp = 1For i = 1 To nTemp = Temp * iNext iF = TempEnd FunctionPrivate Sub Form_Click()Dim k As Integer, nj As Integerk = 5nj = F(k)Print k; "！ =" njEnd Sub寫出程序運行時，單擊窗體 Form1 上的輸出結果。四、完善程序題（共 10分）1.已知存在一名為&quo

18、t;學生”的SQLServer數(shù)據(jù)庫，其中的"students ”數(shù)據(jù)表用來存儲學生的基本情況信息，包括學號、姓名、籍貫、性別。請編寫一個簡單的應用程序，向 stude nts表中添加學生記錄。程序的基本邏輯是：當窗體被加載時，程序聯(lián)接SQL Server數(shù)據(jù)庫；當點擊“增加”按鈕時，首先查詢學號是否重復，如果不重復則向students表中添加學生記錄。其運行界面如圖1所示。増抑學生記錄圖1程序如下，請補充完整。'聲明對象變量ADOcr，用于創(chuàng)建與數(shù)據(jù)庫的連接Private ADOc n As Conn ectionPrivate Sub Form_Load()'連接

19、SQL Server數(shù)據(jù)庫Dim strDB As Stri ngstrDB = "Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1"If ADOcn Is Nothing Then2_3LEnd IfEnd SubPrivate Sub Comma nd1_Click()'增加學生記錄Dim strSQL As Stri ngDim ADOrs As 5=ADOcnADOrs.Open “Select 學號 From Students Where學號=” +” “ +Text1 +The nMsgBox “你輸入的學號已存在，不能新增加！”ElseStrSQL=” Insert Into students ( 學號,姓名”籍貫，性別) StrSQL=strSQL+Values(” +”“ +text1+ ” ,“ +text2+ ”,'“ +text3+ ”', '“ +text4+ ”') ”ADOrs.Execute 7MsgBox “添加成功，請繼續(xù)！”End IfPrivate Sub Comma nd2_Click()Un load MeEnd Sub