basic程序設(shè)計(jì)期末復(fù)習(xí)一-文庫吧在線文庫
【正文】 17． 以 讀 方式打開 D 盤中的 文件，正確的語句是（ ） A． openD:\ For Output As 1 B． open D:\ For Input As 1 C． open D:\ For Input As D． open For Random As 1 18．在 VB 中， Access 數(shù)據(jù)庫屬于（ ） A．本地?cái)?shù)據(jù)庫 B．外部數(shù)據(jù)庫 C．遠(yuǎn)程數(shù)據(jù)庫 D． OLE 數(shù)據(jù)庫 19．當(dāng) Winsock 控件處于關(guān)閉狀態(tài)時(shí)，其 State 屬性的值是 （ ） A． 1 B． 0 C． 2 D． 1 3 20．后綴為 .Vbp 的文件表示 VB 的（ ） A．類模塊文件 B．窗體文件 C．工程文件 D．標(biāo)準(zhǔn)類模塊文件 21．在設(shè)計(jì)動(dòng)畫時(shí)，用時(shí)鐘控件來控制動(dòng)畫速度的屬性是（ ） A． Enabled B． Interval C． Timer D． Move 22． 下列數(shù)據(jù)對(duì)象模型中采用 OLE DB 訪問數(shù)據(jù)庫的是（ ）。 6．若窗體 Form1 左上角坐標(biāo)為 (250,300)，右下角坐標(biāo)為 (350,200)，則 X 軸的正向向 ， Y 軸的正向向 。 14． 假設(shè) ADOrs 為一個(gè) Recordset 對(duì)象，那么從 Table1 表中獲取所有記錄的語句是 ”Select * From Table1”。 三、閱讀程序題 閱讀下列程序并寫出程序運(yùn)行結(jié)果 1． Private Sub Form_Click() Static a As Integer Dim b As Integer a = a+2 b = b+2 Text1=a Text2=b End Sub 寫出程序運(yùn)行時(shí)連續(xù)單擊 三 次窗體后，文本框 Text1和 Text2顯示結(jié)果。 現(xiàn)在要求利用 VB 編寫一個(gè)數(shù)據(jù)庫查詢程序，程序的運(yùn)行界面如圖 2所示，基本邏輯是：首先文本框 (Text1)中輸入希望查詢的學(xué)生學(xué)號(hào)，然后 點(diǎn)擊“查詢”按鈕 (Command1)，如果數(shù)據(jù)庫中存在該學(xué)號(hào)，則分別在 Text Text Text4 中顯示學(xué)號(hào)、姓名、籍貫信息，否則提示用戶“記錄不存在”并使 Text1獲得焦點(diǎn)，要求用戶重新輸入。當(dāng)點(diǎn)擊“打開”按鈕(Command1)時(shí)，程序?qū)? 文件中的內(nèi)容顯示在文本框 (Text1)中，當(dāng)點(diǎn)擊“新建”按鈕(Command2)時(shí)，清空 Text1 中的內(nèi)容；用戶可以在 Text1 中進(jìn)行編輯操作，當(dāng)點(diǎn)擊“保存”按鈕 (Command3)時(shí)，將 Text1 中的內(nèi)容保存在 文件中。 2. 請(qǐng)根據(jù)下列描述編寫財(cái)務(wù)部門征收勞務(wù)酬金所得稅程序，規(guī)定如下： （ 1）收入在 1000 元以內(nèi)，扣稅 3%； （ 2）收入在 10003000 元內(nèi)， 800 元以上部分扣稅 15%， （ 3）收入在 30005000元內(nèi)， 3000 元以內(nèi)按（ 2）的方法扣稅， 3000 元以上部分，扣稅 20%， （ 4）當(dāng)收入達(dá)到 5000 元以上，扣稅 25%。要求從文本框 (Text1)中輸入姓名，然后按“回車”鍵，把姓名添加到列表框 (List1)中；當(dāng)選擇列表框 中某一項(xiàng)后，按“刪除”按鈕 (Command1)，則從列表框中刪除該項(xiàng)。Data Source=c:\學(xué)生 .MDB End Sub Private Sub Command1_Click() Dim strSQL As String Dim ADOrs As [3] Recordset = [4] strSQL = Select * From 學(xué)生基本情況 Where 學(xué)號(hào) = + 39。 5． Private Sub Form_Click() Dim i As Integer, k As Integer k = 0 For i = 1 T
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1