程序设计基础——Visual Basic教程_高级数据类型.ppt

实验测试 实验9-9 利用随机函数生成一组数存放在数组中，把该数组的值显示在图形框中，然后将下标为奇数的数组元素从数组中删除，再把新数组显示在另一个图形框中。 实验测试 实验9-10 编程实现首先生成一个由小到大已排好序的整数数组，再输入一个数据，单击“插入”按钮会自动把这个数据插入到原数组适当的位置，并保持数组的有序性。程序运行界面如图9-15所示。 分类统计文本框中数字字符0~9各自出现的次数 数据统计问题 模型： Dim number As IntegerIf 数据c符合某一统计条件 Then number = number + 1End If ？10个数字字符的批量统计 建立一维统计数组，数组中的每个元素分别记录0~9数字字符各自出现次数的统计结果 分类统计文本框中数字字符0~9各自出现的次数 模型： Dim number(0 To 9) As IntegerIf 字符c∈[“0”,“9”] Then n = Val(c) number(n) = number(n) + 1End If 数据统计问题 思考：实现分类统计文本框中26个字母出现的次数？关键是如何用数组的数值型下标（1~26）来标识不同的字母字符？ 实现方法：利用Asc函数将字母转化为字母表中的相对位置编号:n= Asc(字母字符)-Asc(a) +1 9.2.8