實(shí)驗(yàn)一VERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3195ClientLeft=60ClientTop=345ClientWidth=4680LinkTopic="Form1"ScaleHeight=3195ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=375Left=2640TabIndex=0Top=2400Width=1575EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()PrintSqr(8),8A(1/3)EndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3195ClientLeft=60ClientTop=345ClientWidth=4680LinkTopic="Form1"ScaleHeight=3195窗口缺省ScaleWidth=4680窗口缺省StartUpPosition=3

BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=3720TabIndex=0Top=2640Width=855EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dimi%Fori=100To110Printi,iA(1/2)NextEndSubVERSION5.00BeginVB.FormForm1AutoRedraw=-1'TrueCaption="Form1"ClientHeight=3195TOC\o"1-5"\h\zClientLeft=60ClientTop=345ClientWidth=4680BeginPropertyFont楷體_GB2312"楷體_GB2312"Size=21.75Charset=134Weight=400Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyForeColor=&H000000FF&LinkTopic="Form1"ScaleHeight=3195

ScaleWidth=4680StartUpPosition=3'ScaleWidth=4680EndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=True窗口缺省AttributeVB_Exposed=False窗口缺省PrivateSubForm_Load()Print:PrintPrint"鄭州大學(xué)在前進(jìn)！EndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3780ClientLeft=60ClientTop=345ClientWidth=6285LinkTopic="Form1"窗口缺省藍(lán)天、白云、綠水、青山宋體"ScaleHeight=窗口缺省藍(lán)天、白云、綠水、青山宋體"StartUpPosition=3'BeginVB.LabelLabel1Caption="BeginPropertyFontName="Size=21.75Charset=134Weight=400Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyForeColor=&H00FF0000&Height=975Left=600TabIndex=0Top=1080Width=4935EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=False實(shí)驗(yàn)2VERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090

