安大vb实验C(4-8)代码参考

《安大vb实验C(4-8)代码参考》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、MlForal口回冈实验C-5Text2vLostFocusC工程1-Foral(Code)-un

2、xlPrivateSubText2_LostFocus()Dimirtt,n%,x%,y%为总只数，n为总脚数，x为鸡数，y为兔数m=Vai(Textl)'x+y=mn二Vai(Text2)'2x+4y=nIfnMod200ThenHsgBox(〃脚数必定为偶数〃)Text2二”〃Text2・SetFocusElsey=n/2-mIfy<0ThenMsgBox(〃脚数必须》2倍的头数，重新输入。Text2=用Text2・SetFocusElsex=id-yLabel5二

3、x：Label6二yEndIfEndIf

4、EndSub”“”””“j结束帀工程1-Foral(Code)匸'□乂

5、Teit3▼LostFocusDimb#・c#・x2#PrivateSubCoinrriand2_ClickOEndEndSubPrivateSubTextl_LostFocus()IfTextl<>AndNotIsNuirieric(Textl)Then'输入数据不是为数字Textl=””邇雜文本旌Textl.SetFocus'焦点回到该文本框E]sea=Textl'输入正确,同时放入变量n中j为计算时使用EndIfEndSubJ两个实根4*a*c))/

6、(2*8),"O.4+a+c))/(2*at),"0.'重根PrivateSubCoinrriandl_Click()Ifb*b-4*a*c>0ThenText4=Format((-b+Sqr(b*bText5二Format((-b-Sqr(b+bElselfb*b-4*a*c=0ThenText4二Format(-b/(2*a),"Text5二Format(-b/(2+a),"Else3复根Text4二〃无实狼〃TextS="无实秋EndIfEndSubPrivateSubText2_LostFocus()IfText2<>””AndNotIsNumeric(Tex

7、t2)ThenText2=Text2.SetFocusElsek二T^vt?注意：PrivateSubText2_LostFocus()和PrivateSubTexl3_LostFocus()的过程代码与PrivateSubTextl_LostFocus()基本相同，差别在于textl输入的数据赋予变量a,text2输入的数据赋予变量b,text3输入的数据赋予变量c工程1-For>l(Code)口问冈1fGIffl)▼［傍明）2dOptionExplicitTPrivateSubCoironandl_Click()SelectCaseTrim(Text3)Text4

8、=Vai(Textl)Case“-"Text4=Vai(Textl)CaseText4二Vai(Textl)Text4=Vai(Textl)EndSelectEndSub+Vai(Text2)-Vai(Text2)*Vai(Text2)/Vai(Text2)PrivateSubCoironand2_Click()EndEndSubPrivateTextl=Text2=Text3=Text4二SubCoiriiriand3_Click()Textl.SetFocusEndSubIP工程1-Foral(Code)ED问冈

9、CoBBandl▼

10、

11、ClickprivateSu

12、bCoiniriandl_Click()SelectCaseVai(Textl)C1Label2二"Mondayz，Case2Label2二"Tuesday"Case3Label2="WednEsday"Case4Label2="Thursday"Case5Label2二"Friday"t"1AC?pALabel2二"Saturday"「ku戶7Label2="Sunday"EndSelectEndSubPrivateSubCoinmand2_Click()Label2二Choose(Vai(Textl),"Monday","Tuesday",_"Wednesday"

13、,"Thursday","Fzriday","Saturday","Sunday")EndSubPrivateSubCoirar)and3_Click()Textl二Label2=EndSub宦II