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

1、第一章 練習題一、選擇題1、不需要編譯，計算機便可直接執(zhí)行的程序是（ ）。 A C語言程序 B Visual Basic語言程序 C 匯編語言程序 D 機器語言程序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是設計、調試、運行VB程序的工具。 B 打開/關閉各窗口

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

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

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

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

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

7、圖片文件名全稱，例如：Picture=”d:VB示例第一章tx1.bmp”Label1標簽Caption=”VB程序設計”顯示一個標題Label2標簽Caption=系統(tǒng)當前時間顯示系統(tǒng)時間Command1命令按鈕Caption=”顯示”在窗體上打印文字Command1命令按鈕Caption=”清屏”清除窗體上的文字Timer1時鐘Interval=100（單位是：毫秒）鬧鐘為相關控件的有關事件過程編寫程序代碼對命令按鈕Command1的Click（即鼠標左單擊）事件過程編寫如下代碼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)自動給出的，不須用戶輸入。運行、結束程序運行程序方法一：點擊工具欄上的“啟動”按鈕，如右圖所示：方法二：打開“運行”菜單選擇“啟動”方法三：按功能鍵F5結束程序方法一：點擊工具欄上的“結束”按鈕，如右圖所示：方法二：打開“運行

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

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

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

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

13、 （B） MultiLine=False （C） Locked=True （D） PasswordChar=”*”11、要使鼠標指向“命令按鈕”時，出現(xiàn)一個提示文本，應設置其_屬性。 （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首先獲得“焦點”，那么，應設置其（ ）屬性值為 0 。 （A） Top （B）Tag （C） Tabindex （D）Index15、一個窗體上有兩個文本框，按放置順序分別是：Text1，Text2 ，要想在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()

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

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

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

18、方法”移動窗體代碼設計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、思考問題應如何調整窗體的Print起始

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

20、入圓的半徑”提示用戶Label2標簽Caption=”圓的周長、面積”提示用戶Text1文本框接受用戶輸入Text2文本框MultiLine=True顯示計算結果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事件過程中，清空兩個文本框的內容？第三章 練習題一、選擇題1、表達式16/4-25*8/4 Mod 52 = ( )。 （A） 14 （B） 4 （C） 20 （D） 22、數(shù)學式3X5寫成VB表達式是（ ）。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ù)轉換成整型數(shù)據(jù)時，轉換規(guī)則是（ ）。（A） 將True轉換為 1 ，將False轉換為 0 （B） 將True轉換為 1 ，將False轉換為 1 （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）-

23、7 （C） -9 （D）-67、對不同類型的運算符優(yōu)先級規(guī)定是（ ）。 （A） 字符運算符 算術運算符 關系運算符 邏輯運算符（B） 算術運算符 字符運算符 關系運算符 邏輯運算符（C） 算術運算符 字符運算符 邏輯運算符 關系運算符（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 之間整數(shù)的正確表達式是（ ）。 （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 ) 不能轉換13、當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表達式為（ ）。2、把X是5或7的倍數(shù)寫成VB表達式是（ ）。3、表達式Ucase（Mid（”abcdefgh” , 3 , 4）=（ ）。4、k=123%，則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、題目編

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

27、ion屬性值顯示題目Label2標簽程序運行時，設置Caption屬性值顯示判斷結果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、思考問題如果要想制作一個能做加、減、乘、除運算練習的程序，界面應如何設計？第四章練習題一、單項選擇題1、下面正確的賦值語句是（ ）。 （A） x=y=1 （B） x+y=1（C） x=x+1 （D） sin(x)=52、MsgBox() 過程的正確語法是

29、（ ）。（A） MsgBox(提示信息，標題 ，按鈕類型)（B） MsgBox(標題 ，按鈕類型 ，提示信息)（C） MsgBox(標題 ，提示信息 ，按鈕類型)（D） MsgBox(提示信息 ，按鈕類型 ，標題)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語句表示下列處理的正確語句是（ ）。當0X60 時，輸出“不及格”；當60X70 時，輸出“及格”；當70X80 時，輸出“中”； 當80X90 時，輸出“良”； 當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 “不在轉換范圍內” Print “不在轉換范圍內” 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 “不在轉換范圍內” Print “不在轉換范圍內” End Select End Select6、下面關于for next 循環(huán)的敘述中，不正確的說法是（ ）。 (A)

33、省略步長，系統(tǒng)默認為：步長是 1 (B) 循環(huán)變量必須是數(shù)值型 (C) 循環(huán)體內必須有 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)能正常結束的是（ ）。 （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的初值應是多少？3、I=5，則choose( I ,”+”,”-”,”*”,”/” )=（ ）。4、一條語句要在下一行繼續(xù)寫，用（ ）符號分隔。三、寫出程序運行結果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)內打印的內容是：” ; snext jprint “在I循環(huán)內打印的內容是：” ; s next i 四、程序填空1、下面的程序段是檢查輸入的算術表達式中園括號是否配對，并顯示響應的結果。本程序在文本框中輸入表達式，邊輸入，邊統(tǒng)計，以輸入回

