VBVBA實驗報告電子版201103

1、 編號：20102011學年第二學期實 驗 報 告實驗課程名稱 VB程序設計基礎與VBA應用專 業(yè) 班 級 學 生 姓 號 學 生 姓 名 實驗指導老師 實驗項目清單實驗一 程序設計初步實驗二 程序設計基礎1實驗三 程序設計基礎2實驗四 分支結(jié)構程序設計實驗五 循環(huán)結(jié)構程序設計1實驗六 循環(huán)結(jié)構程序設計2實驗七 數(shù)組與相應算法程序設計實驗八 函數(shù)與過程1實驗九 函數(shù)與過程2實驗十 上機綜合練習實驗十一 上機綜合測試實驗十二 VBA“宏”操作實驗十三 VBA函數(shù)實驗十四 VBA程序設計1實驗十五 VBA程序設計2實驗十六 VBA界面程序設計實驗十七 VBA應用程序分析浙江大學城市學院實驗報告課程

2、名稱 VB程序設計基礎與實驗 實驗項目名稱 實驗一、程序設計初步 學生姓名 專業(yè)班級 學號 實驗成績 指導老師（簽名 ） 日期 一. 實驗目的和要求1. 熟悉VB開發(fā)環(huán)境，掌握VB程序設計步驟。2. 理解基本概念：工程、窗體、屬性、事件、方法。3. 熟悉立即窗口的使用。4. 掌握Print、賦值語句的正確書寫規(guī)則。二. 實驗內(nèi)容和原理【練習1-1】新建一個工程，單擊窗體時，在窗體上顯示“這是我的第一個VB實驗”；雙擊窗體時，清除窗體上顯示的所有信息。研究下面的代碼段，考慮應填入什么內(nèi)容？Private Sub Form_Click End SubPrivate Sub Form_DblClic

3、k End Sub上機實踐調(diào)試運行以上程序，在同一文件夾下保存工程MyProject.vbp和窗體文件MyProject.frm?！揪毩?-2】設計一個程序，窗體上有一個文本框、兩個命令按鈕，命令按鈕的標題是“隸書”和“黑體”，當程序運行后，在文本框中輸入“歡迎光臨VB世界”，是用粗體、18號、宋體、紅色字顯示(通過窗體加載事件完成)；單擊“隸書”按鈕文本框中顯示內(nèi)容的字體是隸書，單擊“黑體”按鈕文本框中顯示內(nèi)容的字體是黑體。文本框?qū)傩缘脑O置在Form_load事件中設置，研究下面的代碼段，考慮應填入什么內(nèi)容？練習 1-2 運行界面Private Sub Form_Load()Text1.Fo

4、ntName = "宋體"Text1.FontBold = True Text1.FontSize = 18 Text1.ForeColor = vbRedEnd Sub Private Sub Command1_Click() Text1.FontName =_ End SubPrivate Sub Command2_Click() _End Sub上機實踐調(diào)試運行以上程序。請你思考 文本框?qū)傩缘脑O置如改在屬性窗口中設置，以上代碼會怎樣？【練習1-3】編程，窗體界面設計如下圖1，分別有三個命令按鈕command1、command2、command3，命令按鈕的Captio

5、n屬性分別為“改變位置”、“還原”和“退出”。 窗體加載后，運行Form_Load 事件，使窗體定位在（2000，2000）坐標值上，運行效果如下圖2。圖1 圖2Private Sub Form_Load()Form1.Left = 2000Form1.Top = 2000Command2.Enabled = FalseEnd Sub 點擊命令按鈕command1后，使窗體定位在（100，100）坐標值上，運行效果如圖3： 圖 3Private Sub Command1_Click()Form1.Left = 100Form1.Top = 100Command1.Enabled = False

6、Command2.Enabled = TrueEnd Sub點擊命令按鈕command2，窗體又重回圖2的情況。請寫出另外兩個命令按鈕事件的內(nèi)容。上機實踐調(diào)試運行以上程序。請你思考 怎樣用move方法來改變窗體位置，完成此題？【練習1-4】在窗體上建立5個命令按鈕Command1、Command2、Command3、Command4和Command5，運行界面如下圖。要求：（1）命令按鈕的Caption屬性分別為“窗體變大”、“窗體變小”、“窗體左移”、“窗體右移”和“關閉窗體”。（2）每單擊Command1按鈕和Command2按鈕一次，窗體變大或變小1/4倍。（3）單擊Command3按鈕