ClientLeft=60ClientTop =450ClientWidth =3615BeginPropertyFontName ="宋體"ClientLeft=60ClientTop =450ClientWidth =3615BeginPropertyFontName ="宋體"Size 12Charset =134Weight =700Underline =0'FalseItalic=Strikethrough=0'FalseEndPropertyLinkTopicScaleHeightScaleWidth="Form1=3090=3615StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand2CaptionHeightLeft=TabIndexTopWidthEnd=3751920=4=1680=975BeginVB.CommandButtonCommand1CaptionHeightLeft=TabIndexTopWidthEnd="乘積"=375600=3=1680=975BeginVB.TextBoxText2Height=3751920=2Left==840TabIndex=1095TopWidthEndBeginVB.TextBoxText1Height=375Left=480TabIndex=1=840TopWidth=1095EndBeginVB.LabelLabel3BorderStyle=1'FixedSingleCaption="Label3"TOC\o"1-5"\h\zHeight=375Left=2040TabIndex=6Top=2400Width=975EndBeginVB.LabelLabel2Caption="計(jì)算結(jié)果為：Height=375Left=480TabIndex=5Top=2400Width=1575EndBeginVB.LabelLabel1AutoSize=-1'TrueCaption="請(qǐng)輸入兩個(gè)數(shù)：Height=240Left=960TabIndex=0Top=360Width=1785EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Label3=Val(Text1)*Val(Text2)EndSubPrivateSubCommand2_Click()Label3=Val(Text1)/Val(Text2)EndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=5490BeginPropertyFontName="宋體"Size=12Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyLinkTopic="Form1"ScaleHeight=3090ScaleWidth=5490StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand3Caption="隱藏"Height=375Left=4080TabIndex=3Top=2040TOC\o"1-5"\h\zWidth=975EndBeginVB.CommandButtonCommand2Caption="圖片2"Height=375Left=4080TabIndex=2Top=1320Width=975EndBeginVB.CommandButtonCommand1Caption="圖片1"Height=375Left=4080TabIndex=1Top=600Width=975EndBeginVB.PictureBoxPicture1AutoSize=-1'TrueBeginPropertyFontTOC\o"1-5"\h\zName="宋體"Size=9Charset=134Weight=400Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight=1935Left=600ScaleHeight=1875ScaleWidth=2715TabIndex=0Top=480Width=2775EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Picture1.Picture=LoadPicture("d:\tu1.jpg")EndSubPrivateSubCommand2_Click()Picture1.Picture=LoadPicture("d:\tu2.jpg")EndSubPrivateSubCommand3_Click()Picture1.Visible=FalseEndSubVERSION5.00BeginVB.FormForm1Caption="收款機(jī)"ClientHeight=2730ClientLeft=60ClientTop=450ClientWidth=4680BeginPropertyFontName="宋體"Size=12Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyLinkTopic="Form1"ScaleHeight=2730ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="總價(jià)為"Height=375Left=600TabIndex=4Top=1920Width=1695EndBeginVB.TextBoxText2Height=495Left=3000TabIndex=3Top=960Width=1335EndBeginVB.TextBoxText1Height=495Left=3000TabIndex=2Top=240Width=1335EndBeginVB.LabelLabel3Alignment=2'CenterBorderStyle=1'FixedSingleHeight=495Left=2760TabIndex=5Top=1920Width=1455EndBeginVB.LabelLabel2Alignment=2'CenterCaption="貨物的單價(jià)（元）：Height=375Left=360TabIndex=1Top=1080Width=2295EndBeginVB.LabelLabel1Alignment=2'CenterTOC\o"1-5"\h\zCaption="貨物的數(shù)量（個(gè)）：Height=375Left=360TabIndex=0Top=360Width=2295EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click（）Label3=Text1*Text2EndSubBeginVB.FormForm1Caption="Form1"ClientHeight=1890ClientLeft=60ClientTop=450ClientWidth=4365LinkTopic="Form1"ScaleHeight=1890ScaleWidth=4365StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand2Caption="清除"BeginPropertyFontName="宋體"Size=12Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight=375Left=2400TabIndex=3Top=1200Width=975EndBeginVB.CommandButtonCommand1Caption=復(fù)制"BeginPropertyFontName="宋體"Size=12Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight=375Left=720TabIndex=2Top=1200Width=975EndBeginVB.TextBoxText2Height=495Left=2160TabIndex=1Top=360Width=1695EndBeginVB.TextBoxText1Height=495Left=480TabIndex=0Top=360Width=1455EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Text2=TextlEndSubPrivateSubCommand2_Click()Textl=""Text2=""EndSubPrivateSubForm_Load()Commandl.Visible=FalseCommand2.Visible=FalseEndSubPrivateSubText1_Change()Command1.Visible=TrueCommand2.Visible=TrueEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"TOC\o"1-5"\h\zClientHeight=3300ClientLeft=60ClientTop=450ClientWidth=4695BeginPropertyFontName="宋體"Size=12Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyLinkTopic="Form1"TOC\o"1-5"\h\zScaleHeight3300ScaleWidth=4695StartUpPosition=3'窗口缺省BeginVB.TimerTimer1Enabled=0'FalseInterval=500Left=3120Top=1320停止End停止BeginVB.CommandButtonCommand2Caption=Height=495Left=2640TabIndex=1Top=2400Width=975EndBeginVB.CommandButtonCommand1Caption="移動(dòng)"Height=495Left=840TabIndex=0Top=2400Width=1095EndBeginVB.ImageImage1Height=1800Left=840Top=360Width=1500EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubForm_Load()Image1.Picture=LoadPicture("d:\tu3.jpg")EndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Image1.Left=Int(Rnd*(Form1.ScaleWidth-Image1.Width))Image1.Top=Int(Rnd*(Form1.ScaleHeight-Image1.Height))EndSub實(shí)驗(yàn)3VERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3195ClientLeft=60ClientTop=345ClientWidth=4680LinkTopic="Form1"ScaleHeight=3195ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=3720TabIndex=0Top=2640Width=855EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Print2*3A2*8/4+3A2PrintSqr(Sqr(64))Print#2/27/2004#-10PrintInt(-3.1415926)PrintInt(Abs(99-100)/2)PrintFix(-3.1415926)PrintInt(-3.5),Int(3.5)PrintFix(3.5),Fix(3.5)PrintSgn(7*3+2)PrintLCase("Hello")PrintVal("16Year")PrintStr(-459.65)PrintLen("Hello程序設(shè)計(jì)ok")Print"MNT"&123&"ABC"Print123+Mid("123456",3,2)Print123&Mid("123456",3,2)PrintDateAdd("m",1,#2/27/2004#)EndSubCaption="Form1"ClientHeight=3195ClientLeft=60ClientTop=345ClientWidth=6825BeginPropertyFontName="宋體"Size=15Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyLinkTopic="Form1"ScaleHeight=3195ScaleWidth=6825StartUpPosition=3'窗口缺省BeginVB.TextBoxText1Height=495Left=3120TabIndex=2Text="Text1"Top=240Width=1695EndBeginVB.CommandButtonCommand1Caption="計(jì)算平方立方(根)"BeginPropertyFontName="宋體"Size=14.25Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight=495Left=1680TabIndex=0Top=960Width=3015EndBeginVB.LabelLabel2Caption="Label2"Height=735Left=480TabIndex=3Top=1920Width=5895EndBeginVB.LabelLabel1Caption="輸入一個(gè)數(shù)"Height=495Left=1320TabIndex=1Top=240Width=1935EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dimn%n=Abs(Val(Text1))Label2=Format(nA2,"#.000")&Space(2)&Format(Sqr(n),"#.000")&Space(2)&Format(nA3,"#.000")&Space(2)&Format(nA(1/3),"#.000")EndSubBeginVB.FormForm1Caption="Form1"ClientHeight=3330ClientLeft=60ClientTop=345ClientWidth=5985LinkTopic="Form1"ScaleHeight=3330ScaleWidth=5985StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand2Caption="方法二"Height=495Left=3840TabIndex=1Top=1800Width=1215EndBeginVB.CommandButtonCommand1Caption="方法一"Height=495Left=3840TabIndex=0Top=600Width=1215EndEndAttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dimx%,y%x=Int(Rnd*900+100)Print"產(chǎn)生的隨機(jī)數(shù)：";xy=(xMod10)*100+(x\10Mod10)*10+x\100Print"反序數(shù)：";Format(y,"000")EndSubPrivateSubCommand2_Click()Dimx%,yAsStringx=Int(Rnd*900+100)Print"產(chǎn)生的隨機(jī)數(shù)：";xy=Trim(Str(x))Print"反序數(shù)："&Right(y,1)&Mid(y,2,1)&Left(y,1)EndSubBeginVB.FormForm1Caption="Form1"ClientHeight=4275ClientLeft=60ClientTop=345ClientWidth=6975LinkTopic="Form1"ScaleHeight=4275ScaleWidth=6975StartUpPosition=3'窗口缺省BeginVB.TextBoxText2Height=615Left=4080TabIndex=5Top=960Width=1215EndBeginVB.CommandButtonCommand1Caption="開始產(chǎn)生"Height=495Left=2640TabIndex=3Top=1920Width=1215EndBeginVB.TextBoxText1Height=615Left=1200TabIndex=0Top=960Width=1215EndBeginVB.LabelLabel3Caption="Label3"Height=375Left=840TabIndex=4Top=2880Width=4695EndBeginVB.LabelLabel2Alignment=2'CenterTOC\o"1-5"\h\zCaption="到"BeginPropertyFontName="隸書"Size=15Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight=375Left=2760TabIndex=2Top=1080Width=975EndBeginVB.LabelLabel1Caption="輸入隨機(jī)數(shù)范圍："BeginPropertyFontName="隸書"Size=14.25Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight=495Left=480TabIndex=1Top=360Width=2655EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dimm%,n%Randomizem=Val(Text1):n=Val(Text2)x=Int(Rnd*(n-m)+m)y=Int(Rnd*(n-m)+m)z=Int(Rnd*(n-m)+m)Label3=m&"到"&n&"之間的3個(gè)隨機(jī)數(shù)為:"&x&Space(3)&y&Space(3)&zEndSubVERSION5.00BeginVB.FormForm1Caption="Form1ClientHeight=3270ClientLeft=60ClientTop=450ClientWidth=6000LinkTopic="Form1"ScaleHeight=3270ScaleWidth=6000星期幾"StartUpPosition=3星期幾"BeginVB.CommandButtonCommand3Caption=Height=495Left=360TabIndex=2Top=2280Width=1455EndBeginVB.CommandButtonCommand2CaptionHeight=495Left=360TabIndex=1Top=1440Width=1455EndBeginVB.CommandButtonCommand1CaptionHeight=495Left=360TabIndex=0Top=600Width=1455EndBeginVB.LabelLabel3BorderStyle=1'FixedSingleCaption="Label3"Height=495Left=2520TabIndex=5Top=2280Width=2535EndBeginVB.LabelLabel2BorderStyle=1'FixedSingleCaption="Label2"Height=495Left=2520TabIndex=4Top=1440Width=2535EndBeginVB.LabelLabel1BorderStyle=1'FixedSingle

