程序设计基础实验报告

经典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