7、和Command4按鈕一次，窗體左移或右移200緹。（4）單擊Command5按鈕退出。練習 1-4 運行界面以下是兩個命令按鈕的事件過程，寫出另外三個命令按鈕的事件過程。Private Sub Command1_Click()Form1.Height = Form1.Height * 1.25Form1.Width = Form1.Width * 1.25End SubPrivate Sub Command3_Click()Form1.Left = Form1.Left - 200End Sub上機實踐調(diào)試運行以上程序?！揪毩?-5】在窗體上建立4個命令按鈕，command1、command

8、2、command3、command4，要求：1命令按鈕的Caption屬性分別為“字體變大”、“字體變小”、“加粗”和“標準”。2每單擊按鈕command1和command2一次，字體變大或變小2個單位（提示：改變的是Form1.fontsize屬性值）。3單擊command3時，字體變粗；單擊command4時，字體又由粗體變標準；（提示：改變的是Form1.fontbold屬性值）。44個按鈕每單擊一次，都在窗體上顯示“歡迎使用VB”。5雙擊窗體后清除窗體內(nèi)容。研究下面的代碼段，考慮應填入什么內(nèi)容？Private Sub Command1_Click() '字體變大 Form1.

9、FontSize = Form1.FontSize + 2Print "歡迎使用VB"End SubPrivate Sub Command2_Click() '字體變小 _ _End SubPrivate Sub Command3_Click() '字體加粗 Form1.FontBold = TruePrint "歡迎使用VB"End SubPrivate Sub Command4_Click() '字體不加粗 Form1.FontBold = _Print "歡迎使用VB"End SubPrivate Sub

10、 Form_DblClick() _End Sub上機實踐調(diào)試運行以上程序，運行界面參考如上圖。三. 討論、心得（必須做）浙江大學城市學院實驗報告課程名稱 VB程序設計基礎與實驗 實驗項目名稱 實驗二、程序設計基礎1 學生姓名 專業(yè)班級 學號 實驗成績 指導老師（簽名 ） 日期 一. 實驗目的和要求1. 掌握運算符的使用。2. 掌握表達式的正確書寫規(guī)則。3. 掌握常用函數(shù)的使用。4. 掌握InputBox、MsgBox函數(shù)的使用。5. 熟悉掌握賦值語句的使用。6. 掌握順序結(jié)構的應用程序的編程過程。二. 實驗內(nèi)容和原理【練習2-1】打開立即窗口，輸入以下內(nèi)容，每行以回車鍵結(jié)束，查看結(jié)果來掌握賦

11、值語句、運算符、表達式、常用內(nèi)部函數(shù)。運行結(jié)果填在右側(cè)表中：（一行一行地輸入，不能粘貼）? 35 /5 mod 13 2+52Print Not("bad">"bed")BirthDay = #5/18/1980#Birth$ = "出生日期：" & BirthDay Print Birth$ a = 10b = 15c = -9Print a > 2 3 And (b = 13 Or Not c = 0)Print len(str(a)Print len(str(c)Print Chr(Asc("A&q

12、uot;) + 3) Print Trim(" a b ") & "cde"Print " a b " & "cde"Print Left("Visual Basic 6.0", 7)Print Mid("Visual Basic 6.0", 8, 5)Print Instr("Visual Basic 6.0",” Ba”)Print Len("VB程序設計")Print UCase("Hello!"

13、;)Print "浙江" & Space(2) & "杭州"Print Date, Date+7Print hour(Time)Print 345 / 7347, Format(345 / 7347, "#0.0000")Print Sqr(9)Print Abs(-25)Print Rnd, RndPrint Sin(30 * 3.1415926 / 180)Print Int(-3.4), Int(3.8)【練習2-2】設計一程序，窗體Form1 上有兩個文本框，窗體界面如下所示。兩個文本框可以輸入任意值，在程序運

