VB课件VB6章节幻灯片.PPTVIP

* 例6-11 统计字母(不分大小写)在文本中出现的次数 P113 算法分析：建立一个有26个元素的数组，分别保存每个字母出现的次数。下标即是该字母是第几个字母. * Private Sub Command1_Click() Dim St As String, Idx As Integer, I As Integer, Js As Integer Dim A(0 To 25) As Integer Dim Ch As String * 1, L As Integer St = Text1.Text: L = Len(St) End Sub For I = 1 To L Ch = UCase(Mid(St, I, 1)) If Ch = A And Ch = Z Then Idx = Asc(Ch) - Asc(A) A(Idx) = A(Idx) + 1 End If Next I For I = 0 To 25 If A(I) 0 Then Js = Js + 1 Text2 = Text2 Chr(I + Asc(A)) : Str(A(I)) If Js Mod 5 = 0 Then Text2 = Text2 Chr(13) Chr(10) End If Next I 控制打印每行统计字符的个数 转换为大写字符 求该字符与“A”的间隔位置，以此作为下标 * 例6-12 删除一个数列中的重复数。 [算法分析:] 随机生成具有N个元素的数列，存放在数组A中。 第一轮，用A（1）依次和其后的所有元素比较，若A（i）与它相同，则将A（i）删除，删除的方法是将位于A（i）后面的元素依次前移，即用A（i＋1）替换A（i），A（i＋2）替换A（i＋1）…直到用A（n）替换A（n－1）；然后继续用A（1）和A （i）、 A（i＋1）、 A（i＋2） … A（n－1）比较，若有相同数存在，将其删除，直到比较完所以元素。 第二轮，用A（2）依次和其后的所有元素比较，处理方法和第一轮相同。 依此类推，直到处理完所有元素。 * ub = UBound(a) n = 1 ‘是被比较数的下标 Do While n ub ‘循环结束条件为被比较数是倒数第二个元素 i = n + 1 ‘比较数的下标,从N+1开始 Do While i = ub If a(n) = a(i) Then For j = i To ub – 1 ‘ 从a(i+1)到最后一个元素依次前移 a(j) = a(j + 1) Next j ub = ub – 1 ‘数组大小减1 ReDim Preserve a(ub) Else i = i + 1 ‘若不相同,再与下一个元素比较 End If Loop n = n + 1 ‘被比较数下标加1 Loop * 例6-13 15名学生按照已有的编号顺序围成一圈,1-3报数,逢3出局,要求记录学生出局的先后顺序(即编号). [算法分析:] 需解决如下几个问题: 1.如何记录15个学生的编号,又如何围成一圈 2.如何实现报数 3.如何实现逢3出局,并记录下编号 4.已出局的如何不参加报数 定义一个有15个元素的数组,元素下标即编号,当下标依次递增时,若大于15,就回到1. 数组元素的初值为1,顺序对数组元素的值实现累加 当累加和为3时,当前累加的元素出局,记录下其下标 将出局数组元素的值置为0,则累加时不起作用,即不参与报数 * For i = 1 To 15 old_no(i) = 1 Next i idx = 0 For i