1、計(jì)算機(jī)程序設(shè)計(jì)基礎(chǔ)課后練習(xí)題1一 判斷題(1) 事件過(guò)程由某個(gè)用戶(hù)事件或系統(tǒng)事件觸發(fā)執(zhí)行，但不能被其他過(guò)程調(diào)用。(2) 若X2, Y5，則表達(dá)式 Y2XAND X2Y 的結(jié)果為：True。(3) 常量是指在程序運(yùn)行過(guò)程中其值可以改變的那些量。(4) VB工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性。(5) 定義變量：Dim max,min as Single , 則max 和 min 的數(shù)據(jù)類(lèi)型均為Single。(6) 如果創(chuàng)建的菜單項(xiàng)的標(biāo)題是一個(gè)減號(hào)“-”，則該菜單項(xiàng)顯示為一條分隔線(xiàn)。(7) 標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是“*.VBP”。(8) 定時(shí)器控件可以響應(yīng)Click事

2、件，但不能響應(yīng)DbClick事件。(9) 在默認(rèn)情況下，數(shù)組下標(biāo)下界的缺省值為1。(10) 在使用字體對(duì)話(huà)框時(shí)，需要對(duì)其Flags屬性先進(jìn)行相應(yīng)設(shè)置。二 單選題(11) 在Visual Basic中，表示鼠標(biāo)單擊事件的是 。A）Activate B）DoubleClick C）Click D）MouseDown(12) 用于設(shè)置計(jì)時(shí)器時(shí)間間隔的屬性是 。A）Interval B）Name C）Left D）Top(13) 函數(shù)Int(10*Rnd)是在 范圍內(nèi)的整數(shù)。A）1，10 B）1，10C) 0，9) D）0，9(14) Select case語(yǔ)句結(jié)構(gòu)的結(jié)尾應(yīng)使用 _ 。A）End B）

3、 End Case C） End Sub D） End Select(15) 改變了容器的坐標(biāo)系后，該容器的 屬性值不會(huì)改變。A）left B）scaleleft C）scaletop D）scalewidth(16) 執(zhí)行下列語(yǔ)句后，列表框中各表項(xiàng)順序?yàn)?List1.Clear For i=1 to 4 : List1.AddItem i-1,0 ：Next iA） B） C） D）(17) 輸入對(duì)話(huà)框InputBox的返回值的類(lèi)型是 。A）字符串 B）整數(shù) C）浮點(diǎn)數(shù) D）長(zhǎng)整數(shù)(18) 將焦點(diǎn)主動(dòng)設(shè)置到指定的控件或窗體上，應(yīng)采用 方法。A）SetDate B）SetFocus C）Set

4、Text D）GetData(19) 有如下程序段：Dim I As Integer , S As IntegerS = 1FOR I = 1 TO 8 STEP 2 S = S * INEXT IPRINT “S = “ ; S運(yùn)行結(jié)果為 A）S = 9 B）S = 105 C）S = 1 D）S = 16(20) 利用以下_語(yǔ)句，可以輸出日期和時(shí)間信息。A）Print Date B）Print Month C）Print Time D）Print Now(21) 一只漂亮的酒杯被摔碎了，則漂亮，酒杯，摔是_。A）對(duì)象，屬性，事件 B）對(duì)象，屬性，方法C）屬性，對(duì)象，方法 D）屬性，對(duì)象，事

5、件(22) 將通用對(duì)話(huà)框以“打開(kāi)文件對(duì)話(huà)框”方式打開(kāi)，則選以下方法。A) ShowOpen B）ShowColor C）ShowSave D）ShowFont(23) 執(zhí)行語(yǔ)句“Line (100, 100)-(150, 200), vbBlue, B”,在窗體上繪制出一個(gè)矩形，那么該矩形的面積 = 。A）5000 B）10000 C） 15000 D）20000(24) 如何使一個(gè)標(biāo)簽或按鈕控件在運(yùn)行時(shí)不可用_。A）把它的Visible屬性設(shè)置成False B）把它的Visible屬性設(shè)置成TrueC）把它的Enabled屬性設(shè)置成False D）把它的Enabled屬性設(shè)置成True(25

6、) 下列 表達(dá)式的結(jié)果為。A）Trim(12345 + 56789) B）Ltrim(12345 )+Rtrim( 56789)C）Rtrim(12345 ) & (56789) D）Ltrim(12345 ) & Rtrim( 56789)(26) 將圖形框（PictureBox）控件的AutoSize屬性設(shè)置為T(mén)rue后，則對(duì)于圖形框而言，_。A）圖形框中的圖片自動(dòng)改變大小適應(yīng)圖形框B）圖形框自動(dòng)改變大小適應(yīng)其中的圖形C）如果圖片的大小比圖形框大，則圖形框自動(dòng)裁剪圖象以適應(yīng)圖形框的大小。D）如果圖片的大小比圖形框小，則圖形框大小不發(fā)生變化。(27) 要獲得當(dāng)前驅(qū)動(dòng)器應(yīng)使用驅(qū)動(dòng)器列表框的哪個(gè)

