资源描述：
《cai教学软件中数据的分割论文》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、CAI教学软件中数据的分割论文摘要：本文使用面向对象的高级语言VisualBasic6.0设计了一套既能编辑，又能应用于教学演示的高级CAI软件。使用本软件，用指定的格式输入CAI数据，并在其中设置断点；同时，用本软件进行播放，可实现模拟教学目的。本文着重论述了如何输入数据、分割数据和显示数据的算法。Abstract:UsingtheadvancedlanguageObjectOriented-VisualBasic6.0,theauthordevelopedasetofadvancedCAIsofta
2、tandsetbreakpoints.Atthemeantime,itcanbeusedtodisplaydatainordertorealizetheobjectiveofsimulatedteaching.Thisarticleemphasizesonthealgorithmofdatainput,datasplitanddatadisplay.随着计算机的普及和网络技术的发展，计算机辅助教学（CAI）越来越受到人们的重视。但纵观目前流行的CAI软件，大多只能进行简单的放映.freeleAsStri
3、ng)DimControllCodeAsStringDimcodmandAsString1DimssAsStringDimSourceLenAsLongSourceLen=Len(SourceStr)Destination=""ControllCode=Mi上角，用一条水平线和竖直线来分界。'分段为块PublicSubLineDivide(ByRefafterDivideAsString,ByValSourceAsString,ByValScaleLOAsInteger)DimLLAsIntegerDi
4、mLsAsStringDimstartAsIntegerstart=1LL=Len(Source)DoLs=Mid(Source,start,ScaleLO)start=start+ScaleLOIfafterDivide=""ThenafterDivide=Ls2ElseafterDivide=afterDivide+Chr(13)+Chr(10)+LsEndIfLoopargin=50PublicConstZLF=180'小五号字的大小TdPreviedspContent(2,10)AsString
5、DimCounterAsIntegerDimJJAsIntegerDimpicLeftsideAsIntegerDimpicBottomAsIntegerDimchrNumAsIntegerpicLeftside=0picBottom=0DimLsStrAsStringpicLeftside=frmMainForm.ainForm.TopFig2runstatusCounter=0ForJJ=0To3IfpicFigure(JJ).PictureThen3ainForm.picFigure(JJ).Le
6、ft=.argin–100-picFigure(JJ).ainForm.picFigure(0).LeftNextJJ以上程序段用于计算图片框组的左边和累加起来的底边，分存储于变量picLeftSide和pciBottom中。用这两个变量在右上角上划出了一个区域，以保证文本不会显示在图形后面。ForJJ=0To9frmMainForm.lblDisplayContent(JJ).Left=1NextfrmMainForm.txtContent.Visible=FalsefrmMainForm.cmdPr
7、evieMainForm.cmdPrevieLLAsStringDimstartAsIntegerstart=14实例运行frContent(1,Counter),start,dspContent(0,Counter))Counter=Counter+1Loop2、把段落分割成行ForJJ=0ToCounterainForm.lblDisplayContent(JJ).Left=13、计算行宽和判断字号IfdspContent(0,JJ)="titl"Then.lblDisplayContent(JJ)
8、.FontSize=15chrNum=(picLeftside-2*Margin-100)/ZLTElseIfdspContent(0,JJ)="text"Then.lblDisplayContent(JJ).FontSize=10.5chrNum=(picLeftside-2*Margin-100)/ZFElseEndIfLsStr=""CallLineDivide(LsStr,dspContent(1,JJ),chrNum)’分割成行.
