實(shí)驗(yàn)二_實(shí)驗(yàn)報(bào)告

1、實(shí)驗(yàn)報(bào)告課程名稱Visual Basic程序設(shè)計(jì)實(shí)驗(yàn)項(xiàng)目順序結(jié)構(gòu)程序設(shè)計(jì)實(shí)驗(yàn)?zāi)康?. 掌握窗體、標(biāo)簽、文本框、命令按鈕的常用屬性、方法和時(shí)間的使用。2. 理解常量、變量、數(shù)據(jù)類型、運(yùn)算符和表達(dá)式的使用。3. 掌握常用內(nèi)部函數(shù)的功能和使用。4. 掌握賦值語(yǔ)句、End語(yǔ)句、Inputbox函數(shù)和MsgBox語(yǔ)句的使用。5. 掌握計(jì)時(shí)器空間的使用。實(shí)驗(yàn)內(nèi)容（任選4個(gè)題目）1. 實(shí)驗(yàn)2.1【內(nèi)容描述】實(shí)際一個(gè)利用標(biāo)簽制作文字陰影效果的程序。單機(jī)陰影按鈕，標(biāo)簽文字出 現(xiàn)黑色陰影，此時(shí)恢復(fù)按鈕變?yōu)榭捎?，陰影按鈕變?yōu)椴豢捎?，單擊恢?fù)按鈕，則 恢復(fù)到原來(lái)的文字效果?！痉治觥?1)界面分析(用到哪些控件) 窗體

2、、命令按鈕。(2) 程序分析(用到哪些算法和關(guān)鍵技術(shù))1. 利用兩個(gè)標(biāo)簽制作陰影效果，兩個(gè)標(biāo)簽顯示的文字相同，字體相同，但顏 色不同，作為陰影現(xiàn)實(shí)的標(biāo)簽文字為黑色；兩個(gè)標(biāo)簽的位置不同，在屬性窗口中調(diào)整提昂個(gè)標(biāo)簽的Top he和Left屬性值，時(shí)期產(chǎn)生交錯(cuò)的陰影效果； 在程序中通過(guò)設(shè)置陰影標(biāo)簽的 Visible屬性即可實(shí)現(xiàn)陰影或取消陰影的效果。2. 通過(guò)設(shè)置按鈕的Enabled屬性可是按鈕變?yōu)榭捎没虿豢捎脿顟B(tài)?！驹O(shè)計(jì)】(1) 界面設(shè)計(jì)(給出界面截圖)陰影(2)代碼設(shè)計(jì)(給出程序代碼)P rivate Sub CmdNew_Click()Labell.Visible = TrueCmdOld.E

3、nabled = TrueCmdNew.E nabled = FalseEnd SubPrivate Sub CmdOld_Click()Label1.Visible = FalseCmdOld.E nabled = FalseCmdNew.E nabled = TrueEnd Sub【運(yùn)行結(jié)果】（給出運(yùn)行結(jié)果界面截圖）歡迎學(xué)習(xí)程序設(shè)計(jì)恢復(fù)2. 實(shí)驗(yàn)2.2【內(nèi)容描述】設(shè)計(jì)一個(gè)簡(jiǎn)單的文本操作程序。單機(jī)隸書(shū)按鈕，可以設(shè)置文字的字體為隸書(shū)； 單擊放大和縮小按鈕，可以改變文字的大??；單機(jī)復(fù)制按鈕，可以將選擇的文字 復(fù)制到右側(cè)的文本框，單擊剪切按鈕，可以講選擇的文字剪切到右側(cè)文本框?！痉治觥浚?）界面分

4、析（用到哪些控件） 命令按鈕、文本框、標(biāo)簽、窗體。（2）程序分析（用到哪些算法和關(guān)鍵技術(shù)）1. 通過(guò)設(shè)置問(wèn)問(wèn)你笨礦的Font屬性樂(lè)意改變文本框中文本的字體和字號(hào)。2. 在復(fù)制和剪切功能中，需要將選中的你誒榮及其字體格式復(fù)制或剪切到右 側(cè)的文本框。3. 通過(guò)文本框的SelText屬性可以獲得選中的內(nèi)容?！驹O(shè)計(jì)】（2）代碼設(shè)計(jì)（給出程序代碼）Private Sub Comma nd1_Click()Text1.FontName = "隸書(shū) "End SubPrivate Sub Command2_Click()Text1.FontSize = Text1.FontSize +

5、1End SubPrivate Sub Command3_Click()Text1.FontSize = Text1.FontSize - 1End SubPrivate Sub Command4_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd SubPrivate Sub Command5_Click()Text2.Text = Text1.SelTextText1.SelText = ""Text2.FontName =

