visual_basic_程序設(shè)計(jì)教程_曹青邱李華等編著_機(jī)械工業(yè)出版社答案

1、家電維修社團(tuán)整理0更多精彩，靜待家電維修P37#24PrivateSubcmdBegin_Click()Timer1.Enabled=True激活定時(shí)器cmdBegin.Enabled=FalsecmdEnd.Enabled=TrueEndSubPrivateSubcmdEnd_Click()Timer1.Enabled=False關(guān)閉定時(shí)器Label1.Left=0標(biāo)簽歸位到窗體左側(cè)cmdBegin.Enabled=TruecmdEn

2、d.Enabled=FalseEndSubPrivateSubFm_Load()Label1.Left=0初始將標(biāo)簽歸位到窗體左側(cè)EndSubPrivateSubTimer1_Timer()Label1.MoveLabel1.Left20每隔0.1秒標(biāo)簽向右移動(dòng)20緹EndSub25DimtmpPrivateSubComm1_Click()“復(fù)制”按鈕Text1.SetFocus焦點(diǎn)定位在文本框Text1tmp=Text1.SelTex

3、t將選中的內(nèi)容存放在變量tmp中EndSubPrivateSubComm2_Click()“剪切”按鈕tmp=Text1.SelText將選中的內(nèi)容存放在變量tmp中Text1.SelText=““將選中的內(nèi)容置為空串Text1.SetFocus焦點(diǎn)定位在文本框Text1EndSubPrivateSubComm3_Click()“粘貼”按鈕Text1.SelText=tmp將變量tmp的值賦給文本框選中的內(nèi)容Text1.SetFocus

4、焦點(diǎn)定位在文本框Text1EndSubPrivateSubComm4_Click()“下劃線”按鈕Text1.FontUnderline=NotText1.FontUnderline設(shè)置或取消下劃線EndSubPrivateSubComm5_Click()“刪除線”按鈕Text1.FontStrikethru=NotText1.FontStrikethru設(shè)置或取消刪除線EndSubPrivateSubComm6_Click()“加粗”

5、按鈕Text1.FontBold=NotText1.FontBold設(shè)置或取消加粗線EndSubPrivateSubComm7_Click()“傾斜”按鈕Text1.FontItalic=NotText1.FontItalic設(shè)置或取消傾斜EndSubPrivateSubComm8_Click()“放大”按鈕Text1.FontSize=Text1.FontSize5字體放大5磅EndSubPrivateSubComm9_Click()

6、“縮小”按鈕Text1.FontSize=Text1.FontSize5字體縮小5磅EndSubP38#28PrivateSubFm_Load()在開(kāi)始運(yùn)行時(shí)設(shè)置各文本框的文字大小和字體Text2.FontName=“隸書(shū)“Text2.FontSize=16Text3.FontName=“楷體_GB2312“Text3.FontSize=18EndSubPrivateSubText1_Change()在Text1中改變內(nèi)容時(shí)改變Text

7、2和Text3的內(nèi)容Text2.Text=Text1.TextText3.Text=Text1.Text家電維修社團(tuán)整理2更多精彩，靜待家電維修D(zhuǎn)imPAsSingleSAsSingleA=Val(Text1.Text)B=Val(Text2.Text)C=Val(Text3.Text)P=(ABC)2S=Sqr(P(PA)(PB)(PC))Label2.Caption=Fmat(Str(S)“0.00“)顯示時(shí)保留兩位小數(shù)EndSub

8、P76#41PrivateSubComm1_Click()ZJ.Text=Val(DJ.Text)Val(SL.Text)EndSubPrivateSubComm2_Click()EndEndSub43PrivateSubComm1_Click()X=Val(Text1.Text)X1=X3.1416180SX=Abs(Sin(X1))CX=Abs(Cos(X1))Text2.Text=Text2.Text“小時(shí)“m“分“s“秒=“To

9、tal“秒“EndSubP89@55PrivateSubText1_Change()Label2.Caption=““EndSubPrivateSubText1_KeyUp(KeyCodeAsIntegerShiftAsInteger)StaticIAsInteger變量I統(tǒng)計(jì)輸入錯(cuò)誤口令的次數(shù)IfKeyCode=13Then如果按下的鍵為回車(chē)鍵IfUCase(Text1.Text)=“HELLO“Then如果口令為“HELLO“Lab

10、el2.Caption=“恭喜!您已成功進(jìn)入本系統(tǒng)“ElseIfI=0I=1Then如果口令錯(cuò)且錯(cuò)誤次數(shù)少于2I=I1Label2.Caption=“口令錯(cuò)!請(qǐng)重新輸入“Text1.SelStart=0Text1.SelLength=Len(Text1.Text)Else如果口令錯(cuò)且錯(cuò)誤次數(shù)等于2MsgBox“對(duì)不起您不能使用本系統(tǒng)“End退出應(yīng)用程序。EndIfEndIfEndSubP92#51PrivateSubComm1_Clic