2015年1月VisualBasic程序設(shè)計(jì)試題和答案

1、2015 年 1 月廣東省高等教育自學(xué)考試 Visual Basic 程序設(shè)計(jì)試題課程代碼 07759 )一、單項(xiàng)選擇題(本大題共 16 小題，每小題 1 分，共 16 分) 在每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，請(qǐng)將其代碼填寫(xiě)在題后的括號(hào)內(nèi)。錯(cuò)選 或未選均無(wú)分。1. 下列可以作為 Visual Basic 變量名的是( )A.3X B.?AAC.counstXD.X#X2. 要使一個(gè)文本框可以顯示多行文本，應(yīng)設(shè)置為 Ture 的屬性是( )A. MasLengthB. MultiLineC. WidthD. Enabled3. 假設(shè) a 和 b 是整型變量，則表示條件“ 1&l

2、t;=a<5 和 1<b<=5 中只有一個(gè)成立即可”的邏輯表達(dá)式是( A.1<=a And a<5 And 1<b And b<=5. 多選B. ( 1<=a And a<5) And Not ( 1<b And b<=5 )C.Not ( 1<=a And a<5 ) Or ( 1<b And b<=5)D. ( 1<=a And a<5) Or ( 1<b And b<=5 )4. 為了將菜單項(xiàng)分組，使不同類型的菜單之間有一條水平分隔線，設(shè)置方法是在菜單中插入一個(gè)菜單項(xiàng)， 需要

3、設(shè)置為一個(gè)連字符( - )的菜單控件的屬性為( )A. CaptionB. NameC. ShortCutD. Text5. 確定觸發(fā)計(jì)時(shí)器兩個(gè)事件間隔的毫秒數(shù)，應(yīng)使用計(jì)時(shí)器的屬性是( A. Visible B. EnabledC. Tag D. Interval6. 在 Sub 過(guò)程的定義時(shí)( )A. 一定要知名是公有的還是私有的C. 一定要制定其類型 D.B.7. 要使文本框在顯示文字時(shí)，只顯示出一串“一定要有過(guò)程的名字一定要有參數(shù)* ”，則應(yīng)設(shè)置的屬性是(A. TextB. ValueC. PasswordChar8.Visual BasicD. Caption中耳朵暫停語(yǔ)句為(A. P

4、auseB. ExitD. stopC. End9. 將通用對(duì)話框類型設(shè)置為“另存為”對(duì)話框，應(yīng)修改的屬性為(A. ActionB. FontC. FileName D. Filter10. 下列程序段運(yùn)行后，顯示的結(jié)果是(Dim x as IntegerIf x then Print x Else print x+1A.-1 B.1C.0D.11. 在窗體的文本框 Text1 中顯示字符串 Hello ”A.Text1.Text=B.Text1.Name=顯示錯(cuò)誤信息Hello ”，正確的語(yǔ)句是(Hello ”2015 年 1 月 VB 程序設(shè)計(jì)試題和答案第 7 頁(yè) 共6頁(yè)HelloC.Te

5、xt1.Tag= “ Hello ”D.Textl.Caption=12.改變窗體的字體大小，需要設(shè)置的屬性是（）A. Fon tItalicB. Fon tBoldC. Fon tSize13.語(yǔ)句 Dim Arr(-2 To 3,1 to 2）定義的元素個(gè)數(shù)是（A. 5B.6C. 10D.1214. Visual Basic中的啟動(dòng)過(guò)程是（A. Sub SetupB. Sub StartD. Fon tNameD. Sub InitC. Sub Main15. 從順序文件中讀取一行數(shù)據(jù)，正確的語(yǔ)句是（A. Li ne In put #B. I nput Line #C. Read Line

6、 #D. Li ne Read #C. MouseMoveD. MouseClick2分，共20分）二、判斷改錯(cuò)題（本大題共10小題，每小題內(nèi)打“V”；錯(cuò)誤的打“X”，并改正劃線部分。在Visual Basic中，動(dòng)態(tài)數(shù)組在需要的時(shí)候可以改變大小。對(duì)于Visual Basic中的多窗體程序，如不指定啟動(dòng)窗體，會(huì)隨機(jī)選擇啟動(dòng)一個(gè)窗體。若要使命令按鈕不可見(jiàn)，則可設(shè)置Enabled屬性為False來(lái)實(shí)現(xiàn)。在默認(rèn)情況下，In putBox的返回值是一個(gè)字符串。計(jì)時(shí)器控件的Interval屬性設(shè)為1000 , Enabled屬性為False，則每隔事件。標(biāo)準(zhǔn)模塊文件是一個(gè)純代碼性質(zhì)的文件，它不屬于任何二

7、個(gè)窗體。按照數(shù)據(jù)的存取方式和結(jié)構(gòu)，文件可以分為兩種類型：文本文件和隨機(jī)文件。3.24.Sub過(guò)程不能通過(guò)其過(guò)程名返回值。25.lf6 > 5 The n x=5 End If是一條合法語(yǔ)句?？丶腒eyUp事件返回的是按鍵的26.ASCII 碼。判斷下列每小題的正誤。正確的在題后括號(hào)1秒的時(shí)間就產(chǎn)生一次【Timer16. 在鼠標(biāo)事件中，放開(kāi)鼠標(biāo)按鈕的事件是（B. MouseUpA. MouseDow n三、簡(jiǎn)答題（本大題共2小題，每小題 8分，共16分）27. 什么是對(duì)象？并解釋對(duì)象的屬性、事件和方法。28. 簡(jiǎn)述用局部變量、模塊變量和全局變量聲明的

8、變量在作用域上有何區(qū)別。四. 解讀程序題（本大題共2小題，每小題6分，共12分）解讀程序，根據(jù)題目對(duì)程序的說(shuō)明，在程序中空格 處填寫(xiě)正確代碼。填錯(cuò).未填均無(wú)分。29. 在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框，然后編程實(shí)現(xiàn)如下功能：在C盤(pán)根目錄下建立1個(gè)文件data.txt，在文本框中輸入字符，每次按回車(chē)鍵（回車(chē)鍵的ASCII碼是13）都把當(dāng)前文本框的內(nèi)容寫(xiě)入data.txt，并清除文本框總的內(nèi)容；如果輸入“EXIT”，貝卩結(jié)束程序。Private Sub Form_Load（）Open "c:data.txt" For Output As #1Text1.Text =&qu

9、ot;"End SubPrivate Sub Text1_KeyPress（KeyAscii As Integer）If KeyAscii =（ 1）ThenIf UCase(Text1.Text) = ( 2) ThenClose 1EndElsewrite #1, ( 3) Text1.Text = ""End IfEnd IfEnd Sub30. 下列程序是比賽的評(píng)分程序，共有 8 位評(píng)委，滿分為 10 分，選手的最后得分為去掉一個(gè)最高分和一個(gè)最低 分后的平均分。Private Sub Command1_Click()Dim k, max, min, sum

10、, avg As SingleDim i As Integermax = 0min = 0sum = 0For i = 1 To 8k = Val(InputBox(" 請(qǐng)輸入分?jǐn)?shù) (010):")If( 1) Then min=kIf( 2) Then max=kSum=(3) Next isum = sum - min - max avg = sum / 6MsgBox " 去掉一個(gè)最高分 " & max & " 去掉一個(gè)最低分 " & minMsgBox " 最后得分 :" &

11、 avgEnd Sub五、程序閱讀題(本大題共 4 小題，每小題 4 分，共 16 分)閱讀程序，在題后的空格處填寫(xiě)程序運(yùn)行的結(jié)果。 填錯(cuò) . 未填均無(wú)分。31. 在窗體上有一個(gè)命令按鈕(Command1 )，編寫(xiě)如下程序，當(dāng)程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是 private Sub Command1_Click()Dim m As Integer,a As IntegerFor a=1 to 10If n Mod 4 <> 0 Thenm=m+n4End IfNext aPrint aEnd Sub32. 在窗體上有一個(gè)命令按鈕( Command1 )，編寫(xiě)如下程序，當(dāng)運(yùn)行

12、程序后，單擊命令按鈕，窗體上顯示的 內(nèi)容是 。Private Sub Command1_Click()Dim num As In tegernu m,=1Do Un til num>5Print num;num=nu m+1.5LoopEnd Sub33. 在窗體上有一個(gè)命令按鈕(Command1 )和兩個(gè)文本框(Text1和Text2 )，編寫(xiě)如下程序，當(dāng)程序運(yùn)行后，單擊命令按鈕，文本框 Text2中顯示的值是 。Fun cti on Cala(x As In eger,ByVal y As In tegerx=x+yIf x>0 ThenCala=xElseCala=yEnd

13、IfEnd Fun cti onPrivate Sub Comma nd1_Click()Dim m As In teger ,n As In tegerm=18n=-8Text1.Text=Cala(m, n)Text2.Text=Cala(m, n)End Sub34. 程序運(yùn)行后，單擊窗體，則在窗體上顯示的內(nèi)容是 Opti on Base 0Private Sub Form1_Click()Dim aDim i As In teger a=Array(1,2,3,4,5) For i=2 to 3Print a(5-i)*2;Next iEnd Sub六、編程題(本大題共35.用輸入對(duì)話

14、框輸入2小題，每小題10分，共20分)編寫(xiě)程序?qū)崿F(xiàn)題目所給要求。x，根據(jù)下式計(jì)算對(duì)應(yīng)的y，并在窗體上輸出y的值。36.用迭代法編制函數(shù)過(guò)程GetSqrt，求x= a。求平方根的迭代公式為:1aa十 *()初值Xn 1 2 ' xn%為2，精度為求解并顯示結(jié)果( a通過(guò)參數(shù)傳遞給函數(shù)過(guò)程)-5?=10。計(jì)算a的值為8、。16時(shí)，分別調(diào)用函數(shù)過(guò)程GetSqrt2015 年 1 月 Visual Basic 程序設(shè)計(jì)試題答案及評(píng)分參考（課程代碼 07759 ）一、單項(xiàng)選擇題（本大題共16 小題，每小題 1 分，共 16 分）1 5： CBDAD 6 10：BCDAB 11 16： ACDCA

15、B 二、判斷改錯(cuò)題（本大題共10 小題，每小題 2 分，共 20 分）題號(hào)判斷更正17.V（ 2 分）18.x（ 1 分）不會(huì)（ 1 分）19.x（ 1 分）Visible （ 1 分）20.V（ 2 分）21.x（ 1 分）True（ 1 分）22.V（ 2 分）23.x（ 1 分）順序文件（ 1 分）24.V（ 2 分）25.V（ 2 分）26.x（ 1 分）KeyCode碼（ 1 分）三、簡(jiǎn)答題（本大題共2 小題，每小題 8 分，共 16 分）評(píng)分參考：（ 1 ）要點(diǎn)回答準(zhǔn)確完整，可以得滿分。（ 2 ）回答要點(diǎn)所用詞語(yǔ)、句式、前后順序與參考答案不同，只要意思正確，就應(yīng)給分。（ 3 ）要點(diǎn)

16、回答不完整，也應(yīng)酌情給分。27. （ 1 ）對(duì)象是具有特殊屬性（數(shù)據(jù)）和行為方式（方法）的試題。建立一個(gè)對(duì)象后，其操作通過(guò)與該 對(duì)象有關(guān)的屬性、事件和方法來(lái)描述。 （ 2 分）（ 2）對(duì)象的屬性是一個(gè)對(duì)象的特性，不同的對(duì)象具有不同的屬性，例如標(biāo)題、名稱、顏色等。（2 分）（ 3）對(duì)象的事件是由編程系統(tǒng)預(yù)先設(shè)置好的、能夠被對(duì)象識(shí)別的動(dòng)作，例如單擊、雙擊等。 （ 2 分）（ 4）對(duì)象的方法是對(duì)象的特殊過(guò)程和函數(shù)，可以在程序中被使用，如移動(dòng)、得到焦點(diǎn)等。（2 分）28. （ 1）在 Visual Basic 中的變量分為三類，分別是局部變量、模塊變量和全局變量，它們位于不同的 層次。（ 1 分）（

17、2 ）局部變量是在過(guò)程內(nèi)部定義的，其作用域是它所在的過(guò)程，用于存放中間結(jié)果或作為臨時(shí)變量。（ 2分）（ 3）模塊變量可在窗體和標(biāo)準(zhǔn)模塊中用private 或 dim 聲明，可用于該窗體或標(biāo)準(zhǔn)模塊的所有過(guò)程。 （ 2分）（ 4 ）全局變量在標(biāo)準(zhǔn)模塊中用public 或 global 聲明，可在工程的每個(gè)模塊、每個(gè)過(guò)程中使用。 （ 3 分）四、解讀程序題（本大題共29. （ 1） 12（ 2）2 小題，每小題 6 分，共 12 分）EXIT”（ 3） Text1.Text30. （ 1） k<min2 ） k>max3 ） sum+k五、程序閱讀題（本大題共 4 小題，每小題 4 分，

18、共 16 分）31. 732. 1 2 433. 234. 8 6六、編程題（本大題共 2 小題，每小題 10 分，共 20 分） 評(píng)分參考：3 分。（ 1 ）程序結(jié)構(gòu)完整，流程合理，算法正確，給滿分。2 ）變量沒(méi)有聲明，扣 1 分；主流程不清晰，扣 3 分；關(guān)鍵算法錯(cuò)誤扣 3 分；重要代碼缺少，扣3 ）如果思路正確，但代碼不完整的，根據(jù)代碼質(zhì)量適當(dāng)給分1 分）35. Private Sub Command1_Click()Dim x As Single,y As Single2015 年 1 月 VB 程序設(shè)計(jì)試題和答案第 11 頁(yè) 共6頁(yè)x=Val(Inputbox("請(qǐng)輸入 x 的值： "）1 分）分）1 分）（ 2 分）分）If(x>10) Then (1 分) y=Sqr(x)=Sin(x) (2Else If ( x<10)y=2*xA3+6Elsey=0(1End IfPrint y( 1 分)End Sub36. Private Sub Command1_Click()Dim x As Single( 1 分)x=GetSqrt(