zucc vb實(shí)驗(yàn)報(bào)告

1、浙江大學(xué)城市學(xué)院實(shí)驗(yàn)報(bào)告課程名稱 VB程序設(shè)計(jì)基礎(chǔ)與實(shí)驗(yàn) 實(shí)驗(yàn)項(xiàng)目名稱 實(shí)驗(yàn)一、程序設(shè)計(jì)初步 實(shí)驗(yàn)成績 指導(dǎo)老師（簽名 ） 日期 一. 實(shí)驗(yàn)?zāi)康暮鸵?. 熟悉VB開發(fā)環(huán)境，掌握VB程序設(shè)計(jì)步驟。2. 理解基本概念：工程、窗體、屬性、事件、方法。3. 熟悉立即窗口的使用。4. 掌握Print、賦值語句的正確書寫規(guī)則。二. 實(shí)驗(yàn)內(nèi)容和原理【練習(xí)1-1】新建一個(gè)工程，單擊窗體時(shí)，在窗體上顯示“這是我的第一個(gè)VB實(shí)驗(yàn)”；雙擊窗體時(shí)，清除窗體上顯示的所有信息。研究下面的代碼段，考慮應(yīng)填入什么內(nèi)容？Private Sub Form_Click Print”這是我的第一個(gè)VB實(shí)驗(yàn)” End SubPriv

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

3、Sub Form_Load()Text1.FontName = "宋體"Text1.FontBold = True Text1.FontSize = 18 Text1.ForeColor = vbRedEnd Sub Private Sub Command1_Click() Text1.FontName =_”隸書”_ End SubPrivate Sub Command2_Click() Text1.FontName =”黑體”_End Sub上機(jī)實(shí)踐調(diào)試運(yùn)行以上程序。請(qǐng)你思考 文本框?qū)傩缘脑O(shè)置如改在屬性窗口中設(shè)置，以上代碼會(huì)怎樣？【練習(xí)1-3】編程，窗體界面設(shè)計(jì)如下圖1

4、，分別有三個(gè)命令按鈕command1、command2、command3，命令按鈕的Caption屬性分別為“改變位置”、“還原”和“退出”。 窗體加載后，運(yùn)行Form_Load 事件，使窗體定位在（2000，2000）坐標(biāo)值上，運(yùn)行效果如下圖2。圖1 圖2Private Sub Form_Load()Form1.Left = 2000Form1.Top = 2000Command2.Enabled = FalseEnd Sub 點(diǎn)擊命令按鈕command1后，使窗體定位在（100，100）坐標(biāo)值上，運(yùn)行效果如圖3： 圖 3Private Sub Command1_Click()Form1.L

5、eft = 100Form1.Top = 100Command1.Enabled = FalseCommand2.Enabled = TrueEnd Sub點(diǎn)擊命令按鈕command2，窗體又重回圖2的情況。請(qǐng)寫出另外兩個(gè)命令按鈕事件的內(nèi)容。Private Sub Command2_Click() Form1.Left = 2000 Form1.Top = 2000 Command1.Enabled = True Command2.Enabled = FalseEnd SubPrivate Sub Command3_Click() EndEnd Sub上機(jī)實(shí)踐調(diào)試運(yùn)行以上程序。請(qǐng)你思考 怎樣用

6、move方法來改變窗體位置，完成此題？【練習(xí)1-4】在窗體上建立5個(gè)命令按鈕Command1、Command2、Command3、Command4和Command5，運(yùn)行界面如下圖。要求：（1）命令按鈕的Caption屬性分別為“窗體變大”、“窗體變小”、“窗體左移”、“窗體右移”和“關(guān)閉窗體”。（2）每單擊Command1按鈕和Command2按鈕一次，窗體變大或變小1/4倍。（3）單擊Command3按鈕和Command4按鈕一次，窗體左移或右移200緹。（4）單擊Command5按鈕退出。練習(xí) 1-4 運(yùn)行界面以下是兩個(gè)命令按鈕的事件過程，寫出另外三個(gè)命令按鈕的事件過程。Private