7、屬性 。A）Path B）Drive C）Dir D）Pattern(28) 以下關(guān)于函數(shù)過(guò)程的敘述中，正確的是_。A）函數(shù)過(guò)程形參的類(lèi)型與函數(shù)返回值的類(lèi)型沒(méi)有關(guān)系B）在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)C）數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞D）如果不指明函數(shù)過(guò)程參數(shù)的類(lèi)型，則該參數(shù)沒(méi)有數(shù)據(jù)類(lèi)型(29) 單擊滾動(dòng)條的滾動(dòng)箭頭時(shí)，產(chǎn)生的事件是_。A）Click B）Scroll C） Change D）Move(30) 以下能返回文件長(zhǎng)度的函數(shù)是_。A）BOF B）LOF C）LEN D）EOF三 程序填空題【程序填空1】在C盤(pán)當(dāng)前文件夾下已存在名為Data.txt

8、的文件，利用文本框（Text1）輸入若干英文單詞。要求每輸入一個(gè)單詞后，按下回車(chē)鍵將文本框中的單詞寫(xiě)入文件，然后清除文本框的內(nèi)容以便輸入下一個(gè)單詞。當(dāng)在文本框中輸入的單詞是“END”時(shí)，則表示結(jié)束輸入（對(duì)于單詞“END”不論大小寫(xiě)都視為結(jié)束），最后將文件關(guān)閉。Private Sub Form_Load() （31） Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf （32） = END ThenClose #EndElse （33） Text1.Text = En

9、d IfEnd IfEnd Sub(31) A）Open C:Data.txt For Output As #B）Open C:Data.txt For Input #C）Open C:Data.txt Input As #D）Open C:Data.txt Output As #(32) A）LCase(Text1.Text) B）Text1.TextC）Str(Text1) D）UCase(Text1.Text)(33) A）Write #1, Text1 B）Write #1, Text C）Write #3, Text1.Text D）Write #1, Text.Text【程序填空2

10、】程序運(yùn)行后如下圖所示，Label1的Caption顯示為 字體定時(shí)變大，影響字體大小的屬性每隔0.5秒增加1，數(shù)值在8，72之間變化。Option ExplicitPrivate Sub Form_Load()Timer1.Enabled = True （34） Label1.Caption = 字體定時(shí)變大End SubPrivate Sub Timer1_Timer() Static i As Integer If i = 72 Then i = 7 i = i + 1 （35） End Sub(34) A）Timer1.Interval=5/10B）Timer1.Interval =

11、500C）Timer1.Interval=True D）Timer1.Interval=False (35) A）Label1.FontSize = i B）Label1.Font = iC）Label1.Size = i D）Label1.FontSize = i+1 【程序填空3】已知五個(gè)數(shù)存放在數(shù)組中，用冒泡法對(duì)該數(shù)組進(jìn)行遞減排序。Private Sub Command1_Click()Dim a(1 To 5) As IntegerDim n%, i%，j%, t%a(1) = 53: a(2) = 34: a(3) = 45: a(4) = 89: a(5) = 23For i =

12、1 To 4 For j = 5 To i+1 Step -1 If （36） Then t = a(j) （37） a(j - 1) = t End If Next jNext iFor i = 1 To 5Print a(i);Next iEnd Sub (36) A）a(j) a(j - 1) C）a(i) a(j) D）a(j) a(i) (37) A）a(i)=a(j) B) a(j-1)=a(j) C）a(j)=a(i) D) a(j) = a(j - 1)【程序填空4】在窗體上畫(huà)一個(gè)名稱(chēng)為Combol的組合框，畫(huà)兩個(gè)名稱(chēng)分別Label1和Label2及Caption屬性分別為“城

