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

1、精選文檔第一章 練習題精選文檔選擇題1、不需要編譯，計算機便可直接執(zhí)行的程序是（）。A C 語言程序B Visual Basic 語言程序C 匯編語言程序器語言程序2、下面關于 VB 的敘述中，不正確的是（）。A VB 是美國 Microsoft （微軟）公司開發(fā)程序設計語言。B VB 是在 20 世紀 60 年代美國 Dartmouth 學院開發(fā)的 Basic 語言基礎上發(fā) 展而形成的。C 用 VB 編寫的程序可以在任何操作系統(tǒng)環(huán)境中運行。D VB 是面向對象的可視化的軟件開發(fā)工具。3、下面關于 VB 的集成開發(fā)環(huán)境（ IDE ）的敘述中，不正確的是（ ）。A IDE 是設計、調試、運行 V

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

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

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

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

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

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

8、Command1的Click (即鼠標左單擊)事件過程編寫如下代碼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、輸入。 運行、結束程序運行程序方法一：點擊工具欄上的“啟動”按鈕，如右圖所卜 示：方法二：打開“運行”菜單t選擇“啟動” 方法三：按功能鍵F5結束程序方法一：點擊工具欄上的“結束”按鈕，如右圖所示：|H方法二：打開“運行”菜單t選擇“結束” 方法三：點擊程序窗體上的“關閉”按鈕 方法四：按住Ctrl鍵，再按Break鍵。保存程序一個應用程序設計完成后，程序被存放在計算機的內存中。如果計算機被 關閉或重啟，程序就會丟失。要想使程序長期保存，就必須把程序存放在計算 機的磁盤中。按工具欄中的“保存”按鈕，如右圖所示：:然后在出現(xiàn)的“對話框”中，選擇文件的存放位置、文件名。當把所有的窗體文件、工程文件

10、都存儲完后，出現(xiàn)一個如下圖所示的對話框:修改程序要對已經存過盤的工程進行修改，步驟如下:到存放工程的文件夾雙擊“工程文件”，圖標如下圖修改存盤4、思考回答問題 當一個程序被存盤后，有那些文件？能否用Windows的重命名功能對某個文件重命名？ 當你使用 Windows的復制功能將“工程文件”復制到另一個文件夾中，然 后雙擊該文件圖標會出現(xiàn)什么情況？為什么？ 能否雙擊“窗體文件”打開工程，為什么？第二章 練習題選擇題1、當窗體被關閉時，系統(tǒng)自動執(zhí)行該窗體的 事件過程。（ A ） Click （ B） Load （ C） Unload （ D） LostFocus2、如果 Print 方法在窗體的

11、 Load 事件過程中不起作用，原因是（ ）屬性 的值為 false。（A） AutoRedraw （B）Moveable （C） MaxButton （D ） ControlBox3、在運行時，要使窗體既不能移動有不能改變大小，應設置 BorderStyle=（） 。（A） 0 （B ） 1 （C）2 （D ） 34、要使窗體運行時充滿整個屏幕，應設置其（）屬性。（A） Height （B）Width （ C）WindowState （D） AutoRedraw5、要使標簽控件的大小隨Caption 屬性值而自動調整，應設置其（ ）屬性。A ) Width (B) AutoSize (C)

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

13、=Both 而文本框確沒有顯示出滾動條，原因 是（ ）。（ A ）文本框中沒有內容（ B ）文本框的 MultiLine=False（C）文本框的 Locked=True（ D）文本框的 MultiLine=True10、程序運行時， 要使用戶不能修改文本框中的內容， 那么應設置 （ A） Enabled=False（ B） MultiLine=False（ C） Locked=True（ D） PasswordChar=”* ”11、要使鼠標指向 “命令按鈕” 時，出現(xiàn)一個提示文本， 應設置其 屬性。（ 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 首先獲得“焦點” ，那么，應設置其（ ）屬性值 為0 。（ A） Top （B） Tag （ C） Tabindex （ D） Index15、一個窗體上有兩個文本框， 按放置順序分別是： Text1 ，Text2 ，要想在

