vb程序编程.pptx

vb程序编程.pptx

《vb程序编程.pptx》由会员分享，可在线阅读，更多相关《vb程序编程.pptx（71页珍藏版）》请在冰豆网上搜索。

2014年3月等级考试辅导,二级VisualBasic,真题练习,过程选择题：

11、14-33字符串专题：

附录1上机练习题：

上机练习软件1-10套、73-77套第二周周六上午8:

30在明理楼B412第二周周六下午2:

30在思学楼C304，带公共基础书第二周周日上午8:

30在明理楼B412第二周周日下午2:

30在思学楼C304，带公共基础书,上课通知,第三周周六上午8:

30在明理楼B412第三周周六下午2:

30在思学楼C304，带公共基础书第四周周六上午8:

30在明理楼B412第四周周六下午2:

30在思学楼C304第四周周日上午8:

30在思学楼C304,考点9滚动条,一、滚动条属性

（1）Min、Max：

最小、最大值

（2）Value：

滚动条当前位置值（3）SmallChange：

用于设置单击滚动条两端箭头时Value值的改变。

（4）LargeChange：

用于设置单击滚动条中滚动框前（后）部位时Value值的改变。

二、滚动条事件与滚动条有关的事件主要是Scroll和Change。

考点4直线和形状,属性X1，Y1和X2，Y2分别表示直线两个端点的坐标。

BorderColor，BorderStyle，BorderWidthBackStyle，FillColor，FillStyleShape：

设置控件的外观形状,题型一：

大小写转换题型二：

单词的操作题型三：

统计某些字母的个数题型四：

替换题型五：

加密解密题型六：

反向显示题型七：

字符删除,专题字符串,字符串操作函数LCase、UCaseMid（s$,p,n）LenAsc、Chr,题型一：

大小写转换,上机教程P175-真题13.1,运行时，在Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入Text2（如图所示）。

题型二：

单词的操作,判断单词的关键在于判断空格，因为单词与单词之间用空格隔开。

题型二：

单词的操作,上机教程P178-真题13.3,程序运行后，在文本框中输入一个英文句子（由多个单词组成，各单词之间仅用一个空格分开），然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图所示。

题型二：

单词的操作,上机教程P180-真题13.4,提醒：

需注意最后一个单词的处理,将读入的数据进行统计，求每个单词的长度，并将所有单词的平均长度（四舍五入取整）显示在Text1文本框内，将最长单词的长度显示在Text2文本框内,题型三统计字母的个数,上机教程P181-真题13.5,统计in5.dat文件中所含各字母（不区分大小写）的出现的次数，并将出现次数最多的字母显示在Text1文本框内，它所出现的次数显示在Text2文本框内。

题型三统计字母的个数,捷成51-5,在Text1文本框中选中内容后，单击“统计”按钮，则统计选中文本中出现次数最多的字母（不区分大小写），以大写形式在Text2文本框内显示这些出现次数最多的字母。

题型四：

加密解密,加密操作主要是将有意义的字句根据某种规则（一般是用其他字母代替）变成无意义的字句，所以一般的操作是取出每个字符按规则进行转换，再把转换后的连接起来作为加密后的字符串。

而解密是加密操作的逆运算。

加密规则：

对于第奇数个字符，若是字母，则把它变为它后面的字符（若为Z则变为A），不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符（若为A则变为Z），不是字母则不变。

大小写字母都遵循此规则。

题型五：

反向显示,将字符串倒序连接，方法类似于判定回文。

20套-5：

判断回文，写函数,提示：

删除字符其实就是字符的查找，也需要一个字符一个字符的取出来进行判断，如果是需要删除的字符，就不进行连接，否则就连接到字符串变量中,题型六：

删除字符,题型七替换,首先是找到要被替换的字母，在该条件下进行替换，由于是替换，所以一般需要用一个变量做连接，如不是被替换的字符，就直接连接，如果是替换的字符就连接替换字符，最后把该变量的值赋值给文本框显示出现。

程序运行时，在Text1、Text2中输入文字，单击“替换”按钮，则在Text3中找到Text1中的内容，并用Text2中的内容替换，若未找到，则不替换。

此外窗体上还有两个单选按钮，名称依次为Option1、Option2，标题依次为“第1个”和“全部”。

程序运行后，若Option1被选中，则只替换Text3中第一个匹配的字串，若Option2被选中，则替换Text3中所有匹配的字串。