7、Sub Command1_Click()Form1.Height = Form1.Height * 1.25Form1.Width = Form1.Width * 1.25End SubPrivate Sub Command3_Click()Form1.Left = Form1.Left - 200End SubPrivate Sub Command2_Click()Form1.Height = Form1.Height / 1.25Form1.Width = Form1.Width / 1.25End SubPrivate Sub Command4_Click()Form1.Left = F

8、orm1.Left + 200End SubPrivate Sub Command5_Click()EndEnd Sub上機(jī)實(shí)踐調(diào)試運(yùn)行以上程序?！揪毩?xí)1-5】在窗體上建立4個(gè)命令按鈕，command1、command2、command3、command4，要求：1命令按鈕的Caption屬性分別為“字體變大”、“字體變小”、“加粗”和“標(biāo)準(zhǔn)”。2每單擊按鈕command1和command2一次，字體變大或變小2個(gè)單位（提示：改變的是Form1.fontsize屬性值）。3單擊command3時(shí)，字體變粗；單擊command4時(shí)，字體又由粗體變標(biāo)準(zhǔn)；（提示：改變的是Form1.fontbold

9、屬性值）。44個(gè)按鈕每單擊一次，都在窗體上顯示“歡迎使用VB”。5雙擊窗體后清除窗體內(nèi)容。研究下面的代碼段，考慮應(yīng)填入什么內(nèi)容？Private Sub Command1_Click() '字體變大 Form1.FontSize = Form1.FontSize + 2Print "歡迎使用VB"End SubPrivate Sub Command2_Click() '字體變小 Form1.FontSize = Form1.FontSize - 2Print "歡迎使用VB"_ _End SubPrivate Sub Command3_Cl

10、ick() '字體加粗 Form1.FontBold = TruePrint "歡迎使用VB"End SubPrivate Sub Command4_Click() '字體不加粗 Form1.FontBold = _ False _Print "歡迎使用VB"End SubPrivate Sub Form_DblClick() _ Cls _End Sub上機(jī)實(shí)踐調(diào)試運(yùn)行以上程序，運(yùn)行界面參考如上圖。浙江大學(xué)城市學(xué)院實(shí)驗(yàn)報(bào)告課程名稱 VB程序設(shè)計(jì)基礎(chǔ)與實(shí)驗(yàn) 實(shí)驗(yàn)項(xiàng)目名稱 實(shí)驗(yàn)二、程序設(shè)計(jì)基礎(chǔ)1 實(shí)驗(yàn)成績 指導(dǎo)老師（簽名 ） 日期 一. 實(shí)

11、驗(yàn)?zāi)康暮鸵?. 掌握運(yùn)算符的使用。2. 掌握表達(dá)式的正確書寫規(guī)則。3. 掌握常用函數(shù)的使用。4. 掌握InputBox、MsgBox函數(shù)的使用。5. 熟悉掌握賦值語句的使用。6. 掌握順序結(jié)構(gòu)的應(yīng)用程序的編程過程。26True出生日期:1980/5/18False22Da bcdea b cdeVisualBasic76HELLO!浙江 杭州2015/3/18 2015/3/2584.69579420171499E-02 0.0470325.7055475 .533424.49999999226498-4二. 實(shí)驗(yàn)內(nèi)容和原理【練習(xí)2-1】打開立即窗口，輸入以下內(nèi)容，每行以回車鍵結(jié)束，查看結(jié)果

12、來掌握賦值語句、運(yùn)算符、表達(dá)式、常用內(nèi)部函數(shù)。運(yùn)行結(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("

13、;A") + 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程序設(shè)計(jì)")Print UCase("Hello!&

14、quot;)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)【練習(xí)2-2】設(shè)計(jì)一程序，窗體Form1 上有兩個(gè)文本框，窗體界面如下所示。兩個(gè)文本框可以輸入任意值，

