《程序設(shè)計基礎(chǔ)VB》作業(yè)題

1、第一章 練習(xí)題一、選擇題1、不需要編譯，計算機(jī)便可直接執(zhí)行的程序是（ ）。 A C語言程序 B Visual Basic語言程序 C 匯編語言程序 D 機(jī)器語言程序2、下面關(guān)于VB的敘述中，不正確的是（ ）。 A VB是美國Microsoft（微軟）公司開發(fā)程序設(shè)計語言。 B VB是在20世紀(jì)60年代美國Dartmouth學(xué)院開發(fā)的Basic語言基礎(chǔ)上發(fā)展而形成的。 C 用VB編寫的程序可以在任何操作系統(tǒng)環(huán)境中運行。 D VB是面向?qū)ο蟮目梢暬能浖_發(fā)工具。3、下面關(guān)于VB的集成開發(fā)環(huán)境（IDE）的敘述中，不正確的是（ ）。 A IDE是設(shè)計、調(diào)試、運行VB程序的工具。 B 打開/關(guān)閉各窗口

2、的命令主要在IDE的“視圖”菜單中。 C “窗體設(shè)計窗口”是用來設(shè)計應(yīng)用程序界面（窗體）的。 D 不能往“控件工具箱”中添加其它控件。二、填空題1、如果進(jìn)入VB的集成開發(fā)環(huán)境后，發(fā)現(xiàn)沒有“工具箱”，那么可以打開（ ）菜單并選擇“工具箱”菜單項，就可使“工具箱”出現(xiàn)。2、（ ）窗口用來管理一個應(yīng)用程序所包含的各種資源文件。3、“代碼窗口”用來編寫應(yīng)用程序的（ ）。三、簡答題1、簡單敘述計算機(jī)程序設(shè)計語言的發(fā)展歷程。2、簡單敘述窗體布局窗口的用途。3、簡單敘述屬性窗口的用途。四、實驗題1、題目編寫一個簡單的VB程序，界面如下圖所示。程序有兩個按鈕。當(dāng)用戶按“顯示”按鈕時，在窗體上顯示出“歡迎使用V

3、B6.0”字樣；當(dāng)用戶按“清屏”按鈕時，清除窗體上的文字內(nèi)容。程序有兩個標(biāo)簽。一個用來顯示顯示“VB程序設(shè)計”字樣；一個用來顯示“系統(tǒng)當(dāng)前時間”。2、實驗?zāi)康某醪搅私釯DE各窗口的用途及操作。初步了解一個VB程序的設(shè)計過程。觀察一個VB程序的構(gòu)成。3、實驗步驟啟動IDE單擊任務(wù)欄的“開始菜單”程序Microsoft Visual StudioMicrosoft Visual Basic6.0便出現(xiàn)“新建工程”對話框，如下圖所示。選擇“標(biāo)準(zhǔn)EXE”工程類型，按“打開”按鈕。便進(jìn)入了IDE的界面如下圖所示：界面設(shè)計在“窗體設(shè)計”窗口中擺放控件方法一：單擊“控件工具箱”中所要的控件（這時你會發(fā)現(xiàn)控件

4、圖標(biāo)凹下去了），把鼠標(biāo)移到窗體上（這時你會發(fā)現(xiàn)鼠標(biāo)指針圖形變成了“”字形），在窗體上初步確定一個安放點，按住鼠標(biāo)左鍵往安放點的右下角拖，當(dāng)你初步認(rèn)為大小合適了便可放開鼠標(biāo)左鍵。方法二：雙擊“控件工具箱”中所要的控件，該控件便被放到窗體中。但要注意：這種方法默認(rèn)為把控件放到窗體中，而不能放到其它容器控件中（如：選項卡，圖片框，框架）?？丶木庉嬤x中控件要想手動地調(diào)整一個控件的大小就必須先選中它。選中控件很簡單：只要將鼠標(biāo)指向該控件并按一下鼠標(biāo)左鍵即可。當(dāng)一個控件被選中后，它的周圍便出現(xiàn)一些小正方形（我們稱其為“句柄”）。如果你要同時選中許多控件，你可以按住鍵在用鼠標(biāo)點選所要的控件。調(diào)整大小方法一

5、：將鼠標(biāo)移到被選中控件上下邊的句柄上（這時你會發(fā)現(xiàn)鼠標(biāo)指針圖形變成了雙向箭頭狀），按住鼠標(biāo)左鍵上下拖放即可該變控件的高度。將鼠標(biāo)移到被選中控件左右邊的句柄上，按住鼠標(biāo)左鍵左右拖放即可該變控件的寬度。方法二：選中要調(diào)整的控件，按住鍵，同時按、四個鍵來調(diào)整控件的高度、寬度。方法三：通過屬性窗口設(shè)置該控件的Height屬性值可改變控件的高度，設(shè)置該控件的Width屬性值可改變控件的寬度。調(diào)整位置方法一：選中要調(diào)整的控件，按住鼠標(biāo)左鍵拖放。方法二：選中要調(diào)整的控件，按住鍵，同時按、四個鍵來調(diào)整控件的位置。 方法三：通過屬性窗口設(shè)置該控件的Top屬性值，可改變控件頂邊到其容器（窗體）頂邊的距離；設(shè)置該控