笔试真题出现的字符串操作题,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=1To25Ifmcount（k）Thenm=count（k）EndIfNextkPrintmEndSub,（A）0（B）1（C）2（D）3,2.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

（2008年9月填空题7题）PrivateSubCommand1_Click（）a$=”NationalComputerRankExamination”n=Len（a$）s=0Fori=1Tonb$=Mid（a$,i,1）Ifb$=”n”Thens=s+1EndifNextiPrintsEndSub程序运行后，单击命令按钮，输出结果是【1】。

3.本程序实现文本加密。

先给定序列：

a1，a2，an，它们的取值范围是1n，且互不相同。

加密算法是：

把原文中第k个字符放到加密后文本的第ak个位置处。

若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文长度小于n，则在后面补字符“*”使文本长度为n后再加密。

（2009年3月填空题9题）例如：

若干给定序列a1，a2，a7分别为2，5，3，7，6，1，4当文本为“PROGRAM”时，加密后的文本为“APOMRRG”当文本为“PROGRAMMING”时，加密后的文本为“APOMRRGMING”当文本为“THANK”时，加密后的文本为“*TA*HKN”下面的过程code实现这一算法。

其中参数数组a（）中存放给定序列（个数与数组a的元素个数相等）a1，a2，a3，的值，要加密的文本放在参数变量mystr中。

过程执行完毕，加密后的文本仍放在变来那个mystr中。

请填空。

OptionBase1PrivateSubcode（a（）AsInteger,mystrAsString）DimchAsString,c1AsStringn=UBound（a）-Len（mystr）Ifn0Thenmystr=mystr&String$（n,*）EndIfch=mystrFork=【1】ToUBound（a）c1=Mid（mystr,k,1）n=【2】Mid$（ch,n）=c1Nextkmystr=chEndSub,4.设窗体上有一个文本框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）CISAB,5.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。

程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。

例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。

请填空。

（2005年9月填空题7题）PrivateSubCommand1_Click（）DimstrAsString,sAsString,cAsStringstr=UCase（Text1）s=c=ZWhilec=AIfInStr（str,c）=0Thens=【1】EndIfc=Chr$（Asc（c）【2】）WendIfsThenText1=sEndIfEndSub,考点10计时器,一、属性Name和Enabled与其它控件相同。

但它还有一个自己独有的属性：

Interval：

用于设置计时器事件之间的时间间隔，单位为毫秒，取值范围为065535。

由于受系统时钟周期18.5次/秒的限制，一般不要小于50。

二、事件计时器支持Timer事件，在时间间隔到时自动触发.,计时器：

Interval以毫秒为单位,计时器只有在Enabled为True，且Interval非0时才计时,上机教程P93-真题7.6,【例】捷成48-3,程序的功能是在运行时，单击“开始计数”按钮，就开始计数，每隔1秒，文本框中的数加1；单击“停止计数”按钮，则停止计数（如图所示）。

要求：

修改适当的控件的属性，补充程序完整。

上机真题,【例】捷成5-5,窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。

运行时，信号灯不断变换，单击“开车”按钮后。

汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。

上机真题,捷成71-4（新增题）,窗体上有一个由8个图片框控件组成的控件数组、2个命令按钮和1个计时器控件。

运行程序时，只显示下标为0的图片框控件数组元素，其它图片框均不显示。

单击“开始”按钮，数组中的图片框自左至右依次显示，时间间隔为0.5秒，产生月亮从左向右移动的效果。

月亮移到右端后再从左端重新开始。

单击“停止”按钮，月亮停止移动。

P148多重窗体程序设计与环境应用,与多重窗体程序设计有关的语句和方法

（1）Load语句格式：

Load窗体名称

（2）Unload语句格式：

Unload窗体名称（3）Show方法格式：

窗体名称.Show模式（4）Hide方法格式：

窗体名称.Hide,P159-鼠标事件,一、鼠标事件Sub对象名_鼠标事件（ButtonAsInteger,_ShiftAsInteger,xAsSingle,yAsSingle）压下鼠标键事件过程MouseDown松开鼠标键事件过程MouseUp移动鼠标光标事件过程MouseMove,1）Button为按下的鼠标键。

2）ShiftShift、Ctrl、Alt键的状态。

3）x、y鼠标光标的当前位置坐标。

课堂练习,有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset（X,Y）的功能是在坐标X，Y处画一个点）：

DimcmdmaveAsBooleanPrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle