计算机二级考试常用代码,二级计算机VB考试常用代码(看完必过).doc

文档介绍：

mand1_Click()DimsumAsLongn=Val(Text1.Text)sum=0IfnMod2=0Then'm=?Else'm=?EndIf'Fori=1TomStep?'sum=sum+?NextLabel2.Caption=sumEndSubPrivateFunctionf(ByValxAsInteger)AsLongy=1'Fori=1To?y=y*iNextf=mand1_Click()Dimdays%,month%,year%,day1_1%,n%Staticmonth_daysAsVariantmonth_days=Array(31,28,31,30,31,30,31,31,30,31,30,31)Fork=0To6IfOption1(k).Value=TrueThenday1_1=kEndIfNextkdays=0month=Text2year=Text1'month_days(2)=IIf(leap_year(year),29,?)'==计算到要显示月历的月份之前共有多少天=='Fork=?Tomonth-1days=days+month_days(k)Nextk'====计算要显示月历的月份的第1天是星期几=====n=(daysMod7+day1_1)Mod7'================输出月历==================Picture1.ClsPicture1.Print"SUNMONTUEWEDTHUFRISAT"Fork=1Tomonth_days(month)Picture1.PrintTab(5*n+1);k;n=n+1Ifn=7ThenPicture1.Print'n=?EndIfNextkEndSub'==============判断闰年=================='PrivateFunctionleap_year(?AsInteger)AsBooleanleap_year=(yearMod4=0AndyearMod100<>0OryearMod400=0)EndFunctionPrivateSubOption1_Click(IndexAsInteger)ameAsString*3MathAsIntegerChineseAsIntegerEnglishAsIntegerEndTypeDima(20)Asrec,numAsInteger,nAsIntegerPrivateSubreaddata()OpenApp.Path&"\in5.txt"ForInputAs#1k=1DoWhileNotEOF(1)Input#1,a(k).name,a(k).Math,a(k).Chinese,a(k).Englishk=k+1LoopClose#1'num=?mand1_Click()n=mand2_Click()n=n+mand3_Click()'n=?mand4_Click()n=numputdatanEndSubPrivateSubForm_Load()mand1_ClickEndSub'PrivateSubputdata(?AsInteger)Label1.Caption="第"&k&"条记录"Text1=a(k).nameText2=a(k).MathText3=a(k).ChineseText4=a(k).EnglishText5=a(k).Math+a(k).Chinese+a(k).English'SetEnabled?EndSubPrivateSubSetEnabled(mand1.Enabled=IIf(m=1,False,mand2.Enabled=IIf(m=num,False,mand3.Enabled=IIf(m=1,False,True)'Command4.Enabled=IIf(?)EndSub第二套1PrivateSubForm_Load()Command1.Caption="mand2.Caption="停止"Timer1.Interval=100Timer1.Enabled=mand1_Click()'Command1.Caption=?Timer1.Enabled=mand1.Enabled=?Command2.Enabled=mand2_Click()Timer1.Enabled=mand2.Enabled=mand1.Enabled=?EndSubPrivateSubTimer1_Timer()IfHScroll1.Value

内容来自淘豆网www.taodocs.com转载请标明出处.