6、件的Left屬性值，可改變控件左邊到其容器左邊的距離。刪除控件如果想刪除窗體中的某個控件，你可以用鼠標(biāo)右擊該控件，這時會出現(xiàn)一個“快捷菜單”，選擇其中的“刪除”命令。對齊控件如果你要使一些控件按某種方式對齊，你可以先選中這些控件，然后打開“格式”菜單并把鼠標(biāo)指向“對齊”命令，從出現(xiàn)的二級菜單中選擇所要的對齊方式。鎖定控件如果你已經(jīng)把一些控件的大小、位置調(diào)整好了，你可以把它們鎖定，防止誤操作改變其位置。鎖定控件的步驟是：選中控件，然后打開“格式”菜單，選擇“鎖定”命令。設(shè)置窗體、控件的屬性對象名稱對象類型屬性設(shè)置值用途Form1窗體Caption=”第一章示例1”程序界面Picture=窗體背景

7、圖片文件名全稱，例如：Picture=”d:VB示例第一章tx1.bmp”Label1標(biāo)簽Caption=”VB程序設(shè)計”顯示一個標(biāo)題Label2標(biāo)簽Caption=系統(tǒng)當(dāng)前時間顯示系統(tǒng)時間Command1命令按鈕Caption=”顯示”在窗體上打印文字Command1命令按鈕Caption=”清屏”清除窗體上的文字Timer1時鐘Interval=100（單位是：毫秒）鬧鐘為相關(guān)控件的有關(guān)事件過程編寫程序代碼對命令按鈕Command1的Click（即鼠標(biāo)左單擊）事件過程編寫如下代碼Private Sub Command1_Click() CurrentX = 2100 CurrentY =

8、500 Print 歡迎使用VBEnd Sub對命令按鈕Command2的Click事件過程編寫如下代碼Private Sub Command2_Click()ClsEnd Sub對時鐘的Timer1的Timer事件過程編寫如下代碼Private Sub Timer1_Timer() Label2.Caption = Time()End Sub注意：事件過程的頭、尾是系統(tǒng)自動給出的，不須用戶輸入。運行、結(jié)束程序運行程序方法一：點擊工具欄上的“啟動”按鈕，如右圖所示：方法二：打開“運行”菜單選擇“啟動”方法三：按功能鍵F5結(jié)束程序方法一：點擊工具欄上的“結(jié)束”按鈕，如右圖所示：方法二：打開“運行

9、”菜單選擇“結(jié)束”方法三：點擊程序窗體上的“關(guān)閉”按鈕方法四：按住鍵，再按鍵。保存程序一個應(yīng)用程序設(shè)計完成后，程序被存放在計算機(jī)的內(nèi)存中。如果計算機(jī)被關(guān)閉或重啟，程序就會丟失。要想使程序長期保存，就必須把程序存放在計算機(jī)的磁盤中。按工具欄中的“保存”按鈕，如右圖所示：然后在出現(xiàn)的“對話框”中，選擇文件的存放位置、文件名。當(dāng)把所有的窗體文件、工程文件都存儲完后，出現(xiàn)一個如下圖所示的對話框： 修改程序要對已經(jīng)存過盤的工程進(jìn)行修改，步驟如下：到存放工程的文件夾雙擊“工程文件”，圖標(biāo)如下圖修改存盤4、思考回答問題當(dāng)一個程序被存盤后，有那些文件？能否用Windows的重命名功能對某個文件重命名？當(dāng)你使用

10、Windows的復(fù)制功能將“工程文件”復(fù)制到另一個文件夾中，然后雙擊該文件圖標(biāo)會出現(xiàn)什么情況？為什么？能否雙擊“窗體文件”打開工程，為什么？第二章 練習(xí)題一、選擇題1、當(dāng)窗體被關(guān)閉時，系統(tǒng)自動執(zhí)行該窗體的_事件過程。（A）Click （B）Load （C） Unload （D）LostFocus2、如果Print方法在窗體的Load事件過程中不起作用，原因是（ ）屬性 的值為false。 （A）AutoRedraw （B）Moveable （C）MaxButton （D）ControlBox3、在運行時，要使窗體既不能移動有不能改變大小，應(yīng)設(shè)置BorderStyle=( )。 （A） 0 （B

11、） 1 （C）2 （D） 34、要使窗體運行時充滿整個屏幕，應(yīng)設(shè)置其（ ）屬性。 （A） Height （B）Width （C）WindowState （D） AutoRedraw5、要使標(biāo)簽控件的大小隨Caption 屬性值而自動調(diào)整，應(yīng)設(shè)置其（ ）屬性。（A）Width （B）AutoSize （C） Caption （D）Alignment6、要設(shè)置標(biāo)簽控件字體的大小，應(yīng)設(shè)置其（ ）屬性。（A）Height （B）Width （C） Caption （D）Font7、要使標(biāo)簽控件標(biāo)題內(nèi)容居中顯示，應(yīng)設(shè)置其（ ）屬性。 （A）Alignment （B）Appearance （C） Back

12、Style （D）ToolTipText8、 程序運行時，要使用戶不能修改文本框中的內(nèi)容，那么應(yīng)設(shè)置_。 （A） Enabled=False （B） MultiLine=False （C） Locked=True （D） PasswordChar=”*”9、當(dāng)設(shè)置文本框的ScrollBars=Both 而文本框確沒有顯示出滾動條，原因是（ ）。 （A）文本框中沒有內(nèi)容 （B）文本框的MultiLine=False （C）文本框的Locked=True （D）文本框的MultiLine=True10、 程序運行時，要使用戶不能修改文本框中的內(nèi)容，那么應(yīng)設(shè)置_。 （A） Enabled=False

