二级VB考试系统第8次课矩阵和字符串专题124学时课件

2010年9月等级考试辅导

二级VisualBasic第八讲专题

专题一矩阵1

专题二字符串2专题一——矩阵矩阵行运算求最值对角线元素操作行列交换矩阵转置矩阵的输入和输出For双重循环Open"\in5.dat"ForInputAs#1Fori=1To20Forj=1To5

Input#1,a(i,j)

Text1=Text1+Str(a(i,j))+Space(2)NextjText1=Text1+Chr(13)+Chr(10)NextiClose#1Open"in5.dat"ForInputAs#1Fori=1To20Forj=1To5

Input#1,a(i,j)

Text1=Text1+Str(a(i,j))+Space(2)Nextj

Text1=Text1+Chr(13)+Chr(10)NextiClose#1矩阵的行运算39套-5：读顺序文件中的数据到二维数组并按矩阵输出，输出第三行的和；17套-5：顺序文件读，矩阵输出，矩阵行交换（类似47套-5）；73套-5：二维数组求每行小于50的数之和以及平均值；70套-5：计算二维数组中各行的最小数，并求最小数的最值（类似63套-4，69套-5，71套-5，74套-5）。矩阵求最值求矩阵中的最大值（或最小）：假定整个矩阵中第一个元素a(1,1)为最大（或最小），然后依次访问矩阵中每个元素，若找到新的最大（或最小）的元素，即修改最大（或最小）值变量，直到矩阵元素访问结束。

上机教程P159-真题12.1【例】捷成36-5有一个名为datain.txt的文本文件，其内容为：324376281298573142536475869713243546576879805937程序运行后，单击窗体，将把文件datain.txt中的数组输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵左上-右下对角线上的数据，如下图所示。上机教程P161-真题12.2【例】捷成46-5其功能是，找出矩阵元素的最大值，并求出矩阵对角线元素之和，窗体外观如图所示。程序运行时，矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”命令按钮时，找出矩阵中最大的数，并显示在标签Label3中。当单击“对角线元素之和”命令按钮时，计算矩阵主对角线元素之和，并显示在标签Label4中。题型一：大小写转换题型二：单词的操作题型三：统计某些字母的个数题型四：替换题型五：加密解密题型六：反向显示题型七：字符删除专题二——字符串题型一：大小写转换[上机教程P175-真题13.1]捷成1-4运行时，在Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入Text2（如图所示）。题型二：单词的操作判断单词的关键在于判断空格，因为单词与单词之间用空格隔开。题型二：单词的操作[上机教程P178-真题13.3]捷成13-3程序运行后，在文本框中输入一个英文句子（由多个单词组成，各单词之间仅用一个空格分开），然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图所示。题型三统计某些字母的个数[上机教程P181-真题13.5]捷成48-5方法：利用字符ASCII码的特点，将字符“a”、“b”…出现次数顺序存放在数组中，然后在数组中找“特定值”位置，并由位置确定该字母统计in5.dat文件中所含各字母（不区分大小写）的出现的次数，并将出现次数最多的字母显示在Text1文本框内，它所出现的次数显示在Text2文本框内。题型三统计某些字母的个数捷成56-5在Text1文本框中选中内容后，单击“统计”按钮，则统计选中文本中出现次数最多的字母（不区分大小写），以大写形式在Text2文本框内显示这些出现次数最多的字母。题型四替换首先是找到要被替换的字母，在该条件下进行替换，由于是替换，所以一般需要用一个变量做连接，如不是被替换的字符，就直接连接，如果是替换的字符就连接替换字符，最后把该变量的值赋值给文本框显示出现。题型五：加密解密加密操作主要是将有意义的字句根据某种规则（一般是用其他字母代替）变成无意义的字句，所以一般的操作是取出每个字符按规则进行转换，再把转换后的连接起来作为加密后的字符串。而解密是加密操作的逆运算。捷成79-5加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符（若为‘Z’则变为‘A’），不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符（若为‘A’则变为‘Z’），不是字母则不变。大小写字母都遵循此规则。题型六：反向显示将字符串倒序连接，方法类似于判定回文。25套-5：判断回文，写函数提示：删除字符其实就是字符的查找，也需要一个字符一个字符的取出来进行判断，如果是需要删除的字符，就不进行连接，否则就连接到字符串变量中题型七：删除字符笔试真题出现的字符串操作题1.下面程序运行时，若输入“VisualBasicProgramming”，则在窗体上输出的是____。（2010年3月选择题35题）PrivateSubComand1_Click()Dimcount(25)AsInteger,chAsStringch=Ucase(InputBox("请输入字母字符串"))Fork=1ToLen(ch)n=Asc(Mid(ch,k,1))-Asc("A")Ifn>=0Thencount(n)=count(n)+1EndIfNextkm=count(0)Fork=1To25Ifm<count(k)Thenm=count(k)EndIfNextkPrintmEndSub(A)0(B)1(C)2(D)3OptionBase1PrivateSubcode(a()AsInteger,mystrAsString)DimchAsString,c1AsStringn=UBound(a)-Len(mystr)Ifn>0Thenmystr=mystr&String$(n,"*")EndIfch=mystrFork=【1】ToUBound(a)c1=Mid(mystr,k,1)n=【2】Mid$(ch,n)=c1Nextkmystr=chEndSub4.设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：（2008年4月选择题33题）PrivateSubCommand1_Click()DimsAsString,chAsStrings=""Fork=1ToLen(Text1)ch=Mid(Text1,k,1)s=ch+sNextkText1.Text=sEndSub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是

。（A）Basic（B）cisaB（C）BASIC（D）CISAB5.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。（2005年9月填空题7题）PrivateSubCommand1_Click()DimstrAsString,sAsString,cAsStringstr=UCase(Text1)s=""c="Z"Whilec>="A"IfInStr(str,c