2020年程序設(shè)計基礎(chǔ)VB作業(yè)題精品版

1、精選文檔第一章 練習(xí)題精選文檔選擇題1、不需要編譯，計算機便可直接執(zhí)行的程序是（）。A C 語言程序B Visual Basic 語言程序C 匯編語言程序器語言程序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)試、運行 V

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

3、當(dāng)用戶按“顯示”按鈕時，在窗體上顯示出“歡迎使用VB6.0 字樣；當(dāng)用戶按“清屏”按鈕時，清除窗體上的文字內(nèi)容。程序有兩個標(biāo)簽。一個用來顯示顯示“ VB程序設(shè)計”字樣；一個用來顯示“系統(tǒng)當(dāng)前時間”。2、實驗?zāi)康?初步了解IDE各窗口的用途及操作。 初步了解一個 VB程序的設(shè)計過程。 觀察一個VB程序的構(gòu)成。3、實驗步驟啟動IDE單擊任務(wù)欄的“開始菜單” t程序tMicrosoft Visual Studio 宀Microsoft VisualBasic6.0便出現(xiàn)“新建工程”對話框，如下圖所示。選擇“標(biāo)準(zhǔn)EXE”工程類型，按“打開”按鈕。便進入了IDE的界面如下圖所示：界面設(shè)計 在“窗體設(shè)計”

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

5、其為“句柄”）。如果你要同時選中許多控件，你可以按住Ctrl鍵在用鼠標(biāo)點選所要的控件。調(diào)整大小方法一：將鼠標(biāo)移到被選中控件上下邊的句柄上（這時你會發(fā)現(xiàn)鼠標(biāo)指針圖形變成 了雙向箭頭狀），按住鼠標(biāo)左鍵上下拖放即可該變控件的高度。將鼠標(biāo)移到被選中控件左右邊的句柄上，按住鼠標(biāo)左鍵左右拖放即可該變控件的寬度。方法二：選中要調(diào)整的控件，按住shift鍵，同時按四個鍵來調(diào)整控件的高度、寬度。方法三：通過屬性窗口設(shè)置該控件的Height屬性值可改變控件的高度，設(shè)置該控件的Width屬性值可改變控件的寬度。調(diào)整位置方法一：選中要調(diào)整的控件，按住鼠標(biāo)左鍵拖放。方法二：選中要調(diào)整的控件，按住 Ctrl鍵，同時按四個

6、鍵來 調(diào)整控件的位置。方法三：通過屬性窗口設(shè)置該控件的Top屬性值，可改變控件頂邊到其容器 （窗體）頂邊的距離；設(shè)置該控件的Left屬性值，可改變控件左邊到其容器左邊的距離。刪除控件如果想刪除窗體中的某個控件，你可以用鼠標(biāo)右擊該控件，這時會出現(xiàn)一個“快捷菜單”，選擇其中的“刪除”命令。對齊控件如果你要使一些控件按某種方式對齊，你可以先選中這些控件，然后打開“格式”菜單并把鼠標(biāo)指向“對齊”命令，從出現(xiàn)的二級菜單中選擇所要的對齊方 式。鎖定控件如果你已經(jīng)把一些控件的大小、位置調(diào)整好了，你可以把它們鎖定，防止誤操作改變其位置。鎖定控件的步驟是：選中控件，然后打開“格式”菜單，選擇“鎖定”命令。 設(shè)置

7、窗體、控件的屬性對象名稱對象類 型屬性設(shè)置值用途Forml窗體Caption-第一早示例11程序界面Picture=窗體背景圖片文件名全稱， 例如：Picture- "d:VB示例 第一章tx1.bmp ”Labell標(biāo)簽Caption- "VB程序設(shè)計”顯示 個標(biāo)題Label2標(biāo)簽Captio n-系統(tǒng)當(dāng)前時間顯示系統(tǒng)時間Comma nd1命令按鈕Caption="顯示”在窗體上打印文字Comma nd1命令按 鈕Caption= ”清屏”清除窗體上的文字Timer1時鐘Interval=100 (單位是：毫秒)鬧鐘為相關(guān)控件的有關(guān)事件過程編寫程序代碼對命令按鈕