13、 （B） MultiLine=False （C） Locked=True （D） PasswordChar=”*”11、要使鼠標(biāo)指向“命令按鈕”時，出現(xiàn)一個提示文本，應(yīng)設(shè)置其_屬性。 （A）Caption （B）Picture （C）ToolTipText （D） Style12、要使命令按鈕在運行時能力喪失（不能用），Enabled=（ ）。 (A) True (B) False13、使命令按鈕獲得“焦點”的方法是（ ）。 （A）LinkSend （B）Move （C） SetFocus （D）Refresh14、一個窗體上有三個文本框，按放置順序分別是：Text1，Text2，Text3

14、，若使程序運行時Text3首先獲得“焦點”，那么，應(yīng)設(shè)置其（ ）屬性值為 0 。 （A） Top （B）Tag （C） Tabindex （D）Index15、一個窗體上有兩個文本框，按放置順序分別是：Text1，Text2 ，要想在Text1中按“回車”鍵，“焦點”自動轉(zhuǎn)到Text2上，應(yīng)在（ ）處編寫程序。（A）Private Sub Text1_KeyPress(KeyAscii As Integer) （B）Private Sub Text1_LostFocus() （C）Private Sub Text2_GotFocus() （D）Private Sub Text1_Click()

15、16、用一個對象來表示：“一只白色的足球被踢進(jìn)球門”，那么，白色、足球、踢、 進(jìn)球門分別是（ ）。 （A）屬性、對象、方法、事件 （B）屬性、對象、事件、方法 （C）對象、屬性、方法、事件 （D）對象、屬性、事件、方法17、下面關(guān)于對象屬性的敘述中，不正確的是（ ）。 A 屬性是對一個對象特征的描述。 B 屬性都有名稱、取值類型、值。 C 屬性的值必須在設(shè)計時確定。 D 有些屬性的值可以在程序運行時改變。二、填空題1、當(dāng)雙擊控件工具箱中的控件是，系統(tǒng)默認(rèn)地把控件放到（ ）中。2、一般來說對象有屬性、方法、事件，（ ）是指對象具有作某種事的能力。3、app.path返回值的含義是（ ）。4、要使

16、標(biāo)簽背景透明（與其容器的背景一致），應(yīng)設(shè)置其（ ）屬性值為0。5、文本框的MaxLength=0的含義是（ ）。6、往當(dāng)前工程中添加窗體的操作步驟是：打開（ ）菜單，選擇（ ）命令。三、簡答題1、假如一個工程有兩個窗體Form1、Form2，其中Form1為啟動窗體，如果你想讓Form2為啟動窗體，應(yīng)如何操作？2、簡述“標(biāo)簽”與“文本框”的區(qū)別。3、假如一個窗體上有三個“文本框”，按放置順序依次為Text1、Text2、Text3，若要使程序運行時，Text3首先獲得“焦點”，應(yīng)如何操作？四、實驗題實驗一1、題目設(shè)計一個簡單VB小程序，界面如下右圖所示。窗體上有三個命令按鈕，按“Print方法

17、”按鈕在窗體上顯示信息；按“Cls方法”按鈕清除窗體的信息；按“Move方法”按鈕使窗體往右下角移動。窗體被加載時，在窗體的標(biāo)題欄中顯示“第二章實驗一”字樣。2、實驗?zāi)康牧私獯绑wLoad事件的發(fā)生條件及用途。初步掌握窗體的Print、Cls、Move方法的使用。初步掌握命令按鈕的Clik事件的發(fā)生條件及用途。3、實驗步驟界面設(shè)計對象名稱對象類型屬性設(shè)置值用途Form1窗體Font.size=24程序界面Command1命令按鈕Caption=”Print方法”在窗體上打印文字Command2命令按鈕Caption=”Cls方法”清除窗體上的文字Command3命令按鈕Caption=”Move

18、方法”移動窗體代碼設(shè)計Private Sub Form_Load() Caption = 第二章實驗一 Font.sEnd SubPrivate Sub Command1_Click() Print 第一個輸出項, 第二個輸出項 Print 現(xiàn)在的時間是：; Time() Print x=; 5, y=; 4; Print x+y=; 10End SubPrivate Sub Command2_Click() ClsEnd SubPrivate Sub Command3_Click() Move Left + 100, Top + 100End Sub4、思考問題應(yīng)如何調(diào)整窗體的Print起始

19、打印位置。在程序代碼中，如何使“命令按鈕”獲得“焦點”。實驗二1、題目設(shè)計一個簡單VB小程序，界面如下右圖所示。窗體上有兩個“標(biāo)簽”，兩個“文本框”，一個“命令按鈕”。當(dāng)程序運行時，用戶在上面的“文本框”中輸入圓的半徑，然后點擊“計算”按鈕，程序便計算出圓的周長、面積并顯示在下面的“文本框”中。2、實驗?zāi)康某醪秸莆铡皹?biāo)簽”的基本屬性及使用。初步掌握“文本框”的基本屬性及使用。利用“文本框”輸入、輸出數(shù)據(jù)。如何使“焦點”從一個對象上轉(zhuǎn)移到另一個對象上。3、實驗步驟界面設(shè)計對象名稱對象類型屬性設(shè)置值用途Form1窗體Caption=”第二章實驗二”應(yīng)用程序界面Label1標(biāo)簽Caption=”請輸