14、行時，每單擊窗體一次，兩個文本框的內(nèi)容交換一次。提示：(1)可以參考教材中兩個變量值交換的例子(2)可以定義中間交換變量 Dim c as string (3)賦值語句的”=”的前后項不要寫顛倒上機實踐編寫、調(diào)試運行以上程序?！揪毩?-3】設計一個程序，在文本框內(nèi)輸入任意字符串，例如“美麗的西湖”，對字符串進行字體放大或縮小。下圖是窗體的設計界面和經(jīng)過放大操作后的運行效果。要求：(1)單擊“放大”按鈕，將文本框中的字符串放大（字體放大），放大的倍數(shù)通過隨機函數(shù)Rnd產(chǎn)生，范圍在15倍。為了使每次運行時產(chǎn)生不同的放大倍數(shù)，程序初始時應執(zhí)行Randomize語句。(2)同樣，單擊“縮小”按鈕進行縮

15、小，縮小的倍數(shù)也通過上述方式產(chǎn)生。(3)單擊“還原”按鈕，字體大小恢復成初始狀態(tài)（12磅）。(4)程序啟動時，文本框中的字體大小為12磅。 程序界面設計根據(jù)題目的要求，在界面上拖放1個標簽、1個文本框和3個命令按鈕，并按下表設置對象的相關屬性。表2.？上機練習一之3題的屬性設置表對象默認設置對象名稱Caption屬性其他屬性Form1使用對象默認名Form1Label1輸入文本屬性窗口的Font中設粗體、16號Text1Text屬性為空串屬性窗口的Font中設粗體、16號；拖動鼠標擴大寬度和高度Command1放大屬性窗口的Font中設粗體、16號Command2縮小屬性窗口的Font中設粗體

16、、16號Command3還原屬性窗口的Font中設粗體、16號部分事件代碼Private Sub Command1_Click()Dim n As IntegerRandomizen = Int(Rnd * 5) + 1Text1.FontSize = Text1.FontSize * nEnd Sub【練習2-4】設計一個根據(jù)攝氏溫度求對應的華氏溫度的程序。下圖是設計窗體，窗體上有2個標簽框作提示使用；2個文本框Text1和Text2分別作輸入和顯示；3個命令按鈕， 名稱分別是Command1、Command2、Command3，標題分別是“計算”、“清除”、“退出”。在Text1中輸入攝氏

17、溫度后，單擊“計算”按鈕，右文本框內(nèi)顯示出該攝氏溫度對應的華氏溫度；單擊“清除”按鈕使得2個文本框的內(nèi)容被清除；單擊“退出”按鈕結(jié)束程序運行。計算公式：F=9C/5+32，其中C表示攝氏溫度，F(xiàn)表示華氏溫度。（提示：清除文本框Text1中的文字信息用語句Text1.Text=”）上機實踐編寫、調(diào)試運行以上程序。【練習2-5】兩個窗體的運行界面如下，兩窗體標題分別為“啟動窗體”、“第二個窗體”，啟動窗體的背景色是紅色，第二個窗體的背景色是綠色，單擊啟動窗體的命令按鈕“下一窗體”，顯示出第二個窗體，隱藏啟動窗體，單擊第二個窗體的命令按鈕“返回”，關閉第二個窗體，顯示出啟動窗體。練習 1-6 運行界

18、面命令按鈕“返回”的事件過程如下，寫出啟動窗體命令按鈕的事件過程。Private Sub Command1_Click()Form2.HideForm1.ShowEnd Sub上機實踐編寫、調(diào)試運行以上程序，運行界面參考上圖。請你思考 在這個練習中要考慮怎樣在同一工程中建立多個窗體，以及多個窗體的保存。在此題中保存了幾個文件？先后次序分別是什么？三. 討論、心得（必須做）浙江大學城市學院實驗報告課程名稱 VB程序設計基礎與實驗 實驗項目名稱 實驗三、程序設計基礎2 學生姓名 專業(yè)班級 學號 實驗成績 指導老師（簽名 ） 日期 一. 實驗目的和要求掌握常用函數(shù)的使用；理解并掌握InputBox、

19、MsgBox函數(shù)的使用；熟練掌握賦值語句的使用。掌握順序結(jié)構的應用程序的編程過程。二. 實驗內(nèi)容和原理【練習3-1】設計一個函數(shù)計算器。其功能要求如下：（1）運行的界面如圖所示。有12個命令按鈕。每使用一個函數(shù)按鈕前，先單擊“清除”按鈕，文本框和標簽框中的內(nèi)容清空。（2）Sin、Cos、Sqr、Int、Chr、Asc等函數(shù)將文本框中的數(shù)據(jù)作為函數(shù)的輸入?yún)?shù)，單擊這些函數(shù)命令按鈕，在標簽框中顯示其函數(shù)值。（3）單擊“Rnd”按鈕，用Rnd函數(shù)產(chǎn)生一隨機數(shù)，顯示在標簽框中。（3）單擊“Date”按鈕在標簽框中顯示系統(tǒng)日期；單擊“Time”按鈕在標簽框中顯示系統(tǒng)時間； （4）單擊“InputBox”

