basic程序設(shè)計(jì)期末復(fù)習(xí)一-資料下載頁
2025-08-24 08:46本頁面
【導(dǎo)讀】1．能夠改變標(biāo)簽控件顯示標(biāo)題的屬性是（）。，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的（）事件。4．下列4項(xiàng)中合法的變量名是（）。8．可通過下列何種屬性來設(shè)置或返回List列表框控件中當(dāng)前選定項(xiàng)目的索引（）。22．下列數(shù)據(jù)對(duì)象模型中采用OLEDB訪問數(shù)據(jù)庫的是（）。23．下列控件中不能響應(yīng)Click事件的是（）。24．文本框不具備的屬性是（）。3．Left函數(shù)的返回值是。的圖形，原因是沒有對(duì)屬性設(shè)置為1。向，Y軸的正向向。7．語句的含義是。9．Winsock控件主要用來編制TCP/IP或協(xié)議的通話程序。10．程序的運(yùn)行結(jié)果和程序員的設(shè)想有出入時(shí)產(chǎn)生的錯(cuò)誤稱為。望發(fā)送一個(gè)回車鍵，則正確的語句應(yīng)該是。12．Vb應(yīng)用程序與數(shù)據(jù)庫進(jìn)行通信的主要機(jī)制稱為。13．按文件的存取方式，可將文件分為順序文件、和。15．DimaAsString，則運(yùn)行時(shí)變量a的初始值是。20．全局變量在整個(gè)應(yīng)用程序中有效，一般在標(biāo)準(zhǔn)模塊中使用語句聲明。寫出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，文本框Text1和Text2顯示結(jié)果。
【正文】 Private Sub Command1_Click() If = [4] Then [5] Else MsgBox 請(qǐng)先選擇一個(gè)項(xiàng)目 !, vbOKOnly, 信息提示 End If End Sub Private Sub Command2_Click() Unload Me End Sub 10 五、編寫程序題 ，要求單擊“開始”按鈕 (Command1)，在列表框 (List1)中輸出 1~100之間偶數(shù)，單擊清除按鈕 (Command2)，清除文本框中的全部內(nèi)容。程序運(yùn)行結(jié)果如下圖所示。 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%。 程序運(yùn)行界面如下圖所示。 答 案 一、單項(xiàng)選擇題 17． B 18． A 22. C 11 二、填空題 1．工具箱 2． Timer 3． ab 4． 600 5． style 6． 右 上 7． 使服務(wù)程序處于偵聽狀態(tài)，等待客戶訪問 8．用于 向 遠(yuǎn)程主機(jī) 發(fā)出鏈接請(qǐng)求 9． UDP 10．邏輯錯(cuò)誤 11． SendKeys “{Enter}” 12．?dāng)?shù)據(jù)庫引擎 13. 隨機(jī)文件 二進(jìn)制文件 15. (或 空字符串 ) Variant(或變體型 ) 16． 顯示 變體型 (或?qū)懗?Variant 型 ) 17．三角形 18． 1 19． Connection 20． Public 三、閱讀程序題 1． 6 3 2． AAA B 3． 3 42 9 4． 0 4 5． 5 14 6． 4 6 7． 20 10 10 20 四、 完善程序題 1. [1] Set ADO = New Connection [2] [3] New [4] ADO [5] strSQL [6 Not [7] 12 2. [1]Not EOF(1) [2] strtxt [3] Close 1 [4] Open G:\VB\ For Output As 1 [5] Text1 3. [1] KeyAscii As Intege [2]13 [3] Text1 [4]0 [5] 五、編寫程序題 1. Private Sub Command1_Click() Dim i As Integer For i = 200 To 400 If i Mod 2 = 0 Then i End If Next i End Sub Private Sub Command2_Click() End Sub 2． Private Sub Command1_Click() Dim x As Integer, tax As Single x = Val() If x 1000 Then tax = 1000 * Else If x = 3000 Then tax = (x 800) * Else If x = 5000 Then tax = (x 800) * + (x 3000) * Else tax = x * 13 End If End If End If = tax End Sub
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1