15、在程序運(yùn)行時(shí)，每單擊窗體一次，兩個(gè)文本框的內(nèi)容交換一次。提示：(1)可以參考教材中兩個(gè)變量值交換的例子(2)可以定義中間交換變量 Dim c as string (3)賦值語句的”=”的前后項(xiàng)不要寫顛倒上機(jī)實(shí)踐編寫、調(diào)試運(yùn)行以上程序。Private Sub Form_Click() Dim c As String c = Text1.Text Text1.Text = Text2.Text Text2.Text = cEnd Sub【練習(xí)2-3】設(shè)計(jì)一個(gè)程序，在文本框內(nèi)輸入任意字符串，例如“美麗的西湖”，對(duì)字符串進(jìn)行字體放大或縮小。下圖是窗體的設(shè)計(jì)界面和經(jīng)過放大操作后的運(yùn)行效果。要求：(1)單

16、擊“放大”按鈕，將文本框中的字符串放大（字體放大），放大的倍數(shù)通過隨機(jī)函數(shù)Rnd產(chǎn)生，范圍在15倍。為了使每次運(yùn)行時(shí)產(chǎn)生不同的放大倍數(shù)，程序初始時(shí)應(yīng)執(zhí)行Randomize語句。(2)同樣，單擊“縮小”按鈕進(jìn)行縮小，縮小的倍數(shù)也通過上述方式產(chǎn)生。(3)單擊“還原”按鈕，字體大小恢復(fù)成初始狀態(tài)（12磅）。(4)程序啟動(dòng)時(shí)，文本框中的字體大小為12磅。 程序界面設(shè)計(jì)根據(jù)題目的要求，在界面上拖放1個(gè)標(biāo)簽、1個(gè)文本框和3個(gè)命令按鈕，并按下表設(shè)置對(duì)象的相關(guān)屬性。Private Sub Command1_Click() Dim n As Integer Randomize n = Int(Rnd * 5)

17、+ 1 Text1.FontSize = Text1.FontSize * nEnd SubPrivate Sub Command2_Click() Dim n As Integer Randomize n = Int(Rnd * 5) + 1 Text1.FontSize = Text1.FontSize / nEnd SubPrivate Sub Command3_Click() Text1.FontSize = 12End SubPrivate Sub Form_Load() Text1.FontSize = 12End Sub表2.？上機(jī)練習(xí)一之3題的屬性設(shè)置表對(duì)象默認(rèn)設(shè)置對(duì)象名稱Ca

18、ption屬性其他屬性Form1使用對(duì)象默認(rèn)名Form1Label1輸入文本屬性窗口的Font中設(shè)粗體、16號(hào)Text1Text屬性為空串屬性窗口的Font中設(shè)粗體、16號(hào)；拖動(dòng)鼠標(biāo)擴(kuò)大寬度和高度Command1放大屬性窗口的Font中設(shè)粗體、16號(hào)Command2縮小屬性窗口的Font中設(shè)粗體、16號(hào)Command3還原屬性窗口的Font中設(shè)粗體、16號(hào)部分事件代碼Private Sub Command1_Click()Dim n As IntegerRandomizen = Int(Rnd * 5) + 1Text1.FontSize = Text1.FontSize * nEnd Sub

