清華大學(xué)VisualBasic課后部分答案

本文檔僅提供編程思想，有些題口編程細(xì)節(jié)要注意

2-4PrivateSubCommandl_Click()

"擢體"

Texi2.R>ni="隸書"

EndSub

PrivateSubComman<i2_Gick()

TextI.FnreCokw=vhRed

Tex(2.BackColor=vbBlue

EndSub

PrivateSuhCommand3_Click()

End

EndSuh

2-5PrivateSubCommandI_MouseDown(ButtiMiAsInteger.ShiftAsInteger,X

AsSingle.YAsSingle)

formI.BackCokir=vbGreen

EndSub

PrivateSubCommandl_M<xiseUp(BuaunAsInteger.SliiftAsInteger,XAsSingle.YAsSingle)

farmI.BackColor=vbRed

EndSub

PrivateSuhForm_MouscDown(ButtonAsInteger.ShiftAsInteger.XAsSingle.YAsSingle)

TextI.Text=”在窗體上抬起了就標(biāo)”

EndSub

PrivateSubForm_Mou,ielJp(BurtonAsInteger.ShiftAsInteger.XAsSingle.YAsSingle)

Texil.Texi="在窗體」anxia了鼠標(biāo)"

EndSub

2-6PrivateSubCommandI_Click()

Fonnl.Print"hhggg"

EndSub

PrivateSubConimand2_CIick()

FormI.Ck

EndSuh

2-8

PrivateSubCommandIClickf)

Text1.Text=M"