20、按鈕，彈出一對話框，提示輸入姓名，當用戶輸入后，再將輸入信息顯示在標簽框中。單擊“MsgBox”按鈕，將文本框中的內(nèi)容通過一信息框顯示出來，要求信息框提供給用戶的有“是”、“否”、“取消”3個按鈕，根據(jù)用戶的不同選擇，將函數(shù)返回結(jié)果顯示在標簽框中。 部分命令按鈕的提示代碼如下：Sin命令按鈕的事件過程可以寫作：Const pi = 3.1415926Dim x As Single, fx As Singlex = Val(Text1.Text)注意類型轉(zhuǎn)換函數(shù)fx = Sin(x * pi / 180)Label1.Caption = Str(fx)注意類型轉(zhuǎn)換函數(shù)Asc命令按鈕的事件過程可以

21、寫作：Label1.Caption = Str(Asc(Text1.Text)注意類型轉(zhuǎn)換函數(shù)MsgBox命令按鈕的事件過程可以寫作：Dim n As Stringn = MsgBox("你輸入的數(shù)據(jù)是" & Text1.Text, 3 + 32 + 0, "數(shù)據(jù)檢查")Label1.Caption = Str(n)Rnd命令按鈕的事件過程可以寫作：Randomize Label1.Caption = Str(Rnd)請完整寫出所有命令按鈕的事件過程。上機實踐編寫、調(diào)試運行以上程序，運行界面參考如上圖?！揪毩?-2】通過函數(shù)處理文本框中的數(shù)據(jù)。運

22、行的界面如下圖所示。在文本框中輸入一個有小數(shù)的浮點數(shù)，如-123.123456789，點擊“執(zhí)行”按鈕，在右側(cè)標簽框中產(chǎn)生與左側(cè)項目對應的值（如第二行左邊是一個標簽框，其Caption屬性值是“Int”，右邊又是另一個標簽框，其Caption屬性值是根據(jù)文本框中的數(shù)據(jù)由程序自動完成計算并賦值的）。觀察單精度和雙精度浮點數(shù)的不同結(jié)果，通過字符串函數(shù)處理產(chǎn)生數(shù)據(jù)的整數(shù)部分和小數(shù)部分。點擊“清除”，將文本框和右側(cè)標簽框內(nèi)容清除。Form_Load事件也用來將文本框和右側(cè)標簽框內(nèi)容清除。將以下代碼通過上機調(diào)試補充完整。Private Sub Command1_Click()Dim n As Integ

23、er Dim sing As Single, doub As Double'存放單精度和雙精度的值 Dim s As String '存放數(shù)字字符串 Dim a As Integer '小數(shù)點在數(shù)字字符串中位置 n = Int(Val(Text1.Text) sing = Val(Text1.Text) doub = Label1.Caption = n Label2.Caption = sing Label3.Caption = s = Trim(Str(Abs(Val(Text1.Text) a = (s, ".") Label4.Caption

24、 = Left(s, a - 1) Label5.Caption = End SubPrivate Sub Command2_Click()Text1.Text = Label1.Caption = Label2.Caption = Label3.Caption = Label4.Caption = Label5.Caption = End SubPrivate Sub Form_Load() . End Sub【練習3-3】設計一個用計算機給出三位整數(shù)加法練習程序。程序界面如下圖所示，單擊一次，則在文本框中產(chǎn)生一題。提示：（1）將文本框的Multiline屬性設置為true,并設置垂直滾動(

25、ScrollBars=2)（2）用Rnd 函數(shù)產(chǎn)生100999之間的隨機整數(shù)（3）回車換行符用函數(shù)chr(13)+chr(10)表示研究下面的代碼段，考慮應填入什么內(nèi)容？Private Sub Form_Load() Text1.text= End SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer x = '產(chǎn)生三位隨機數(shù)y = '產(chǎn)生三位隨機數(shù) Text1.Text = & x & "+" & y & "=( )" & C

26、hr(13) & Chr(10)End Sub上機實踐調(diào)試運行以上程序，運行界面參考如上圖?！揪毩?-4】 在標簽框中有一串英文字符串，有三個命令按鈕名稱分別為command1、command2、command3，按“轉(zhuǎn)大寫”按鈕，文本變?yōu)榇髮懀础稗D(zhuǎn)小寫”按鈕，文本變?yōu)樾?。其他字符不變。按“還原”按鈕，回到啟動狀態(tài)。在本實驗中需要在通用中聲明一個模塊級變量s，考慮一下為什么？研究下面的代碼段，考慮應填入什么內(nèi)容？Dim s As String聲明模塊級變量sPrivate Sub Form_Load()s = Label1.CaptionEnd SubPrivate Sub Com