Height=495Left=2520TabIndex=3Top=600Width=2535EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Label1.Caption=DateEndSubPrivateSubCommand2_Click()Label2.Caption=TimeEndSubPrivateSubCommand3_Click()Label3.Caption=WeekdayName(Weekday(Date))EndSub實(shí)驗(yàn)4VERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=4305ClientLeft=60ClientTop=450ClientWidth=6345宋體"宋體"Name="Size=14.25Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyScaleHeight=4305ScaleWidth=6345StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="轉(zhuǎn)換"Height=495Left=2160TabIndex=2Top=1800Width=1455EndBeginVB.TextBoxText1Height=495Left=3480TabIndex=1Top=720Width=1455EndBeginVB.LabelLabel2Height=975Left=360TabIndex=3Top=2760Width=5775EndBeginVB.LabelLabel1Caption="請(qǐng)輸入弧度數(shù)值：Height=495Left=600TabIndex=0Top=720Width=2415EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalseOptionExplicitPrivateSubCommand1_Click()Dimx!,a!,aa%,b!,bb%,c!,cc$x=Val(Text1)a=x*180/3.14aa=Int(a)b=(a-aa)*60bb=Int(b)c=(b-bb)*60cc=Format(c,"#.000")Label2="弧度"&Text1&"轉(zhuǎn)換為"&aa&"度"&bb&"秒"分"&cc&"EndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3255ClientLeft=60ClientTop=450ClientWidth=4980LinkTopic="Form1"ScaleHeight=3255ScaleWidth=4980StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="判斷"Height=495Left=1560TabIndex=2Top=1440Width=1335EndBeginVB.TextBoxText1Height=615Left=960TabIndex=0Top=600Width=2655EndBeginVB.LabelLabel2Height=735Left=960TabIndex=3Top=2160Width=2775EndBeginVB.LabelLabel1Caption="輸入一個(gè)年份："Height=375Left=1320TabIndex=1Top=240Width=1935EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click（）Dimx%x=Val（Text1）Ifx/400=x\400OrxMod4=0AndxMod100<>0ThenLabel2=Text1&"年是閏年"ElseLabel2=Text1&"年不是閏年"EndIfEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="3個(gè)數(shù)排序"Height=495Left=1800TabIndex=0Top=1320Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click（）Dimx%,y%,z%x=InputBox（"輸入第一個(gè)數(shù)"）y=InputBox（"輸入第二個(gè)數(shù)"）z=InputBox（"輸入第三個(gè)數(shù)")Ifx>yThent=x:x=y:y=tIfy>zThent=y:y=z:z=tIfx>yThent=x:x=y:y=tPrintx,y,zEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=5430ClientLeft=60ClientTop=450ClientWidth=6975LinkTopic="Form1"ScaleHeight=5430ScaleWidth=6975StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand2Caption="結(jié)束"Height=495Left=3840TabIndex=1Top=2040Width=1215EndBeginVB.CommandButtonCommand1Caption="計(jì)費(fèi)"Height=495Left=1080TabIndex=0Top=2040Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()x=Val(InputBox("請(qǐng)輸入上網(wǎng)時(shí)間:"))Ifx<>-1ThenSelectCasexCaseIs<10fei=25Case10To50fei=x*2Case50To100fei=x*1.5CaseIs>=100fei=x*1EndSelectMsgBox"上網(wǎng)費(fèi)用為:"&fei&"元"EndIfEndSubPrivateSubCommand2_Click()EndEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=4050ClientLeft=60ClientTop=450ClientWidth=6285LinkTopic="Form1"ScaleHeight=4050ScaleWidth=6285StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="弧度轉(zhuǎn)換為度分秒Height=615Left=2160TabIndex=0Top=1560Width=2415EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()x=InputBox("請(qǐng)輸入弧度數(shù)值","弧度轉(zhuǎn)換",0)xx=Val(x)a=x*180/3.14aa=Int(a)b=(a-aa)*60bb=Int(b)c=(b-bb)*60cc=Format(c,"#.000")MsgBox"弧度"&x&"轉(zhuǎn)換為"&aa&"度"&bb&"分"&cc&"End秒"SubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=5430ClientLeft=60ClientTop=450ClientWidth=6975LinkTopic="Form1"ScaleHeight=5430ScaleWidth=6975StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand2Caption="結(jié)束"Height=495Left=3840TabIndex=1Top=2040Width=1215EndBeginVB.CommandButtonCommand1Caption="計(jì)費(fèi)"Height=495Left=1080TabIndex=0Top=2040Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dox=Val(InputBox("請(qǐng)輸入上網(wǎng)時(shí)間:",,-1))Ifx<>-1ThenSelectCasexCaseIs<10fei=25Case10To50fei=x*2Case50To100fei=x*1.5CaseIs>=100fei=x*1EndSelectzongfei=zongfei&Space(3)&feiMsgBoxzongfei,,"上網(wǎng)費(fèi)用為"ElseExitDoEndIfLoopEndSubPrivateSubCommand2_Click()EndEndSub實(shí)驗(yàn)5VERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=1800TabIndex=0Top=1320Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Forn=1To100s=s+nNextnPrintsEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"TOC\o"1-5"\h\zHeight=495Left=1920TabIndex=0Top=1680Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Fori=0To20Forj=0To33Ifi*5+j*3+1/3*(100-i-j)=100ThenPrinti,j,100-i-jNextNextEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=1800TabIndex=0Top=1320Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()n=0DoIfnMod2=1AndnMod3=2AndnMod5=4AndnMod6=5AndnMod7=0ThenExitDon=n+1LoopPrintnEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand2Caption="方法2"Height=495Left=2880TabIndex=1Top=1320Width=1215EndBeginVB.CommandButtonCommand1Caption="方法1"Height=495Left=2880TabIndex=0Top=480Width=1215End

EndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dimx%,y%,z%,i%,j%Forx=0To9Fory=0To9Forz=0To9i=x*100+x*10+zj=y*100+z*10+zIfi+j=532ThenPrintx;y;zNextNextNextEndSubPrivateSubCommand2_Click()Fori=0To9Forj=0To9Fork=0To9IfVal(i&i&k)+Val(j&k&k)=532ThenPrinti;j;kNextNextNextEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090窗口缺省ScaleWidth=4680窗口缺省StartUpPosition=3'BeginVB.TextBoxText1Height=615Left=1200TabIndex=1Top=840Width=2415EndBeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=1920TabIndex=0Top=1920Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()x=Val(Text1)y=x*4n=0DoWhilex<=yx=x*(1+0.1)n=n+1PrintxLoopPrintx,nEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=1800TabIndex=0Top=1320Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()n=Val(InputBox("輸入計(jì)算到第幾項(xiàng):",,0))Fori=1Tons=s+(-1)A(i+1)*iNextPrintn,sEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand2Caption="雙循環(huán)"Height=495Left=2520TabIndex=1Top=1680Width=1215EndBeginVB.CommandButtonCommand1Caption="單循環(huán)"Height=495Left=600TabIndex=0Top=1680Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dimn%,s%n=Val(InputBox("輸入計(jì)算到第幾項(xiàng):",,0))s=0:t=0Fori=1Tont=t+is=s+tNextiPrintsEndSubPrivateSubCommand2_Click()Dimn%,s%n=Val(InputBox("輸入計(jì)算到第幾項(xiàng):",,0))s=0:t=0Fori=1Tont=0Forj=1Toit=t+jNexts=s+tNextPrintsEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=2160TabIndex=0Top=1920Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()DimsAsDouble,piAsDoublen=1:s=0DoWhile1/(2*n-1)>=0.0001s=s+(-1)A(n+1)*1/(2*n-1)n=n+1Looppi=4*sPrintpiEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=1920TabIndex=0Top=1560Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Forn=100To999k=Trim(Str(n))Ifn=Left(k,1)A3+Mid(k,2,1)A3+Right(k,1)A3ThenPrintnNextEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=2160TabIndex=0Top=1800Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Forn=999To100Step-1Fori=2Ton-1IfnModi=0ThenExitForNextiIfi=nThenPrintnk=k+1EndIfIfk=3ThenExitForNextnEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=8025LinkTopic="Form1"ScaleHeight=3090ScaleWidth=8025StartUpPosition=3窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=1800TabIndex=0Top=1320Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()s=0:Max=0:Min=1000Fori=1To20Randomizex=Int(Rnd*49+51)Printx;Ifx>MaxThenMax=xIfx<MinThenMin=xs=s+xNextiaver=s/20PrintPrint"max=";Max,"min=";Min,"aver=";averEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=4680LinkTopic="Form1"ScaleHeight=3090ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand2Caption方法2：雙循環(huán)Height窗口缺省="窗口缺省="方法1Left=2640TabIndex=1Top=1800Width=1575EndBeginVB.CommandButtonCommand1Caption單循環(huán)"TOC\o"1-5"\h\zHeight=495Left=600TabIndex=0Top=1800Width=1455EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Fori=1To4PrintTab(20-i);String(2*i-1,"*")NextEndSubPrivateSubCommand2_Click()Fori=1To4PrintTab(30-i);Forj=1To2*i-1PrintNextPrintNextEndSub實(shí)驗(yàn)6VERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3990ClientLeft=60ClientTop=450ClientWidth=7095LinkTopic="Form1"ScaleHeight=3990ScaleWidth=7095StartUpPosition=3'BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=4680TabIndex=0Top=2880Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dimi%,a%(1To10),max%,min%,avg!max=0:min=100:avg=0Fori=1To10a(i)=Int(Rnd*51+50)Printa(i);Ifa(i)>maxThenmax=a(i)Ifa(i)<minThenmin=a(i)avg=avg+a(i)NextiPrintPrint""Printmax,min,avg/10EndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=4155ClientLeft=60ClientTop=450ClientWidth=6525LinkTopic="Form1"ScaleHeight=4155ScaleWidth=6525StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=4680TabIndex=0Top=3120Width=1215