20、入圓的半徑”提示用戶Label2標(biāo)簽Caption=”圓的周長、面積”提示用戶Text1文本框接受用戶輸入Text2文本框MultiLine=True顯示計算結(jié)果Command1命令按鈕Caption=”計算”作計算程序代碼Private Sub Command1_Click() Dim r1, zc!, mj! r = Val(Text1.Text) zc = 2 * 3.14 * r mj = 3.14 * r 2 Text2 = 圓的周長= + Str(zc) + vbCrLf Text2 = Text2 + 圓的面積= + Str(mj)End SubPrivate Sub Text1

21、_GotFocus() Text1 = Text2 = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End IfEnd Sub4、思考問題請指出該程序的缺陷。為什么要在text1的GotFocus事件過程中，清空兩個文本框的內(nèi)容？第三章 練習(xí)題一、選擇題1、表達(dá)式16/4-25*8/4 Mod 52 = ( )。 （A） 14 （B） 4 （C） 20 （D） 22、數(shù)學(xué)式3X5寫成VB表達(dá)式是（ ）。3=X5 （B）3=X or X5（C） 3=X

22、 and X=3 and 2 Or sin（x）0.9 And 3x+3=（ ）。 （A）True （B）False ( C ) 不能計算4、將邏輯型數(shù)據(jù)轉(zhuǎn)換成整型數(shù)據(jù)時，轉(zhuǎn)換規(guī)則是（ ）。（A） 將True轉(zhuǎn)換為 1 ，將False轉(zhuǎn)換為 0 （B） 將True轉(zhuǎn)換為 1 ，將False轉(zhuǎn)換為 1 （C） 將True轉(zhuǎn)換為 0 ，將False轉(zhuǎn)換為 -1（D） 將True轉(zhuǎn)換為 1 ，將False轉(zhuǎn)換為 05、下面正確的變量名是（ ）。 （A） 3xy （B） xy_01 （C） sa t01 （D） integer6、Int(-3.1)+round (-4.6)=_。 （A）-8 （B）-

23、7 （C） -9 （D）-67、對不同類型的運算符優(yōu)先級規(guī)定是（ ）。 （A） 字符運算符 算術(shù)運算符 關(guān)系運算符 邏輯運算符（B） 算術(shù)運算符 字符運算符 關(guān)系運算符 邏輯運算符（C） 算術(shù)運算符 字符運算符 邏輯運算符 關(guān)系運算符（D） 字符運算符 關(guān)系運算符 邏輯運算符 算術(shù)運算符8、k=12.5 ，len( str( k ) )=( ) 。 （A） 4 （B） 3 （C） 5 （D） 29、len(“vb程序設(shè)計”)=( ) 。（A） 5 （B） 10 （C） 2 （D） 610、隨機(jī)產(chǎn)生 10，50 之間整數(shù)的正確表達(dá)式是（ ）。 （A） Round( Rnd*51) （B） Int

24、(Rnd*40+10)（C） Round( Rnd*50) （D） 10+Int(Rnd*41)11、賦值語句 A=123 + Mid$( “123456”,3,2) 執(zhí)行后，A=（ ）。 （A）”12334” （B）123 （C） 12334 （D）15712、Val (“123ab”)=（ ）。 （A）0 （B）123 （C）1230 ( D ) 不能轉(zhuǎn)換13、當(dāng)Ucase$(C$)”A” and Ucase$(C$)”Z”為true時，則C$是_。(A) 大寫字母 （B） 小寫字母 （C） 字母 （D） 不一定14、InStr(1,“eFCdEfGh”，“EF”，1)=（ ）。 (A)

25、5 （B） 6 （C） 0 （D） 1二、填空題1、sin15 SKIPIF 1 0 + SKIPIF 1 0 的VB表達(dá)式為（ ）。2、把X是5或7的倍數(shù)寫成VB表達(dá)式是（ ）。3、表達(dá)式Ucase（Mid（”abcdefgh” , 3 , 4）=（ ）。4、k=123%，則Len（Str（k）=（ ）。5、表示變量S是字母（不分大小寫）的VB表達(dá)式是（ ）。6、DateAdd（”m” , 1 , #1/25/2004#）=( )。7、IsNumeric（”123asd”）=（ ）。8、取出一個三位整數(shù)x的十位上的數(shù)字（例如：324十位上的數(shù)字是2）的VB表達(dá)式是（ ）。三、實驗題1、題目編

26、寫一個程序，界面如下圖所示。當(dāng)用戶單擊“開始”按鈕時，程序隨機(jī)產(chǎn)生兩個1-100之間的整數(shù)a和b，并把”a+b=”字樣顯示在標(biāo)簽Label1中，等待用戶在文本框text1中輸入答案。當(dāng)用戶在文本框text1中輸入了答案并按“回車”鍵后，程序開始判斷答案是否正確，并將判斷結(jié)果顯示在標(biāo)簽Label2中，同時將“焦點”放到“開始”按鈕上。2、實驗?zāi)康膶W(xué)習(xí)使用Rnd函數(shù)產(chǎn)生指定范圍的隨機(jī)數(shù)。進(jìn)一步理解文本框的KeyPress事件的應(yīng)用。了解程序的控制流程。3、實驗步驟界面設(shè)計對象名稱對象類型屬性設(shè)置值用途Form1窗體Caption=”第三章實驗一”應(yīng)用程序界面Label1標(biāo)簽程序運行時，設(shè)置Capt