6、Text1.FontNameText2.FontSize = Text1.FontSizeEnd SubPrivate Sub Form_Load()Text1.Text = "欲窮千里目，更上一層樓 "End Sub運(yùn)行結(jié)果】（給出運(yùn)行結(jié)果界面截圖）«,文耳操作口叵區(qū)輸入文本欲窮千里a更上_層樓噩千里旺更上一復(fù)制1.實(shí)驗(yàn)2.3【內(nèi)容描述】實(shí)際一個(gè)華氏溫度與攝氏溫度之家轉(zhuǎn)換的程序。首先在指定的文本框中輸 入數(shù)據(jù)，然后單擊攝轉(zhuǎn)華按鈕，即可將攝氏溫度轉(zhuǎn)化為華氏溫度；單擊劃轉(zhuǎn)舍按 鈕即可將華氏溫度轉(zhuǎn)化微微攝氏溫度，單擊清楚按鈕，則將文本框中的數(shù)據(jù)清除， 并將輸入焦點(diǎn)賺為

7、化石文本框中，等待輸入新的數(shù)據(jù)；推出按鈕，則結(jié)束程序進(jìn)行?！痉治觥?3) 界面分析(用到哪些控件) 窗體、命令按鈕、文本框、標(biāo)簽。(4) 程序分析(用到哪些算法和關(guān)鍵技術(shù)) 可以通過(guò)Format函數(shù)控制計(jì)算結(jié)果保留兩位小數(shù)?！驹O(shè)計(jì)】(1)界面設(shè)計(jì)(給出界面截圖)B叵區(qū)華轉(zhuǎn)攝工廠華氏溟度二二二攝氏溫度：:暢轉(zhuǎn)華| - (2)代碼設(shè)計(jì)(給出程序代碼)P rivate Sub Comma nd1_Click()Dim f!, c!f = Val(Text1.Text)c = 5 / 9 * (f - 32)Text2.Text = Format(c, "0.00")End Sub

8、Private Sub Comma nd2_Click() Dim f!, c!c = Val(Text2.Text)f = 9 / 5 * Val(Text2.Text) + 32TextI.Text = Format(f, "0.00")End SubPrivate Sub Comma nd3_Click()Text1.Text =""Text2.Text =""TextI.SetFocusEnd SubPrivate Sub Comma nd4_Click()EndEnd Sub【運(yùn)行結(jié)果】（給出運(yùn)行結(jié)果界面截圖）遊度鵠換0&#

9、174;11.實(shí)驗(yàn)2.4【內(nèi)容描述】設(shè)計(jì)一個(gè)簡(jiǎn)單的四則運(yùn)算計(jì)算器程序。 在文本框輸入數(shù)據(jù)，單擊命令按鈕, 即可的到運(yùn)算結(jié)果單擊清楚即可清除文本框數(shù)據(jù)?！痉治觥浚?）界面分析（用到哪些控件） 窗體、命令按鈕、文本框、標(biāo)簽。(6) 程序分析(用到哪些算法和關(guān)鍵技術(shù)) 通過(guò)文本框的Text屬性指控可以事先清除數(shù)據(jù)【設(shè)計(jì)】(1)界面設(shè)計(jì)(給出界面截圖)(2)代碼設(shè)計(jì)(給出程序代碼)P rivate Sub CmdAdd_Click()label3.Ca ptio n = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub CmdExit_Click(

10、)EndEnd SubPrivate Sub CmdSub_Click()label3.Ca ptio n = Val(Text1.Text) - Val(Text2.Text)End Sub二回區(qū)運(yùn)算結(jié)果【運(yùn)行結(jié)果】（給出運(yùn)行結(jié)果界面截圖）外計(jì)算器輸人運(yùn)算數(shù)112525 二12536X退出I1.實(shí)驗(yàn)2.5【內(nèi)容描述】打印一個(gè)三角形圖案的程序。在行數(shù)文本框輸入行數(shù)，字符文本框輸入要 打印的字符單擊圖案按鈕即可顯示三堿性的圖案單擊清除按鈕即可清除圖案單 擊推出按鈕則推出程序?！痉治觥浚?）界面分析（用到哪些控件）窗體、命令按鈕、文本框、標(biāo)簽、計(jì)時(shí)器。（8）程序分析（用到哪些算法和關(guān)鍵技術(shù)）使用兩

11、個(gè)計(jì)時(shí)器控件控制圖案的打印【設(shè)計(jì)】(1)界面設(shè)計(jì)(給出界面截圖)】(2) 代碼設(shè)計(jì)(給出程序代碼)Dim n As In tegerDim ch As Stri ngPrivate Sub Comma nd1_Click()Dim h As In tegern = 0h = Val(Textl.Text) ch = Text2.TextTimer2.l nterval = (h + 1) * 200Timerl.E nabled = TrueTimer2.E nabled = TrueEnd SubPrivate Sub Timer1_Timer()Print Tab(28 - n); Str

