PrivatePrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)TextBox1.BackColor=Color.LightGrayEndSubEndPublicClassPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox1.BackColor=EndPrivatePrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsHandlesDimHAs PublicClassPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMe.MinimizeBox=False izeBox=FalseMe.Text="時間換算"Label2.Text"00:00:00"EndEndSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDimh%,m%,s%,x sxMod mx60)Mod hx Label2.Texth&&m&& &”EndPublicClassTextBox4.TextTextBox4.Text=EndSubEndClassx=H*t*(1+t)^m/((1+t)^m- t=s/H=Val(TextBox1.Text)*m=s=Val(TextBox3.Text)*''DimmAsDimsAsSingleDimtAsDimxAs1：ImportsSystem.MathPublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDima,b,cAsaVal(InputBox("輸入一條邊長a",長bVal(InputBox("輸入一條邊長b",長cVal(InputBox("輸入一條邊長c",長Ifa+b>cAndb+c>aAnda+c>bIfa=bAndb=cMsgBox("這個三角形是等邊三角形MsgBoxStyle.OkOnlyElseIfa=bOrb=cOra=cMsgBox("這個三角形是等腰三角形MsgBoxStyle.OkOnlybThen

'ElseIfa*a+b*b=c*cOrb*b+c*c=a*aOra*a+c*c=b*bElseIfSqrt(a*a+b*b)=cOrSqrt(b*b+c*c)=aOrSqrt(a*a+c*c)=MsgBox("這個三角形是直角三角形MsgBoxStyle.OkOnlyMsgBox("這個三角形是普通三角形MsgBoxStyle.OkOnlyEndMsgBox("不能構(gòu)成三角形MsgBoxStyle.Exclamation)EndIfEndSubEndPublicClassPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDimgzAsgzInputBoxDimzAsSingle

SelectCaseCase2000Toz=gz*(1+MsgBox(&z,MsgBoxStyle.InformationMsgBoxStyle.OkOnly,Case1500Toz=gz*(1+MsgBox(&z,MsgBoxStyle.InformationMsgBoxStyle.OkOnly,Case1000Toz=gz*(1+MsgBox(&z,MsgBoxStyle.InformationMsgBoxStyle.OkOnly,EndEndSubEndClass1：PublicClassPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles'DimseAsString,i,jAs'Label1.TextSpace(35)&表&vbCrLf'Label1.Text&=Space(35)&&vbCrLf'Fori=1To9'Forj=1To'se=i&"×"&j&"="&i*'Label1.Text&=se&Space(8-Len(se))'Nextj'Label1.Text&= 'NextDimmAsStringDims,tAsLabel1.TextSpace(35)&&vbCrLfLabel1.Text&Space(35)&&Fors=1ToFort=1Tom=s&"×"&t&"="&s*tLabel1.Text&=m&Space(8-Len(m))Label1.Text&='DimmAsString'Dims,tAs'Label1.TextSpace(35)&表&vbCrLf'Label1.Text&=Space(35)&&'Fors=1To Fort=sTo m=s&"×"&t&"="&s* Label1.Text&=m&Space(8-Len(m)) Nextt Label1.Text&= Label1.Text&=Space(9*s)'NextsEndSubEndClassPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDimi,numAsIntegernum=0Dimm,nAsm=n=Dims,tAsIntegerIfm<nThens=m:t=s=n:t=mEndIfFori=sToIfiMod3=0AndiMod7=0num+=1EndIfLabel1.Text3和7整除的數(shù)字有&num&個。"EndSub程1：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Dimi,numAsIntegernum=0Dimm,nAsm=n=Dims,tAsIntegerIfm<nThens=m:t=ns=n:t=mEndIfFori=sToIfiMod3=0AndiMod7=0num+=1EndIfLabel1.Text3和7整除的數(shù)字有&num&個。"EndSubEndPublicClassPrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesDima%,b%,t#,a=a+b=b+at=1/bs=s+LoopWhile(t>0.0001)TextBox1.Text=sEndSubEndClass1：PublicClassPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDimnum(9),max,min,iAsIntegermax=min=Fori=0Tonum(i)=Int(Rnd()*90)+Ifmax<num(i)Thenmax=num(i)Ifmin>num(i)Thenmin=Label1.Text"Max=&max&Space(5)&"Min&min要EndSubEndClassPublicClassDima()AsPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerTextBox1.Text=""TextBox2.Text=ReDimFori=0To19a(i)=Int(90*Rnd())+10TextBox1.Text&=Str(a(i))EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimi,jAsIntegerDimtempAsIntegerTextBox2.Text=""Fori=0To18

Forj=0To18-Ifa(j)>a(j+1)Thentemp=a(j):a(j)=a(j+1):a(j+1)=tempFori=0ToTextBox2.Text&=EndSubEnd1：ImportsPublicClassDima(99)AsPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerFori=0Toa(i)=Int(Rnd()*90+10)TextBox1.Text&=a(i)&Space(3)EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimb(9,9)AsIntegerDimi,j,m,nAsIntegerFori=0Tom=i\n=iMod10b(m,n)=a(i)Fori=0ToForj=0ToTextBox2.Text&=b(i,j)&Space(3)TextBox2.Text&=EndSubEndPublicClassPrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesDima(,)AsInteger={{35,67,52,50},{33,47,66,39},{47,56,66,41},{30,55,38}},i%,Dimb(,)AsInteger={{103,115,125,101},{133,127,132,135},{111,103,118},{123,109,113,TextBox1.Text=""TextBox2.Text=TextBox3.TextA數(shù)組對角線元素和為Fori=0ToForj=0ToTextBox1.Text&=a(i,j)&""NextjTextBox1.Text&=vbCrLfNextiFori=0ToForj=iToTextBox2.Text&=b(i,j)&""NextjTextBox2.Text&=vbCrLf&Space(5*(i+NextDimsAsIntegerFori=0To3j=s+=a(i,s+=a(0,3)+a(1,2)+a(2,1)+a(3,TextBox3.Text&='TextBox3.Text"A數(shù)組對角線元素和為"&vbCrLf&Val(a(0,0)a(1,1)a(2,2)+a(3,3)+a(0,3)+a(1,2)+a(2,1)+a(3,0))EndSubEndClass1：PublicClassForm1Dima%,b%,PrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesa=b=c=Ifa>=bAndb>=cThenTextBox4.Text=a&">"&b&">"&cIfa>=cAndc>bThenTextBox4.Text=a&">"&c&">"&bIfb>cAndc>aThenTextBox4.Text=b&">"&c&">"&aIfb>aAnda>=cThenTextBox4.Text=b&">"&a&">"&cIfc>bAndb>aThenTextBox4.Text=c&">"&b&">"&aIfc>aAnda>=bThenTextBox4.Text=c&">"&a&">"&bEndPrivateSubTextBox1_LostFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesIfIsNumeric(TextBox1.Text)FalseThenEndIfEndSubPrivateSubTextBox2_LostFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesIfIsNumeric(TextBox2.Text)=FalseEndIfEndSubPrivateSubTextBox3_LostFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesIfIsNumeric(TextBox3.Text)FalseThenEndEndSubEndClassPublicClassPrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesDimDims1AsStringLabel1.Text=Fori=1Tos1=StrDup(18-2*i,Chr(64+i))Label1.Text&=Space(i)&s1&EndSubEndPublicClassDima%(19),i%,PrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesLabel1.Text=""Fori=0Toa(i)=Int(Rnd()*Label1.Text&=a(i)&Space(5-Len(Trim(a(i))))If(i+1)Mod5=0ThenLabel1.Text&=vbCrLfNextiEndSubPrivateSubButton2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesDims5%,s6%,s7%,s8%,Fori=0Tok=a(i)\10SelectCaseCase0Tos5=s5+Cases6=s6+Cases7=s7+Cases8=s8+Case9Tos9=s9+EndNextLabel2.Text="不及格的人數(shù)有"&s5&"個"&vbCrLfLabel2.Text&="60-70的人數(shù)有"&s6&"個"&vbCrLfLabel2.Text&="70-80的人數(shù)有"&s7&"個"&vbCrLfLabel2.Text&="80-90的人數(shù)有"&s8&"個"&vbCrLfLabel2.Text&90以上的人數(shù)有"&s9&"個&EndSubEndClass1：PublicClassFunctionGYS(ByValx,ByValy)AsIntegerDimr%,t%Ifx<yThent=x=y=tEndIfr=xModyDoWhile(r<>0)x=yy=r=xModGYS=yEndPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsHandlesDimm%,n%m=n=Dimt%t=GYS(m,n)TextBox3.Text=tEndSubEndClassPublicClassFunctionMF(ByValx)AsIntegerDimiAsInteger,jAsLongj=1Fori=1Toxj=j*iMF=jEndPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimm%,n%,m=n=Val(TextBox2.Text)Ifm<nThenExitSubEndDima%,b%,a=b=c=MF(m-n)t=a/(b*c)TextBox3.Text=tEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Text=""TextBox2.Text=""TextBox3.Text=EndSubEndClassPublicClassSubmax(ByVals$,ByReft$)Dimn$,i%i=InStr(s,"")t=""DoWhilei<>n=Mid(s,1,i-IfLen(n)>Len(t)Thent=ns=Mid(s,i+1)i=InStr(s,"IfLen(s)>Len(t)Thent=sEndSubPrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)Dims$,s=TextBox1.TextCallmax(s,t)TextBox2.Text=tEndSubEndClass1：PublicClassPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(9)AsIntegerDimiAsIntegerFori=0To9a(i)=Int(Rnd()*100)-TextBox1.Text&=a(i)&Space(8-Len(a(i)))DimmAsIntegerCallProMin(a,m)Label2.Text&=mEndSubProMin(ByRefa%(),ByRefDimiAsIntegeramin=a(0)Fori=1ToIfa(i)<aminThenamin=a(i)EndIfEndSubEndClassImportsPublicClassSubmysin(ByRefx%,ByRefDimiAsInteger,aAsDoublea=x:y=a'Fori=1To100001Step Ifabs(a)<0.00001Then ExitFor a=-1*a*x*x/(i+1)/(i+ End y=y+ai=DoWhileAbs(a)>a=-1*a*x*x/(i+1)/(i+2)y+=ai+=EndSubPrivateSubButton1_Click(ByVa