27、mand1_Click()Label1.Caption = End SubPrivate Sub Command2_Click()Label1.Caption = End SubPrivate Sub Command3_Click()“還原”的事件代碼Label1.Caption = sEnd Sub三. 討論、心得（必須做）浙江大學城市學院實驗報告課程名稱 VB程序設計基礎與實驗 實驗項目名稱 實驗四、分支結(jié)構程序設計 學生姓名 專業(yè)班級 學號 實驗成績 指導老師（簽名 ） 日期 一. 實驗目的和要求1.掌握單分支與雙分支條件語句IF的使用。2.掌握多分支條件語句的使用。3.掌握情況語句Se

28、lect Case的使用及其與多分支條件語句的區(qū)別。二. 實驗內(nèi)容和原理【練習4-1】研究下面的代碼段，畫程序流程圖，當輸入93，81，74，65，42時，寫出窗體中顯示的結(jié)果。Private Sub Form_Click()score = Val(InputBox("輸入成績")If score < 60 Then Print "不合格"If score >= 60 and score<85 Then Print "合格"If score >= 85 Then Print "優(yōu)秀"End

29、sub引伸1若把程序代碼寫成如下形式，畫出它的流程圖。問當輸入成績?yōu)?0分時，顯示什么結(jié)果？為什么？用嵌套塊If語句應如何寫？Private Sub Form_Click()score = Val(InputBox("輸入成績")If score >= 85 Then st= "優(yōu)秀"If score < 60 Then st=” 不合格”Else st="合格"End IfPrint stEnd Sub引伸2若把程序?qū)懗扇缦滦问?，當輸入成績?yōu)?0、80、50時，顯示什么結(jié)果？畫出流程圖。Private Sub Form_