13、市名稱(chēng)”和空白的標(biāo)簽。程序運(yùn)行后（如下圖所示），當(dāng)在組合框中輸入一個(gè)新的項(xiàng)目按回車(chē)鍵時(shí)（回車(chē)鍵的ASCII碼為13），如果輸入的項(xiàng)在組合框的列表中不存在，則自動(dòng)添加到組合框的列表中，并在Label2中給出提示“已成功添加輸入項(xiàng)；如果存在，則在Label2中給出提示“輸入項(xiàng)已在組合框中”。Private Sub Combo1_ KeyPress (KeyAscii As Integer)If _ (38) ThenFor i=0 To Combo1.ListCount-1If Combo1.Text= _ (39) ThenLabel2.Caption=輸入項(xiàng)已在組合框中Exit SubEnd

14、IfNext iLabel2.Caption=已成功添加輸入項(xiàng)Combo1._ (40) Combo1.TextEnd IfEnd Sub(38) A）KeyAscii=0 B）KeyAscii=13 C）KeyAscii=8 D）KeyAscii=9(39) A）Combo1.ListIndex B）Combo1.List(i) C）Combo1.AddItem(i) D）Combo1.Clear(40) A)Selected B)RemoveItem C)AddItem D) ListIndex四 程序閱讀題【程序閱讀1】根據(jù)以下代碼，單擊窗體三次，那么第一次單擊后輸出的a、b、c的值為_(kāi)

15、(41)_，第二次單擊后輸出的a、b、c的值為_(kāi)(42)_，第三次單擊后輸出的a、b、c的值為_(kāi)(43)_。Private a%, b%, c%Private Sub Form_Click() Dim a As Integer c = 2 Call AA(c) b = BB(a) Print a, b, cEnd SubPublic Sub AA(c%) a = c + b c = a + cEnd SubPublic Function BB(ByVal b%) b = b + 1 BB = a + bEnd Function(41) A）2 5 4 B）2 3 4 C）0 3 4 D）0 3

16、 2(42) A）7 12 9 B）7 15 9 C）0 6 2 D）0 6 7(43) A）0 9 10 B）0 9 2 C）17 19 35 D）10 27 32【程序閱讀2】閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。Private Sub Form_Click()Form1.Scale (-10, 10)-(10, -10)Form1.Circle (0, 0), 5, , -3 * 3.14 / 2, -3.14Form1.FillStyle = 0End Sub(44) 運(yùn)行以上程序，第一次單擊窗體后，F(xiàn)orm1上的輸出結(jié)果是 (44) ， A） B ）

17、 C） D） (45) 第二次單擊窗體后, Form1上的輸出結(jié)果是 (45) 。 A） B） C） D） 【程序閱讀3】閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。（：表示回車(chē)）Private Sub Form_Load() Text1.Text=: Form1.ClsEnd SubPrivate Sub Text1_KeyPress(k As Integer) Static s As Integer If (Chr(k) 9) And k 13 Then k=0 If k=13 Then s = s + Val(Text1.Text): Text1.Text =

18、 : Print s;End Sub(46) 寫(xiě)出運(yùn)行時(shí)在Text1中依次按“1 3 5 ”輸入后窗體上的顯示結(jié)果_(46)_。A）1 4 9 B）9 C）1 3 5 D）5(47) 寫(xiě)出運(yùn)行時(shí)在Text1中依次按“1 -3 5 ”輸入后窗體上的顯示結(jié)果_(47)_。A）1 -2 3 B）1 4 9 C）1 -3 5 D）3(48) 寫(xiě)出運(yùn)行時(shí)在Text1中依次按“1 2a 5 ”輸入后窗體上的顯示結(jié)果_(48)_。A）1 43 48 B）1 2 5 C）5 D）1 3 8【程序閱讀4】Private Sub Form_click() Dim x As Single x = Val(Input

19、Box(輸入x) Select Case x 2 Case 1 Print y=; x Case 2 Print y=; x Mod 2 Case 3 Print y=; x Mod 3 Case Else Print y=; x 2End SelectEnd Sub(49) 當(dāng)x的輸入值為5時(shí)的運(yùn)行結(jié)果為 （49） A）y=5 B）y=2.5 C）y=1 D）y=0(50) 當(dāng)x的輸入值為5.5時(shí)的運(yùn)行結(jié)果為 （50） A）y=5 B）y=2.5 C）y=1 D）y=0(51) 當(dāng)x的輸入值為-7時(shí)的運(yùn)行結(jié)果為 （51） A）y=-7 B）y=-3 C）y=1 D）y=3.5【程序閱讀5】設(shè)

20、text1.text為“abcdef”，運(yùn)行時(shí)連續(xù)單擊2次控件Hscroll1右側(cè)箭頭后，組合框控件中的第一項(xiàng)為_(kāi)(52)_、第二項(xiàng)_(53)_。Private Sub Form_Load() HScroll1.SmallChange = 1: HScroll1.Max = 5 HScroll1.Min = 1: HScroll1.Value = 1 Combo1.ClearEnd SubPrivate Sub HScroll1_Change() Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0End Sub(52) A）abc B）abcd

21、 C）ab D）abcde(53) A）ab B）abcde C）abc D）abcd【程序閱讀6】閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。Private Sub f(s As String) Dim i As Integer, n As Integer, c As String n = Len(s) If n Mod 2 = 1 Then c = Mid(s, n 2 + 1, 1) For i = 1 To Len(s) 2 c = Mid(s, Len(s) + 1 - i, 1) + c + Mid(s, i, 1) Next i s = cEnd Su

22、bPrivate Sub Command1_Click() Dim x As String x = InputBox(x=) Call f(x) Print xEnd Sub(54) 單擊Command1后輸入abc，窗體上顯示結(jié)果為（54） ：A）cba B）bca C）abc D）acb(55) 如果將Sub過(guò)程f首句改為Private Sub f(Byval s As String)，單擊Command1后 輸入abcd，窗體上顯示結(jié)果為：（55） A）abdc B）cdab C）abcd D）bcad計(jì)算機(jī)程序設(shè)計(jì)基礎(chǔ)課后練習(xí)題2一、判斷題1 任何控件都有一個(gè)Caption屬性。2 對(duì)

23、于事件驅(qū)動(dòng)型應(yīng)用程序，每次運(yùn)行時(shí)的執(zhí)行順序可以不一樣。3 用以下語(yǔ)句定義：Dim max,min as Single , 則max 和 min 的數(shù)據(jù)類(lèi)型均為Single。4 通用對(duì)話(huà)框不能真正實(shí)現(xiàn)文件打開(kāi)、文件存儲(chǔ)、設(shè)置顏色、字體設(shè)置、打印等操作，如果想要實(shí)現(xiàn)這些功能則需要編程實(shí)現(xiàn)。5 用Scale方法改變了窗體坐標(biāo)系后，窗體的Left、Top屬性值不變。6 在某列表框中一共有5個(gè)選項(xiàng)，而當(dāng)選中第三項(xiàng)時(shí)，這時(shí)列表框的ListIndex屬性為2。7 VB中工程文件是指與該工程有關(guān)的全部文件和對(duì)象，其擴(kuò)展名是.vbp；窗體文件包括窗體及其控件的正文描述，其擴(kuò)展名是.frm；標(biāo)準(zhǔn)模塊文件是可選的，

24、其擴(kuò)展名是.cls。8 用Cls方法可以清除組合框中的所有表項(xiàng)。9 Frame控件可以作為其他控件的容器。10 Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性。二、單選題11. P的值為3時(shí)，P2的值是_。A、9 B、9 C、6 D、-612. 以下程序段的執(zhí)行結(jié)果為_(kāi)。A=0: B=1DoA=A+BB=B+1Loop While A10C、Case Is10 And Is1016. 執(zhí)行語(yǔ)句s=Len(Mid(VisualBasic,0,5)后，s的值是_。A、Visual B、Basic C、6 D、表達(dá)式有錯(cuò)17. 以下關(guān)于函數(shù)過(guò)程的敘述中，

25、正確的是_。A、函數(shù)過(guò)程形參的類(lèi)型與函數(shù)返回值的類(lèi)型沒(méi)有關(guān)系B、在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)C、當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞D、如果不指明函數(shù)過(guò)程參數(shù)的類(lèi)型，則該參數(shù)沒(méi)有數(shù)據(jù)類(lèi)型18. 在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)xtA的文本框,然后編寫(xiě)如下的事件過(guò)程：Private Sub Txt_KeyPress(keyascii as integer) End Sub若焦點(diǎn)位于文本框中,則能夠觸發(fā)KeyPress事件的操作是_。A、單擊鼠標(biāo) B、按下鍵盤(pán)上的“A”鍵C、鼠標(biāo)滑過(guò)文本框 D、按下鍵盤(pán)上的任意鍵19. 執(zhí)行行下面的事件過(guò)程，在窗體顯示的內(nèi)容是_。Pri

26、vate Sub Command1_Click()Dim a As Varianta = Array(12, 23, 34, 45, 56)For i = 1 To 3Print Trim(a(i);Next IEnd SubA、 B、 C、12 23 34 D、23 34 4520. 將圖形框（PictureBox）控件的AutoSize屬性設(shè)置為T(mén)rue后，則對(duì)于圖形框而言，_。A、圖形框中的圖片自動(dòng)改變大小適應(yīng)圖形框B、圖形框自動(dòng)改變大小適應(yīng)其中的圖形C、如果圖片的大小比圖形框大，則圖形框自動(dòng)裁剪圖象以適應(yīng)圖形框的大小。D、如果圖片的大小比圖形框小，則圖形框大小不發(fā)生變化。21. 在圖形

27、框控件picture1上坐標(biāo)(100,100)和(500,500)之間畫(huà)一條紅色直線(xiàn)，寫(xiě)作_。A、Line (100,100)-(500,500) vbRed B、Line (100,100)-(500,500) RGB(0,255,0)C、picture1.Line (100,100)-(500,500) RGB(255,0,0)D、picture1.Line (100,100)-(500,500) Red22. 下列賦值語(yǔ)句中，_是錯(cuò)誤的。A、x=x+1 B、x=x+y C、x+y=x D、x=4623. 單擊滾動(dòng)條的滾動(dòng)箭頭時(shí)，產(chǎn)生的事件是_。A、Click B、Scroll C、 Ch

28、ange D、Move24. 在程序運(yùn)行期間可以用_函數(shù)把圖形裝入窗體、圖片或圖象框。A、Autosize B、Stretch C、Picture D、LoadPicture25. 在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Click()Dim num As Integernum = 1Do Until num 6Print num;num = num + 2.4LoopEnd Sub 程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是_。A、1 3.4 5.8 B、1 3 5C、1 4 7 D、無(wú)數(shù)據(jù)輸出26. _對(duì)象具有Cl

29、ear方法。A、 窗體 B、 復(fù)選框 C、 列表框 D、 圖片框27. 設(shè)a=16，b=7，c=1，則表達(dá)式 a 3 + 2 = b And c = 91 Mod 3的結(jié)果_。A、True B、False C、1 D、出錯(cuò)信息28. 設(shè)有如下通用過(guò)程：Public Sub Fun(a(), ByVal x As Integer)For i = 1 To 5 x = x + a(i)NextEnd Sub在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下的事件過(guò)程：Private Sub Command1_Click()Dim arr(5) As Vari

30、antDim n as IntegerFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr(), n)Text1.Text = nEnd Sub程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是A、10 B、15 C、25 D、2429. 窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Click()Dim num As Integer For num = 1 To 6 Step 3 Print num; Next num Print numEnd Sub 程序運(yùn)行后，單擊命令按鈕，則窗體上顯

31、示的內(nèi)容是_。A、1 4 4 B、1 3 5C、1 4 7 D、無(wú)數(shù)據(jù)輸出30. 以下_方式打開(kāi)的文件只能讀不能寫(xiě)。A、InputB、Output C、Append D、Random三、程序填空程序1在C盤(pán)當(dāng)前文件夾下建立一個(gè)名為Data.txt的順序文件，要求用文本框輸入若干英文單詞，每次按下回車(chē)鍵時(shí)將文本框中的內(nèi)容寫(xiě)入文件，并清除文本框的內(nèi)容，直到文本框輸入END為止，最后關(guān)閉文件。Private Sub Form_Load() （31） Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAsc

32、ii = 13 ThenIf （32） = END Then （33） EndElse （34） Text1.Text = End IfEnd IfEnd Sub31. A、Open D:Data.txt For Output As #B、Open C:Data.txt For Input #C、Open C:Data.txt For Output As #D、Open C:Data.txt Output As #32. A、LCaseText1.Text B、Text1.TextC、Str(Text1) D、UCase(Text1.Text)33. A、Quit #1 B、Close #1C

33、、End #1 D、Exit #134. A、Write #1, Text1 B、Write #1, Text C、Write #3, Text1.Text D、Write #1, Text.Text程序2下面程序的作用是利用隨機(jī)函數(shù)產(chǎn)生100個(gè)隨機(jī)整數(shù),范圍在20，120之間（包含20和120），打印其中為5或7的倍數(shù)的數(shù)，求出它們的總和并打印。請(qǐng)將下列程序補(bǔ)充完整。 Private Sub Command1_Click() SUM=0For i = 1 To 100 X = Int（ （35） ）If （36） ThenSUM=SUM+X （37） End If Next i Print

34、SUM=; SUM End Sub35. A、Int(Rnd*100+20) B、Int(Rnd*101+20)C、Int(Rnd*101+19) D、Int(Rnd*100+21)36. A、X Mod 5 = 0 and X Mod 7 = 0B、X 5 = 0 and X 7 = 0C、X 5 = 0 Or X 7 = 0D、X Mod 5 = 0 Or X Mod 7 = 037. A、Print X; B、Print SUM+X;C、Print SUM; D、Print SUM*X;程序3單擊窗體后，用輸入對(duì)話(huà)框輸入x、n，然后按下式計(jì)算結(jié)果。要求：將計(jì)算結(jié)果以標(biāo)簽控件顯示，且標(biāo)簽控

35、件每秒隨機(jī)變換一次顏色。SOption Explicit Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Form_Click() Dim x As Single, n As Integer, i As Integer, t As Single （38） s = 0 x = InputBox(x=) n = InputBox(n=) （39） for i= （40） t = t * x / i s = s + t Next i （41） End SubPrivate S

36、ub Timer1_Timer() Label1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)End Sub38. A、Static s As Single B、Dim s As SingleC、Option Base 1 D、Const s As Single39. A、t = -1 B、t = 0 C、t = 2 D、t = 140. A、2 To n+1 B、1 To n C、2 To n D、1 To n+141. A、Label1.Caption = x B、Label1.Caption = nC、Label1.Caption =

37、s D、Label1.Caption = s+x程序4設(shè)計(jì)一個(gè)程序，用于從文本框Text1輸入課程名稱(chēng)，單擊按鈕，添加到列表框（List1）中顯示出來(lái)。具體要求：?jiǎn)螕簟癈ommand1”按鈕，若文本框Text1.Text中不是空格串，并且列表中也沒(méi)有，則將該課程添加列表框中，然后清除文本框Text1的內(nèi)容，再將焦點(diǎn)返回到文本框Text1，以便再次在文本框Text1輸入內(nèi)容，繼續(xù)添加。Private Sub Command1_Click()Dim I As IntegerDim AddFlag As Boolean （42） If （43） ThenFor i = 0 To （44） If Li

38、st1.List(i) = Text1.Text Then AddFlag = False Exit For End IfNext i If AddFlag Then List1.AddItem Text1.TextEnd IfText1.Text = （45） End Sub42. A、AddFlag = -1 B、AddFlag = FalseC、AddFlag = 1 D、AddFlag = 043. A、text1.text = “” B、text1.text = “ ”C、text1.text “” D、text1.text “ NULL ”44. A、List1.ListIndex

39、 1 B、List1.ListCount-1C、List1.ListIndex D、List1.ListCount45. A、text1.Clear B、text1.SetFocusC、text1.Move D、text1.ReFresh四、程序閱讀程序1寫(xiě)出下列程序運(yùn)行結(jié)果，單擊命令按鈕控件后窗體上的顯示結(jié)果Private Sub Command1_Click() Dim a(1 To 6) As Integer For i = 1 To 6 a(i) = i * i Next i For j = 1 To 3 temp = a(6) For i = 6 To 2 Step -1 a(i)

40、= a(i - 1) Next i a(1) = temp Next j For i = 1 To 6 Print a(i); Next iEnd Sub程序2單擊窗體后，在四個(gè)PictureBox控件中的圖形分別是：Option ExplicitPrivate Sub Form_Click()Dim i%For i = 0 To 3 Picture1(i).Scale (-10, 10)-(10, -10)Next iPicture1(0).Line (-10, 10)-(0, 0)Picture1(0).Line -(-10, -10)Picture1(1).Circle (0, 0),