27、ion屬性值顯示題目Label2標(biāo)簽程序運行時，設(shè)置Caption屬性值顯示判斷結(jié)果Text1文本框接受用戶輸入答案Command1命令按鈕Caption=”開始”出題程序代碼在窗體的“通用”，“聲明”中，輸入如下代碼 Dim a%, b%, c%在命令按鈕Command1的Click事件過程中，輸入如下代碼Label1.Caption = Label2.Caption = Text1 = Randomize a = Round(Rnd * 99 + 1) b = Round(Rnd * 99 + 1) Label1.Caption = Str(a) + + + Str(b) + = Text

28、1.SetFocus在文本框Text1的KeyPress事件過程中，輸入如下代碼If KeyAscii = 13 Then c = Val(Text1) If c = a + b Then Label2.Caption = 正確 Else Label2.Caption = 錯誤 End If Command1.SetFocusEnd if 4、思考問題如果要想制作一個能做加、減、乘、除運算練習(xí)的程序，界面應(yīng)如何設(shè)計？第四章練習(xí)題一、單項選擇題1、下面正確的賦值語句是（ ）。 （A） x=y=1 （B） x+y=1（C） x=x+1 （D） sin(x)=52、MsgBox() 過程的正確語法是

29、（ ）。（A） MsgBox(提示信息，標(biāo)題 ，按鈕類型)（B） MsgBox(標(biāo)題 ，按鈕類型 ，提示信息)（C） MsgBox(標(biāo)題 ，提示信息 ，按鈕類型)（D） MsgBox(提示信息 ，按鈕類型 ，標(biāo)題)3、InputBox$() 函數(shù)返回值的數(shù)據(jù)類型是（ ）。 （A） 數(shù)值型 （B） 字符型 （C） 變體型 ( D ) 邏輯型4、用if 語句表示分段函數(shù) SKIPIF 1 0 SKIPIF 1 =1 then if x=1 then f=sqr(x+1) f=sqr(x+1) else End if f=x2+3 End if (C) if x=1 then (D) if x=1

30、then f=sqr(x+1) f=sqr(x+1) End if End if f=x2+3 if x1 then f=x2+3 End if 5、X是單精度類型變量，用Select語句表示下列處理的正確語句是（ ）。當(dāng)0X60 時，輸出“不及格”；當(dāng)60X70 時，輸出“及格”；當(dāng)70X80 時，輸出“中”； 當(dāng)80X90 時，輸出“良”； 當(dāng)90X100 時，輸出“優(yōu)”。 (A) Select case X (B) Select case X Case 0X60 Case 0 to 59 Print “不及格” Print “不及格” Case 60X70 Case 60 to 69 P

31、rint “及格” Print “及格” Case 70X80 Case 70 to 79 Print “中” Print “中” Case 80X90 Case 80 to 89 Print “良” Print “良” Case 90X100 Case 90 to 100 Print “優(yōu)” Print “優(yōu)” Case else Case else Print “不在轉(zhuǎn)換范圍內(nèi)” Print “不在轉(zhuǎn)換范圍內(nèi)” End Select End Select (C) Select case X (D) Select case X Case is 60 Case is =100 Print “不

32、及格” Print “優(yōu)秀” Case is 70 Case is 90 Print “及格” Print “良好” Case is 80 Case is 80 Print “中” Print “中” Case is 90 Case is 70 Print “良” Print “合格” Case is 100 Case is 60 Print “優(yōu)” Print “不及格” Case else Case else Print “不在轉(zhuǎn)換范圍內(nèi)” Print “不在轉(zhuǎn)換范圍內(nèi)” End Select End Select6、下面關(guān)于for next 循環(huán)的敘述中，不正確的說法是（ ）。 (A)

33、省略步長，系統(tǒng)默認(rèn)為：步長是 1 (B) 循環(huán)變量必須是數(shù)值型 (C) 循環(huán)體內(nèi)必須有 Exit For 語句 (D) 如果初值大于終值，不能省略 step 步長，否則循環(huán)只能執(zhí)行一次。7、下面哪個程序不能正確顯示1！，2！，3！，4！的值（ ）。 （A）for i=1 to 4 （B） for i=1 to 4 n=1 for j=1 to i for j=1 to I n=1 n=n*j n=n*j next j next j print n print n next i next i （C） n=1 （D） n=1 : j=1 for j=1 to 4 do while j5 n=n*j

34、 n=n*j print n print n : j=j+1 next j loop 8、下列循環(huán)能正常結(jié)束的是（ ）。 （A） i=5 （B） i=1do do i=i+1 i=i+2 loop until i0 i=i+1 i=i+2 loop until i0 loop9、下列if語句中，語法不正確的是（ ）。 (A) if x1 then print x (B) if x+13 then print xelse print “error” end if (C) if x1 then (D) if x2 then print x y=x+1if x2 then y=x+1 end if

35、end if 10、下面程序運行時會出現(xiàn)（ ）錯誤。 Dim k% ，I% k = 1 For i = 1 To 10 k = k * i Next iPrint k （A） 溢出 （B） 循環(huán)缺少 step （C）變量I 定義時大寫，使用時小寫二、填空題1、x=5 ，y=12，那么 iif( xy , x , y )=( )2、要使FOR k=（ ） to -5 STEP -2語句循環(huán)20次，k的初值應(yīng)是多少？3、I=5，則choose( I ,”+”,”-”,”*”,”/” )=（ ）。4、一條語句要在下一行繼續(xù)寫，用（ ）符號分隔。三、寫出程序運行結(jié)果1、X=Int( Rnd )+3If

