(電大復(fù)習(xí))《Visual Basic程序設(shè)計》課程期末復(fù)習(xí)

Visual Basic 程序設(shè)計 課程 期末復(fù)習(xí) 一、單項選擇題 1. 如果要 設(shè)置 窗體的標(biāo)題欄，應(yīng)選擇 （ B ） 屬性 。 A Visible B Caption C Name D Text 2. 要使命令 按鈕不響應(yīng)用戶生成的事件 ，應(yīng)設(shè)置命令按鈕的 （ D ） 屬性。 A Visible B Caption C Enable D Enabled 3. 要使 標(biāo)簽 能透出窗體的背景，應(yīng)設(shè)置標(biāo)簽的 （ A ） 屬性。 A BackStyle B BorderStyle C Appearance D BackColor 4. 以下控件中， （ A ） 控件 不會 影響到界面設(shè)計效果。 A 計 時器 B 文本框 C 標(biāo)簽 D Line控件 5. 在 Visual Basic中，一般 （ B ） 屬性用來設(shè)置字體的顏色。 A FontColor B ForeColor C BackColor D ShowColor 6. 在 VB 中斷模式下，可用調(diào)試窗口監(jiān)視表達(dá)式和變量的值 ， 其中在 （ A ） 窗口中可以直接鍵入命令以顯示命令所請求的信息。 A立即 B.監(jiān)視 C.本地 D.中斷 7. 某 計時器 控件的 interval屬性為 0時，表示（ A ）。 A 計時器 關(guān)閉計時 C Timer事件的 間隔時間為 0毫秒 B Timer事件的 間隔時間為 0秒 D 計時器啟動計時 8. 在 窗體 Form1的 Click事件過程中有以下語句： Label1.Caption=Visual Basic 若本語句執(zhí)行之前，標(biāo)簽控件的 Caption 屬性為默認(rèn)值，則標(biāo)簽控件的 Name 屬性和 Caption 屬性在執(zhí)行本語句之前的值分別為（ B ） 。 A Label和 Label B Label1和 Label1 C Label1和 Visual Basic D Label和 Caption 9. （ C ） 控件不具有 Caption屬性。 A Label B Form C TextBox D CommandButton 10. 改變控件在窗體中的上下位置，應(yīng)設(shè)置控件的（ A ）屬性。 A Top B Left C Width D Right 11. 文本框 中選定的內(nèi)容，由下列（ C ）屬性反映。 A Text B Caption C Seltext D SelLenght 12. 在 Visual Basic中，變量的默認(rèn)類 型是（ D ）。 A String B Integer C Double D Variant 13. 假設(shè) 已定義 Integer變量 x、 y，則以下賦值語句正確的是（ C ）。 A x + 1 = y B x := y C y = x + y D 1 = x 14. 、 /、 Mod、 *四個算術(shù)運算符中，優(yōu)先級別最低的是（ C ）。 A B / C Mod D * 15. 下列 哪組語句可以將變量 A、 B值互換（ B ）。 A A=C : C=B : B=A B A=A+B : B=A B: A=A B C A=B : B=A D A=(A+B)/2 : B=(A - B)/2 16. 以下語句的輸出結(jié)果是（ C ）。 Print Format (32548.5,“ 000,000.00” ) A 32548.5 B 32,548.5 C 032,548.50 D 32,548.50 17. 表達(dá)式 4+5 6 * 7 / 8 Mod 9 的值是 （ B ） 。 A 4 B 5 C 6 D 7 18. 函數(shù) Int(Rnd*10)是在 （ C ） 范圍內(nèi)的整數(shù) 。 A（ 0, 10） B (0,10 C 0, 10） D 0, 10 19. 下面（ A ）運算符 是算 術(shù) 運算符 。 A Mod B Like C And D Not 20. 已知三個變量 A、 B、 C，判斷 A、 B、 C能否構(gòu)成三角形的邏輯表達(dá)式為（ B ）。 A A = B And B = C And A = C B A + C = B And A + B = C And B + C = A C A + C = B Or A + B = C Or B + C = A D A + C = B And A + B = C Or B + C = A 21. 下面程序段運行后，顯示的結(jié)果是（ B ）。 Dim intX As Integer If intX Then Print intX Else Print intX + 1 End If A 0 B 1 C 2 D不一定 22. 以下程序的輸出結(jié)果是（ C ）。 Dim a, i%, sum% a = Array(4, 3, 2, 1) For i = 0 To 3 sum = sum + a(i) Next i Print sum A 4 B 6 C 10 D不一定 23. 在過程中定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應(yīng)使用（ D ）關(guān)鍵字在過程中定義局部變量。 A Dim B Public C Private D Static 24. 能通過（ D ）來刪除列表框中的選擇項。 A List 屬性 B Text 屬性 C Clear方法 D RemoveItem方法 25. ListBox中若沒有 任何 條目選中，其 ListIndex屬性 值為（ A ）。 A -1 B 0 C 1 D任意 26. 可通過（ C ）屬性判斷 ListBox列表框控件的項目總數(shù)目。 A ListIndex B ListText C Listcount D隨機(jī)數(shù) 27. 列表框的（ B ）屬性 用于 返回或設(shè)置列表框中各列表項的文本。 A Selected B List C Text D Caption 28. 設(shè) List1為列表框控件， List1.Clear中的 Clear是（ A ）。 A方法 B對象 C屬性 D 事件 29. 以下（ D ）語句將刪除列表框 List1中的最后一項。 A List1.RemoveItem List1.ListCount B List1.Clear C List1.List(List1.ListCount-1)= D List1.RemoveItem List1.ListCount-1 30. 若要把 “ XXX” 添加到列表框 List1中的第三項，則可執(zhí)行語句（ B ）。 A List1.AddItem XXX, 3 B List1.AddItem XXX, 2 C List1.AddItem 3,XXX D List1.AddItem 2,XXX 31. 用戶可以通過設(shè)置菜單項的（ C ）屬性值為 False來使該菜單項失效。 A Hide B Visible C Enabled D Checked 32. 用戶可以通過設(shè)置菜單項的（ B ）屬性值 設(shè)置 為 False來使該菜單項不可見。 A Hide B Visible C Enabled D Checked 33. 菜單編輯器中，同層次的（ B ） 屬性值 設(shè)置為相同，才可以設(shè)置索引值。 A Caption B Name C Index D ShortCut 34. 每創(chuàng)建一個 頂級 菜單，它的下面最多可以有（ C ）級子菜單。 A 1 B 3 C 5 D 6 35. 在設(shè)計菜單時，為了創(chuàng)建分隔欄，要在（ B ）中輸入字符（ -）。 A名稱欄 B標(biāo)題欄 C索引欄 D顯示區(qū) 36. 如果要在 程序 中顯示一個彈出菜單， 需 調(diào)用 （ D ） 方法。 A Print B Move C Refresh D PopupMenu 37. 當(dāng)單擊 工具欄 上的按鈕，會觸發(fā)的事件是（ A ）。 A ButtonClick B Change C Load D KeyPress 38. 下列可以 用來 存儲圖像可以供其它控件使用的控件是（ C ）。 A ToolBar B StatursBar C ImageList D TreeView 39. 在 Visual Basic中按文件的訪問方式不同，可以將文件分為（ B ）。 A 文本文件 和數(shù)據(jù)文件 B順序文件、隨機(jī)文件和二進(jìn)制文件 C ASCII文件和二進(jìn)制文件 D數(shù)據(jù)文件和可執(zhí)行文件 40. 檢測文件 是否 結(jié)束的函數(shù)是（ C ）。 A LOF() B Len() C EOF() D Chr() 41. 要讀出 C盤根目錄下的 順序文件 stud.txt 中的內(nèi)容，下列打開方式中（ C ）是正確的。 A Open C:stud.txt For Append As #1 B Open C:stud.txt For Random As #1 C Open C:stud.txt For Input As #1 D Open C:stud.txt For Output As #1 42. 隨機(jī)文件 使用（ C ）語句寫數(shù)據(jù)。 A Input# B Write # C Put D Get 43. 隨機(jī)文件使用（ D ）語句讀數(shù)據(jù)。 A Input# B Write # C Put D Get 44. 程序運行 時， 驅(qū)動器 列表框 下列（ A ）屬性能返回磁盤驅(qū)動器的名稱。 A Drive B DriveName C Chgdrive D Drives 45. 要用通用對話框控件顯示標(biāo)準(zhǔn)的“字體”對話框，應(yīng)調(diào)用其（ C ）方法。 A ShowOpen B ShowColor C ShowFont D ShowSaveas 46. 改變 驅(qū)動器 列表框的 Drive屬性值將激活 其 （ A ）事件。 A Change B Scroll C KeyDown D KeyUp 47. 使用 目錄 列表框的（ B ）屬性可以返回或設(shè)置當(dāng)前工作目錄的完整路徑（包括驅(qū)動器盤符）。 A Drive B Path C Dir D ListIndex 48. 在 隨機(jī)文件 中（ D ）。 A記錄的 內(nèi)容 是隨機(jī)產(chǎn)生的 B記錄的長度是任意的 C記錄號是 通過 隨機(jī)數(shù)產(chǎn)生的 D可以通過記錄號隨機(jī)讀取記錄 49. 執(zhí)行語句 Open C： Stud.txt For Input As #2后，系統(tǒng)（ C ）。 A將內(nèi)存 數(shù)據(jù) 存放在 C盤當(dāng)前文件夾下名為 Stud.txt 的文件中 B將某個 磁盤文件 的內(nèi)容寫入 C盤當(dāng)前文件夾下名為 Stud.txt 的文件中 C打開 C盤當(dāng)前文件夾下名為 Stud.txt 的 文件，用來讀取文件內(nèi)容 D在 C盤 當(dāng)前 文件夾下建立名為 Stud. txt 的順序文件 50. 下面 對象中不能作為容器的是（ B ）。 A窗體 B Image控件 C PictureBox控件 D Frame控件 51. 要向 圖片 框 picP 中加載“ d:hainanzhiwu.bmp”圖像文件，應(yīng)使用語句（ C ）。 A Picture1.Picture= d:hainanzhiwu.bmp B Picture1.Picture=LoadPicture(d:hainanzhiwu.bmp) C picP.Picture=LoadPicture(d:hainanzhiwu.bmp) D picP.Picture=LoadPicture(d:hainanzhiwu.bmp) 52. 執(zhí)行 Form1.Scale（ 0, 10） -（ 10, -10）語句后， Form1 窗體坐標(biāo)系 x軸和 y 軸的正方向是（ A ）。 A向右和 向上 B向左和向下 C向右和 向下 D向左和向上 53. 下列圖形中不能使用 Shape控件繪制的是（ B ）。 A矩形 B三角形 C正方形 D橢圓 54. Line（ 100， 100） -Step（ 400， 400）將在窗體中的（ C ）畫一條直線。 A（ 200， 200）到（ 400， 400） B（ 100， 100）到（ 300， 300） C（ 100， 100）到（ 500， 500） D（ 100， 100）到（ 400， 400） 55. RGB 函數(shù) 通過紅、綠、藍(lán)三基色混合產(chǎn)生某種顏色，若使用三個滾動條分別輸入三種基色，為保證輸入數(shù)值有效，則應(yīng)設(shè)置 滾動條的 （ A ）屬性。 A Max和 Min B Smallchange和 LargeChange C Scroll和 Change D Value 56. 如果在圖片框上使用 繪圖 方法繪制一個圓，則圖片框的（ B ）屬性決定了該圓的顏色。 A BackColor B ForeColor C FillColor D DrawStyle 57. 鍵盤事件的執(zhí)行順序是（ B ）。 A KeyPress， KeyDown， KeyUp B KeyDown， KeyPress， KeyUp C KeyUp， KeyDown， KeyPress D KeyUp， KeyPress， KeyDown 58. ADO控件屬于 ActiveX 控件，使用之前必須 加載 Microsoft ADO Data Conctrol 6.0（ OLE DB） ，將 ADO 控件 添加到工具箱中 。 添加ADO控件的菜單為（ B ）。 A“工程”“引用” B“工程”“部件” C“工具”“選項” D“工程”“添加文件” 59. 利用 ADO訪問數(shù)據(jù)庫 ，首先要創(chuàng)建一個（ A ）對象，用于建立和數(shù)據(jù)庫的連接。 A Connection對象 B Recordset 對象 C Command對象 D Object 對象 60. SQL語言的 Select 語句中，用于分組的語句為（ B ）。 A where B group by C order by D having 61. 以下四個控件，不屬于數(shù)據(jù)綁定控件的是（ C ）。 A Text 控件 B DataGrid控件 C Option控件 D Label控件 62. 決定系統(tǒng)是否自動檢測多媒體控件（ MMControl）各按鈕的狀態(tài)的屬性是（ B ）。 A Enable B AutoEnable C PlayEnabled D以上答案都不正確 63. 將多媒體控件（ MMControl）的 Frames 屬性設(shè)為 3，則以下敘述正確的是（ A ）。 A指定 Back或 Step 命令后退或前進(jìn)的幀數(shù)都為 3 B只有 Back命令 后退 的幀數(shù)為 3 C只有 Step 命令 前進(jìn) 的幀數(shù)為 3 D后退或前進(jìn)的幀數(shù)都為 6 64. 多媒體控件（ MMControl）具有一組執(zhí)行 MCI命令的下壓式按鈕。其中 Record按鈕 表示為（ B ）。 A前一首 B錄制 C彈出 D播放 65. 為了使多媒體控件（ MMControl）中的錄制按鈕不顯示，應(yīng)添加代碼（ C ）。 A MMControl1.Visible= False B MMControl1.Visible= True C MMControl1.RecordVisible= False D MMControl1.RecordVisible= True 66. 在多媒體控件（ MMControl）中， DeviceType 屬性用于設(shè)置多媒體設(shè)備的類型，如果將要播放 的文件是 CD 歌曲，應(yīng)將 DeviceType屬性設(shè)置為（ D ）。 A DigitalVideo B WaveAudio C AVIVideo D CDAudio 67. Windows Media Player控件的 UiMode屬性，表示播放器界面模式，以下選項是播放器模式的屬性值是（ D ）。 A Full B Mini C None D以上都是 68. 在 Windows Media Player控件中，決定播放文件是否全屏的屬性是（ A ）。 A FullScreen B Full C Screen D stretchToFit 二、填空題 1. 數(shù)學(xué)表達(dá)式 cox2x+ 2221 yx 寫成等價的 Visual Basic表達(dá)式為 cos(x)2+Sqr(x2-y2)/2 。 2. 數(shù)學(xué)表達(dá)式 050cos10 寫成等價的 Visual Basic表達(dá)式為 10(1/2)*cos(50*3.14/180) 或者 Sqr(10)*cos(50*3.14/180) 。 3. 數(shù)學(xué)式子 )()( csbsass 對應(yīng)的 Visual Basic運算表達(dá)式是 ： Sqr(s*(s-a)*(s-b)*(s-c) 。 4. 將 1 x =1 And xb and Not ca Or cb And c sngMax Then sngMax = MarkArray(i) Next i Max_Mark = sngMax End Function 該程序是一個求最大值的函數(shù)。 以 一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著逐個比較，求出數(shù)組元素的最大值。 7. 閱讀以下程序，寫出其功能。 Public Function Pass_Mark(MarkArray() As Single) As Single Dim intCount As Integer, i As Integer , n As Integer intCount = 0 n = UBound(MarkArray) For i = 0 To n if MarkArray(i) = 60 Then intCount = intCount + 1 Next i Pass_Mark = intCount / n End Function 該 函數(shù)的功能 是求 一組數(shù)中大于等于 60的數(shù)的比例 。 以 一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著逐個比較，求出數(shù)組元素 中大于等于 60的數(shù) 的 個數(shù)，最后求出其比例。 8. 閱讀以下程序，寫出其功能。 Private Sub Sort_Mark(MarkArray() As Single) Dim sngMtemp As Single Dim i As Integer , n As Integer , k As Integer,j As Integer n = UBound(MarkArray) For i = 0 To n 1 k = i For j = i + 1 To n If MarkArray(j) MarkArray(k) Then k = j Next j sngMtemp = MarkArray(k) MarkArray(k) = MarkArray(i) MarkArray(i) = sngMtemp Next i End Sub 該 過程 的功能是 把 一組數(shù) 按從大到小排序 。 以 一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著逐個比較，求出數(shù)組元素中 的最大值和第一個元素交換位置； 求出次大值和第二個元素交換位置；依次類推，完成從大到小排序。 9. 閱讀以下程序，寫出其功能。 Private Sub changecolor() Dim r As Integer , g As Integer, b As Integer Dim x As Long hsbRed、 hsbGreen和 hsbBlue為水平滾動條 hsbRed.Min=0: hsbGreen.Min=0 : hsbBlue.Min=0 hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255 r = hsbRed.Value g = hsbGreen.Value b = hsbBlue.Value x = RGB(r, g, b) frmMain.BackColor = x End Sub 該過程的功能是 用紅色、綠色、藍(lán)色三個滾動條調(diào)節(jié)窗體底色。先把紅色、綠色、藍(lán)色三個滾動條的 Min 屬性設(shè)置為 0、Max屬性設(shè)置為 255，接著用取出三個滾動條的 Value屬性值，用 RGB函數(shù)產(chǎn)生一個由紅、綠、藍(lán) 三個 Value屬性值混合而成的 新 顏色，并作為窗體底色。 10. 閱讀以下程序，寫出其功能。 Public ADOcn As Connection Public Sub Main() Dim strAccess As String strAccess=Provider=Microsoft.Jet.OLEDB.4.0；Data Source=d: xs.mdb If ADOcn Is Nothing Then Set ADOcn = New Connection ADOcn.Open strAccess End If frmMain.Show frmMain為 窗體 End Sub 該段程序的功能是 建立數(shù)據(jù)庫的連接。實現(xiàn)與 D 盤根目錄下的文件名為 xs.mdb 的 Access 數(shù)據(jù)庫的連接，同時顯示 frmMain窗體。 11. 閱讀 以下程序，寫出其功能。 Public ADOcn As Connection Public ADOrs As New Recordset Private Sub cmdAdd_Click() Dim strSQL As String 文本框 txtNo、 txtName和組合框 cboSex、 cboClass 分別 用來輸入學(xué)號、 姓名、 性別和 班級 strSQL = select * from 學(xué)生表 where 學(xué)號 = + txtNo.Text + ADOrs.Open strSQL, ADOcn If Not ADOrs.EOF Then MsgBox 該記錄已經(jīng)存在，不能繼續(xù)增加！ , vbCritical + vbOKOnly ADOrs.Close Exit Sub End If strSQL = insert into 學(xué)生表 (學(xué)號 ,姓名 ,性別 ,班級 ) strSQL = strSQL + values( + txtNo.Text + , + txtName.Text + , strSQL = strSQL + + cboSex.Text + , txtClass.Text + ) ADOcn.Execute strSQL End Sub 該段程序的功能是把一個學(xué)生記錄插入到學(xué)生表中。 首先查找數(shù)據(jù)表中是否存在文本框 txtNo 中輸入的學(xué)號，如果存在則不增加；如果不存在，則把該學(xué)生的信息記錄插入學(xué)生表中 。 四、程序設(shè)計題 1. 編寫 一個 程序。 程序初始界面如 圖 1 左圖所示 ，設(shè)“學(xué)習(xí)目的”、“學(xué)習(xí)方法”和“退出”命令按鈕的名稱定義為 cmdAim、 cmdWay和 cmdExit， 標(biāo)簽控件 的名稱定義為 lblContent。 單擊“學(xué)習(xí)目的”按鈕，顯示如圖 1 的中圖所示；單擊“學(xué)習(xí)方法”命令按鈕，顯示如 圖 1的 右圖所示；單擊“退出”按鈕時，退出程序。 圖 1 Private Sub cmdAim_Click() lblContent.Caption = 開發(fā) Windows 應(yīng)用程序 End Sub Private Sub cmdWay_Click() lblContent.Caption = 從實際應(yīng)用程序的開發(fā)過程中學(xué)習(xí) VB End Sub Private Sub cmdExit_Click() End End Sub 2. 設(shè)計一個簡單的加法程序，程序界面設(shè)計如 圖 2所示 。 設(shè) 第一操作數(shù)、第二操作數(shù) 和計算結(jié)果文本框的名稱 分別 定義為 txtFirstNum、txtSecondNum和 txtSum， “ 計算 ”命令按鈕的名稱定義為 cmdSum。 圖 2 Private Sub cmdSum_Click() txtSum.Text = Val(txtFirstNum.Text) + Val(txtSecondNum.Text) End Sub 3. 編寫一個 數(shù)制 轉(zhuǎn)換程序，運行界面如圖 3所示 。 設(shè)三個文本框的名稱框定義分別為 TxtDec、 TxtHex和 TxtOct。 實現(xiàn)在第一個文本框中輸入十進(jìn)制數(shù)后，第二個文本框自動顯示該數(shù)對應(yīng)的十六進(jìn)制數(shù)，第三個文本框自動顯示該數(shù)對應(yīng)的八進(jìn)制數(shù)。提示：利用文本框的 Change事件和轉(zhuǎn)換函數(shù) Hex、 Oct。 圖 3 Private Sub TxtDec_Change() TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text = Oct(Val(TxtDec.Text) End Sub 4. 編寫一個猜數(shù)字程序。 程序產(chǎn)生一個隨機(jī)數(shù)，由用戶來猜這個數(shù)，并提示用戶猜的數(shù)是否太大或太小，程序運行界面如 4所示 ，設(shè)輸入文本框的名稱框定義為 TxtAnswer， 神秘的數(shù)、評價標(biāo)簽控件的 名稱框定義為 lblComment 和 lblNum， “確定”命令按鈕的名稱定義為 cmdOk。 圖 4 Dim intNum As Integer 用于 存放“神秘的數(shù)” Dim intCount As Integer 用于猜數(shù)計數(shù) Private Sub cmdOk_Click() intCount = intCount + 1 計數(shù) If Val(txtAnswer.Text) = intNum Then 猜對 lblComment.Caption = 猜對了！你一共猜了 & intCount & 次 lblNum.Caption = intNum ElseIf Val(txtAnswer.Text) intNum Then lblComment.Caption = 太大了 ！ Else lblComment.Caption = 太小了！ End If End Sub Private Sub Form_Load() Randomize intNum = Int(Rnd * 1000 + 1) End Sub 5. 編寫一個判斷閏年的 程序 。判斷平年、閏年方法：凡是能被 4整除但不能被 100整除的年份為閏年，如 1980年； 凡是 能被 400整除的年份為閏年，如 2000年；除以上兩種情況以外的其余年份都是平年。 Private Sub Command1_Click() Dim intYear As Integer 用于存放年份 intYear = InputBox(請輸入年份 ) If intYear Mod 400 = 0 Or (intYear Mod 4 = 0 And intYear Mod 100 0) Then MsgBox intYear & 年是閏年 Else MsgBox intYear & 年是平年 End If End Sub 6. 編寫 一 個列表框應(yīng)用程序，程序界面如圖 5所示 。 設(shè)“添加”、“刪除”和“修改”按鈕的名稱定義為 cmdAdd、 cmdDel和 cmdUpdate，列表框和文本框的名稱為默認(rèn) 。要求從文本框輸入姓名，然后按“添加”按鈕把姓名添加到列表框中；當(dāng)選擇列表框中某一項時，按“刪除”按鈕，從列表框中刪除；當(dāng)選擇列表框中某一項時，按“修改”按鈕，把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認(rèn)”。在文本框的內(nèi)容修改好后，按“修改確認(rèn)”按鈕，再把文本框中修改的信息送到 列表框 且“修改確認(rèn)”按鈕變?yōu)椤靶薷摹薄?圖 5 Private Sub cmdAdd_Click() List1.AddItem Text1.Text Text1.Text = End Sub Private Sub cmdDel_Click() List1.RemoveItem List1.ListIndex Text1.Text = End Sub Private Sub cmdUpdate_Click() If cmdUpdate.Caption = 修改 Then Text1.Text = List1.List(List1.ListIndex) cmdUpdate.Caption = 確認(rèn)修改 Else List1.List(List1.ListIndex) = Text1.Text cmdUp