19、【練習(xí)2-4】設(shè)計(jì)一個(gè)根據(jù)攝氏溫度求對(duì)應(yīng)的華氏溫度的程序。下圖是設(shè)計(jì)窗體，窗體上有2個(gè)標(biāo)簽框作提示使用；2個(gè)文本框Text1和Text2分別作輸入和顯示；3個(gè)命令按鈕， 名稱分別是Command1、Command2、Command3，標(biāo)題分別是“計(jì)算”、“清除”、“退出”。在Text1中輸入攝氏溫度后，單擊“計(jì)算”按鈕，右文本框內(nèi)顯示出該攝氏溫度對(duì)應(yīng)的華氏溫度；單擊“清除”按鈕使得2個(gè)文本框的內(nèi)容被清除；單擊“退出”按鈕結(jié)束程序運(yùn)行。計(jì)算公式：F=9C/5+32，其中C表示攝氏溫度，F(xiàn)表示華氏溫度。（提示：清除文本框Text1中的文字信息用語句Text1.Text=”）上機(jī)實(shí)踐編寫、調(diào)試運(yùn)行以

20、上程序?！揪毩?xí)2-5】兩個(gè)窗體的運(yùn)行界面如下，兩窗體標(biāo)題分別為“啟動(dòng)窗體”、“第二個(gè)窗體”，啟動(dòng)窗體的背景色是紅色，第二個(gè)窗體的背景色是綠色，單擊啟動(dòng)窗體的命令按鈕“下一窗體”，顯示出第二個(gè)窗體，隱藏啟動(dòng)窗體，單擊第二個(gè)窗體的命令按鈕“返回”，關(guān)閉第二個(gè)窗體，顯示出啟動(dòng)窗體。練習(xí) 1-6 運(yùn)行界面命令按鈕“返回”的事件過程如下，寫出啟動(dòng)窗體命令按鈕的事件過程。Private Sub Command1_Click()Form2.HideForm1.ShowEnd Sub上機(jī)實(shí)踐編寫、調(diào)試運(yùn)行以上程序，運(yùn)行界面參考上圖。請(qǐng)你思考 在這個(gè)練習(xí)中要考慮怎樣在同一工程中建立多個(gè)窗體，以及多個(gè)窗體的保存。

21、在此題中保存了幾個(gè)文件？先后次序分別是什么？浙江大學(xué)城市學(xué)院實(shí)驗(yàn)報(bào)告課程名稱 VB程序設(shè)計(jì)基礎(chǔ)與實(shí)驗(yàn) 實(shí)驗(yàn)項(xiàng)目名稱 實(shí)驗(yàn)三、程序設(shè)計(jì)基礎(chǔ)2 實(shí)驗(yàn)成績 指導(dǎo)老師（簽名 ） 日期 一. 實(shí)驗(yàn)?zāi)康暮鸵笳莆粘Ｓ煤瘮?shù)的使用；理解并掌握InputBox、MsgBox函數(shù)的使用；熟練掌握賦值語句的使用。掌握順序結(jié)構(gòu)的應(yīng)用程序的編程過程。二. 實(shí)驗(yàn)內(nèi)容和原理【練習(xí)3-1】設(shè)計(jì)一個(gè)函數(shù)計(jì)算器。其功能要求如下：（1）運(yùn)行的界面如圖所示。有12個(gè)命令按鈕。每使用一個(gè)函數(shù)按鈕前，先單擊“清除”按鈕，文本框和標(biāo)簽框中的內(nèi)容清空。（2）Sin、Cos、Sqr、Int、Chr、Asc等函數(shù)將文本框中的數(shù)據(jù)作為函數(shù)的輸入?yún)?/p>

22、數(shù)，單擊這些函數(shù)命令按鈕，在標(biāo)簽框中顯示其函數(shù)值。（3）單擊“Rnd”按鈕，用Rnd函數(shù)產(chǎn)生一隨機(jī)數(shù)，顯示在標(biāo)簽框中。（3）單擊“Date”按鈕在標(biāo)簽框中顯示系統(tǒng)日期；單擊“Time”按鈕在標(biāo)簽框中顯示系統(tǒng)時(shí)間； （4）單擊“InputBox”按鈕，彈出一對(duì)話框，提示輸入姓名，當(dāng)用戶輸入后，再將輸入信息顯示在標(biāo)簽框中。單擊“MsgBox”按鈕，將文本框中的內(nèi)容通過一信息框顯示出來，要求信息框提供給用戶的有“是”、“否”、“取消”3個(gè)按鈕，根據(jù)用戶的不同選擇，將函數(shù)返回結(jié)果顯示在標(biāo)簽框中。 部分命令按鈕的提示代碼如下：Sin命令按鈕的事件過程可以寫作：Const pi = 3.1415926Di

