CAI教学软件中数据的分割论文.docVIP

　　CAI教学软件中数据的分割论文 摘要： 本文使用面向对象的高级语言Visual Basic6.0设计了一套既能编辑，又能应用于教学演示的高级CAI软件。使用本软件，用指定的格式输入CAI数据，并在其中设置断点；同时，用本软件进行播放，可实现模拟教学目的。本文着重论述了如何输入数据、分割数据和显示数据的算法。 Abstract:Using the advanced language Object Oriented -Visual Basic 6.0, the author developed a set of advanced CAI softat and set breakpoints. At the mean time, it can be used to display data in order to realize the objective of simulated teaching. This article emphasizes on the algorithm of data input, data split and data display. 随着计算机的普及和网络技术的发展，计算机辅助教学（CAI）越来越受到人们的重视。但纵观目前流行的CAI软件，大多只能进行简单的放映.freele As String) Dim ControllCode As String Dim codmand As String 1 Dim ss As String Dim SourceLen As Long SourceLen = Len(SourceStr) Destination = ControllCode = Mi上角，用一条水平线和竖直线来分界。 分段为块 Public Sub LineDivide(ByRef afterDivide As String, ByVal Source As String, ByVal ScaleLO As Integer) Dim LL As Integer Dim Ls As String Dim start As Integer start = 1 LL = Len(Source) Do Ls = Mid(Source, start, ScaleLO) start = start + ScaleLO If afterDivide = Then afterDivide = Ls 2 Else afterDivide = afterDivide + Chr(13) + Chr(10) + Ls End If Loop argin = 50 Public Const ZLF = 180 小五号字的大小TdPrevie dspContent(2, 10) As String Dim Counter As Integer Dim JJ As Integer Dim picLeftside As Integer Dim picBottom As Integer Dim chrNum As Integer picLeftside = 0 picBottom = 0 Dim LsStr As String picLeftside = frmMainForm.ainForm.Top Fig 2 run status Counter = 0 For JJ = 0 To 3 If picFigure(JJ).Picture Then 3 ainForm .picFigure(JJ).Left = .argin – 100 - picFigure(JJ).ainForm.picFigure(0).Left Next JJ 以上程序段用于计算图片框组的左边和累加起来的底边，分存储于变量picLeftSide和pciBottom中。用这两个变量在右上角上划出了一个区域，以保证文本不会显示在图形后面。 For JJ = 0 To 9 frmMainForm.lblDisplayContent(JJ).Left = 1 Next frmMainForm.txtContent.Visible = False frmMainForm.cmdPrevieMainForm.cmdPrevie LL As String Dim start As Integer start = 1 4 实例运行 frContent(1, Counter), start, dspContent(0, Counter)) Counter = Counter + 1 Loop 2、把段落分割成行 For JJ = 0 To