15、 Text1 中按“回車” 鍵，“焦點” 自動轉到 Text2 上，應在 （）處編寫程序。（ 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、下面關于對象屬性的敘述中，不正確的是（）。A 屬性是對一個對象特征的描述。B 屬性都有名稱、取值類型、值。C 屬性的值必須在設計時確定。D 有些屬性的值可以在程序運行時改變。二、填空題1、當雙擊控件工具箱中的控件是，系統(tǒng)默認地把控件放到（）中。2、 一般來說對象有屬性、方法、事件，（）是指對象具有作某種事的能力。3、app.path 返回值的含義是 （ ）。4、 要使標簽背景透明（與其容器的背景一致），應設置其（）屬性值為 0。5、文本框的 MaxLength=0 的含義是（ ）。6、往當前工程中添加窗體的操作步驟是：打開（）菜單，選擇（ ）命令。三、簡答題1、假如一個工程有兩

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

18、窗體往右下角移動。窗體被加載時，在窗體的標題欄中顯示“第二章實驗一”字樣。2、實驗目的 了解窗體Load事件的發(fā)生條件及用途。初步掌握窗體的 Print、Cis、Move方法的使用。初步掌握命令按鈕的 Clik事件的發(fā)生條件及用途。3、實驗步驟界面設計對象名稱對象類 型屬性設置值用途Forml窗體Fon t.size=24程序界面Comma nd1命令按鈕Caption= "Print 方法”在窗體上打印文字Comma nd2命令按鈕Caption= "Cis 方法”清除窗體上的文字Comma nd3命令按鈕Caption= "Move 方法”移動窗體代碼設計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、思考問題應如何調整窗體的 Print起始打印位置。 在程序代碼中，如何使“命令按鈕”獲得“焦點”實驗二1、題目設計一個簡單VB小程序，界面如下右圖所示。窗體上有兩個“標簽”，兩個“文本框”，一個“命令按鈕”。當程序運行時, 用戶在上面的“文本框”中輸入圓的半徑，然后點擊“計算”按鈕，程序便計 算出圓的周長、面積并顯示在下面的“文本框”中。2、實驗目的初步掌握“標簽”的基本屬性及使用。初步掌握“文本框”的基本屬性及使用。 利用“文本框”輸入、輸出數據。 如何使“焦點”從一個對象上轉移到另一個對象上。3、實驗步驟界面設計對象名稱對象類 型屬

21、性設置值用途Forml窗體Capti on=第一早實驗一應用程序界面Labell標簽Caption= ”請輸入圓的半徑”提示用戶Label2標簽Caption-圓的周長、面積提示用戶Textl文本框接受用戶輸入Text2文本框MultiLi ne-True顯示計算結果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事件過程中，清空兩個文本框的內容?第三章練習題一、選擇題1、表達

23、式 16/4-2人5*8/4Mod 52 = （）。（A） 14 （B） 4（ C） 20（ D ） 22、數學式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、將邏輯型數據轉換成整型數據時，轉換規(guī)則是（）。（A）將 True 轉換為-，將False 轉換為0（ B

24、）將 True 轉換為1，將False 轉換為-（ C）將 True 轉換為0，將False 轉換為-1（ D ）將 True 轉換為1，將False 轉換為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ī)定是（）。> 關系運算符> 關系運算符> 邏輯運算符> 邏輯運算符> 邏輯運算符> 邏輯運算符> 關系運算符> 算術運算符（A） （ B） （ C