23、m 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命令按鈕的事件過程可以寫作：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 = S

24、tr(n)Rnd命令按鈕的事件過程可以寫作：Randomize Label1.Caption = Str(Rnd)請(qǐng)完整寫出所有命令按鈕的事件過程。Const pi = 3.1415926Private Sub Command1_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Sin(x * pi / 180) Label3.Caption = Str(fx)End SubPrivate Sub Command2_Click() Dim x As Single, fx As Single x = Val(Text1.

25、Text) fx = Cos(x * pi / 180) Label3.Caption = Str(fx)End SubPrivate Sub Command3_Click() Randomize Label3.Caption = Str(Rnd)End SubPrivate Sub Command4_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Sqr(x) Label3.Caption = Str(fx)End SubPrivate Sub Command5_Click() Dim x As Single x

26、= Val(Text1.Text) Label3.Caption = Str(Int(x)End SubPrivate Sub Command6_Click() Dim x As Integer x = Val(Text1.Text) Label3.Caption = Chr(x)End SubPrivate Sub Command7_Click() Label3.Caption = Str(Asc(Text1.Text)End SubPrivate Sub Command8_Click() Dim x As String x = InputBox("請(qǐng)輸入姓名:", &q

27、uot;輸入姓名:") Label3.Caption = xEnd SubPrivate Sub Command9_Click() Dim n As String n = MsgBox("你輸入的數(shù)據(jù)是" & Text1.Text, 3 + 32 + 0, "數(shù)據(jù)檢查") Label3.Caption = Str(n)End SubPrivate Sub Command10_Click() Label3.Caption = DateEnd SubPrivate Sub Command11_Click() Label3.Caption =

28、 TimeEnd SubPrivate Sub Command12_Click() Text1.Text = "" Label3.Caption = ""End Sub上機(jī)實(shí)踐編寫、調(diào)試運(yùn)行以上程序，運(yùn)行界面參考如上圖?！揪毩?xí)3-2】通過函數(shù)處理文本框中的數(shù)據(jù)。運(yùn)行的界面如下圖所示。在文本框中輸入一個(gè)有小數(shù)的浮點(diǎn)數(shù)，如-123.123456789，點(diǎn)擊“執(zhí)行”按鈕，在右側(cè)標(biāo)簽框中產(chǎn)生與左側(cè)項(xiàng)目對(duì)應(yīng)的值（如第二行左邊是一個(gè)標(biāo)簽框，其Caption屬性值是“Int”，右邊又是另一個(gè)標(biāo)簽框，其Caption屬性值是根據(jù)文本框中的數(shù)據(jù)由程序自動(dòng)完成計(jì)算并賦值的）

29、。觀察單精度和雙精度浮點(diǎn)數(shù)的不同結(jié)果，通過字符串函數(shù)處理產(chǎn)生數(shù)據(jù)的整數(shù)部分和小數(shù)部分。點(diǎn)擊“清除”，將文本框和右側(cè)標(biāo)簽框內(nèi)容清除。Form_Load事件也用來將文本框和右側(cè)標(biāo)簽框內(nèi)容清除。將以下代碼通過上機(jī)調(diào)試補(bǔ)充完整。Private Sub Command1_Click()Dim n As Integer Dim sing As Single, doub As Double'存放單精度和雙精度的值 Dim s As String '存放數(shù)字字符串 Dim a As Integer '小數(shù)點(diǎn)在數(shù)字字符串中位置 n = Int(Val(Text1.Text) sing =

30、 Val(Text1.Text) doub = Label1.Caption = n Label2.Caption = sing Label3.Caption = s = Trim(Str(Abs(Val(Text1.Text) a = (s, ".") Label4.Caption = Left(s, a - 1) Label5.Caption = End SubPrivate Sub Command2_Click()Text1.Text = Label1.Caption = Label2.Caption = Label3.Caption = Label4.Caption

31、 = Label5.Caption = End SubPrivate Sub Form_Load() . End SubPrivate Sub Command1_Click()Dim n As Integer Dim sing As Single, doub As Double Dim s As String Dim a As Integer n = Int(Val(Text1.Text) sing = Val(Text1.Text) doub = Val(Text1.Text) Label2.Caption = n Label8.Caption = sing Label9.Caption =

32、 doub s = Trim(Str(Abs(Val(Text1.Text) a = InStr(s, ".") Label10.Caption = Left(s, a - 1) Label11.Caption = Mid(s, 4)End Sub Private Sub Command2_Click() Text1.Text = Clear Label2.Caption = Clear Label8.Caption = Clear Label9.Caption = Clear Label10.Caption = Clear Label11.Caption = ClearE

33、nd SubPrivate Sub Text1_Change()End Sub【練習(xí)3-3】設(shè)計(jì)一個(gè)用計(jì)算機(jī)給出三位整數(shù)加法練習(xí)程序。程序界面如下圖所示，單擊一次，則在文本框中產(chǎn)生一題。提示：（1）將文本框的Multiline屬性設(shè)置為true,并設(shè)置垂直滾動(dòng)(ScrollBars=2)（2）用Rnd 函數(shù)產(chǎn)生100999之間的隨機(jī)整數(shù)（3）回車換行符用函數(shù)chr(13)+chr(10)表示研究下面的代碼段，考慮應(yīng)填入什么內(nèi)容？Private Sub Form_Load() Text1.text= End SubPrivate Sub Command1_Click() Dim x As Int

34、eger, y As Integer x = '產(chǎn)生三位隨機(jī)數(shù)y = '產(chǎn)生三位隨機(jī)數(shù) Text1.Text = & x & "+" & y & "=( )" & Chr(13) & Chr(10)End Sub上機(jī)實(shí)踐調(diào)試運(yùn)行以上程序，運(yùn)行界面參考如上圖。Private Sub Command1_Click() Dim x As Integer, y As Integer x = 100 + Int(Rnd * 900) y = 100 + Int(Rnd * 900) Text1.Tex

35、t = Text1.Text & x & "+" & y & "=( )" & Chr(13) & Chr(10)End SubPrivate Sub Form_Load() Text1.Text = ""End SubPrivate Sub Text1_Change()End Sub【練習(xí)3-4】 在標(biāo)簽框中有一串英文字符串，有三個(gè)命令按鈕名稱分別為command1、command2、command3，按“轉(zhuǎn)大寫”按鈕，文本變?yōu)榇髮?，按“轉(zhuǎn)小寫”按鈕，文本變?yōu)樾?。其他字符不變。按“還

36、原”按鈕，回到啟動(dòng)狀態(tài)。在本實(shí)驗(yàn)中需要在通用中聲明一個(gè)模塊級(jí)變量s，考慮一下為什么？研究下面的代碼段，考慮應(yīng)填入什么內(nèi)容？Dim s As String聲明模塊級(jí)變量sPrivate Sub Form_Load()s = Label1.CaptionEnd SubPrivate Sub Command1_Click()Label1.Caption = End SubPrivate Sub Command2_Click()Label1.Caption = End SubPrivate Sub Command3_Click()“還原”的事件代碼Label1.Caption = sEnd SubDi

37、m s As String Private Sub Form_Load() s = Label1.CaptionEnd SubPrivate Sub Command1_Click() Label1.Caption = Format("How are you", ">")End SubPrivate Sub Command2_Click() Label1.Caption = Format("HOW ARE YOU", "<")End SubPrivate Sub Command3_Click() Labe

38、l1.Caption = sEnd SubPrivate Sub Label1_Click()End Sub浙江大學(xué)城市學(xué)院實(shí)驗(yàn)報(bào)告課程名稱 VB程序設(shè)計(jì)基礎(chǔ)與實(shí)驗(yàn) 實(shí)驗(yàn)項(xiàng)目名稱 實(shí)驗(yàn)四、分支結(jié)構(gòu)程序設(shè)計(jì) 實(shí)驗(yàn)成績 指導(dǎo)老師（簽名 ） 日期 一. 實(shí)驗(yàn)?zāi)康暮鸵?.掌握單分支與雙分支條件語句IF的使用。2.掌握多分支條件語句的使用。3.掌握情況語句Select Case的使用及其與多分支條件語句的區(qū)別。二. 實(shí)驗(yàn)內(nèi)容和原理【練習(xí)4-1】研究下面的代碼段，畫程序流程圖，當(dāng)輸入93，81，74，65，42時(shí)，寫出窗體中顯示的結(jié)果。Private Sub Form_Click() 93：優(yōu)秀scor

39、e = Val(InputBox("輸入成績") 81:合格If score < 60 Then Print "不合格" 74：合格If score >= 60 and score<85 Then Print "合格" 65：合格If score >= 85 Then Print "優(yōu)秀" 42：不合格End sub引伸1若把程序代碼寫成如下形式，畫出它的流程圖。問當(dāng)輸入成績?yōu)?0分時(shí)，顯示什么結(jié)果？為什么？用嵌套塊If語句應(yīng)如何寫？ 90：合格Private Sub Form_Click(

40、) 原因： If score >= 85 Then st= "優(yōu)秀"該if語句不完整score = Val(InputBox("輸入成績") If score >= 85 Then st= "優(yōu)秀" If score < 60 Then st=” 不合格”Else st="合格"End IfPrint stEnd Sub嵌套塊if語句：Private Sub Form_Click()score = Val(InputBox("輸入成績")If score >= 60 Th

41、en If score >= 85 Then st= "優(yōu)秀"Elsest="合格"End If Else st=” 不合格”End ifPrint stEnd Sub引伸2若把程序?qū)懗扇缦滦问?，?dāng)輸入成績?yōu)?0、80、50時(shí)，顯示什么結(jié)果？畫出流程圖。Private Sub Form_Click()score = Val(InputBox("輸入成績") 90：優(yōu)秀If score >= 85 Then 80：合格Print "優(yōu)秀" 50：不合格 ElseIf score >= 60 Then

42、Print "合格"ElsePrint "不合格"End IfEnd Sub調(diào)試運(yùn)行以上程序，采用單步跟蹤的方法（按F8）查看程序執(zhí)行流程，進(jìn)一步加深對(duì)分支結(jié)構(gòu)的理解?！揪毩?xí)4-2】 研究下面的代碼段。Dim flag As Integer注Dim falg as IntegerPrivate Sub Form_click()If flag = 0 ThenForm1.Print "歡迎使用Visual Basic!"flag = 1ElseIf flag = 1 ThenForm1.Clsflag = 0End IfEnd Sub問

43、題(1)在窗體上單擊三下，窗體中顯示什么結(jié)果？ 歡迎使用Visual Basic! (2)注意變量flag定義的位置，在這個(gè)位置定義的變量稱作 模塊變量 。若把變量flag變量定義放在Form_click()事件過程里，如：Private Sub Form_click()Dim flag As IntegerIf flag = 0 Then 在窗體上單擊三下，此時(shí)程序的運(yùn)行結(jié)果怎樣？ 每單擊一次出現(xiàn)：歡迎使用Visual Basic! (3)若要求窗體顯示的字體是隸書18號(hào)字，該如何補(bǔ)充程序？Form1.FontName = "隸書" Form1.FontSize = &q

44、uot;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é)果，為什么？ 屏幕無顯示 原因：Form1.Cls清空的是窗體信息，且后面的值設(shè)置為0，所以不管flag的值是0還是1，窗體都空白(5)若在Form_Click()事件過程中第一行的變量名flag拼寫錯(cuò)了，寫成了falg，如注所示，

45、則程序執(zhí)行結(jié)果如何？為什么？ 每單擊一次出現(xiàn)：歡迎使用Visual Basic!上面的變了下面的沒改，falg只記住falg的變量【練習(xí)4-3】根據(jù)所輸入的百分制成績score，給出相應(yīng)的五級(jí)計(jì)分等級(jí)，即“優(yōu)秀” (score>=90)，“良好”(80<=score<90)，“中”(70<=score<80)，“及格”(60<=score<70)，“不及格”(score<60)， 用ElseIf語句完成，請(qǐng)把下面的程序填寫完整。Dim score As IntegerPrivate Sub Form_click()score = Val(Inpu

46、tBox("輸入成績")If score>=90 then Print “優(yōu)秀”ElseIf score>=80 thenPrint "良好" ElseIf score >= 70 Then Print "中" ElseIf score >= 60 Then Print "及格" Else Print "不及格" End If End Sub引伸若把上面的ElseIf語句改寫成塊If語句，該如何補(bǔ)充完整。If score>=90 then Print “優(yōu)秀”Els

47、eIf score>=80 then Print "良好"End IfElse If score >= 70 Then Print "中"End IfElse If score >= 60 Then Print "及格"End IfElse Print "不及格" End If End Sub【練習(xí)4-4】根據(jù)所輸入的百分制成績score，給出相應(yīng)的五級(jí)計(jì)分等級(jí)，用Select Case語句完成?！? 錯(cuò)誤1 *”提示信息的下一行是錯(cuò)誤的，改正有錯(cuò)的語句并調(diào)試完成程序。Private Sub Co

48、mmand1_Click() Dim score as single score = val(Text1.Text) * 錯(cuò)誤1 * Select Case x * 錯(cuò)誤2 * Case x >= 90 Text2.Text = "優(yōu)秀"* 錯(cuò)誤3 * Case x<90 and x>=80 Text2.Text = "良好" * 錯(cuò)誤4 * Case x >= 70 and x<80 Text2.Text = "中"* 錯(cuò)誤5 * Case x >= 60 Text2.Text = "及

49、格" Case else Text2.Text = "不及格" End SelectEnd Sub調(diào)試運(yùn)行程序，運(yùn)行界面參考圖3-23。Private Sub Command1_Click() Dim score As Single score = Val(Text1.Text) Select Case score Case Is >= 90 Text2.Text = "優(yōu)秀" Case Is >= 80 Text2.Text = "良好" Case Is >= 70 Text2.Text = "

50、中" Case Is >= 60 Text2.Text = "及格" Case Else Text2.Text = "不及格" End SelectEnd Sub圖3-23 練習(xí)三程序運(yùn)行界面【練習(xí)4-5】編程，在窗體上循環(huán)輸出字符串“歡迎使用Visual Basic”。第一次單擊窗體時(shí)以紅色顯示；第二次單擊時(shí)以綠色顯示；第三次單擊時(shí)以籃色顯示；第四次單擊時(shí)則清除窗體上的信息；第五次又重新開始。Dim Flag As IntegerDim Mystring As StringPrivate Sub Form_Load() Flag = 0

51、 Mystring = "歡迎使用 Vlsual Basicl"End SubPrivate Sub form_Click() Flag = Flag + 1 Select Case Flag Case 1 Form1.ForeColor = vbRed Form1.Print Mystring Case 2 Form1.ForeColor = vbGreen Form1.Print Mystring Case 3 Form1.ForeColor = vbBlue Form1.Print Mystring Case 4 Form1.Cls Case 5 Flag = 0End