8、Command1的Click (即鼠標(biāo)左單擊)事件過程編寫如下代碼Private Sub Comma nd1_Click()Curre ntX = 2100Curre ntY = 500Print"歡迎使用 VB"End Sub對命令按鈕 Command2的Click事件過程編寫如下代碼Private Sub Comma nd2_Click()ClsEnd Sub對時鐘的Timer1的Timer事件過程編寫如下代碼Private Sub Timer1_Timer()Label2.Captio n = Time()End Sub注意：事件過程的頭、尾是系統(tǒng)自動給出的，不須用戶

9、輸入。 運行、結(jié)束程序運行程序方法一：點擊工具欄上的“啟動”按鈕，如右圖所卜 示：方法二：打開“運行”菜單t選擇“啟動” 方法三：按功能鍵F5結(jié)束程序方法一：點擊工具欄上的“結(jié)束”按鈕，如右圖所示：|H方法二：打開“運行”菜單t選擇“結(jié)束” 方法三：點擊程序窗體上的“關(guān)閉”按鈕 方法四：按住Ctrl鍵，再按Break鍵。保存程序一個應(yīng)用程序設(shè)計完成后，程序被存放在計算機的內(nèi)存中。如果計算機被 關(guān)閉或重啟，程序就會丟失。要想使程序長期保存，就必須把程序存放在計算 機的磁盤中。按工具欄中的“保存”按鈕，如右圖所示：:然后在出現(xiàn)的“對話框”中，選擇文件的存放位置、文件名。當(dāng)把所有的窗體文件、工程文件

10、都存儲完后，出現(xiàn)一個如下圖所示的對話框:修改程序要對已經(jīng)存過盤的工程進行修改，步驟如下:到存放工程的文件夾雙擊“工程文件”，圖標(biāo)如下圖修改存盤4、思考回答問題 當(dāng)一個程序被存盤后，有那些文件？能否用Windows的重命名功能對某個文件重命名？ 當(dāng)你使用 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 方法在窗體的

11、 Load 事件過程中不起作用，原因是（ ）屬性 的值為 false。（A） AutoRedraw （B）Moveable （C） MaxButton （D ） ControlBox3、在運行時，要使窗體既不能移動有不能改變大小，應(yīng)設(shè)置 BorderStyle=（） 。（A） 0 （B ） 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)

12、Caption ( D ) Alignment）屬性。（D ） Font）屬性。BackStyle （ D） ToolTipText6、要設(shè)置標(biāo)簽控件字體的大小，應(yīng)設(shè)置其（ （A）Height （B）Width （ C） Caption7、要使標(biāo)簽控件標(biāo)題內(nèi)容居中顯示，應(yīng)設(shè)置其（ （ A） Alignment （ B） Appearance （ C）8、程序運行時，要使用戶不能修改文本框中的內(nèi)容，那么應(yīng)設(shè)置A ) Enabled=FalseB ) MultiLine=False（ C） Locked=True（ D ） PasswordChar=”* ”9、當(dāng)設(shè)置文本框的 ScrollBars

13、=Both 而文本框確沒有顯示出滾動條，原因 是（ ）。（ A ）文本框中沒有內(nèi)容（ B ）文本框的 MultiLine=False（C）文本框的 Locked=True（ D）文本框的 MultiLine=True10、程序運行時， 要使用戶不能修改文本框中的內(nèi)容， 那么應(yīng)設(shè)置 （ A） Enabled=False（ B） MultiLine=False（ C） Locked=True（ D） PasswordChar=”* ”11、要使鼠標(biāo)指向 “命令按鈕” 時，出現(xiàn)一個提示文本， 應(yīng)設(shè)置其 屬性。（ A） Caption （ B） Picture（ C） ToolTipText （ D）

14、 Style12、 要使命令按鈕在運行時能力喪失（不能用），Enabled= （）。（A） True（B） False13、 使命令按鈕獲得“焦點”的方法是（）。A) LinkSend ( B) Move( C) SetFocus ( D) Refresh14、一個窗體上有三個文本框，按放置順序分別是：Text1， Text2 ， Text3 ，若使程序運行時 Text3 首先獲得“焦點” ，那么，應(yīng)設(shè)置其（ ）屬性值 為0 。（ A） Top （B） Tag （ C） Tabindex （ D） Index15、一個窗體上有兩個文本框， 按放置順序分別是： Text1 ，Text2 ，要想在

15、 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（） 16、用一個對象來表示： “一只白色的足球被踢進球門” ，那么，白色、足球、 踢、進球門分別是（ ）。（A ）屬性、對象、方法、事件（ B ）屬性、對象、事件、方法（C）對象、屬性、方法、事件（D）對象、屬性、