38、車符作為表達式輸入結束。然后顯示結果。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)計有多少個元音字母、多少個其他字母，直到按回車鍵結束，并顯示結果，不區(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以內的素數(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的值并顯示出來。請在程序中的下劃線處 填上適當?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、下面是一個用輾轉相除法求兩個正整數(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 _五、程序設計1、設計一程序，用戶輸入三角形的三條邊A，B，C的長度，然后程序判斷它們能否構成三角形。如果能構成三角形，則計算出面積并輸出，然后程序結束；如果不能構成三角形，則提示用戶：不能構成三角形并轉回重新輸入。 計算面積的公式為：面積= 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、設計程序計算 Cosx=1- SKIPIF 1 0 +(-1) SKIPIF 1 0 SKIPIF 1 0 +( n=0、1、2 ), 要求用戶輸入x 值及精度值后，程序計算出Cosx且誤差小于精度值。六、實驗題實驗一1、題目編寫一個求圓的周長和面積的程序，初始界面如：圖一所示。當用戶點擊“開始”按鈕時，打開如：圖二所示的對話框，當用戶輸入圓的半徑并按其上的“確定”按鈕（或打“回車”鍵）后，程序計算出周長和面積并出現(xiàn)如：圖三所示的畫面。圖一圖二圖三 2、實驗目的學習掌握利用inputbox$()函數(shù)來為變量賦值。學習控件的隱藏與顯現(xiàn)技術的應用。進

45、一步掌握程序控制邏輯。3、實驗步驟界面設計對象名對象類型屬性設置用途Form1窗體Caption=”第四章實驗一”Label1標簽Caption=”計算圓的周長和面積”Text1文本框Visible=FalseCommand1命令按鈕Caption=”開始”代碼設計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、題目設計一個程序，它由兩個窗體構成，窗體Form1是登錄窗體，如圖一所示；窗體Form2是程序的主窗體，如圖二所示。程序運行時，首先出現(xiàn)“登錄”窗體，當用戶輸入正確的用戶名（假定：用戶名是student，密碼是123456）并點擊“確定按鈕”時，程序開始驗證其正確性。如果正確，則關閉“登錄”窗體并打開主窗體；否則

47、讓用戶重新輸入用戶名和密碼。圖一圖二2、實驗目的學習如何向工程添加窗體。學習窗體的打開與關閉技術。3、實驗步驟建立工程設計窗體form1界面設計對象名對象類型屬性設置用途Form1窗體Caption=”登錄程序”Label1標簽Caption=”用戶名”提示用戶Label2標簽Caption=”密碼”提示用戶Text1文本框接收用戶輸入Text2文本框PasswordChar=”*”接收用戶輸入Command1命令按鈕Caption=”開始”驗證用戶名及密碼代碼設計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向工程添加并設計窗體form2 打開“工程”菜單，點選“添加窗體”命令，出現(xiàn)的如下對話框：如果要添加一個“新建”窗體則直接按“打開”按鈕即可；如果要添加一個原來已經建立好的窗體則點擊“現(xiàn)存”選項卡，在打開的對話框中選擇你要的窗體。界面設計與實驗一基本相同代碼設計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、思考問題本程序采用的算法存在一個嚴重的問題：程序采用的方法是先計算出x2n-1和(2n-1)!，然后再計算 SKIPIF 1 0 。當n很大時，x2n-1和(2n-1)!都會超界，但 SKIPIF 1 0 并不會超界。你認為該如何修改此算法，使計算能夠繼續(xù)進行。本程序中，變量pd的作用是什么？第五章練習題一、單項選擇題1、下面關于靜態(tài)數(shù)組下標的敘述中，不正確的是（ ）。 (A) 下標必須是常數(shù)，不能是變量或表達式

53、 (B) 下標下界最小為：-32768 ，下標上界最大為：32767 (C) 省略下界，一般系統(tǒng)默認為：下界是 0 (D) 下標可以是字符型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、下面關于動態(tài)數(shù)組的敘述中，不正確的說法是（ ）。 （A）要使用動態(tài)數(shù)組，首先用Dim 數(shù)組名（） 聲

54、明，使用時必須用ReDim語句重定義數(shù)組的維數(shù)、下標的個數(shù)，但不能重定義數(shù)組的類型。 （B）用ReDim語句對數(shù)組重定義時，下標不能為常量。 （C）用ReDim語句對數(shù)組重定義時，下標可以是常量或有固定值的變量。（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、設dim a(10，5)，則Lbound( a )=_，Ubound(a , 1)=_。2、設a=Array(1,2,3,4,5)，則a(3)=_。3、設dim a%(5) , b$(5)，則操作a=b的結果是_。三、寫出程序運行結果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ù)組排序的程序，請在劃線處添上適當?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、下面是一個做矩陣轉置的程序，如下圖所示，請在劃線處添上適當?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)計結果。請在劃線處添上適當?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