41、5Picture1(2).Circle (0, 0), 5, , 0, 3.14159Picture1(3).Circle (0, 0), 5, , , , 2End SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 3 Picture1(i).FillStyle = (i + 1) Mod 2 Picture1(i).ClsNext iEnd Sub程序3事先將text1.text設(shè)為為空，在獲得焦點(diǎn)后,從鍵盤(pán)上依次按下以下鍵:1,2,+,3,4,-,5,6,/,1,4,然后按回車(chē)鍵，寫(xiě)出輸出結(jié)果。Private Sub Text1

42、_KeyPress(K As Integer) If K Asc(9) Then K = 0 Print Text1.Text End IfEnd Sub程序4在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)相應(yīng)的事件過(guò)程。程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是Public Function f(x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd FunctionPrivate Sub Command1_Click()Static x As Integerx = 10y = 5y = f(x)Print x; yEnd

43、 Sub計(jì)算機(jī)程序設(shè)計(jì)基礎(chǔ)課后練習(xí)題3一判斷題1 窗體或控件的事件的名稱(chēng)可以由編程人員確定。2 關(guān)系運(yùn)算表達(dá)式1+2=3的運(yùn)算結(jié)果為T(mén)rue。3 變量是指在程序運(yùn)行過(guò)程中其值可以改變的那些量，而值不能改變的是常量。4 控件的有些屬性只能在運(yùn)行時(shí)設(shè)置。5 數(shù)組在內(nèi)存中占據(jù)一片連續(xù)的區(qū)域。6 驅(qū)動(dòng)器列表框、目錄列表框、文件列表框三者之間能夠自動(dòng)實(shí)現(xiàn)關(guān)聯(lián)。7 當(dāng)按鈕的Default屬性設(shè)置為T(mén)rue時(shí)，任何情況下按鍵，相當(dāng)于單擊該按鈕。8 在過(guò)程中用Dim和Static定義的變量都是局部變量。9 設(shè)置數(shù)組下標(biāo)下界缺省值為1的語(yǔ)句為option base 1 。10 For-Next循環(huán)結(jié)構(gòu)的默認(rèn)步長(zhǎng)

44、為1。二單選題11當(dāng)建立好一個(gè)簡(jiǎn)單的應(yīng)用程序后，假定該工程僅有一個(gè)窗體模塊。問(wèn)該工程涉及到多少個(gè)文件要保存？ 個(gè)。A) 1 B) 2 C)3 D) 412能夠?qū)⑽谋究蚩丶[藏起來(lái)的屬性是 。(A) Clear (B) Visible (C) Hide (D) New13. 下列符號(hào)中，哪個(gè)是VB合法的變量名？ 。A) a 123 B) Integer C) X_yz D) 14. inputBox函數(shù)返回值的類(lèi)型為 。A) 數(shù)值 B) 字符串 C) 變體 D) 數(shù)值或字符串（視輸入的數(shù)據(jù)而定）15. 表達(dá)式5+5 3 * 10 / 8 Mod 9 的值是 .A) 4 B) 5 C) 6 D)

45、716. 如果在立即窗口中執(zhí)行以下操作：a=4 (是回車(chē)鍵，下同)b=6 print ab 則輸出結(jié)果是 。A) -1 B) 0 C) False D) True 17. 當(dāng)程序運(yùn)行時(shí),在窗體上單擊鼠標(biāo),以下哪個(gè)事件是窗體不會(huì)接收到的。A）MouseDown B）MouseUp C）Load D）Click 18. 在設(shè)計(jì)菜單時(shí),如在菜單中加入一個(gè)菜單分隔項(xiàng),則菜單分隔項(xiàng)的標(biāo)題必須設(shè)置為 。 A）加號(hào)(+) B）減號(hào)(-) C）星號(hào)(*) D）感嘆號(hào)(!)19. Select Case 語(yǔ)句屬于程序基本結(jié)構(gòu)中的：A）順序結(jié)構(gòu) B）循環(huán)結(jié)構(gòu) C）分支結(jié)構(gòu) D）選擇結(jié)構(gòu)20. 為了把焦點(diǎn)移到某個(gè)指定的控件，所使用的方法是A) SetFocus B) Visible C) Refresh D) GetFocus21. 設(shè)a=3，則執(zhí)行 x=IIf(a5,-1,0)后，x 的值為 。A) 5 B) 6 C) 0 D) -122. 執(zhí)行下