Tcx(2.Tcxt=MM

TexO.Tcxt=""

Tcx(l,SeiF<x:us

TextI.ScISiart=0

Text1.SelLengili=LenfTexd.lext)

EndSub

PrivateSubCommand2_Click()

End

EndSuh

PrivateSubTex[l_Clia!ige()

Tex(2.Text=Text1.Text

Tex(3.Text=Text1.Text

EndSub

2-10DimxAsSingle

PrivateSubCommandl_Ciick()

x=x+5

Text!.FontSize=x

EndSub

PrivateSubCommand2_Click()

Ifx<10Then

Text1.FontSize=5

EJselfx>=lOTlien

x=x-5

TextI.FontSize=x

EndIf

EndSub

PrivaieSubC<>nimand3_Click()

TextI.FuntUnderiine=THIB

EndSuh

PrivateSubComnian(i4_CIick()

Text1.Fi>ntStrikedini=True

EndSub

PrivateSubCoinmand5Click()

TextI.FbntBold=True

EndSub

PrivaicSuhCommand6_Click()

Textl.Fonilialic=True

EndSub

3”代碼如下

Constpi=3.14

DimrAsSingle,hAsSingle

PrivateSubCommandl_ClickO

r=VaKTextl.Text)

h=Val(Text2.Text)

Tex(3.Text=VaKpi*rA2)

Tcxc4.Tcxt=Val(24pi*r*h)

Tcx(5.Tcxt=VaKpi*rA2*h)

EndSuh

PrivagSubCommandI_Click()

3-2代碼如下

PrivateSubCommandI_Click()

randomize

Text!.Text=In?100*Rnd+1)

Text2.Text=!nt(100*Rnd+I)

EndSub

PrivateSubCommand2_Click(，

Text3.1ext=val(TextI.Text)+vaK7ext2.Tcxt)

3-3PrivateSubFunn_Load()

Lahel2.Ca|Xion=Da(ePart("yyyyw.Now)

Labcl4.Capcion=DaccPart("m".Now)

Labcl6.Cap(ion=Da(cPart("dM.Now)

Lahcl9.Cnp(ion=Now))-I

Labelll.Capdoti=Time

EndSub

PrivateSubFormLoad。

Labcl2.Cap(ion=YcarfNow)

Labcl4.Cap(ion=Month(Now)

l.abc16.Cap<i€in=Day(Now)

Label9.Cap<ion=Weekday(Now)

Label11.Capdon=Time

EndSub

3-4代螞如下

DimaAsString

DimbAsInteger

DimdAsString

PrivateSubText!_Cliange()

a=UCaseCrrinXText1.Text))

d="THEQUICKBROWNFOXJUMPSOVERALAZYDOG”

b=InSntd,a)

Tcxt2.Tcxt=a&'*firstoccursinposition"&b

EndSub

P6IOptionExplicit

DimaAsSingle,bAsSingle,cAsSingle

PrivateSuhCommandI_Qick()

a=Val(Tcxil.Text)

b=Val(Tex(2.Texo

c=Val(Tex(3.Text)

Tex(4.*Iext=(a+b+c)/3

EndSub

PrivateSubCommand2_Click()

TextI.Text=HM

TextJ.lexi=""

Text3.1exi=

Tex(4.1ext=MM

Textl.SetE<x?us

EndSub

PrivateSubCommand3_Click()

End

EndSub

PrivateSubTextI_g3foe}

TextI.ScIStan=0

TextI.Sell-ength=Irn(Textl,Text)

EndSub

PrivateSubText2_go<fbcuJi(>

Text2,SelSiart=0

Text2.SelLength=Len(Text2.Text)

EndSub

PrivateSubText3_gotfocii!i(F

Text3.SelStart=0

Text3.SelLength=Lcn(Tcxt3.Text)

EndSub

PrivateSublextl_change()

Text4.1ext="M

EndSub

PrivateSub1ext2_changc(>

Tcxt4.1ext=WM

EndSuh

PrivateSubTexi3_change()

Tex(4.1ext=

EndSub

P63OptionExplicit

PrivateSubCoinmaiidI_Click()

DinicharAsSiring*I

char=TextI.lext

Tex(2.Text=Text2.1ext&Space(5)&char&Space(5)&S(r(Asc(char))&vbCrLi

Text1.SetFocus

TextI.SelSlan=0

TextI.SelLength=IrnfTextI.Text)

EndSub

P64PrivateSubCommandI_Click()

DimaAsSingle,hAsSingle,cAsSingle,pAsSingle,sA、Single

a=Val(Texd.Tex()

b=VaKTexL2.Texo

c=Val(Text3/Iext)

p=(a-i-b+c)/2

s=Sqrtp4(p-a)?(p■b)?(p-c))

Labcl2.Cap(ion=R)miat(s,M0.00M)

TextI.SeiFocus

Textl.SelSiart=0

Textl.SelLength=Len(Textl.Texi)

EndSub

PrivateSuhFormLoadO

EndSuh

PrivateSubTextI_Cliange()

Labell.Capiion=

EndSub

PrivateSubText2_Change()

(4ibel2.Cap(ion="**

EndSub

PrivateSublexGChange。

Label2.Caption=

EndSub

P65OptionExplicit

PrivateSubCommandI_Click()

MsgBox.電vvghjjk"

EndSuh

PrivateSubCoinmai)d2ClickO

MsgBox?踢死信息?&vbCrLtA-huanhangtisi"

EndSub

PrivateSubCommand^_Click()

MsgBox.踢死信息二，

EndSub

PrivateSubCommand4_Click(>

MsgBox?踢死信息:I「kl「

EndSuh

PrivaccSuhCommand6_CIick()

MsgBox?踢死信息:I+164-256,"klh"

EndSub

P68OptionExplicit

DimxAsInteger,yAsInteger.7AsInteger

PrivateSubFonn_Activa(e()

x=5:y=8

Print-ngfgh"

Printx+y

Print7=x+y，關(guān)系表達(dá)式

Print-2+4M;2+4?表達(dá)式用分號(hào)作為分隔符時(shí).則按緊凄格式輸山數(shù)據(jù)

Prim-2-4'*.2-4'表達(dá)式用逗號(hào)作為分隔符時(shí)，則按分區(qū)格式顯示數(shù)據(jù)項(xiàng)

PrintM2+4M;2*4,沒執(zhí)行一次prim方法時(shí)，自動(dòng)換行，如要在同一行輸出，則可以在末

尼加分號(hào)或逗號(hào)

CurreniX=1000決定下一次打印的水平或重克坐標(biāo)

CurrentX=500

Print-2+4M;

Print2-4

Print省略表達(dá)式，則輸出一個(gè)空行或取消前面print的逗號(hào)或分號(hào)的作用

Prin「2X”;2+4,

Prim

FormLShow若在事件中，必須苜先使用show或把楫體對(duì)象.圖片框的

autoredrawA4tt設(shè)置為【me，也列print不起作用

Prim?ghjgfgH

Prin「2W:2+4.

Prim24”；

Prim2*4

EndSub

PrivateSubFonn_Load()

Fonnl.Prini-jggllij"

EndSub

P69PnvatcSubForm_Activate()

Print'ghfdggr

Print-gfTd0;Tab(10);HfgdM'第二個(gè)輸出項(xiàng)在10列輸出

Prim-gfgdd-；Tab；"fghjk"ub函數(shù)無參數(shù)，第二頊在第二個(gè)打印去輸山

Prim-ddffg-；Tab(4);"fjghhwh小雨當(dāng)前打印位置，第項(xiàng)在下行輸出

Print1ab(-5);wghtrn小于I.在第一列輸山

Print-|kkjM:Spc(3);"gfdds一跳過3個(gè)空格

EndSub

P70

PrivateSubCommand1ClickO

DimhAsInteger,fAsInteger,xAsInteger,yAsInteger

h=VaKTextl,Tcxi)

f=Val(Tcxi2.TexO

x=(4*h?f)/2

y=(f-2*h)/2

Label3.Ca|Xiim=Label3.Ca|Xk)n&Str(x)&"只"

Label4.Ca|Xion=Lahel4.Ca|Xion&Str(y)&"只"

EndSuh

PrivateSubText!_gotf<)cus()

Text1.SelStart=0

Text1.SelLengtli=Len(Tex(l.lex()

EndSub

PrivateSuhFIex(2_go【focus。

Tcxt2.SelStan=0

Textl.Sellxngih=Ixn(Tcxt2.Text)

EndSub

P71

PrivateSubCommandI.CIickO

DimAAsInteger.BAsInteger

Randomize

A=Val(Texil,Text>

B=VaKTexC.Text)

LabelS.CajXitm=Str(Int(Rnd*(B-A+l)+A))'產(chǎn)生［A,B］區(qū)間的輪機(jī)整數(shù)

Label6.Capcion=Sir(lnt(Rnd?(B-A+l)+A))

Label7.Caption=S(r(Int(Rnd*(B-A+I)+A))

EndSub

PrivateSublex(l_Go(Fi)cus()

Textl.SelStart=0'在TEXT獲得焦點(diǎn)時(shí)，選中其中的文本

Textl.SelLength=Len(Textl.Text)

EndSub

PrivateSuhText2_G<nF(KUs()

Textl.SelStan=0

TextJ.SelLengdi=LenfTexC.lext)

EndSub

P72

PrivateSubFnnn_Ijoad()

DimMAsLong.TEMPAsSiring

Show

M=2A30

TEMP=Str(M，'將M樣換成字符申

LabelI.Caption="2A3OM

Label3.Cap(i<in=Ijibel3,Caplion&TEMP

CurrencX=2000'定義窗體當(dāng)前列卬位置的X,Y坐標(biāo)

CurrentY=2000

Print-總共有二Len(TrinKTEMP?;■位-■使用TRIM去除空格

EndSub

P72

PrivateSubCuniniandl_Click()

DimPhoneNOAsString,nAsInteger

Dim(nipAsString,numAsLong

PhoneNO=Trim(Texrl.Tcxt)

n=Lcn(PhoneNO)

imp=RighKPIwneNO,7)

num=Val(tmp)?61000000

PhoneNO=Left(PhoneNO.n-7)+"-n+Trim(Strfnum))

Text2.Text=PlioneNO

EndSub

Op(ionExplicit

DimaAsSingle,bAsSingle

PrivateSubCommandIClick仆

a=VaKTextl.Text)

b=Val(Tcxt2.Tcx(1

TexG.Text=a*h

EndSub

PrivateSubCommandIKeyDown(Ke>CixleA\Integer.ShiftAsInteger!

KeyCode=13?當(dāng)：/時(shí)A.ENTER#I':M

EndSub

PrivateSubComnKUK12_Click()

End

EndSub

PrivateSubCommand2_KcyDown(KeyCodcAsInteger,ShiftAsInteger1

KcyCode=13

EndSuh

PrivateSubText!GKKFOCUW)

TextI.SelStan=0

TextI.ScILcngih=Lcn(Tcxtl.lext)

EndSub

PrivateSubText2_Go<F<KUS()

Text2.SelStari=0

Texi2.SelLengili=Len(Texd.Texi)

EndSuh

4-2

DimAAsSingle.BAsSingle.CAsSingle，定義A.B.C變量

PrivateSubCommandl_Click()

A=ValfTl.Texl)紿變敏賦值

B=Val(T2.Text)

C=Val(T3.Text>

TRESULT.Text=A*B?(1?。'計(jì)算應(yīng)付款

T3.SctFocus

EndSuh

PrivateSubCoinmaiid2_Click(>

TRESULT.Text=H"常除應(yīng)付款

T3.Se(Ricus'將焦點(diǎn)定位在“折扣”一欄，選中“折力I”中的內(nèi)容

T3.SelStaii=O

T3.SelLengtl)=Len(TRESULT.Text)

EndSuh

PrivateSuhCommand3_Chck()

End

EndSub

4-3DimAAsSingle.BAsSingle,CAsSingle

ConstPI=3.141，定義變最

PrivateSubCommand1_CI>ck()

A=Va1(7<JXtl.Text)/I8O*P1

B=Abs(Sin(A))，分別計(jì)算sin.cos

C=Abs(Cos(A))

Text2.Text=Tcxt2.Tcxt&Spacc(5)&FarmaKA."0.000")&Spacc(25>&FormaHB、

”0.000")&Spacc(30)&RirmaKC.M0.000M)&vbCrLf'每次計(jì)制結(jié)果賦住上次計(jì)

算結(jié)果之后，顯示于帶垂直滾動(dòng)條的文本樞中，所有結(jié)果保帚3位小數(shù)

TextI.SetFocus'每次計(jì)價(jià)完，選中輸入的文本，一邊繼續(xù)輸入

TextI.SelStait=0

TextI.SeiLength=Len(Textl.Tex()

EndSub

DimaAsSingle,bAsSingle,cAsSingle

PrivateSubForm_C1ick()

a=InputBoxC請(qǐng)輸入小時(shí)”)

h=lnputBox(Mifi飾入分”}

c=InputBox「請(qǐng)輸入秒*)

Printa&”小時(shí)“&h&”分?&c&-杪二?&a43600+h*60?c&"杪"

EndSub

4-6

OptionExplicit

DimaAsSingle,hAsSingle,cAsSingle,ciAsSingle,eAsSingle,fAsSingle

PrivateSubCommandI_ClickO

a=ValfTextl.Text)

b=Val(Text2.Tex()

c=ValfTcxtS.Tcxt)

d=Val(Tcxt4.Tcx()

c=Val(Texi5.Tcx()

f=Val(Tex(6,Tcxi)

Label5.Ca|Miun="Xs"&(c*e-b*f)/(a*e-b?d)

Label6.Ca|Xion="Y=M&(a*f-d*c)/(a*e-b*d)

EndSub

PrivateSubCommandI_KcyDown(KeyCtxlcAsInteger.ShiftAsInteger)

KcyCodc=13設(shè)崗ENTERf3

EndSub

PrivateSuhCommand?Clickn

Tex(1.1ext=wo

Text2.Text=""

Text3.Tcxt=M"消除

Text4.Text=""

Text5.1exi=""

Text6.1ext="0

Label5.Cap(ion=""

Label6.Cap(ion=WH

EndSub

PrivateSub_Go【Focu*)

Texil.SelSian=0,我得焦點(diǎn)也選中文木

Textl.SelLength=Len(Textl.Text)

EndSub

PrivateSubText2_Go<F(KUs()

Textl.SelStart=0

Text2.SelLengt)i=Len(Tex(2.Text)

EndSub

PrivateSubText3_G(MF(KUs()

Text3.SelSiart=0

Tex(3.SelLengdi=Len(Texi3.Texi)

EndSuh

PrivateSub1ex(4GO(FIKUS()

Text4.SclStart=0

Tcxt4.SclLcngth=Lxn(Tcxt4.Tcxt)

EndSub

PrivateSubTex15_GocFocuW)

Text5.SelStart=0

Text5.SelLength=Len(Text5.Text)

EndSub

PrivateSubText6_G<HFocus()

Texi6.SelSiart=0

Texi6.SelLength=Len(Texi6.1exi)

EndSub

4-6-1

PrivateSubTexil_G<xFocuMj

Texd.SelSi3rt=0.將焦點(diǎn)設(shè)置在lexil3中所有內(nèi)容

Texd.SelLength=Len(Textl.Text)

EndSub

PrivateSuh1exi2_G<xF<x:us()

Tex(2.SelSiart-0

Tex(2.SelLengtli=Len(Text2.Text)

EndSub

P76

DimxAsSingle,yAsSingle

PrivateSubCommandIClickf>

x=VaKTcxcI.Text)

Ifx<=0Theny=Abs(x)Elsey=Log(x)

l-ahel3.Cap(ion=y

Tex11.SeiFocus

TextI.SelSlart=0'將焦點(diǎn)設(shè)置在textI,S中所有內(nèi)容

TextLSelLength=Len(Texd.Text)

EndSub

PrivateSubCommandI_KcyDown(KeyCtxicAsInteger.ShiftAsInteger)

KeyCude=13

EndSub

P76

DimxAsSingle,yAsSingle

PrivateSubCommandI_Click()

x=VaKTexd.Text)

y=Val(Text2.Text)

Ifx=0Ory=0ThenPrintMngj":ExhSub

Ifx>0ThenIfy>0ThenPrint**在第一象限"ElsePrint"在第四象限"ElseIfy>0ThenPrint

"在第?.象限"ElsePnnt”在第三象限”

EndSub

PrivateSubCommandIKeyDowMKeyCodeAsInteger.ShiftA$Integer)

KcyCodc=13

EndSuh

PrivaieSub1extl_Go<F(Krus()

Text1.SelSian=0

Text1.SelLengih=Len(Tex(l.Tex[)

EndSub

PrivaieSuhTexc2_Go(F(KUS()

Text!.SelSlart=0

TexiJ.SelLeiigtli=Len(Text2.Tex[)

EndSub

DimxAsSingle,yAsSingle

Priva(eSubCommandI_Click()

x=VaKTexd.Text)

y=Val(TexL2.TexO

Ifx=0Ory=0Then

Print?該點(diǎn)不在任何象限內(nèi)”

ElseIfx>0Andy>0Then

Prim?在第一象限”

Blselfx>0Andy<0Then

Prim，在第四型限，

Elselfx<0Andy<0Then

PrinL在第三象限?

Else

Prim-在第二象限.

EndIf

EndSuh

PrivateSubText1_GutFocus()

Text1.SelStan=0

Text1.SelLength=Len(Textl.Text)

EndSuh

PrivateSubText2_G(itFcKUs()

Text2.Se!Siart=0

Text2.SeiLength=Len(Text2.Tex()

EndSub

P79

OfXionExplicit

DimcAsSingle

PrivateSubCt^mmandl_Click()

c=5/9*(ValOextl.1exO-32)

Tcxd.lext=FormaKc,M0.00M)

Ifc>40Tl>en

Label2.Captk)n="hot"

ElseIfc>30Andc<=40Then

Label2.Caption="warm"

Elsclfc>20Andc<=30Then

Lahcl2.Caption="roomtemperature

Elselfc>10Andc<=20Then

Labe!2.Caption="cixil"

Elselfc>0Andc<=10Tlien

Label2.Ca|Xion="cold"

Else

Label2.Cap(ion="freezing**

EndIf

EndSub

PrivateSubTextI_GIHFI)CUS()

Textl.SelStan=O

TextLSelLength=Len(Textl.Text)

EndSub

DimcAsSingle

PrivateSubCommandl_Click()

c=5/9*(Va!(1exti.1^x0-32)

Texi2.Texi=FonnaKc."0.00"1

Ifo40Then

Label2.Caption="hot"

Elsclfc>30Then

l^ihel2.Cap<ion="warm"

Elsdfc>20Then

Label2.Caj>tion="roomlemperarure*'

Elselfc>10Then

LabeI2.Capcion="cool"

Elsclfc>0Then

Lahcli.Capcion="cold"

Else

Label2.Caption="freezing"

EndIf

EndSub

PrivateSubTextI_GOCF(KUS()

Text1.SelStan=0

TextI.Sellxngth=IrnfTextI.Text)

EndSub

P82

OptionExplicit

DimxAsSingle,yAsSingle

PrivateSubCommandI_Click()

x=VaKlextI.Text)

SelectCasex

CaseIs<0

y=Exp(x)+Exp(-x)

Case0

y=1.25

Cask>0

y=Log(x)/Logfl0)

EndSelect

Tcxtl.Text=Fomia?y,M0.000000M)

EidSub

P83

OptionExplicit

DimxAsDouble,yAsDouble.7AsDouble,aAsDouble

PnvatcSubCommandI_Click()

x=ValCTextI.Text)

y=Val(Text2.1cxt)

z=VaKTexO.Text)

SelectCase7

CaseIs<250

a=0

CaseIs<500

a=0.02

CaseIs<1000

a=0.05

CaseIs<2000

a=0.08

CaseIs<3000

a=0.1

CaseElse

a=O.I5

EndSelect

Tcxt4.Tcxt=x*y*7*(l*a)

EndSub

P84

PnvatcSubTextI_KeyUp(KcyCodeAsInteger.ShiftAsInteger)

StaticiAKInteger

IIKcyCode=13Tlien

IfUCa<!enexil.Texi)="kkll"Then

Label?.CafKioti="恭祝！您進(jìn)入了本系統(tǒng)”

Elselfi=0Ori=IThen

i=i+I

—Caption=MD令-重新輸入”

TextI.ScISiart=0

Textl.SelLength=Len(TextI.Text)

Else

M^Box”對(duì)不起，你不能進(jìn)入本系統(tǒng)”

EndIf

EndIf

EndSub

P86

OptionExplicit

DimaAsDoubk.bAsDtxible.cAsDouble,xAsDouble,yAsDouble,dAsDouble

PrivateSuhCommandI_Click()

a=VaKTcx(I,Tcxt)

b=Val(lexi2.7ext)

c=VaKlexG.Texu

Ch

CurrcntX=600

CurrcntY=1100

Ila=OThcn

Ifb=0Then

MsgBox"系數(shù)為零,請(qǐng)重新輸入”

TextI.SetFocus

Tcxd.ScISian=0

Tcxil.SclIxngth=Ixn(TextI.Text)

Else

x="c/b

Print"x=":FomxaKx."0.000")

EndIf

ExitSub

EndIf

d=bA2-4*a*c

SelectCased

CaseO

PrintHxl=x2M;Fomiat(-b/(2*a),**0.000H)

CaseIs>0

Printwxl?M;Fbmiat((4)+Sqr(d))/(2*a)."0.000”)

CurrentX=600

CurrentY=1300

Pnnt"x2="；Format"?b-Sqr(d?/(2*ah”0.000)

CasIs<0

Print"xl="：Formal4/(2?a)."0.000");"+"：FormaUSqr(Abs(<l))/(2?a).

“0.000“);"i“

CuirentX=600

CurrenlY=1500

PrintMx2=M;Forniatf-b/(2*a)."0.000");"?二Fon!iat(Sqr(Abs(d))/(2*a),

”0.000)“i”

EndSelect

EndSub

PrivateSuhTextI_G<)IF<KLIS()

Textl.SelSurt=0

Textl.SelLengtli=Len(TextI.Texc)

EndSub

PrivateSuhText2_G<)tFocus()

TextJ.SelSiart=0

Text2.SelLength=Len(Text2.Text)

EndSub

PnvatcSub7cxt3_GotFcKus()

Tcx(3,SdSlart=0

Tex(3.SelLenglli=Len(Text3.Text)

EndSub

P86

DimaAsString

PrivateSubTextl_Cliange(>

Labe12.Capdon=Trini(Textl.Text)

EndSub

PrivateSuhCommandI_Click()

Randomize

TextJ.Text=Int(Rnd*1001)

Text3.Text=Int(Rnd?1001)

Tex(4.Text=MH

EndSub

PrivateSubCutnniand2_Click()

IfLabel2.Caption=M+MThen

Tex(4.Text=VaKlextJ.Texo+Val(Tex(3.1ex()

ElselfLabel2.Capii(>n=Then

Tex(4,Texl=Val(Text2.Tcxi)-VaRTexG,Texi)

ElselfLabel2.CapticHi="?**Tlien

lex(4.Text=Val(Text?.Text)拿VaKlexB.Text)

ElselfLabeIZ.Caption=TThen

1cxt4,Tcxt=Val(Texc2.Tcxt)/Val(1cxt3.1cxt)

Else

a=M”Box「運(yùn)算格，請(qǐng)審輸”,「瞥告”)

Texd.SetFixrus

TextI.SeiStart=0

TextI.Se!Length=LenCIexd.Text)

EndIf

EndSub

PrivateSuhComman<i3_Click()

SelectCa；4eLabel2.Ca)xi(?n

Case"+”

If1ext4.Text=Val(lexc2.1ex()+Val(lext3.Texi)llien

Labcl4,Capdon="正確"

Else

Labd4.Capticm="錯(cuò)諛'

EndIf

CaseM-H

ItText4.1ext=Val(lexi2.1exc)-Val(Text3.Tex(}llien

Labchl.Capcion=“正確”

Else

Ubcl4.Cap(ion=”錯(cuò)誤”

EndIf

Case…

IfText4.Tcxt=Val(1ext2.1cx0*Val(Tcxt3.Tcxt)Then

Labcl4.Cap<ion="正確"

Else

I^hel4.Cap<ion="Ki誤"

EndIf

CaseT

IfTcxc4.Text=Val(1cxt2.1ext)/Val(Tcx(3.Tcxt)Then

Labd4.Caprion="正確”

Else

Labd4.Captions*,f3igN

EndIf

CaseEJse

a=MqgBox("運(yùn)算格，請(qǐng)柬輸“…“警告”)

Tcxtl.SdFocus

Text!,SeiStart=0

Textl.SelLenglh=Len(Textl.Text)

EndSelect

EndSub

PrivateSuhComman<i4_Click()

End

EndSub

5-1

DimaAsInteger,bAsInteger,cAsInteger?定義變量

PrivateSublexil_Click()

TexH.Ts【=I叩山即乂("請(qǐng)輸入一個(gè)整數(shù)。'用InpuiBox()函數(shù)給給文本樞textl

?個(gè)整數(shù)

EndSub

PnvatcSubCommandl_Click()

a=Va1(lexd.TcxoMod3，同時(shí)除以357取余數(shù)

b=Va!(TexiI.Text)Mod5

c=VaKTexd.TexuMod7

Ifa=0Andb=0Andc=0T1)enLabelI.Ca|Xion="能同時(shí)披3.5.7.整隨“

EkeLabell.Caption='不能整鏟'判斷(extl中的整數(shù)能否被3.5.7整除

?能整除時(shí)C示"能同時(shí)被357整除”,否則口示“不能整除”

EndSub

5-2

OptionExplicit

DimaAsSingle,bAsSingle,cAsSingle,maxAsSingle,minAsSingle

PrivateSubFormLoad什

Show

TextI.Text=InputBoxCii")

Tcx(2.Tcxt=h】puiBox("ii")

Tcx(3.Tcxt=InputBox(Miiw)

a=VaKlextl.Texo

b=Vai(Text2.Text)

c=Val(Tcxt3,Tcxt)

max=a

Ifb>maxThenmax=b

Ifc>maxThenmax=c

Print”最大值：**;max

min=a

It'b<minThenmin=b

Ifc<minThenmin=c

Print"最小值：**;min

EndSub

5-3

DimaAsSingle,bAsSingle

PrivateSubConmiandI_Click()

LabelI.Cap€ion="產(chǎn)"

a=VaKTriiiK'rext1.Text))

b=Val(Trim(Tcxt2.Tcxt))

Ita>0Andb>0Then

|j>hcl2.Cap<i<>n=Strtlngfa)+lx)g(h))

El&elfa>0Andb<=0Tl>en

Labe12.Capeion=StitSin(a)+Sin(b))

Else

Labcl2.Caption=StifSiMa}+Cos(b))

EndIf

EndSub

5-4

DimaAsSingle

PrivateSubCommandl_Click()

a=VaKTextl.Texil

Ifa<=800Then

Tcxt2.Tcx(=

Elsclfa>800Anda<=2000Then

Tcxt2,Texi=(a-800)*0.1

Eke

Text2.Tex(=(a-800>*0.2

EndIf

EndSub

5-6

DimaAsSingle,bAsInteger

PrivateSubCommandI_Ciick()

a=VaKTextI.Text)

Ifa>1000小〈011165=54W&戊("成績(jī)尢效”.1+48」學(xué)生成績(jī)”)

SelectCasea

CaseIs>=90

LabelI.Caption=Mft°

CaseIs>=80

labelI.Caption="良"

CaseIs>=70

Labell.Cap(ion=tn?t>"

CaseIs>=60

Lahcll.Capuon=,7i^"

CaseIs>=0

luihelI.Caplion="不及格"

EIKISelect

EndSub

5-6

DimaAsInteger,bAsInteger,cAsInteger,dAsSingle,cAsInteger

PrivateSubComnundI_Click()

a=VaKTextl.Texi),lex(2中輸入月份

SelectCasea

Case4,6,9,11，月份為4.6911個(gè)月的天數(shù)為30

Text3.Text=30

Case1.3.5.7.8.10.12'月份為1個(gè)月的天數(shù)為30

Tex(3.Texi=31

CaneElse

c=VaKlextl.lext)Mod4textl中的年份分別除以4,

100,400

d=ValCIextl.lext)Mod100

c=VaKTcxd.Text)Mod400

Ifc=OAnddoOTlien,判斷年份能否豉4整除，但不能被一百整

除.

'條件滿足則2月份天數(shù)為29天.或若能否被400整除,條竹滿足則2月份為29

天.否則為28天

Text3.Text=29

Hsche=UIlien

Text3.Text=29

El&e

1ext3.Texc=28

EndIf

EndSelect

EndSub

小學(xué)生算術(shù)眩

DiminsignAsInteger,dAsString,aAsInteger,bAsInteger,cAsInteger'定義變h；

PrivateSuhFomi_Load()

Randomize

IjihclI.Caption=In((Rnd*101)，在labdl,山hd2中產(chǎn)生隨機(jī)數(shù)

Label3.Cap(k)n=Ini(Rnd*101)

insign=InKRnd：k101)Mud3，對(duì)變量insign取余數(shù)

SelectCaseinsign亭iinsi即分別等于0,1.2時(shí)，Label2.Captk)n分憂為十?且

Labe14,Caption自動(dòng)生成

Case0

Label2.Capiion=Label4.Capcion=M="

Case1

Labcl2,Capcion=丫：Labcl4.Cap(ion='="

Case2

l^ihcl2.Cap(ion='，5**:Mhel4.Cap<ion=H="

EndSelect

EndSub

PrivateSubTextI_KeyDown(Kc^cxicAsInteger.ShiftAsInteger)

IfKcjCode=13Then，如果按下回車進(jìn)

d=Val(Trim(Tex(I.Text))，在lexil中輸入一個(gè)蛙數(shù)

SelectCaseinsign

CaseO

If<1=Val(LabelI.Caption)+Val(Label3.Cap(ion)Then

1abe!2.ca|Xion為十時(shí)?比較cextl中的值與表達(dá)式的值

Label5.Caption=”很好"

d=M\gBcx(“要繼續(xù)練習(xí)嗎I+32)'如果

lext!的值。表達(dá)式的值相券，則用M也Mx函數(shù)提示信息汕?要堆續(xù)練習(xí)嗎？”，由回答結(jié)

果確定與否淡定退出練習(xí)或繼續(xù)練習(xí),繼續(xù)時(shí)冉次生成新的表達(dá)式，Texil置空

Lal>elI.Caption=In((Rnd>101)

LabeB.Capdon=IntfRnd4101)

Else

|jbel5.Cap(i<>n=?很遺博！.由輸入馬鹿確值

不相等.Lbd5中寫入J很遺修！”，并選中Tcxil的所有文本，等精學(xué)生新的輸入.

EndIf

TextI.SctFwus

Textl.ScIStart=0

Texd.SelLength=LenCTextI.Text)

CaseI

Ifd=Va1(LabeH.Caption)-Val(Label?.Caption)Then'當(dāng)

Iabcl2.caption為+時(shí)，比較tcxtl中的(ft與