16、事件、方法17、下面關(guān)于對象屬性的敘述中，不正確的是（）。A 屬性是對一個對象特征的描述。B 屬性都有名稱、取值類型、值。C 屬性的值必須在設(shè)計時確定。D 有些屬性的值可以在程序運行時改變。二、填空題1、當(dāng)雙擊控件工具箱中的控件是，系統(tǒng)默認(rèn)地把控件放到（）中。2、 一般來說對象有屬性、方法、事件，（）是指對象具有作某種事的能力。3、app.path 返回值的含義是 （ ）。4、 要使標(biāo)簽背景透明（與其容器的背景一致），應(yīng)設(shè)置其（）屬性值為 0。5、文本框的 MaxLength=0 的含義是（ ）。6、往當(dāng)前工程中添加窗體的操作步驟是：打開（）菜單，選擇（ ）命令。三、簡答題1、假如一個工程有兩

17、個窗體 Form1 、 Form2 ，其中 Form1 為啟動窗體，如果你 想讓 Form2 為啟動窗體，應(yīng)如何操作？2、簡述“標(biāo)簽”與“文本框”的區(qū)別。3、假如一個窗體上有三個“文本框”，按放置順序依次為 Textl、Text2、Text3 ,若要使程序運行時，Text3首先獲得“焦點”，應(yīng)如何操作？四、實驗題實驗一1、題目設(shè)計一個簡單VB小程序，界面如下右圖所示。第一個輸出項 笫二個輸出項 現(xiàn)在的時冋是I 10:30:19k= 5y= 4 x+尸 10Movef 法窗體上有三個命令按鈕，按“Print方法”按鈕在窗體上顯示信息；按“ Cis方法”按鈕清除窗體的信息；按“Move方法”按鈕使

18、窗體往右下角移動。窗體被加載時，在窗體的標(biāo)題欄中顯示“第二章實驗一”字樣。2、實驗?zāi)康?了解窗體Load事件的發(fā)生條件及用途。初步掌握窗體的 Print、Cis、Move方法的使用。初步掌握命令按鈕的 Clik事件的發(fā)生條件及用途。3、實驗步驟界面設(shè)計對象名稱對象類 型屬性設(shè)置值用途Forml窗體Fon t.size=24程序界面Comma nd1命令按鈕Caption= "Print 方法”在窗體上打印文字Comma nd2命令按鈕Caption= "Cis 方法”清除窗體上的文字Comma nd3命令按鈕Caption= "Move 方法”移動窗體代碼設(shè)計Pr

19、ivate Sub Form_Load()Caption ="第二章實驗一 ”Fo nt.sEnd SubPrivate Sub Comma nd1_Click()Print"第一個輸出項","第二個輸出項”Print "現(xiàn)在的時間是：”;Time()Prin t "x=" 5, "y=" 4;Prin t "x+y=" 10End SubPrivate Sub Comma nd2_Click()ClsEnd SubPrivate Sub Comma nd3_Click()Move L

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

21、性設(shè)置值用途Forml窗體Capti on=第一早實驗一應(yīng)用程序界面Labell標(biāo)簽Caption= ”請輸入圓的半徑”提示用戶Label2標(biāo)簽Caption-圓的周長、面積提示用戶Textl文本框接受用戶輸入Text2文本框MultiLi ne-True顯示計算結(jié)果Comma nd1命令按鈕Caption-"計算”作計算程序代碼Private Sub Comma nd1_Click()Dim r1, zc!, mj!r = Val(Text1.Text)zc = 2 * 3.14 * rmj = 3.14 * r A 2Text2 ="圓的周長="+ Str(z

22、c) + vbCrLfText2 = Text2 + "圓的面積="+ Str(mj)End SubPrivate Sub Text1_GotFocus()Textl =""Text2 =""End SubPrivate Sub Text1_KeyPress(KeyAscii As In teger)If KeyAscii = 13 ThenComma nd1.SetFocusEnd IfEnd Sub4、思考問題請指出該程序的缺陷。為什么要在text1的GotFocus事件過程中，清空兩個文本框的內(nèi)容?第三章練習(xí)題一、選擇題1、表達

