visualbasic程序設計教程曹青邱李華等編著機械工業(yè)出版社答案

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

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

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

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

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

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

7、2和Text3的內容Text2.Text=Text1.TextText3.Text=Text1.Text家電維修社團整理3更多精彩，靜待家電維修DimPAsSingleSAsSingleA=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ù)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“小時“m“分“s“秒=“To

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

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