计算机二级VB剖析.ppt

* 可留1个专题到第11次课讲 * 计算机等级考试辅导 二级Visual Basic 第七讲 专题 专题一 矩阵 1 专题二 字符串 2 专题三 文件 4 专题一——矩阵 矩阵行运算 求最值 对角线元素操作 行列交换 矩阵转置 矩阵 将N行M列数据集合称为矩阵，对矩阵的定义方法是用二维数组实现。 例如： Dim a(1 to 20,1 to 5) as Integer 二维数组定义后，第一维表示矩阵的行，第二维表示列。 矩阵的输入和输出 For双重循环 Open \in5.dat For Input As #1 For i = 1 To 20 For j = 1 To 5 Input #1, a(i, j) Text1 = Text1 + Str(a(i, j)) + Space(2) Next j Text1 = Text1 + Chr(13) + Chr(10) Next i Close #1 Open in5.dat For Input As #1 For i = 1 To 20 For j = 1 To 5 Input #1, a(i, j) Text1 = Text1 + Str(a(i, j)) + Space(2) Next j Text1 = Text1 + Chr(13) + Chr(10) Next i Close #1 矩阵求最值 求矩阵中的最大值（或最小）： 假定整个矩阵中第一个元素a(1,1)为最大（或最小），然后依次访问矩阵中每个元素，若找到新的最大（或最小）的元素，即修改最大（或最小）值变量，直到矩阵元素访问结束。 对角线元素 只有行、列数相同的矩阵（即方阵）才有对角线元素，矩阵对角线分主对角线和副对角线。 For i = 1 To 4 For j = 1 To 4 Print a(i, j); Next j print Next i a(1,1) a(1,2) a(1,3) a(1,4) a(2,1) a(2,2) a(2,3) a(2,4) a(3,1) a(3,2) a(3,3) a(3,4) a(4,1) a(4,2) a(4,3) a(4,4) 主对角线 副对角线 上机教程P159-真题12.1 【例】捷成36-5 有一个名为datain.txt的文本文件，其内容为：32 43 76 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后，单击窗体，将把文件datain.txt中的数组输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵左上-右下对角线上的数据，如下图所示。 上机教程P161-真题12.2 【例】捷成46-5 其功能是，找出矩阵元素的最大值，并求出矩阵对角线元素之和，窗体外观如图所示。程序运行时，矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时，找出矩阵中最大的数，并显示在标签Label3中。当单击“对角线元素之和”命令按钮时，计算矩阵主对角线元素之和，并显示在标签Label4中。 矩阵的行运算 39套-5：读顺序文件中的数据到二维数组并按矩阵输出，输出第三行的和； 17套-5：顺序文件读，矩阵输出，矩阵行交换（类似47套-5）； 题型一：大小写转换 题型二：单词的操作 题型三：统计某些字母的个数 题型四：替换 题型五：加密解密 题型六：反向显示 题型七：字符删除 专题二——字符串 题型一：大小写转换 字符串操作函数 LCase、UCase Mid(s$,p,n) Len Asc、Chr 常出现在字符串操作中。 For i = 1 To 26 表达式Chr(Asc(“A”) - 1 + i)取得所有A~Z字符 Next i 题型一：大小写转换 捷成16-5 题型二：单词的操作 判断单词的关键在于判断空格，因为单词与单词之间用空格隔开。 题型二：单词的操作 捷成23-3 程序运行后，在文本框中输入一个英文句子（由多个单词组成，各单词之间仅用一个空格分开），然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图所示。 题型三：计数 捷成16-5 题型四 交换 捷成29-4 题型五：反向显示 将字符串倒序连接， 方法类似于判定回文。