vb80上机题答案

《vb80上机题答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第一套二、（1）PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSub（2）1)a=Mid$(Text1.Text,k,1)2)ch=ch+LCase(a)3)Text2=ch三、PrivateSubCommand2_Click()a%=CInt(Text1.Text)Doa%=a%+1LoopUntilisprime(a%)Text2.Text=a%En

2、dSubFunctionisprime(aAsInteger)DimflagAsBooleank%=2flag=TrueWhilek%<=Int(a/2)AndflagIfa/k%=Int(a/k%)Thenflag=FalseEndIfk%=k%+1Wendisprime=flagEndFunction第二套二、（1）1)Command2.Enabled=True2)Combo1.List(Combo1.ListIndex)=Text13)Combo1.AddItemText1（2）1）red=HScr

3、oll1.Value2）Timer1.Enabled=true3）Picture1.Visible=False4）green=green–1三、1）'Input#1,a%2）'prime=False第三套二、（1）PrivateSubCommand1_Click()IfOption1.Item(0)=TrueThenText2.Text=Format(Sin(Val(Text1.Text)*3.14159/180),"0.000")EndIfIfOption1.Item(1)=TrueThenText2.

4、Text=Format(Cos(Val(Text1.Text)*3.14159/180),"0.000")EndIfEndSub（2）1）Timer1.Enabled=True2）Form1.Timer1.Interval=HScroll1.Value3）Picture1.Left=Form1.Picture1.Left+10三、PrivateSubCommand1_Click()Dimf1,f2,fAsLongDima(40)AsLongf1=1f2=1a(1)=f1a(2)=f2Fori=3ToVal

5、(Text1.Text)f=f1+f2a(i)=ff1=f2f2=fNextText2.Text=a(40)EndSub第四套二、（1）1）Fork=0To32）n=k3）n=0（2）1）Form1.Combo1.ListIndex2）tmpStr=Mid(Trim(Text1.Text),3,4)3）Text2.Text=tmpStr三、PrivateSubCommand1_Click()DimfAsLonga(1)=1a(2)=1Fori=3ToVal(Text1.Text)f=a(i-2)+a(i-

6、1)+1a(i)=fNextText2.Text=fEndSub第五套三、1）'True或非0数值2）'绿灯.ico3）'False或04）'P2.Left或Me.P2.Left或Form1.P2.Left第六套二、（1）FunctionFun(a()AsSingle)AsSingleSum=0Fori=1ToUBound(a)Sum=Sum+a(i)/iNextiFun=SumEndFunction（2）1）Timer1.Enabled=True2）Command1.Enabled=False3）Tim

7、er1.Enabled=False4）Label1.Left=Label1.Left+20三、PrivateSubCommand2_Click()n=Len(Text1)Fork=1Tonch=Mid(Text1,k,1)IfUCase(ch)="A"Thenan=an+1EndIfIfUCase(ch)="B"Thenbn=bn+1EndIfIfUCase(ch)="C"Thencn=cn+1EndIfIfUCase(ch)="D"Thendn=dn+1EndIfNextkText1=an&""&bn&

8、""&cn&""&dnEndSub第七套二、（1）1）IfOption1(i)=TrueThen2）SelectCaseopt3）Label4=Str(HScroll1.Value)&""&opt&Str(HScroll2.Value)&"="&Str(Result)（2）1）LoopUntiln>0Andn<132）SelectCasen3）SelectCasem三、1）RecNum=RecNum+12）Put#1,RecN