23、式 16/4-2人5*8/4Mod 52 = （）。（A） 14 （B） 4（ C） 20（ D ） 22、數(shù)學(xué)式3 < X V 5寫成VB表達式是（）（A）3<=X<5（ B） 3<=X or X<5（C） 3<=X and X<5（D）X>=3 and <53、x=2 ，則表達式 x+1>2 Or sin（ x ） >0.9 And 3>x+3= （ ）。 （A）True （ B） False（ C ） 不能計算4、將邏輯型數(shù)據(jù)轉(zhuǎn)換成整型數(shù)據(jù)時，轉(zhuǎn)換規(guī)則是（）。（A）將 True 轉(zhuǎn)換為-，將False 轉(zhuǎn)換為0（ B

24、）將 True 轉(zhuǎn)換為1，將False 轉(zhuǎn)換為-（ 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 ）-7 （C） -9 （D）-67、對不同類型的運算符優(yōu)先級規(guī)定是（）。> 關(guān)系運算符> 關(guān)系運算符> 邏輯運算符> 邏輯運算符> 邏輯運算符> 邏輯運算符> 關(guān)系運算符> 算術(shù)運算符（A） （ B） （ C

25、） （ D ）字符運算符 > 算術(shù)運算符 > 算術(shù)運算符 > 字符運算符 >算術(shù)運算符 字符運算符 字符運算符 關(guān)系運算符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 、隨機產(chǎn)生 10 ， 50 之間整數(shù)的正確表達式是（）。（A）Round（ Rnd*51）（B）Int（Rnd*40+10）（ C）Round（ Rnd*50）（ D ）10+Int（Rnd*41）11、賦值語句 A=123 + Mid$（ “123456”