36、 x28 then y=x2+1If x2=9 then y=x2-2If x28 then y=x3 Print y 2、 dim I% , S% s=0for I=1 to 5 step -1 s=s+inext Iprint “s=”;s 3、 dim I% , S% s=0for I=5 to 1 s=s+inext Iprint “s=” ; s 4、Dim I% , n% n=0 For I =1 To 20 Step 2I=I+2n=n+1 Next I Print “循環(huán)執(zhí)行次數(shù)=”; n , “退出循環(huán)時，循環(huán)控制變量的值=”；I 5、Dim I% , J%FOR I=1 T

37、O 5 Print Spc(I) ； FOR J=I TO 5 Print “”；NEXT JPrint NEXT I 6、dim a% , b% , I% , j% , s$ b=10 : a=3 for I=b to a step -2 b=a+b a=a+b s=”*”for j=b to a step -1 s=s & “*” print “在J循環(huán)內(nèi)打印的內(nèi)容是：” ; snext jprint “在I循環(huán)內(nèi)打印的內(nèi)容是：” ; s next i 四、程序填空1、下面的程序段是檢查輸入的算術(shù)表達(dá)式中園括號是否配對，并顯示響應(yīng)的結(jié)果。本程序在文本框中輸入表達(dá)式，邊輸入，邊統(tǒng)計，以輸入回

38、車符作為表達(dá)式輸入結(jié)束。然后顯示結(jié)果。Dim count1% 在窗體的通用聲明中定義Private Sub Text1_KeyPress( KeyAscii As Integer ) If _ =”(” Then count1=count1+1 elseif _ =”)” Then _ End If If KeyAscii=13 Then If _ Then Print “左右括號配對” Elseif _ Then Print “左括號多于右括號”；count1；”個” Else Print “右括號多于左括號”； -count1；”個” End if End if End Sub2、輸入若干

39、字符，統(tǒng)計有多少個元音字母、多少個其他字母，直到按回車鍵結(jié)束，并顯示結(jié)果，不區(qū)分字母的大小寫。變量countX存放元音字母個數(shù)，變量countY存放其他字母個數(shù)。Dim CountX% , CountY% 在窗體的通用聲明中定義Private Sub Text1_KeyPress( KeyAscii As Integer ) Dim ST$ ST= _ If “A”=ST And ST=”Z” Then Select Case _ Case _ CountX=CountX+1 Case _ CountY=CountY+1End Select End If If _ Then Print “元音

40、字母有”；CountX；”個” Print “其他字母有”；CountY；”個” End IfEnd Sub3、下面是一個求100以內(nèi)的素數(shù)的程序。每行輸出5個素數(shù)。Dim I%, j% ,m%, pd as Boolean For I=2 to 100 Pd=true For j=2 to I-1 If I mod j =0 then Pd=_ Exit for End if Next j If pd then _ M=M+1 If M mod 5 =0 then _ End if End if Next I4、下面是一個將輸入的字符串以相反順序打印出來的程序。 例如： 輸入：”asdfgh

41、” 輸出：”hgfdsa” dim st1$ , st2$ , n% , I% st1=inputbox$(“請輸入字符串 st1：”)n=_ st2=_ for i=n to 1 step -1 st2=_+mid(st1,I,1) next i print st25、下面是一個計算S=1+（1+2）+（1+2+3）+(1+2+n)的程序，程序運行時， 用戶輸入n的值，程序便可計算出S的值并顯示出來。請在程序中的下劃線處 填上適當(dāng)?shù)恼Z句，使程序完整。 Dim I% , J% , n% , T! , S! n=val( inputbox( “請輸入n 的值” ) T=0 _For I=1 to

42、 nT=T+I _ Next I Print “S=” ; S6、下面是一個用輾轉(zhuǎn)相除法求兩個正整數(shù)A，B的最大公因數(shù)的程序，請在下劃線處填上正確的語句。Dim A% , B% , R% , A=Val ( InputBox(“請輸入A=”) ) _ if A= 97 And Asc(st) = 122 Then a(Asc(st) - 96) = _ + 1 End If Next i Text2 = “” For i = 1 To 26 Text2 =_ Next iEnd Sub7、下面程序的功能是：找出被3、5、7除，余數(shù)為1的最小的5個整數(shù)。 Dim CountN% , N% Cou

43、ntN=0 N=1 Do N=N+1If N mod 3=1 and N mod 5=1 and N mod 7=1 then Print N CountN= CountN+1End if Loop _五、程序設(shè)計1、設(shè)計一程序，用戶輸入三角形的三條邊A，B，C的長度，然后程序判斷它們能否構(gòu)成三角形。如果能構(gòu)成三角形，則計算出面積并輸出，然后程序結(jié)束；如果不能構(gòu)成三角形，則提示用戶：不能構(gòu)成三角形并轉(zhuǎn)回重新輸入。 計算面積的公式為：面積= SKIPIF 1 0 ，L=(A+B+C)/22、寫一個程序打印出所有的“水仙花數(shù)”。水仙花數(shù)是指三位的正整數(shù)，其各位數(shù)字的立方之和等于該正整數(shù)本身。例如：

44、407=4*4*4+0*0*0+7*7*7。3、設(shè)計程序計算 Cosx=1- SKIPIF 1 0 +(-1) SKIPIF 1 0 SKIPIF 1 0 +( n=0、1、2 ), 要求用戶輸入x 值及精度值后，程序計算出Cosx且誤差小于精度值。六、實驗題實驗一1、題目編寫一個求圓的周長和面積的程序，初始界面如：圖一所示。當(dāng)用戶點擊“開始”按鈕時，打開如：圖二所示的對話框，當(dāng)用戶輸入圓的半徑并按其上的“確定”按鈕（或打“回車”鍵）后，程序計算出周長和面積并出現(xiàn)如：圖三所示的畫面。圖一圖二圖三 2、實驗?zāi)康膶W(xué)習(xí)掌握利用inputbox$()函數(shù)來為變量賦值。學(xué)習(xí)控件的隱藏與顯現(xiàn)技術(shù)的應(yīng)用。進(jìn)

