資源描述：
《VB程序刷題題》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1.?????? ? A? ?B??! ?C?"D? ?2. ??$??&'(-fa]_______,?! ???&'(.bas?3.Vb01?34??567??3893?:;?()>?53?@67??67C????G?3IJK?_enterL??NO?4.VB?ByteP?R??S?U?-255?255WC?┯Y[0to255]5.N??RP ???]?_?1`________?A?BooleanB?ByteC?IntegerD?Single6.67Print“5*20”Iab1cA?”5*20"B?a┯C?5*20D?1007.67Dima,basstring,cascurrencyd%=l?a,b,c,d??RP?c(dP?efgP?hiP??P8.8??l?n$Textl,?pq]?r?Pdsa,btc,udsaS(5,dsb?S(7,dsc?S(12,?vN?67wvx?l??yz??{(|5+7=12A?Text1.Text=a+b=cB?Text1.Text=,,a+b=c"C?Textl=a&“+"&b&“="&c(}~?1text,?w??)9.D?Textl="a''&"+''&"b''&"="&"c”10.vN??ds?? ┯?1a_A.???! ? ?public67?ds1?ds(3)B.? x?public67?dsC.??! ????w?private67 ?dsD.????w?private67ds11.? wv?b—67dsA?DimPrivateB?DimStaticC?DimPrivateD^StaticPrivate12.5K? ?ds?S?x??Le? ?dsA?dimprivateC?publicD?static13.??67PrivateSubForm_Click()DimxAsString*5x="abc"y%=1Printx&yx=HabcdefgnPrintx&yEndSub??¤yzb?￥3(_abc1____>￥§3(_abcdel14.VB¨?a¨f????????ˉ?°?23?′μ?(oA??????ˉ???B?????????ˉC?????ˉ????D?????????ˉ15.??110\6=10mod6?a¨b1false16.2&<1">"?(16”?a¨b1__false17.???????N???à?????????VB??11(nmod10,)*10+n\1018.???a¨f??Cint(3.8)?Fix(3.8),Int(3.8),3.8??_??cint(3.8)_>_3.8>Fix(3.8)=Int(3.8)_19.N????S(ì?1_b___
1A.78.9/32.77<=957/43.91And-45.4>-4.98B,"ABCRG”>"abcde”C.Int(134.69)>=Cint(134.69)D.MidC'VisualBasic”,1,12)=RightCY>Z"?í?VB????11_a_(02#)A?X>YAndY>ZB?X>Y>ZC?X>YorY>ZD?X>YAnd>Z21.67dimxasdate|x=#02/17/1980#?month(x)=_0222.Chr(Asc("x")+2)?S(—z23.a30?òó???_c_wv×?0a3A??[ctrl[+[c]LB??[ctrl]+[z]LC??[ctrl]+[break]LD??¤“ú?a3"?ü24.Y?InStr("windows?',Mid("winnl"2,2))?T?à1c°A?0B?1C.2D?325.áefgAx2￥1a??f??>?5ef??1?d?A?Mid(Ax,l,5)B?Mid(Trim(Ax),l,5)C?Left(Ax,5)D?Left(Trim(Ax),5)26.a3??¤Kμ?I?10?37?50?55?56?64?20?28?19?-19?0,?aa3b?PrivateSubForml_Click()DimyasIntegerDoy=[nputb0x("y=”)If(yMod10)+Int(y/10)=10ThenPrintyLoopUntily=0EndSub27.0a3??¤Command1KI?12345678,?a8?Iab?PrivateSubCommandl_Click()DimxAsLong,yAsStringx=InputBox(',Hèn')DoWhilex<>0y=y&xMod10y=x\I0ModlO&yx=x\100printyLoopEndSub28.?ê?|“A=B=C”1??VisualBasic67?true29.dsx?y ????íS?dsa,?í??z(aA?a=x:Ify>xThena=yB?Ify>xThena=y:a=xC?a=Ify>xThenyElsexD?Ify>xThena=yElsea=xEndIf(?3)30.?Fork=35To0Step3:Nextk??67n??????1a?A?0B?12C?-11D?-1031.5(Subaa(nasinteger),???òàóò1??????A?Callaa(5)B?Callaa(n+l)C?Callaa(n)D?Callaa(i-l)32.?0?aa3??3N?ú$?yzb?PrivateSubCommand1_Click()Fori=2To20IfiMod2=1AndiMod3=2ThenPrintiNexti
2PrintiEndSub33.μ??aN?0a3????¤üy?üCommand1K8?Iab?DimxAsInteger,yAsIntegerPrivateSubfl(aAsInteger)a=a/2EndSubPrivateSubf2(ByValbAsInteger)b=b/2EndSubPrivateSubCommandl_Click()Callfl(x)Callf2(y)Printx,yEndSubPrivateSubFormLoad()x=64:y=64EndSub34.?aN?0a3?;?¤üy?ün$CommandlK8?yzb?PrivateFunctionfl(nAsInteger)AsIntegerStaticiAsIntegerWhilei<=nf1=fl+ii=i+1WendEndFunctionPrivateFunctionf2(ByValnlAsInteger,n2AsInteger)AsIntegerDimiAsIntegerDoWhilen2>=n1f2=f2+n2n2=n2-1LoopEndFunctionPrivateSubCommandl_Click()DimaAsInteger,bAsIntegerPrintfl(3)Printfl(5)a=5:b=8Printf2(a,b)Printf2(b,a)EndSub35.?aa3????¤K?