12、ing(2 * n - 1, ch) End SubPrivate Sub Timer2_Timer()Timer1.Enabled = FalseTimer2.Enabled = FalseEnd SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Command3_Click()EndEnd Sub運(yùn)行結(jié)果】（給出運(yùn)行結(jié)果界面截圖）細(xì)三箱je圖累口回岡111(1111liiiiiiori*1311 ！ III 1llhll1111111111111111訂1tllllllUllliiitiiiiinii!iiiiiiiiHiLiinii

13、iiiiiiiiiiiLiinii11 llLllllllllLlllll 11111 llLllllllllLlllll 111llllllLllllllllLllllllllllllllllLlllllllllllllllllll退岀1.實(shí)驗(yàn)2.6【內(nèi)容描述】設(shè)計(jì)一個(gè)計(jì)算構(gòu)成所發(fā)工資的各種面額鈔票張數(shù)最少的付款方案【分析】（9）界面分析（用到哪些控件）文本框、按鈕（10）程序分析（用到哪些算法和關(guān)鍵技術(shù)）可以通過(guò)整除運(yùn)算計(jì)算某種面額鈔票的張數(shù)，通過(guò)求余運(yùn)算計(jì)算去掉該種面額后剩余的工資數(shù)【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）旣發(fā)工資實(shí)發(fā)工資元應(yīng)付鈔票數(shù)S10元票5兀票I1元票100元票jBO

14、兀票20元票(2)代碼設(shè)計(jì)(給出程序代碼)Private Sub Comma nd1_Click()Dim x As Long, y As Longx = Val(Textl.Text)y = x 100: Text2.Text = yx = x Mod 100y = x 50: Text3.Text = yx = x Mod 50y = x 20: Text4.Text = yx = x Mod 20y = x 10: Text5.Text = yx = x Mod 10y = x 5: Text6.Text = yx = x Mod 5Text7.Text = xEnd SubPrivat

15、e Sub Comma nd2_Click()Text1.Text =IlliText2.Text =IlliText3.Text =IlliText4.Text =IlliText5.Text =IlliText6.Text =IlliText7.Text =""TextI.SetFocusEnd Sub【運(yùn)行結(jié)果】（給出運(yùn)行結(jié)果界面截圖）旣發(fā)工資匚1問(wèn)區(qū)實(shí)發(fā)工資£$125元莎黨數(shù)蚩1 蓿除1h-P'in 空止|11應(yīng)付鈔票數(shù)S100元票阪張1Q元票q張50兀票C張5兀票i張加元票P(pán)張1元票q張2.實(shí)驗(yàn)2.7【內(nèi)容描述】倒計(jì)時(shí)，計(jì)時(shí)器【分析】（3）界面分

16、析（用到哪些控件）計(jì)時(shí)器（4）程序分析（用到哪些算法和關(guān)鍵技術(shù)）使用計(jì)時(shí)器控件控制倒計(jì)時(shí)，通過(guò)整除和求運(yùn)算計(jì)算出剩余的時(shí)間【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）Brx分鐘小時(shí)距離結(jié)束時(shí)間還有:關(guān)閉rWl 停止I Ii 1*1 IliriH iii-br IDim t As IntegerPrivate Sub Command1_Click()t = Val(Text1.Text) * 3600 + Val(Text2.Text) * 60Timer1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPriv

17、ate Sub Command2_Click()Command1.Enabled = TrueCommand2.Enabled = FalseTimer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Timer1_Timer()Dim h As Integer, m As Integer, s As Integerh = t 3600m = t 60 Mod 60s = t Mod 60Label5.Caption = h & "小時(shí)" & m & &

18、quot; 分" & s & " 秒"End Sub運(yùn)行結(jié)果】（給出運(yùn)行結(jié)果界面截圖）宣倒計(jì)時(shí)口回區(qū)I走時(shí)時(shí)fa： 1小時(shí)距離結(jié)束時(shí)rai丕有:停止Eg：8.實(shí)驗(yàn)2.8【內(nèi)容描述】計(jì)算出兩點(diǎn)的距離【分析】（5）界面分析（用到哪些控件）用文本框接收（6）程序分析（用到哪些算法和關(guān)鍵技術(shù)） 使用inputbox函數(shù)實(shí)現(xiàn)點(diǎn)的坐標(biāo)的輸入使用msgbox語(yǔ)句輸出計(jì)算的結(jié)果【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）*計(jì)埠兩點(diǎn)NIfi的距S肢的坐標(biāo)仗，刃：B點(diǎn)的坐標(biāo)仕顯）：距離退出rTOOwl 計(jì)捧Wlllll-llllh-lllll-IIIIH-lllll 111

19、1 -III H-llll(2)代碼設(shè)計(jì)(給出程序代碼)Dim ax As In teger, ay As In tegerDim bx As In teger, by As In tegerPrivate Sub Comma nd1_Click()Dim x As StringDim n As Integerx = InputBox("請(qǐng)輸入第一個(gè)點(diǎn)的坐標(biāo) n = InStr(x, ",")ax = Val(Left(x, n - 1)取左邊的數(shù)字(x,y),以“，”分隔","輸入點(diǎn)坐標(biāo)")ay = Val(Right(x, Len(x) - n)x = Inpu tBox("請(qǐng)輸入第二個(gè)點(diǎn)的坐標(biāo) n = InStr(x, ",")