26、,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 時，貝U C$是(A) 大寫字母(B)小寫字母(C)字母 (D)不一定14、InStr(1, eFCdEfGh”，“EF”，1)=()。(A)5(B)6(C)0 (D)1二、填空題1、si n15x e3的VB表達式為(2、把X是5或7的倍數(shù)寫成VB表達式是()。3、表達式 Uca

27、se( Mid ("abcdefgh”，3,4 ) = ()。4、k=123%，貝U Len (Str ( k)=()。5、表示變量S是字母(不分大小寫)的VB表達式是()。6、DateAdd ( ”m” , 1 , #1/25/2004# )=()。7、 IsNumeric (” 123asd) = ()。8、 取出一個三位整數(shù) x的十位上的數(shù)字(例如：324十位上的數(shù)字是 2)的VB 表達式是(三、實驗題1、題目編寫一個程序，界面如下圖所示。當(dāng)用戶單擊“開始”按鈕時，程序隨機產(chǎn)生兩個1-100之間的整數(shù)a和b，并把”a+b= ”字樣顯示在標(biāo)簽 Label1中，等待用 戶在文本框t

28、ext1中輸入答案。當(dāng)用戶在文本框text1中輸入了答案并按“回車”鍵后，程序開始判斷答案是否正確，并將判斷結(jié)果顯示在標(biāo)簽Label2中，同時將“焦點”放到“開始”按鈕上。5+ 41 =正確2、實驗?zāi)康?學(xué)習(xí)使用Rnd函數(shù)產(chǎn)生指定范圍的隨機數(shù)。進一步理解文本框的 KeyPress事件的應(yīng)用。 了解程序的控制流程。3、實驗步驟 界面設(shè)計對象名稱對象類 型屬性設(shè)置值用途Form1窗體Caption="第三章實驗一 ”應(yīng)用程序界面Label1標(biāo)簽程序運行時，設(shè)置 Caption屬性值顯示題目Label2標(biāo)簽程序運行時，設(shè)置 Caption屬性值顯示判斷結(jié)果Text1文本框接受用戶輸入答 案

29、Comma nd1命令按鈕Caption="開始”出題程序代碼在窗體的“通用”，“聲明”中，輸入如下代碼Dim a%, b%, c%在命令按鈕 Command1的Click事件過程中，輸入如下代碼Labell.Caption =""Label2.Caption =""Textl =""Ran domizea = Roun d(R nd * 99 + 1)b = Roun d(R nd * 99 + 1)Label1.Caption = Str(a) + "+" + Str(b) + "=&quo

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

31、（x）=52、MsgBox（）過程的正確語法是（）。（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ù)丿Jx +12XX 1不正確的程序段是、X +3X()0(A)f=xA2+3(B) ifx>=1the nif x>=1 the nf=sqr(x+1)f=sqr(x+1)elseEnd iff=xA2+3End

32、if(C) if x>=1 the n(D) if x>=1the nf=sqr(x+1)f=sqr(x+1)End ifEnd iff=xA2+3if x<1then f=xA2+3End if5、X是單精度類型變量，用Select語句表示下列處理的正確語句是。當(dāng)0wX v 60時，輸出“不及格”；當(dāng)60W X v 70時，輸出“及格”； 當(dāng)70W X v 80時，輸出“中”;當(dāng)80w X v 90時，輸出“良”;當(dāng)90w X w 100時，輸出“優(yōu)”。(A) Select case XCase 0 w X v 60Print “不及格 ”Case 60w Xv 70Pri

33、nt “及格 ”Case 70w Xv 80Print “中 ”Case 80w Xv 90Print “良 ”Case 90w Xw 100Print “優(yōu) ”Case elsePrint “不在轉(zhuǎn)換范圍內(nèi) ”End Select(C) Select case XCase is v 60Print “不及格 ”Case is v 70Print “及格 ”Case is v 80Print “中 ”Case is v 90Print “良 ”Case is w 100Print “優(yōu) ”Case elsePrint “不在轉(zhuǎn)換范圍內(nèi) ” End Select(B) Select case X

34、Case 0 to 59Print “不及格 ”Case 60 to 69Print “及格 ”Case 70 to 79Print “中 ”Case 80 to 89Print “良 ”Case 90 to 100Print “優(yōu) ”Case elsePrint “不在轉(zhuǎn)換范圍內(nèi) ”End Select(D) Select case XCase is v =100Print “優(yōu)秀 ”Case is v 90Print “良好 ”Case is v 80Print “中 ”Case is v 70Print “合格 ”Case is v 60Print “不及格 ”Case elsePrin

35、t “不在轉(zhuǎn)換范圍內(nèi) ” End Select6、下面關(guān)于fornext循環(huán)的敘述中，不正確的說法是()。(A) 省略步長，系統(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）n=1for j=1 to In=n*jnext jprint nnext i（C） n=1（ D）for j=1 to 4 n=n*j print n next j 8、下列循環(huán)能正常

36、結(jié)束的是（ A ） i=5 do i=i+1 loop until i<0（ C）i=10do i=i+1 loop until i>09、下列if 語句中，語法不正確的是（A）ifx>1then print x（C）ifx>1thenprintxif x>2 then y=x+1endif10、下面程序運行時會出現(xiàn)（ Dim k% ， I% k = 1for i=1 to 4 for j=1 to i n=1 n=n*j next j print n next in=1 : j=1do while j<5n=n*jprint n : j=j+1loop）。

37、（ B） i=1 do i=i+2 loop until i=10（ D）i=6do while i>0 i=i+2 loop）。（B）if x+1>3 then print x else 丄a”print “error ” end if（D） if x>2 then y=x+1 end if）錯誤。For i = 1 To 10 k = k * iNext iPrint k(A)溢出(B)循環(huán)缺少step (C)變量I定義時大寫，使用時小寫二、填空題1、x=5 ， y=12,那么 iif( x>y , x , y )=(2、要使 FOR k=() to -5 STEP

38、多少？)-2語句循環(huán)20次，k的初值應(yīng)是3、1=5，則 choose( I，”+”,”/”)=()。4、一條語句要在下一行繼續(xù)寫，用()符號分隔。三、寫出程序運行結(jié)果1、X=I nt( Rnd )+3IfxA2>8the ny=xA2+1IfxA2=9the ny=xA2-2IfxA2<8the ny=xA3Print y2、dim I% , S%s=0for I=1to 5 steps=s+inext I-1printa ?s= ;s3、dimI% , S%s=0forI=5 to 1s=s+in extIprinta ?s= ; s4、DimI% , n%n=0For I =1

39、 To 20 Step 21=1+2n=n +1Next IPrint循環(huán)執(zhí)行次數(shù)=” n ,退出循環(huán)時，循環(huán)控制變量的值=” I 5、Dim I% , J%FOR I=1 TO 5 Print Spc(I);FOR J=I TO 5Print ”NEXT JPrintNEXT I6、dim a% , b% , I% , j% , s$ b=10 : a=3for I=b to a step -2 b=a+b a=a+bs= *for j=b toa step -1s=s & print 在J循環(huán)內(nèi)打印的內(nèi)容是：” ;snext j print 在I循環(huán)內(nèi)打印的內(nèi)容是：” ;snext

40、 i四、程序填空1、下面的程序段是檢查輸入的算術(shù)表達式中園括號是否配對，并顯示響應(yīng)的結(jié) 果。本程序在文本框中輸入表達式，邊輸入，邊統(tǒng)計，以輸入回車符作為表達 式輸入結(jié)束。然后顯示結(jié)果。Dim cou nt1%在窗體的通用聲明中定義Private Sub Text1_KeyPress( KeyAscii As In teger )If = ” The ncoun t1=co un t1+1elseif = ”)” ThenEnd IfIf KeyAscii=13 ThenIf ThenPrint “左右括號配對 ”Elseif ThenPrint “左括號多于右括號 ”； count1； ”個

41、”ElsePrint 右括號多于左括號”；-count1;"個”End ifEnd ifEnd Sub2、輸入若干字符，統(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” ThenSelect Case Case CountX=C

42、ountX+1Case CountY=CountY+1End SelectEnd IfIf ThenPrint “元音字母有 ”； CountX； ”個”Print “其他字母有 ”； CountY； ”個”End IfEnd Sub3、下面是一個求 100 以內(nèi)的素數(shù)的程序。每行輸出 5 個素數(shù)。Dim I%, j% ,m%, pd as BooleanFor I=2 to 100Pd=trueFor j=2 to I-1If I mod j =0 thenPd=Exit forEnd ifNext jIf pd thenM=M+1If M mod 5 =0 thenEnd if End i

43、f Next I4、下面是一個將輸入的字符串以相反順序打印出來的程序。例如：輸入： ”asdfgh” 輸出： ”hgfdsa”dim st1$ , st2$ , n% , I% st1=inputbox$( “請輸入字符串 st1：”)n=st2=for i=n to 1 step -1st2=+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! ,

44、S!n=val( inputbox( “請輸入 n 的值 ”)T=0For I=1 to nT=T+INext IPrint “S=”; S6、下面是一個用輾轉(zhuǎn)相除法求兩個正整數(shù)A，B 的最大公因數(shù)的程序，請在下劃線處填上正確的語句。Dim A% , B% , R% ,A=Val ( InputBox( 請輸“入 A= ”)if A<B thenEnd ifDoR=A Mod BIf R=0 thenEnd ifA=BB=RLoopPrint “最大公因數(shù)是： ”； 7、下面程序運行時，對輸入 Text1 中的一行字母（均為小寫）進行統(tǒng)計，統(tǒng)計 a _z 各字母出現(xiàn)的次數(shù)，然后將統(tǒng)計結(jié)果

45、輸出到Text2 中。 （ 提示： a_z 的ASCII 碼為 97_122 ）4.冋田焼計結(jié)果:Private Sub Comma nd1_Click()Dim a(1 To 26) As Integer用來存放字母 a_z出現(xiàn)的次數(shù)Dim i% , n% , st$Text1 = Trim(Text1)n = Len( Text1)For i = 1 Toa( i) = 0 Next iFor i = 1 To st = Mid$(Text1 , i , 1)The nIf Asc(st) >= 97 And Asc(st) <= 122a(Asc(st) - 96)=End

46、IfNext iText2 =For i = 1 To 26Text2 =Next iEnd Sub7、下面程序的功能是：找出被3、5、7除，余數(shù)為1的最小的5個整數(shù)。Dim Cou ntN% , N%Cou ntN=ON=1DoN=N+1If N mod 3=1 and N mod 5=1 and N mod 7=1 the nPrint NCou ntN= Cou ntN+1End ifLoop 五、程序設(shè)計1、 設(shè)計一程序，用戶輸入三角形的三條邊A , B, C的長度，然后程序判斷它 們能否構(gòu)成三角形。如果能構(gòu)成三角形，則計算出面積并輸出，然后程序結(jié)束；如果不能構(gòu)成三角形，則提示用戶：不

47、能構(gòu)成三角形并轉(zhuǎn)回重新輸入。計算面積的公式為：面積 =. L（L二A）（L二B）（L匚C） ，L=（A+B+C）/22、 寫一個程序打印出所有的“水仙花數(shù)”。水仙花數(shù)是指三位的正整數(shù)，其各位數(shù)字的立方之和等于該正整數(shù)本身。例如：407=4*4*4+0*0*0+7*7*7 。X2 X4x2n3、 設(shè)計程序計算Cosx=1-+ .+ （-1）n+ .（ n=0、1、2），要2!4!（2n）!求用戶輸入x值及精度值后，程序計算出Cosx且誤差小于精度值。六、實驗題實驗一1、題目編寫一個求圓的周長和面積的程序，初始界面如：圖一所示。當(dāng)用戶點擊“開始”按鈕時，打開如：圖二所示的對話框，當(dāng)用戶輸入圓的半徑

48、并按其上的“確定”按鈕（或打“回車”鍵）后，程序計算出周長和面積并出現(xiàn)如：圖三所示 的畫面。圖一圖圖三2、實驗?zāi)康膶W(xué)習(xí)掌握利用inputbox$()函數(shù)來為變量賦值。 學(xué)習(xí)控件的隱藏與顯現(xiàn)技術(shù)的應(yīng)用。進一步掌握程序控制邏輯。3、實驗步驟 界面設(shè)計對象名對象類型屬性設(shè)置用途Forml窗體Caption="第四章實驗一 ”Labell標(biāo)簽Captio n= ”計算圓的周長和面積”Textl:文本框Visible=FalseComma nd1命令按鈕Caption="開始”代碼設(shè)計Private Sub Comma nd1_Click()Dim r!, zc!, mj!Text1

49、.Visible = Falser = Val(lnputBox("請輸入圓的半徑:","輸入數(shù)據(jù)", 2.5) zc = 2 * 3.14 * rmj = 3.14 * r A 2Textl.Visible = TrueTextl =""Textl ="圓的周長="+ Str(zc) + vbCrLfTextl = Textl + "圓的面積="+ Str(mj)Comma ndl.SetFocusEnd Sub4、思考問題為什么程序開始時要隱藏文本框textl。 此程序有一個明顯的、致命的缺

50、陷，請指出來。實驗二1、題目設(shè)計一個程序，它由兩個窗體構(gòu)成，窗體Forml是登錄窗體，如圖一所示；窗體Form2是程序的主窗體，如圖二所示。程序運行時，首先出現(xiàn)“登錄”窗體， 當(dāng)用戶輸入正確的用戶名（假定：用戶名是student，密碼是123456）并點擊“確定按鈕”時，程序開始驗證其正確性。如果正確，則關(guān)閉“登錄”窗體并打開主窗 體；否則讓用戶重新輸入用戶名和密碼。圖一圖2、實驗?zāi)康?學(xué)習(xí)如何向工程添加窗體。學(xué)習(xí)窗體的打開與關(guān)閉技術(shù)。3、實驗步驟建立工程設(shè)計窗體forml界面設(shè)計對象名對象類型屬性設(shè)置用途Forml窗體Caption="登錄程序”Labell標(biāo)簽Caption=&q

51、uot;用戶名”提示用戶Label2:標(biāo)簽Caption="密碼”提示用戶Textl文本框接收用戶輸入Text2:文本框PasswordChar= "* ”接收用戶輸入Comma nd1命令按鈕Caption="開始”驗證用戶名及密碼代碼設(shè)計Private Sub Comma nd1_Click()If Trim(Textl) = "stude nt" A nd Trim(Text2) = "123456" ThenUni oad Form1Form2.ShowElseMsgBox "用戶名或密碼錯誤”Textl

52、=""Text2 =""Textl.SetFocusEnd IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As In teger) If KeyAscii = 13 ThenText2 =""Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As In teger) If KeyAscii = 13 ThenComma ndl.SetFocusEnd IfEnd Sub向工程添加并設(shè)計窗體 form2打開“工程”菜單

53、，點選“添加窗體”命令，出現(xiàn)的如下對話框:如果要添加一個“新建”窗體則直接按“打開”按鈕即可；如果要添加一個 原來已經(jīng)建立好的窗體則點擊“現(xiàn)存”選項卡，在打開的對話框中選擇你要的 窗體。 界面設(shè)計與實驗一基本相同 代碼設(shè)計Private Sub Comma nd1_Click()Dim r!, zc!, mj!, st$Label1.Visible = FalseText1.Visible = False11: st = Val(InputBox("請輸入圓的半徑：","輸入數(shù)據(jù)", 2.5)If Not IsNumeric(st) The nMsgBox "半徑必須是數(shù)字”GoTo l1Elser = Val(st)En