EndEndAttributeVB_Name="Forml”AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dima%(1To20),i%,y%,l%,z%,j%,b%Fori=1To20a(i)=Int(Rnd*101)Printa(i);IfiMod10=0ThenPrintSelectCasea(i)Case90To100y=y+1Case80To89l=l+1CaseIs>=70z=z+1CaseIs>=60j=j+1CaseElseb=b+1EndSelectNextiPrint"優(yōu)秀:";yPrint"良好："；lPrint"中:";zPrint"及格："；jPrint"不及格:";bEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=4320ClientLeft=60ClientTop=450ClientWidth=6240LinkTopic="Form1"ScaleHeight=4320ScaleWidth=6240StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=4440TabIndex=0Top=3360Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dima(1To10)AsInteger,i%,j%Fori=1To10a(i)=Int(Rnd*50+1)Printa(i);NextiPrintn=10Fori=1Ton-1Forj=nToi+1Step-1Ifa(j)>a(j-1)Thent=a(j):a(j)=a(j-1):a(j-1)=tEndIfNextjNextiPrint"排序之后Fori=1To10Printa(i);NextiPrintEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=4200ClientLeft=60ClientTop=450ClientWidth=7635窗口缺省LinkTopic="Form1ScaleHeight=4200ScaleWidth=7635窗口缺省StartUpPosition=3BeginVB.CommandButtonCommand2Caption="方法2Height=495Left=5640TabIndex=1Top=2520Width=1215EndBeginVB.CommandButtonCommand1TOC\o"1-5"\h\zCaption="方法1"Height=495Left=5640TabIndex=0Top=840Width=1215EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dima(1To20)AsInteger,i%Fori=1To20a(i)=Int(Rnd*101+1)'Printa(i);'IfiMod5=0ThenPrintIfiMod5=0ThenPrinta(i)ElsePrinta(i);NextiPrintEndSubPrivateSubCommand2_Click()Dima(1To20)AsInteger,i%Fori=1To20a(i)=Int(Rnd*101+1)Printa(i);IfiMod5=0ThenPrintNextiEndSubVERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=4440ClientLeft=60ClientTop=450ClientWidth=6480LinkTopic="Form1"ScaleHeight=4440ScaleWidth=6480StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption="Command1"Height=495Left=4680TabIndex=0Top=3120Width=1215EndE