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

實(shí)驗(yàn)報(bào)告 課程名稱VisualBasic程序設(shè)計(jì) 試驗(yàn)項(xiàng)目次序構(gòu)造程序設(shè)計(jì)試驗(yàn)?zāi)康?.掌握窗體、標(biāo)簽、文本框、命令按鈕的常用屬性、措施和時(shí)間的使用。2.理解常量、變量、數(shù)據(jù)類型、運(yùn)算符和體現(xiàn)式的使用。3.掌握常用內(nèi)部函數(shù)的功能和使用。4.掌握賦值語句、End語句、Inputbox函數(shù)和MsgBox語句的使用。5.掌握計(jì)時(shí)器空間的使用。試驗(yàn)內(nèi)容（任選4個(gè)題目）1.試驗(yàn)2.1 【內(nèi)容描述】實(shí)際一種運(yùn)用標(biāo)簽制作文字陰影效果的程序。單機(jī)陰影按鈕，標(biāo)簽文字出現(xiàn)黑色陰影，此時(shí)恢復(fù)按鈕變?yōu)榭捎?，陰影按鈕變?yōu)椴豢捎茫瑔螕艋謴?fù)按鈕，則恢復(fù)到本來的文字效果。 【分析】界面分析（用到哪些控件）窗體、命令按鈕。程序分析（用到哪些算法和關(guān)鍵技術(shù)）1.運(yùn)用兩個(gè)標(biāo)簽制作陰影效果，兩個(gè)標(biāo)簽顯示的文字相似，字體相似，但顏色不一樣，作為陰影現(xiàn)實(shí)的標(biāo)簽文字為黑色；兩個(gè)標(biāo)簽的位置不一樣，在屬性窗口中調(diào)整提昂個(gè)標(biāo)簽的Tophe和Left屬性值，時(shí)期產(chǎn)生交錯(cuò)的陰影效果；在程序中通過設(shè)置陰影標(biāo)簽的Visible屬性即可實(shí)現(xiàn)陰影或取消陰影的效果。2.通過設(shè)置按鈕的Enabled屬性可是按鈕變?yōu)榭捎没虿豢捎脿顟B(tài)。 【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）（2）代碼設(shè)計(jì)（給出程序代碼）PrivateSubCmdNew_Click()Label1.Visible=TrueCmdOld.Enabled=TrueCmdNew.Enabled=FalseEndSubPrivateSubCmdOld_Click()Label1.Visible=FalseCmdOld.Enabled=FalseCmdNew.Enabled=TrueEndSub 【運(yùn)行成果】（給出運(yùn)行成果界面截圖）2.試驗(yàn)2.2 【內(nèi)容描述】設(shè)計(jì)一種簡(jiǎn)樸的文本操作程序。單機(jī)隸書按鈕，可以設(shè)置文字的字體為隸書；單擊放大和縮小按鈕，可以變化文字的大??；單機(jī)復(fù)制按鈕，可以將選擇的文字復(fù)制到右側(cè)的文本框，單擊剪切按鈕，可以講選擇的文字剪切到右側(cè)文本框。 【分析】界面分析（用到哪些控件）命令按鈕、文本框、標(biāo)簽、窗體。程序分析（用到哪些算法和關(guān)鍵技術(shù)）1.通過設(shè)置問問你笨礦的Font屬性樂意變化文本框中文本的字體和字號(hào)。2.在復(fù)制和剪切功能中，需要將選中的你誒榮及其字體格式復(fù)制或剪切到右側(cè)的文本框。3.通過文本框的SelText屬性可以獲得選中的內(nèi)容。 【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）（2）代碼設(shè)計(jì)（給出程序代碼）PrivateSubCommand1_Click()Text1.FontName="隸書"EndSubPrivateSubCommand2_Click()Text1.FontSize=Text1.FontSize+1EndSubPrivateSubCommand3_Click()Text1.FontSize=Text1.FontSize-1EndSubPrivateSubCommand4_Click()Text2.Text=Text1.SelTextText2.FontName=Text1.FontNameText2.FontSize=Text1.FontSizeEndSubPrivateSubCommand5_Click()Text2.Text=Text1.SelTextText1.SelText=""Text2.FontName=Text1.FontNameText2.FontSize=Text1.FontSizeEndSubPrivateSubForm_Load()Text1.Text="欲窮千里目，更上一層樓"EndSub 【運(yùn)行成果】（給出運(yùn)行成果界面截圖）1.試驗(yàn)2.3 【內(nèi)容描述】實(shí)際一種華氏溫度與攝氏溫度之家轉(zhuǎn)換的程序。首先在指定的文本框中輸入數(shù)據(jù)，然后單擊攝轉(zhuǎn)華按鈕，即可將攝氏溫度轉(zhuǎn)化為華氏溫度；單擊劃轉(zhuǎn)舍按鈕即可將華氏溫度轉(zhuǎn)化微微攝氏溫度，單擊清晰按鈕，則將文本框中的數(shù)據(jù)清除，并將輸入焦點(diǎn)賺為化石文本框中，等待輸入新的數(shù)據(jù)；推出按鈕，則結(jié)束程序進(jìn)行。 【分析】界面分析（用到哪些控件）窗體、命令按鈕、文本框、標(biāo)簽。程序分析（用到哪些算法和關(guān)鍵技術(shù)）可以通過Format函數(shù)控制計(jì)算成果保留兩位小數(shù)。 【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）（2）代碼設(shè)計(jì)（給出程序代碼）PrivateSubCommand1_Click()Dimf!,c!f=Val(Text1.Text)c=5/9*(f-32)Text2.Text=Format(c,"0.00")EndSubPrivateSubCommand2_Click()Dimf!,c!c=Val(Text2.Text)f=9/5*Val(Text2.Text)+32Text1.Text=Format(f,"0.00")EndSubPrivateSubCommand3_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSubPrivateSubCommand4_Click()EndEndSub 【運(yùn)行成果】（給出運(yùn)行成果界面截圖）1.試驗(yàn)2.4 【內(nèi)容描述】設(shè)計(jì)一種簡(jiǎn)樸的四則運(yùn)算計(jì)算器程序。在文本框輸入數(shù)據(jù)，單擊命令按鈕，即可的到運(yùn)算成果單擊清晰即可清除文本框數(shù)據(jù)。 【分析】界面分析（用到哪些控件）窗體、命令按鈕、文本框、標(biāo)簽。程序分析（用到哪些算法和關(guān)鍵技術(shù)）通過文本框的Text屬性指控可以事先清除數(shù)據(jù) 【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）（2）代碼設(shè)計(jì)（給出程序代碼）PrivateSubCmdAdd_Click()label3.Caption=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubCmdExit_Click()EndEndSubPrivateSubCmdSub_Click()label3.Caption=Val(Text1.Text)-Val(Text2.Text)EndSub 【運(yùn)行成果】（給出運(yùn)行成果界面截圖）1.試驗(yàn)2.5 【內(nèi)容描述】打印一種三角形圖案的程序。在行數(shù)文本框輸入行數(shù)，字符文本框輸入要打印的字符單擊圖案按鈕即可顯示三堿性的圖案單擊清除按鈕即可清除圖案單擊推出按鈕則推出程序。 【分析】界面分析（用到哪些控件）窗體、命令按鈕、文本框、標(biāo)簽、計(jì)時(shí)器。程序分析（用到哪些算法和關(guān)鍵技術(shù)）使用兩個(gè)計(jì)時(shí)器控件控制圖案的打印 【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）】（2）代碼設(shè)計(jì)（給出程序代碼）DimnAsIntegerDimchAsStringPrivateSubCommand1_Click()DimhAsIntegern=0h=Val(Text1.Text)ch=Text2.TextTimer2.Interval=(h+1)*200Timer1.Enabled=TrueTimer2.Enabled=TrueEndSubPrivateSubTimer1_Timer()n=n+1PrintTab(28-n);String(2*n-1,ch)EndSubPrivateSubTimer2_Timer()Timer1.Enabled=FalseTimer2.Enabled=FalseEndSubPrivateSubCommand2_Click()ClsEndSubPrivateSubCommand3_Click()EndEndSub 【運(yùn)行成果】（給出運(yùn)行成果界面截圖）1.試驗(yàn)2.6 【內(nèi)容描述】設(shè)計(jì)一種計(jì)算構(gòu)成所發(fā)工資的多種面額現(xiàn)金張數(shù)至少的付款方案 【分析】界面分析（用到哪些控件）文本框、按鈕程序分析（用到哪些算法和關(guān)鍵技術(shù)）可以通過整除運(yùn)算計(jì)算某種面額現(xiàn)金的張數(shù)，通過求余運(yùn)算計(jì)算去掉該種面額后剩余的工資數(shù) 【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）（2）代碼設(shè)計(jì)（給出程序代碼）PrivateSubCommand1_Click()DimxAsLong,yAsLongx=Val(Text1.Text)y=x\100:Text2.Text=yx=xMod100y=x\50:Text3.Text=yx=xMod50y=x\20:Text4.Text=yx=xMod20y=x\10:Text5.Text=yx=xMod10y=x\5:Text6.Text=yx=xMod5Text7.Text=xEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndSub 【運(yùn)行成果】（給出運(yùn)行成果界面截圖）2.試驗(yàn)2.7 【內(nèi)容描述】倒計(jì)時(shí)，計(jì)時(shí)器 【分析】界面分析（用到哪些控件）計(jì)時(shí)器程序分析（用到哪些算法和關(guān)鍵技術(shù)）使用計(jì)時(shí)器控件控制倒計(jì)時(shí)，通過整除和求運(yùn)算計(jì)算出剩余的時(shí)間 【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）（2）代碼設(shè)計(jì)（給出程序代碼）DimtAsIntegerPrivateSubCommand1_Click()t=Val(Text1.Text)*3600+Val(Text2.Text)*60Timer1.Enabled=TrueCommand1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()Command1.Enabled=TrueCommand2.Enabled=FalseTimer1.Enabled=FalseEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubTimer1_Timer()DimhAsInteger,mAsInteger,sAsIntegert=t-1h=t\3600m=t\60Mod60s=tMod60Label5.Caption=h&"小時(shí)"&m&"分"&s&"秒"EndSub 【運(yùn)行成果】（給出運(yùn)行成果界面截圖）8.試驗(yàn)2.8 【內(nèi)容描述】計(jì)算出兩點(diǎn)的距離 【分析】界面分析（用到哪些控件）用文本框接受程序分析（用到哪些算法和關(guān)鍵技術(shù)）使用inputbox函數(shù)實(shí)現(xiàn)點(diǎn)的坐標(biāo)的輸入使用msgbox語句輸出計(jì)算的成果 【設(shè)計(jì)】（1）界面設(shè)計(jì)（給出界面截圖）（2）代碼設(shè)計(jì)（給出程序代碼）DimaxAsInteger,ayAsIntegerDimbxAsInteger,byAsIntegerPrivateSubCommand1_Click()DimxAsStringDimnAsIntegerx=InputBox("請(qǐng)輸入第一種點(diǎn)的坐標(biāo)(x,y),以“，”分隔","輸入點(diǎn)坐標(biāo)")n=InStr(x,",")ax=Val(Left(x,n-1))'取左邊的數(shù)字ay=Val(Right(x,Len(x)-n))x=InputBox("請(qǐng)輸入第二個(gè)點(diǎn)的坐標(biāo)(x,y),以“，”分隔","輸入點(diǎn)坐標(biāo)")n=InStr(x,",")bx=Val(Left(x,n-1))