您好,欢迎访问三七文档
1AAScaleWidthBScaleLeftCScaleHeightDScaleTop2CABCD3TRUEBA0B-1CTRUEDFALSE4VBCABCD5CAFilterBPathCParternDFileName6CADragDropBMouseDownCMouseUpDMouseMove7CABCD8DABCD9CALOFBLOCCEOFDBOF10AAMaxBLargeChangeCMinDValue11AAVBBVBCD12AADELBDELCSHIFTDALT13DABCTRLCD14CABCD15AAPaintBLoadCClickDActive16Forj=3To20Step3___6___17chr(Asc(a)+5)____f_____18_________timer_____________19VB___End___20Arraya()_____redimpreservearraya(ubound(arraya())+1)_______21VB2___rem_____________22Hscroll1Label1changevaluescrolvaluePrivateSubHscroll1.______change____________()Label1.Caption=Hscroll1._______value____________EndSubPrivateSubHscroll1._______scrol_________()Label1.Caption=Hscroll1.________value__________EndSub23_____Mid()_____2410Mod6\4__0____2510selectedtextlist1.textremoveitem2*i-1x,2*i-11Command18PrivateSubCommand1_Click()List._______selected___(7)=TruePrintList1.______text________EndSub2PrivateSubList1_Click()Print_______list1.text________EndSub3Command113579PrivateSubCommand1_Click()ForI=1To5List1.____removeitem2*i-1________NextIEndSub4PrivateSubCommand1_Click()ForI=1to10X=InputBox(&I&List1.AddItem_____x,2*i-1_______NextIEndSub26_____Msgbox_______Inputbox___27VisualBasic______static___________28_______name___________29VB_____Vbp__________frm______bas_____Vbpfrmbas30MenuItemMenuItem.Enabled=False31LockedTrue32EOFEOF33RGBQBColor34SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=3:b=3:c=2If(a=b)and(ac)ThenPrintaPrinta,b,cEndSub333235PrivateSubCommand1_Click()Dimif1AsInteger,if2AsIntegerDimsf1AsString,sf2AsStringDimbuffer()AsBytesf1=InputBox(,)sf2=InputBox(,)Ifsf1=Orsf2=ThenExitSubif1=FreeFileOpensf1ForBinaryAsif1'if2=FreeFileOpensf2ForBinaryAsif2'ReDimbuffer(1ToLOF(if1))'Get#if1,,buffer'Put#if2,,buffer'Close'MsgBoxEndSub362.75*2\3.4523738VB39VBVBwindowsVB40OptionBase1PrivateSubForm_Load()ConstN=4'NDima(N,N)AsIntegerDimi,j,TempAsIntegerShow'Fori=1ToN'Fori1NForj=1ToNa(i,j)=i*10+jNextjNexti'PrintFori=1ToN'Fori1NForj=1ToNPrinta(i,j);NextjPrintNexti'Fori=1ToN'Fori1NForj=1Toi'Temp=a(i,j)a(i,j)=a(j,i)a(j,i)=TempNextjNexti'PrintFori=1ToN'Fori1NForj=1ToNPrinta(i,j);NextjPrintNextiEndSub414TimerInterval2504243PrivateSubForm_load()Form1.showd=0Fora=1To2Forb=1ToaForc=bTo5d=d+1NextcNextbNextaPrintdEndSub14
本文标题:VB在线考试
链接地址:https://www.777doc.com/doc-8702763 .html