經典word整理文檔，僅參考，雙擊此處可刪除頁眉頁腳。本資料屬于網絡整理，如有侵權，請聯系刪除，謝謝！第1組西華大學實驗報告（理工類）實驗時間：2008年3月9日學號實驗成績指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求算法設計思想與算法實現步驟為為為，為為為程序核心代碼，程序調試過程中出現的問題及解決方法PrivateSubCommand1_Click()=True=False=TrueEndSubPrivateSubCommand2_Click()=True=False=FalseEndSubPrivateSubHScroll1_Change()=EndSubPrivateSubTimer1_Timer()+1)EndSub程序運行的結果4、實驗總結程序運行結果分析及思考題討論的實驗總結心得體會第1組西華大學實驗報告（理工類）實驗時間：2008年3月9日學號實驗成績課程代碼項目代碼項目學分指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求算法設計思想與算法實現步驟程序核心代碼，程序調試過程中出現的問題及解決方法PrivateSubCombo1_Click()If=0Then=0If=1Then=vbRedIf=2Then=vbYellowIf=3Then=vbGreenEndSubPrivateSubForm_Load()("黑色")("紅色")("黃色")("綠色")=0=8=20="第一章vb概述"&vbCrLf&"第二章程序設計基礎"&vbCrLf&"第三章窗體及常用控件"&vbCrLf&結構化程序設計"&vbCrLf&"第五章數組"&vbCrLf&"第六章過程"EndSubPrivateSubHScroll1_Change()=EndSubPrivateSubOption1_Click()=EndSubPrivateSubOption2_Click()=EndSub程序運行的結果4、實驗總結程序運行結果分析及思考題討論實驗總結心得體會第1組西華大學實驗報告（理工類）實驗時間：2008年3月16日學號實驗成績課程代碼項目代碼項目學分指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求算法設計思想與算法實現步驟程序核心代碼，程序調試過程中出現的問題及解決方法PrivateSubCommand1_Click()x=Val(InputBox("請任意輸入一個整數:"))Ifx>100ThenxEndSubPrivateSubCommand2_Click()=""y=Val(Text1)IfyMod2=0Then=y&"是偶數"Else=y&"是奇數"EndIfEndSub程序運行的結果4、實驗總結程序運行結果分析及思考題討論和實驗總結心得體會第1組西華大學實驗報告（理工類）實驗時間：2008年3月16日學號實驗成績指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求123456789算法設計思想與算法實現步驟程序核心代碼，程序調試過程中出現的問題及解決方法PrivateSubCommand1_Click()s=Val(Text1)-1600If(s-100000)>0Thent=29625+(s-100000)*ElseIf(s-80000)>0Thent=21625+(s-80000)*ElseIf(s-60000)>0Thent=14625+(s-60000)*ElseIf(s-40000)>0Thent=8625+(s-40000)*ElseIf(s-20000)>0Thent=3625+(s-20000)*ElseIf(s-5000)>0Thent=625+(s-5000)*ElseIf(s-2000)>0Thent=175+(s-2000)*ElseIf(s-500)>0Thent=25+(s-500)*ElseIfs>0Thent=s*Elset=0EndIfText2=tEndSub程序運行的結果4、實驗總結程序運行結果分析及思考題討論9實驗總結心得體會第1組西華大學實驗報告（理工類）實驗時間：2008年3月23日學號指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求n算法設計思想與算法實現步驟程序核心代碼，程序調試過程中出現的問題及解決方法PrivateSubCommand1_Click()s=0Fori=2To100Step2s=s+iNextiText1=sEndSubPrivateSubCommand2_Click()t=1n=Val(Text2)Forj=1Tont=t*jNextjText3=tEndSub程序運行的結果4、實驗總結程序運行結果分析及思考題討論s實驗總結心得體會和第1組西華大學實驗報告（理工類）實驗時間：2008年3月23日學號實驗成績指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求算法設計思想與算法實現步驟個程序核心代碼，程序調試過程中出現的問題及解決方法PrivateSubCommand1_Click()Dimm%,n%,i%,t%,k%,x%Text1=""Forx=1000To1Step-1k=Int(Sqr(x))Form=2TokIfxModm=0ThenExitForEndIfNextmIfm>kThenx:s=s+1Ifs=20ThenExitForNextxFori=0To-1t=Val(i))n=n+tNextiText1=n程序運行的結果4、實驗總結程序運行結果分析及思考題討論11實驗總結心得體會條第1組西華大學實驗報告（理工類）實驗時間：2008年3月30日指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求算法設計思想與算法實現步驟程序核心代碼，程序調試過程中出現的問題及解決方法PrivateSubCommand1_Click()RandomizeDoWhiles<10x=Int(Rnd*60)+30k=Sqr(x)Fort=2TokIfxModk=0ThenExitForNexttIft>kThenxs=s+1n=Fori=0Ton-2Forj=0Ton-2-iIfVal(j))>Val(j+1))Thenm=(j)(j)=(j+1)(j+1)=mEndIfNextj,iEndIfLoopEndSub程序運行的結果4、實驗總結程序運行結果分析及思考題討論實驗總結心得體會第1組西華大學實驗報告（理工類）實驗時間：2008年3月30日學號實驗成績指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求算法設計思想與算法實現步驟程序核心代碼，程序調試過程中出現的問題及解決方法PrivateSubCommand1_Click()Dima(5,5)AsIntegers=0t=0Fori=1To5Forj=1To5Randomizex=Int(Rnd*90)+10a(i,j)=xx;Ifi=jThens=s+a(i,j)EndIfIfi+j=6Thent=t+a(i,j)EndIfNextjNextiIf=TrueThenText1=sEndIfIf=TrueThenText1=tEndIfEndSubPrivateSubOption1_Click()Text1=sEndSubPrivateSubOption2_Click()Text1=tEndSub程序運行的結果4、實驗總結程序運行結果分析及思考題討論i=15j=15515s=s+ji實驗總結心得體會第1組西華大學實驗報告（理工類）實驗時間：2008年4月6日學生姓名課程名稱學號實驗成績課程代碼指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求算法設計思想與算法實現步驟程序核心代碼，程序調試過程中出現的問題及解決方法PrivateSubCommand1_Click()RandomizeFori=1To10a(i)=Int(Rnd*90)+10a(i)NextiEndSubPrivateSubjs(mms()AsInteger,maxAsInteger,minAsInteger,sqrAsDouble)max=0min=mms(1)sqr=0Fori=1To10Ifmms(i)>maxThenmax=mms(i)EndIfIfmms(i)<minThenmin=mms(i)EndIfsqr=sqr+mms(i)Nextisqr=sqr/10EndSubPrivateSubCommand2_Click()Calljs(a,x,y,z)Text1=xText2=yText3=zEnd程序運行的結果4、實驗總結程序運行結果分析及思考題討論實驗總結心得體會第1組西華大學實驗報告（理工類）實驗時間：2008年4月6日指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求6m于算法設計思想與算法實現步驟程序核心代碼，程序調試過程中出現的問題及解決方法PrivateSubCommand2_Click()Dima()AsIntegerReDima(1)a(1)=1x=Val(Text2)IfNot(x>=6Andx<=106AndxMod2=0)ThenMsgBox"輸入的數必須是6-106vbOKOnly+vbCriticalGoToL1Elseno=1Fori=3Tox-1Ifss(i)=1Thenno=no+1ReDimPreservea(no)a(no)=iEndIfNextiFori=1TonoForj=iTonoIfx=a(i)+a(j)Thena(i)&"+"&a(j)&"="&xEndIfNextjNextiEndIfL1:EndSubPrivateFunctionss(ByValnAsInteger)AsIntegerDimiAsIntegerFori=2Ton-1IfnModi=0ThenExitForNextiIfi<nThenss=0Elsess=1EndIfEndFunction程序運行的結果4、實驗總結程序運行結果分析及思考題討論實驗總結心得體會第1組西華大學實驗報告（理工類）實驗時間：2008年4月13日指導教師1、實驗目的2、實驗設備、儀器及材料3、實驗內容上機實驗的內容及要求算法設計思想與算法實現步驟程序核心代碼，程序調試過程中出現的問題及解決方法Dima(10)AsIntegerPrivateSubCommand1_Click()Text1=""RandomizeFori=1To10a(i)=Int(Rnd*100)Text1=Text1&""&a(i)NextiEndSubPrivateSubCommand2_Click()Open+"\"ForOutputAs#1Print#1,Text1Close#1EndSubPrivateSubCommand3_Click()Text2=""Open+"\"ForInputAs#2Fori=1To10Input#2,a(i)Text2=Text2&""&a(i)Nexti