文檔介紹：

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,?)'==計(jì)算到要顯示月歷的月份之前共有多少天=='Fork=?Tomonth-1days=days+month_days(k)Nextk'====計(jì)算要顯示月歷的月份的第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

內(nèi)容來自淘豆網(wǎng)www.taodocs.com轉(zhuǎn)載請(qǐng)標(biāo)明出處.

總結(jié)

以上是生活随笔為你收集整理的计算机二级考试常用代码,二级计算机VB考试常用代码(看完必过).doc的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。