程序設(shè)計(jì)基礎(chǔ)實(shí)驗(yàn)報(bào)告

經(jīng)典word整理文檔，僅參考，雙擊此處可刪除頁(yè)眉頁(yè)腳。本資料屬于網(wǎng)絡(luò)整理，如有侵權(quán)，請(qǐng)聯(lián)系刪除，謝謝！第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年3月9日學(xué)號(hào)實(shí)驗(yàn)成績(jī)指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟為為為，為為為程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法PrivateSubCommand1_Click()=True=False=TrueEndSubPrivateSubCommand2_Click()=True=False=FalseEndSubPrivateSubHScroll1_Change()=EndSubPrivateSubTimer1_Timer()+1)EndSub程序運(yùn)行的結(jié)果4、實(shí)驗(yàn)總結(jié)程序運(yùn)行結(jié)果分析及思考題討論的實(shí)驗(yàn)總結(jié)心得體會(huì)第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年3月9日學(xué)號(hào)實(shí)驗(yàn)成績(jī)課程代碼項(xiàng)目代碼項(xiàng)目學(xué)分指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法PrivateSubCombo1_Click()If=0Then=0If=1Then=vbRedIf=2Then=vbYellowIf=3Then=vbGreenEndSubPrivateSubForm_Load()("黑色")("紅色")("黃色")("綠色")=0=8=20="第一章vb概述"&vbCrLf&"第二章程序設(shè)計(jì)基礎(chǔ)"&vbCrLf&"第三章窗體及常用控件"&vbCrLf&結(jié)構(gòu)化程序設(shè)計(jì)"&vbCrLf&"第五章數(shù)組"&vbCrLf&"第六章過(guò)程"EndSubPrivateSubHScroll1_Change()=EndSubPrivateSubOption1_Click()=EndSubPrivateSubOption2_Click()=EndSub程序運(yùn)行的結(jié)果4、實(shí)驗(yàn)總結(jié)程序運(yùn)行結(jié)果分析及思考題討論實(shí)驗(yàn)總結(jié)心得體會(huì)第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年3月16日學(xué)號(hào)實(shí)驗(yàn)成績(jī)課程代碼項(xiàng)目代碼項(xiàng)目學(xué)分指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法PrivateSubCommand1_Click()x=Val(InputBox("請(qǐng)任意輸入一個(gè)整數(shù):"))Ifx>100ThenxEndSubPrivateSubCommand2_Click()=""y=Val(Text1)IfyMod2=0Then=y&"是偶數(shù)"Else=y&"是奇數(shù)"EndIfEndSub程序運(yùn)行的結(jié)果4、實(shí)驗(yàn)總結(jié)程序運(yùn)行結(jié)果分析及思考題討論和實(shí)驗(yàn)總結(jié)心得體會(huì)第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年3月16日學(xué)號(hào)實(shí)驗(yàn)成績(jī)指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求123456789算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法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程序運(yùn)行的結(jié)果4、實(shí)驗(yàn)總結(jié)程序運(yùn)行結(jié)果分析及思考題討論9實(shí)驗(yàn)總結(jié)心得體會(huì)第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年3月23日學(xué)號(hào)指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求n算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法PrivateSubCommand1_Click()s=0Fori=2To100Step2s=s+iNextiText1=sEndSubPrivateSubCommand2_Click()t=1n=Val(Text2)Forj=1Tont=t*jNextjText3=tEndSub程序運(yùn)行的結(jié)果4、實(shí)驗(yàn)總結(jié)程序運(yùn)行結(jié)果分析及思考題討論s實(shí)驗(yàn)總結(jié)心得體會(huì)和第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年3月23日學(xué)號(hào)實(shí)驗(yàn)成績(jī)指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟個(gè)程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法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程序運(yùn)行的結(jié)果4、實(shí)驗(yàn)總結(jié)程序運(yùn)行結(jié)果分析及思考題討論11實(shí)驗(yàn)總結(jié)心得體會(huì)條第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年3月30日指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法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程序運(yùn)行的結(jié)果4、實(shí)驗(yàn)總結(jié)程序運(yùn)行結(jié)果分析及思考題討論實(shí)驗(yàn)總結(jié)心得體會(huì)第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年3月30日學(xué)號(hào)實(shí)驗(yàn)成績(jī)指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法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程序運(yùn)行的結(jié)果4、實(shí)驗(yàn)總結(jié)程序運(yùn)行結(jié)果分析及思考題討論i=15j=15515s=s+ji實(shí)驗(yàn)總結(jié)心得體會(huì)第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年4月6日學(xué)生姓名課程名稱學(xué)號(hào)實(shí)驗(yàn)成績(jī)課程代碼指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法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程序運(yùn)行的結(jié)果4、實(shí)驗(yàn)總結(jié)程序運(yùn)行結(jié)果分析及思考題討論實(shí)驗(yàn)總結(jié)心得體會(huì)第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年4月6日指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求6m于算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法PrivateSubCommand2_Click()Dima()AsIntegerReDima(1)a(1)=1x=Val(Text2)IfNot(x>=6Andx<=106AndxMod2=0)ThenMsgBox"輸入的數(shù)必須是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程序運(yùn)行的結(jié)果4、實(shí)驗(yàn)總結(jié)程序運(yùn)行結(jié)果分析及思考題討論實(shí)驗(yàn)總結(jié)心得體會(huì)第1組西華大學(xué)實(shí)驗(yàn)報(bào)告（理工類）實(shí)驗(yàn)時(shí)間：2008年4月13日指導(dǎo)教師1、實(shí)驗(yàn)?zāi)康?、實(shí)驗(yàn)設(shè)備、儀器及材料3、實(shí)驗(yàn)內(nèi)容上機(jī)實(shí)驗(yàn)的內(nèi)容及要求算法設(shè)計(jì)思想與算法實(shí)現(xiàn)步驟程序核心代碼，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法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