45、一步掌握程序控制邏輯。3、實驗步驟界面設(shè)計對象名對象類型屬性設(shè)置用途Form1窗體Caption=”第四章實驗一”Label1標(biāo)簽Caption=”計算圓的周長和面積”Text1文本框Visible=FalseCommand1命令按鈕Caption=”開始”代碼設(shè)計Private Sub Command1_Click() Dim r!, zc!, mj! Text1.Visible = False r = Val(InputBox(請輸入圓的半徑:, 輸入數(shù)據(jù), 2.5) zc = 2 * 3.14 * r mj = 3.14 * r 2 Text1.Visible = True Text1

46、= Text1 = 圓的周長= + Str(zc) + vbCrLf Text1 = Text1 + 圓的面積= + Str(mj) Command1.SetFocusEnd Sub4、思考問題為什么程序開始時要隱藏文本框text1。此程序有一個明顯的、致命的缺陷，請指出來。實驗二1、題目設(shè)計一個程序，它由兩個窗體構(gòu)成，窗體Form1是登錄窗體，如圖一所示；窗體Form2是程序的主窗體，如圖二所示。程序運行時，首先出現(xiàn)“登錄”窗體，當(dāng)用戶輸入正確的用戶名（假定：用戶名是student，密碼是123456）并點擊“確定按鈕”時，程序開始驗證其正確性。如果正確，則關(guān)閉“登錄”窗體并打開主窗體；否則

47、讓用戶重新輸入用戶名和密碼。圖一圖二2、實驗?zāi)康膶W(xué)習(xí)如何向工程添加窗體。學(xué)習(xí)窗體的打開與關(guān)閉技術(shù)。3、實驗步驟建立工程設(shè)計窗體form1界面設(shè)計對象名對象類型屬性設(shè)置用途Form1窗體Caption=”登錄程序”Label1標(biāo)簽Caption=”用戶名”提示用戶Label2標(biāo)簽Caption=”密碼”提示用戶Text1文本框接收用戶輸入Text2文本框PasswordChar=”*”接收用戶輸入Command1命令按鈕Caption=”開始”驗證用戶名及密碼代碼設(shè)計Private Sub Command1_Click() If Trim(Text1) = student And Trim(Te

48、xt2) = 123456 Then Unload Form1 Form2.Show Else MsgBox 用戶名或密碼錯誤 Text1 = Text2 = Text1.SetFocus End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2 = Text2.SetFocus End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocu

49、s End IfEnd Sub向工程添加并設(shè)計窗體form2 打開“工程”菜單，點選“添加窗體”命令，出現(xiàn)的如下對話框：如果要添加一個“新建”窗體則直接按“打開”按鈕即可；如果要添加一個原來已經(jīng)建立好的窗體則點擊“現(xiàn)存”選項卡，在打開的對話框中選擇你要的窗體。界面設(shè)計與實驗一基本相同代碼設(shè)計Private Sub Command1_Click() Dim r!, zc!, mj!, st$ Label1.Visible = False Text1.Visible = Falsel1: st = Val(InputBox(請輸入圓的半徑:, 輸入數(shù)據(jù), 2.5) If Not IsNumeric

50、(st) Then MsgBox 半徑必須是數(shù)字 GoTo l1 Else r = Val(st) End If zc = 2 * 3.14 * r mj = 3.14 * r 2 Label1.Visible = True Text1.Visible = True Text1 = Text1 = 圓的周長= + Str(zc) + vbCrLf Text1 = Text1 + 圓的面積= + Str(mj) Command1.SetFocusEnd Sub4、思考問題驗證用戶名和密碼時，直接將用戶名=”student”，密碼=“123456”寫在程序中，有什么缺點？在窗體Form2的命令按鈕

51、command1的Click事件過程中，有如下一段代碼：L1: st = Val(InputBox(請輸入圓的半徑:, 輸入數(shù)據(jù), 2.5) If Not IsNumeric(st) Then MsgBox 半徑必須是數(shù)字 GoTo L1 Else r = Val(st) End If它的作用是什么？實驗三1、題目編寫一個程序，計算函數(shù)sin(x)= x- SKIPIF 1 0 +(-1) SKIPIF 1 0 SKIPIF 1 = 0.00001 e = e + p * t i = i + 1 n = (2 * i - 1) * (2 * i - 2) * n s = s * x * x t

52、 = s / n If i Mod 2 = 0 Then p = -1 Else p = 1 End If Loop Text1 = e Text2 = Sin(x)End Sub4、思考問題本程序采用的算法存在一個嚴(yán)重的問題：程序采用的方法是先計算出x2n-1和(2n-1)!，然后再計算 SKIPIF 1 0 。當(dāng)n很大時，x2n-1和(2n-1)!都會超界，但 SKIPIF 1 0 并不會超界。你認(rèn)為該如何修改此算法，使計算能夠繼續(xù)進(jìn)行。本程序中，變量pd的作用是什么？第五章練習(xí)題一、單項選擇題1、下面關(guān)于靜態(tài)數(shù)組下標(biāo)的敘述中，不正確的是（ ）。 (A) 下標(biāo)必須是常數(shù)，不能是變量或表達(dá)式

53、 (B) 下標(biāo)下界最小為：-32768 ，下標(biāo)上界最大為：32767 (C) 省略下界，一般系統(tǒng)默認(rèn)為：下界是 0 (D) 下標(biāo)可以是字符型2、下面聲明數(shù)組的語句中，正確的是（ ）。Dim a 3 , 4 as integerDim a( 1 to 3 , 4 ) as integerDim a( m , n ) as integerDim a( 3 、4 ) as integer3、Dim A(-2 to 1,2 ) 語句定義的分量個數(shù)是（ ）。 （A）2 （B）4 （C）9 （D） 124、下面關(guān)于動態(tài)數(shù)組的敘述中，不正確的說法是（ ）。 （A）要使用動態(tài)數(shù)組，首先用Dim 數(shù)組名（） 聲

54、明，使用時必須用ReDim語句重定義數(shù)組的維數(shù)、下標(biāo)的個數(shù)，但不能重定義數(shù)組的類型。 （B）用ReDim語句對數(shù)組重定義時，下標(biāo)不能為常量。 （C）用ReDim語句對數(shù)組重定義時，下標(biāo)可以是常量或有固定值的變量。（D）可以多次使用ReDim語句來改變數(shù)組的大小，每次使用ReDim語句都會使原來數(shù)組中的值丟失 。5、下面錯誤的程序段是（ ）。 (A) Dim a(5) As integer (B) Dim a(5) As integer for i=1 to 5 Dim S$ a(i)=I a(1)=”a” next I a(2)=”b” a(i)=10 (C) Dim a() As integ

55、er (D) Dim a(5) As integer Redim a(5) as single for i=0 to Ubound(a) a(1)=4.5 a(i)=2*i+1 next i 二、填空題1、設(shè)dim a(10，5)，則Lbound( a )=_，Ubound(a , 1)=_。2、設(shè)a=Array(1,2,3,4,5)，則a(3)=_。3、設(shè)dim a%(5) , b$(5)，則操作a=b的結(jié)果是_。三、寫出程序運行結(jié)果1、 Dim m%, n%, a%(4, 4) For m = 1 To 3 For n = 1 To 3 a(m , n) = m + n Next nNex

56、t mFor n=1 to 3 a( 4 , n)=0 for m=1 to 3 a( 4 , n)= a( 4 , n)+a(m , n) next m Next nFor m = 1 To 4 For n = 1 To 3 Print a(m , n) , Next n PrintNext m 2、Dim s(1 To 4, 1 To 4) As String Dim i%, j% For i = 1 To 4 s(i, i) = Chr(65) For j = 1 To i - 1 s(i, j) = s(j, i) Next j For j = i + 1 To 4 s(i, j) =

57、 Chr(65 + j - i) Next j Next i For i = 1 To 4 For j = 1 To 4 Print s(i, j); ; Next j Print Next i 3、Dim a%(3, 3), b%(3, 3), i%, j% For i = 0 To 3 For j = 0 To 3 a(i, j) = 2 * i + j b(j, i) = a(i, j) Next j Next i Text1 = For i = 0 To 3 For j = 0 To 3 Text1= Text1 + Str(b(i, j) + Next j Text1= Text1+

58、 vbCrLf Next i 四、程序填空1、下面是一個對數(shù)組排序的程序，請在劃線處添上適當(dāng)?shù)恼Z句。 dim a(6) as integer dim i% , j% , k% , t%a=Array(8 , 6 , 9 , 3 , 2 , 7)for i=1 to 5 _ for j=i+1 to 6 if a(k)a(j) then k=j end if next jif _ then t=a(k) : a(k)=a(i) : a(i)=kend ifnext i 2、下面是一個做矩陣轉(zhuǎn)置的程序，如下圖所示，請在劃線處添上適當(dāng)?shù)恼Z句。Dim a%(3, 3), b%(3, 3), i%, j

59、% Text1 = For i = 0 To For j = 0 To 3 a(i, j) = 2 * i + j b(j, i) = Text1 = Text1 + Str(a(i, j) + Next j Text1 = Text1 + vbCrLf Next i Text2 = For i = 0 To 3 For j = 0 To 3 Text2 = Text2 + Str(b(i, j) + Next j Text2 = Text2 + vbCrLf Next i3、下面是一個統(tǒng)計文章中字母AZ（不分大小寫）出現(xiàn)的次數(shù)的程序。文本框text1中存放一篇英文文章，文本框text2用來顯

60、示統(tǒng)計結(jié)果。請在劃線處添上適當(dāng)?shù)恼Z句。Dim zms(1 To 26) As Integer 此數(shù)組用來存放字母AZ出現(xiàn)的次數(shù)，zms(1)存放A或a Dim n%, i%, k%, st$ 出現(xiàn)的次數(shù)，依此類推。 For i = 1 To 26 zms(i) = 0 Next i n=_ For i = 1 To n st = Mid(Text1, i, 1) If a = st And st = z Or A = st And st = Z Then st = UCase(st) k = _ zms(k - 64) = zms(k - 64) + 1 End If Next i Text2