【正文】 按鈕，依次在輸入對話框中輸入 1，則輸出結(jié)果為 A 。A) 2 B) 3 C) 14 D) 1525. 將通用對話框以打開對話框打開，則選以下（ A ）方法。A） ShowOpen B） ShowColor C） ShowSave D） ShowFont 第 20 頁 共 24 頁26. 計時器控件能夠引發(fā)的唯一事件是（ C ）A．Keypress　　B．Click C．Timer D．Timer127. 用于設置計時器時間間隔的屬性是 A ：A、Interval B、Name C、Left D、Top28. 在窗體上畫兩個文本框(其 Name 屬性分別為 Text1 和 Text2)和一個命令按鈕(其 Name屬性為 Command1)，然后編寫如下事件過程：Private Sub Command1_Click()x=0Do While x40x=(x+2)*(x+3)n=n+1Loop=Str(n)=Str(x)End Sub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為 B A) 1 和 0 B) 2 和 72 C) 3 和 50 D) 4 和 16829. 用下面語句定義的數(shù)組的元素個數(shù)是 D 。Dim A (2 To 6) As IntegerA) 6 B) 7 C) 8 D) 930. 循環(huán)語句 For I= 3 To 20 Step 4 執(zhí)行的次數(shù)為 C 。A) 4 B) 5 C) 6 D) 831. 函數(shù) Int(10*Rnd)是在（ D ）范圍內(nèi)的整數(shù)。A．[0，1] B．[1，10] C．[1，9] D．[0，9]32. 利用下面哪個函數(shù)可訪問文件大小 。（ A ） A） LOF B） LOC C）EOF D）BOF 33. 假定有如下的 Sub 過程：Sub S（x As Single,y As Single）t = xx =t/y y =t Mod yEnd Sub在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Commandl_Click ( )Dim a As SingleDim b As Singlea =2b =4S a,b 第 21 頁 共 24 頁Print a,bEnd Sub程序運行后，單擊命令按鈕，輸出結(jié)果為 C 。A) 2 4 B) 1 0 C) 2 D) 034. 閱讀程序：Function F(a As Integer)Static cb = 0b = b+1c = c+1f = a+b+cEnd Function Private Sub Commandl_Click ()Dim a As Integera =2For i =1 To 2Print F(a)Next iEnd Sub運行上面的程序，單擊命令按鈕，輸出結(jié)果為 D 。A) 4 B) 4 C) 4 D) 44 5 6 7 35. 閱讀程序：Private Sub Commandl_Click()s=InputBox(輸入字符串) For i= Len(s) To 1 Step 1 Print Mid(s,i,1)。 Next iEnd Sub運行上面的程序，單擊命令按鈕，輸入“ABCD”,輸出結(jié)果為 B 。A）ABCD B) DCBA C)AAAA D) DDDD36. 在程序運行期間，如果拖動滾動條上的滾動塊，則觸發(fā)的滾動條事件是 C 。A) Move B) Change C) Scroll D) GetFocus37. 設窗體上有一個列表框控件 List1，且其中含有若干列表項。則以下能表示當前被選中的列表項內(nèi)容的是 D A) B) C) D)()38. 為了暫時關(guān)閉計時器，應把該計時器的某個屬性設置為 False ，這個屬性是 C 。 第 22 頁 共 24 頁A) Visible B) Timer C) Enabled D) Interval 39. 對窗體編寫如下事件過程：Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single,Y As Single)If Button =2 ThenPrint AAAAAEnd IfEnd Sub Private Sub Form_MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single)Print BBBBBEnd Sub程序運行后，如果單擊鼠標右鍵，則輸出結(jié)果為　　A　　。A) AAAAA B) BBBBB C) AAAAA D) BBBBBBBBBB AAAAA40. 當標簽的大小由 Caption 屬性的值進行自動擴展或縮小，應對該控件的某個屬性設置為 True ，這個屬性是 A 。A)Stretch B) AutoSize C) Left D) Scalewidth三．填空題（注意：過去有填空題，現(xiàn)在全部都是選擇題）（1）設有如下的 Visual Basic 表達式：(b+sqr(b*b4*a*c))/(2*a)它相當于代數(shù)式【1】 （略，very easy） 。（2）數(shù)學表達式 sin30176。寫成 VB 表達式應為_【2】__sin(30/180*)________。 （3）執(zhí)行下面的程序段后，i 的最后值為 【3】 。s = 5For i = To Step s = s+1Next i（4）將任意一個兩位數(shù) x 的個位數(shù)與十位數(shù)對換。例如， x=78，則表達式的值應為 87。其 VB 表達式為 【4】trim(x mod 10) amp。 trim(x\10) 或 right(trim(x),1) amp。 left(trim(x),1) 。(5) 執(zhí)行下面的程序段后，a 的值為【5】 20 （不用中間變量也能實現(xiàn)兩數(shù)交換） 。a=30b=20a=a+bb=aba=ab(6) 下面程序的作用是利用隨機函數(shù)產(chǎn)生 20 個 10~100 之間（包含 100）的隨機數(shù)，打印其中為 5 的倍數(shù)的數(shù)，并求出它們的總和。請將下列程序補充完整。 第 23 頁 共 24 頁 Private Sub Command1_Click() k1=0 For m = 1 To 20 x = Int(Rnd * _【6】_91+10________) If 【7】x mod 5=0 Then Print x。 k1=_【8】_k1+x_______ End If Next m Print k1=。 k1 End Sub (9) 下面的程序打開順序文件，按行讀入內(nèi)容,并在文本框中按行顯示，請在【9】、【10】、【11】處將程序補充完整。 Open For 【9】Input As 1strTest=””Do While 【10】Not EOF(1) Line Input 1, sstrTest = strTest+s+ 【11】vbCrLf 或 Chr(10) amp。 Chr(13) Loop（10）確保文本框中輸入的全部是數(shù)字的程序如下，請在【12】、【13】處將程序補充完整。Sub Text1_ 【12】KeyPress (KeyAscii As Integer)If KeyAscii Asc(0) Or KeyAscii Asc(9) Then【13】KeyAscii = 0 （此句表示“輸了也白輸，輸入非數(shù)字內(nèi)容一律清空”End If(11) 假定建立了一個工程，該工程包括兩個窗體，其名稱(Name 屬性)分別為 Form1 和Form2，啟動窗體為 Form1。在 Form1 畫一個命令按鈕 Command1，程序運行后，要求當單擊該命令按鈕時，F(xiàn)orm1 窗體消失，顯示窗體 Form2，請在【14】和【15】處將程序補充完整。Private Sub Command1_Click()Form1.【14】Hide Form2. 【15】Show End Sub 第 24 頁 共 24 頁《計算機程序設計基礎》課后練習題 4一．判斷題1 2 3 4 5 6 7 8 9 10B B B B B B A A B A二．單選題11 12 13 14 15 16 17 18 19 20D B A B C C A D C B21 22 23 24 25 26 27 28 29 30C D B A B C B B D C三．程序填空題31 32 33 34 35 36 37 38 39 40A D C C B A B B C C41 42 43B C B四．程序閱讀題44 45 46 47 48 49 50 51 52 53C D C A D B D B A D54 55D B