二级VB考试系统第8次课-矩阵和字符串专题(12-4学时).pptVIP

5. 在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。（2005年9月填空题7题） Private Sub Command1_Click( )  Dim str As String, s As String, c As String  str = UCase(Text1)  s =  c = Z  While c = A  If InStr(str, c) = 0 Then  s = 【1】  End If  c = Chr$(Asc(c) 【2】 )  Wend  If s Then  Text1 = s  End If End Sub 作业和最后一次课安排 笔试作业：VB笔试教程2009年9月和2010年3月笔试真题。 上机作业：VB上机第十二讲（矩阵）和第十三讲（字符串） * 可留1个专题到第11次课讲 CopyRight@2010 SWPUNCRE All Rights Reserved 2010年9月等级考试辅导 二级Visual Basic 第八讲 专题 专题一 矩阵 1 专题二 字符串 2 专题一——矩阵 矩阵行运算 求最值 对角线元素操作 行列交换 矩阵转置 矩阵 将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 矩阵的行运算 39套-5：读顺序文件中的数据到二维数组并按矩阵输出，输出第三行的和； 17套-5：顺序文件读，矩阵输出，矩阵行交换（类似47套-5）； 73套-5：二维数组求每行小于50的数之和以及平均值； 70套-5：计算二维数组中各行的最小数，并求最小数的最值（类似63套-4，69套-5，71套-5，74套-5）。 矩阵求最值 求矩阵中的最大值（或最小）： 假定整个矩阵中第一个元素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.tx