25、） （ D ）字符運算符 > 算術運算符 > 算術運算符 > 字符運算符 >算術運算符 字符運算符 字符運算符 關系運算符8、k=12.5， len（ str（ k ） ）=（） 。（A）4（ B） 3（C） 5（D） 29、len（“vb程序設計 ”）=（） 。（ A）5（B） 10（ C） 2（ D ） 610 、隨機產生 10 ， 50 之間整數的正確表達式是（）。（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 ） 不能轉換13、當 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的倍數寫成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、 取出一個三位整數 x的十位上的數字(例如：324十位上的數字是 2)的VB 表達式是(三、實驗題1、題目編寫一個程序，界面如下圖所示。當用戶單擊“開始”按鈕時，程序隨機產生兩個1-100之間的整數a和b，并把”a+b= ”字樣顯示在標簽 Label1中，等待用 戶在文本框t

28、ext1中輸入答案。當用戶在文本框text1中輸入了答案并按“回車”鍵后，程序開始判斷答案是否正確，并將判斷結果顯示在標簽Label2中，同時將“焦點”放到“開始”按鈕上。5+ 41 =正確2、實驗目的 學習使用Rnd函數產生指定范圍的隨機數。進一步理解文本框的 KeyPress事件的應用。 了解程序的控制流程。3、實驗步驟 界面設計對象名稱對象類 型屬性設置值用途Form1窗體Caption="第三章實驗一 ”應用程序界面Label1標簽程序運行時，設置 Caption屬性值顯示題目Label2標簽程序運行時，設置 Caption屬性值顯示判斷結果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、思考問題 如果要想制作一個能做加、減、乘、除運算練習的程序，界面應如何設計?第四章練習題一、單項選擇題1、 下面正確的賦值語句是（）。（A） x=y=1（ B） x+y=1（C） x=x+1（ D） sin

31、（x）=52、MsgBox（）過程的正確語法是（）。（A） MsgBox（提示信息，標題，按鈕類型）（B）MsgBox（標題，按鈕類型，提示信息）（C）MsgBox（標題，提示信息，按鈕類型）（D）MsgBox（提示信息，按鈕類型，標題）3、InputBox$（）函數返回值的數據類型是（）。(A)數值型（B） 字符型（C）變體型 （D ）邏輯型4、用 if語句表示分段函數丿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語句表示下列處理的正確語句是。當0wX v 60時，輸出“不及格”；當60W X v 70時，輸出“及格”； 當70W X v 80時，輸出“中”;當80w X v 90時，輸出“良”;當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 “不在轉換范圍內 ”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 “不在轉換范圍內 ” 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 “不在轉換范圍內 ”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 “不在轉換范圍內 ” End Select6、下面關于fornext循環(huán)的敘述中，不正確的說法是()。(A) 省略步長，系統(tǒng)默認為：步長是 1(B) 循環(huán)變量必須是數值型(C) 循環(huán)體內必須有 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、結束的是（ 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的初值應是3、1=5，則 choose( I，”+”,”/”)=()。4、一條語句要在下一行繼續(xù)寫，用()符號分隔。三、寫出程序運行結果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í)行次數=” 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)內打印的內容是：” ;snext j print 在I循環(huán)內打印的內容是：” ;snext

40、 i四、程序填空1、下面的程序段是檢查輸入的算術表達式中園括號是否配對，并顯示響應的結 果。本程序在文本框中輸入表達式，邊輸入，邊統(tǒng)計，以輸入回車符作為表達 式輸入結束。然后顯示結果。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)計有多少個元音字母、多少個其他字母，直到按回車鍵結 束，并顯示結果，不區(qū)分字母的大小寫。變量 countX 存放元音字母個數，變量 countY 存放其他字母個數。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 以內的素數的程序。每行輸出 5 個素數。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的值并顯示出來。請在程序中的下劃線 處填上適當的語句，使程序完整。Dim I% , J% , n% , T! ,

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

45、輸出到Text2 中。 （ 提示： a_z 的ASCII 碼為 97_122 ）4.冋田焼計結果:Private Sub Comma nd1_Click()Dim a(1 To 26) As Integer用來存放字母 a_z出現(xiàn)的次數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除，余數為1的最小的5個整數。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 五、程序設計1、 設計一程序，用戶輸入三角形的三條邊A , B, C的長度，然后程序判斷它 們能否構成三角形。如果能構成三角形，則計算出面積并輸出，然后程序結束；如果不能構成三角形，則提示用戶：不

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

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

49、.Visible = Falser = Val(lnputBox("請輸入圓的半徑:","輸入數據", 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、題目設計一個程序，它由兩個窗體構成，窗體Forml是登錄窗體，如圖一所示；窗體Form2是程序的主窗體，如圖二所示。程序運行時，首先出現(xiàn)“登錄”窗體， 當用戶輸入正確的用戶名（假定：用戶名是student，密碼是123456）并點擊“確定按鈕”時，程序開始驗證其正確性。如果正確，則關閉“登錄”窗體并打開主窗 體；否則讓用戶重新輸入用戶名和密碼。圖一圖2、實驗目的 學習如何向工程添加窗體。學習窗體的打開與關閉技術。3、實驗步驟建立工程設計窗體forml界面設計對象名對象類型屬性設置用途Forml窗體Caption="登錄程序”Labell標簽Caption=&q

51、uot;用戶名”提示用戶Label2:標簽Caption="密碼”提示用戶Textl文本框接收用戶輸入Text2:文本框PasswordChar= "* ”接收用戶輸入Comma nd1命令按鈕Caption="開始”驗證用戶名及密碼代碼設計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向工程添加并設計窗體 form2打開“工程”菜單

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