30、Click()score = Val(InputBox("輸入成績")If score >= 85 Then Print "優(yōu)秀"ElseIf score >= 60 ThenPrint "合格"ElsePrint "不合格"End IfEnd Sub調(diào)試運行以上程序，采用單步跟蹤的方法（按F8）查看程序執(zhí)行流程，進一步加深對分支結(jié)構的理解?！揪毩?-2】 研究下面的代碼段。Dim flag As Integer注Dim falg as IntegerPrivate Sub Form_click()If

31、 flag = 0 ThenForm1.Print "歡迎使用Visual Basic!"flag = 1ElseIf flag = 1 ThenForm1.Clsflag = 0End IfEnd Sub問題(1)在窗體上單擊三下，窗體中顯示什么結(jié)果？ (2)注意變量flag定義的位置，在這個位置定義的變量稱作 。若把變量flag變量定義放在Form_click()事件過程里，如：Private Sub Form_click()Dim flag As IntegerIf flag = 0 Then 在窗體上單擊三下，此時程序的運行結(jié)果怎樣？ (3)若要求窗體顯示的字體是隸

32、書18號字，該如何補充程序？(4)若把程序代碼修改如下,Dim flag As IntegerPrivate Sub Form_click()If flag = 0 Then Form1.Print "歡迎使用Visual Basic!":flag=1If flag = 1 Then Form1.Cls: flag = 0End Sub 問出現(xiàn)什么結(jié)果，為什么？(5)若在Form_Click()事件過程中第一行的變量名flag拼寫錯了，寫成了falg，如注所示，則程序執(zhí)行結(jié)果如何？為什么？ 【練習4-3】根據(jù)所輸入的百分制成績score，給出相應的五級計分等級，即“優(yōu)秀”

33、(score>=90)，“良好”(80<=score<90)，“中”(70<=score<80)，“及格”(60<=score<70)，“不及格”(score<60)， 用ElseIf語句完成，請把下面的程序填寫完整。Dim score As IntegerPrivate Sub Form_click()score = Val(InputBox("輸入成績")If score>=90 then Print “優(yōu)秀”ElseIf score>=80 then 補充ElseIf語句End Sub引伸若把上面的ElseI

34、f語句改寫成塊If語句，該如何補充完整。If score>=90 then Print “優(yōu)秀”ElseIf score>=80 then 補充塊IF語句End Sub【練習4-4】根據(jù)所輸入的百分制成績score，給出相應的五級計分等級，用Select Case語句完成。“* 錯誤1 *”提示信息的下一行是錯誤的，改正有錯的語句并調(diào)試完成程序。Private Sub Command1_Click() Dim score as single score = val(Text1.Text) * 錯誤1 * Select Case x * 錯誤2 * Case x >= 90 T

35、ext2.Text = "優(yōu)秀"* 錯誤3 * Case x<90 and x>=80 Text2.Text = "良好" * 錯誤4 * Case x >= 70 and x<80 Text2.Text = "中"* 錯誤5 * Case x >= 60 Text2.Text = "及格" Case else Text2.Text = "不及格" End SelectEnd Sub調(diào)試運行程序，運行界面參考圖3-23。圖3-23 練習三程序運行界面【練習4-5】編

36、程，在窗體上循環(huán)輸出字符串“歡迎使用Visual Basic”。第一次單擊窗體時以紅色顯示；第二次單擊時以綠色顯示；第三次單擊時以籃色顯示；第四次單擊時則清除窗體上的信息；第五次又重新開始。引伸若要求依次單擊窗體時，所顯示字體的字號在原來基礎上遞增5，該如何修改？ 三. 討論、心得（必須做）浙江大學城市學院實驗報告課程名稱 VB程序設計基礎與實驗 實驗項目名稱 實驗五、循環(huán)結(jié)構程序設計1 學生姓名 專業(yè)班級 學號 實驗成績 指導老師（簽名 ） 日期 一. 實驗目的和要求1理解并掌握循環(huán)的基本作用。2掌握DoLoop語句的形式和使用。3掌握ForNext語句的形式和使用。4掌握如何控制循環(huán)條件，

37、防止死循環(huán)或不循環(huán)。二. 實驗內(nèi)容和原理【練習5-1】判斷下面兩個循環(huán)語句的循環(huán)體分別執(zhí)行了多少次，程序執(zhí)行完畢后變量s，i的值為多少？程序1s=0For i=1 To 10 step 1s=s+1Next iPrint s,i循環(huán)體執(zhí)行了多少次？變量s的值：變量i的值：程序2s=0For i=1 To 10 step -1s=s+1Next iPrint s,i循環(huán)體執(zhí)行了多少次？變量s的值：變量i的值：【練習5-2】閱讀下面的程序，回答問題。Private Sub Form_Click()Dim Str1 As String, str2 As String, str3 As Strings

38、tr1為原字符串，str2存放臨時字符，str3為目標字符串Str1 = Text1.Text str2 = ""str3 = ""n = Len(Str1)For i = 1 To n str2 = Mid(Str1, i, 1) If str2 >= "0" And str2 <= "9" Then str3 = str3 + str2 注 End IfNext iForm1.Print str3End Sub問：若在文本框中輸入字符串“A123b45C_de”，窗體中顯示什么結(jié)果？。引申1：若把注

39、語句改寫成str3= str2 + str3問結(jié)果如何？引申2：若要求顯示結(jié)果為“AbCde”，則應如何修改程序？調(diào)試運行以上程序，采用斷點調(diào)試的方法查看程序執(zhí)行的中間變量值，進一步加深對循環(huán)結(jié)構的理解?！揪毩?-3】計算下列表達式的值并打印，修改程序中所標識語句處的錯誤?！? 錯誤1 *”提示信息的下一行是錯誤的，改正有錯的語句并調(diào)試完成程序。Public Sub form_click() Dim i As Integer * 錯誤1 * Dim k As Integer Dim s As Single s = 0 * 錯誤2 * For i = 1 To 100 k = 1 / i s =

40、 s + k * 錯誤3 * k = 1 / i + 1 s = s - k Next I Form1.Print "s=" sEnd Sub【練習5-4】Command1_click()過程用于判斷一個字符串是否為“回文”，所謂“回文”是指字符串順讀與倒讀都是一樣的，如“潮起潮落，落潮起潮”，運行界面如圖3-24所示。請編程實現(xiàn)。圖3-24練習5運行界面【練習5-5】編程，求下述表達式的值，用Form_Click()事件過程來實現(xiàn)。三. 討論、心得（必須做）浙江大學城市學院實驗報告課程名稱 VB程序設計基礎與實驗 實驗項目名稱 實驗六、循環(huán)結(jié)構程序設計2 學生姓名 專業(yè)班

41、級 學號 實驗成績 指導老師（簽名 ） 日期 一. 實驗目的和要求1理解并掌握嵌套結(jié)構的基本用法。2掌握各種循環(huán)結(jié)構的嵌套使用。3理解并掌握典型算法。二. 實驗內(nèi)容和原理【練習6-1】讀程序，當從鍵盤輸入5時，寫出窗體中顯示的圖案。Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integern = Val(InputBox("n=", "輸入1-9之間的整數(shù)")For i = n To 1 Step -1 Print Tab(n - i + 1); For j = 1 T

42、o 2 * i - 1 Print "*"注，代碼段1 Next j PrintNext iFor i = 1 To n Print Tab(n - i + 1); For j = 1 To 2 * i 1 Print "*" 注, 代碼段2 Next jPrintNext iEnd Sub運行結(jié)果引伸1：若把代碼段1和代碼段2交換位置，寫出新的打印結(jié)果。引伸2：若把注、注所示的語句改寫為Print Chr(64+i)；寫出新的打印結(jié)果。引伸3：若把Print 語句后的“；”刪除，結(jié)果會怎樣？【練習6-2】讀程序，寫出程序運行結(jié)果。Private Sub

43、 Form_click()Dim k As Integer, i As IntegerFor i = 100 To 200 If i Mod 5 = 0 Then Print i; k = k + 1 計數(shù)變量k，對滿足條件的數(shù)計數(shù) If k Mod 10 = 0 Then Print 計數(shù)到k Mod 10=0時換行 End IfNext iEnd Sub運行結(jié)果引伸1：若把上面的代碼寫成如下形式：Private Sub Form_click()Dim k As Integer, i As IntegerFor i = 100 To 200 If i Mod 5 = 0 Then Print

44、 i; k = k + 1 計數(shù)變量k，對滿足條件的數(shù)計數(shù) If k Mod 10 = 0 Then Print 計數(shù)到k mod 10=0時換行。Next iEnd Sub結(jié)果如何？為什么？ 【練習6-3】讀程序，當從鍵盤輸入字符串“I am a good student.”時寫出窗體中輸出結(jié)果。Public Sub Uppersen()Dim oldsen As String, newsen As StringDim char As String, lastchar As StringDim l As Integer, i As Integeroldsen = InputBox("

45、;請輸入英文句子：")l=len(oldsen) 以空格作為單詞的界定，空格后的字母轉(zhuǎn)換為大寫字母lastchar= " "For i = 1 To lchar = mid(oldsen , i, 1)If lastchar = " " Thenchar = ucase(char) End Ifnewsen = newsen & charlastchar = charNext iForm1.Print "input:" oldsenForm1.Print "output:" newsenEnd S

46、ub 運行結(jié)果【練習6-4】從一堆一分、二分、五分的硬幣中取出20枚，使其總值為60分，輸出總共有多少種取法及每一種取法中一分、二分、五分的個數(shù)，請把下面的程序補充完整。Private Sub Form_Click()Dim one As Integer 一分硬幣個數(shù) Dim two As Integer 二分硬幣個數(shù) Dim five As Integer 五分硬幣個數(shù) Const n = 20 總數(shù)20枚 Dim k As Integer 取法數(shù)量 k = 0 For one = 1 To n For two = 1 To n-one If one + two*2 + five*5 = 6

47、0 Then Form1.Print "one=" one; "two=" two; "five=" five End If Next two Next one Form1.Print "k=" kEnd Sub 【練習6-5】編程輸出下列數(shù)字圖案（行數(shù)由鍵盤輸入）1 2 3 4 5 6 7 89 1 2 3 4 5 6 78 9 1 2 3 4 5 67 8 9 1 2 3 4 56 7 8 9 1 2 3 45 6 7 8 9 1 2 34 5 6 7 8 9 1 23 4 5 6 7 8 9 1【練習6-6】編程輸出2100之間的所有素數(shù)，每行顯示10個數(shù)據(jù)。三. 討論