VB实验代码填空

《VB实验代码填空》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、【实验2・3】PrivateSubForm_Load()Label1.Left二Forml.ScaleWidth/2・Label1.Width/2Label1.Top二Form1・ScaleHeight/2・Label1・Height/2Label2.Left二Label1.Left+60Label2.Top=Label1.Top+40EndSub【实验2・4】PrivateSubCommand5_Click()Text1.FontStrikethru=NotTextl.FontStrikethruEndSubPrivateSubComm

2、and6_Click()Textl.FontBold=NotTextl.FontBoldEndSubPrivateSubCommand7_Click()Textl.Fontltalic=NotTextl.FontltalicEndSubPrivateSubCommand9_Click()Textl.FontSize=Textl.FontSize・5EndSub【实验3-1]PrivateSubCommand1_Click()Constpi=3.1415926535898DimhAsSingle,rAsSingleh=Val(Textl.T

3、ext)r=Val(Text2.Text)Text3.Text=Format(pi*r八2,”0.000”)Text4.Text=Format(2*pi*r*h,”0.000”)Text5.Text=Format(pi*i•八2*h,”0.000”)EndSub【实验3・2】PrivateSubTimerl_Timer()Label1.Caption=Format(Int(Rnd10))&Format(Int(Rnd10))Label2.Caption二Format(Int(Rnd10))&Format(Int(Rnd10))Label3

4、.Caption=Format(Int(Rnd10))&Format(Int(Rnd10))Label4.CaptionFormat(Int(Rnd10))&Format(Int(Rnd10))Label5.Caption二Format(Int(Rnd10))&Format(Int(Rnd10))Label6.Caption=Format(Int(Rnd10))&Format(Int(Rnd10))EndSubPrivateSubCommand1_Click()RandomizeTimer1.Enabled二TrueEndSubPriva

5、teSubComiTiand2_Click()Timer1.Enabled=FalseEndSub【实验3-3】PrivateSubTimerl_Timer()Text1.Text=Year(Now)Text2.Text=Month(Now)Text3.Text=Day(Now)Text4.Text=Hour(Now)Text5.Text=Minute(Now)Text7.Text=DateDiff(ndn,Now,H2008-08-0820:00:00”)Text8.Text二DateDiff(nhn,Now,n2008-08-0820

6、:00:00”)EndSub【实验3・5】PrivateSubCommandl_Click()DimsiAsString,s2AsString,locationAsIntegersi=Trim(Textl.Text)s2=Trim(Text2.Text)location=InStr(l,UCase(sl),UCase(s2))Label3.Caption=s2&"firstoccursinposition"&Str(location)Text2.SetFocusText2.SelStart=0Text2.SelLength=Len(Tex

7、t2.Text)EndSub【实验4-1]PrivateSubCommand1_C1ick()temp=Text1.Text:tempcolor=Text1.ForeColorTextl.Text=Text2.Text:Text1.ForeColor=Text2.ForeColorText2.Text=Text3.Text:Text2.ForeColor=Text3.ForeColorText3.Text=Text4.Text:Text3.ForeColor=Text4.ForeColorText4.Text=Text5.Text:Tex

8、t4.ForeColor=Text5.ForeColorText5.Text=Text6.Text:Text5.ForeColor=Text6.ForeColorText6.Text=temp