1、2014年3月等级考试辅导,二级Visual Basic,真题练习,过程选择题：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）Mi
2、n、Max：最小、最大值（2）Value：滚动条当前位置值（3）SmallChange：用于设置单击滚动条两端箭头时Value值的改变。（4）LargeChange：用于设置单击滚动条中滚动框前（后）部位时Value值的改变。二、滚动条事件 与滚动条有关的事件主要是Scroll和Change。,考点4 直线和形状,属性X1，Y1和X2，Y2分别表示直线两个端点的坐标。BorderColor，BorderStyle，BorderWidth BackStyle，FillColor，FillStyle Shape：设置控件的外观形状,题型一：大小写转换 题型二：单词的操作 题型三：统计某些字母的个数
3、题型四：替换题型五：加密解密题型六：反向显示题型七：字符删除,专题字符串,字符串操作函数LCase、UCaseMid(s$,p,n)LenAsc、Chr,题型一：大小写转换,上机教程P175-真题13.1,运行时，在Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入Text2（如图所示）。,题型二：单词的操作,判断单词的关键在于判断空格，因为单词与单词之间用空格隔开。,题型二：单词的操作,上机教程P178-真题13.3,程序运行后，在文本框中输入一个英文句子（由多个单词组成，各单词之间仅用一个空格分开），然后单击命令按钮，程
4、序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图所示。,题型二：单词的操作,上机教程P180-真题13.4,提醒：需注意最后一个单词的处理,将读入的数据进行统计，求每个单词的长度，并将所有单词的平均长度（四舍五入取整）显示在Text1文本框内，将最长单词的长度显示在Text2文本框内,题型三 统计字母的个数,上机教程P181-真题13.5,统计in5.dat文件中所含各字母（不区分大小写）的出现的次数，并将出现次数最多的字母显示在Text1文本框内，它所出现的次数显示在Text2文本框内。,题型三 统计字母的个数,捷成51-5,在Text1文本框中选中内容后，单击“统计
5、”按钮，则统计选中文本中出现次数最多的字母（不区分大小写），以大写形式在Text2文本框内显示这些出现次数最多的字母。,题型四：加密解密,加密操作主要是将有意义的字句根据某种规则（一般是用其他字母代替）变成无意义的字句，所以一般的操作是取出每个字符按规则进行转换，再把转换后的连接起来作为加密后的字符串。而解密是加密操作的逆运算。,加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符（若为Z则变 为A），不是字母则不变；对于第偶数个字符，若是字母，则把它变为 它前面的字符（若为A则变为Z），不是字母则不变。大小写字母都遵循此规则。,题型五：反向显示,将字符串倒序连接，方法类似于判定回文。
6、20套-5：判断回文，写函数,提示：删除字符其实就是字符的查找，也需要一个字符一个字符的取出来进行判断，如果是需要删除的字符，就不进行连接，否则就连接到字符串变量中,题型六：删除字符,题型七 替换,首先是找到要被替换的字母，在该条件下进行替换，由于是替换，所以一般需要用一个变量做连接，如不是被替换的字符，就直接连接，如果是替换的字符就连接替换字符，最后把该变量的值赋值给文本框显示出现。,程序运行时，在Text1、Text2中输入文字，单击“替换”按钮，则在Text3中找到Text1中的内容，并用Text2中的内容替换，若未找到，则不替换。此外窗体上还有两个单选按钮，名称依次为Option1、O
7、ption2，标题依次为“第1个”和“全部”。程序运行后，若Option1被选中，则只替换Text3中第一个匹配的字串，若Option2被选中，则替换Text3中所有匹配的字串。,笔试真题出现的字符串操作题,1.下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是_。（2010年3月选择题35题）Private Sub Comand1_Click()Dim count(25)As Integer,ch As String ch=Ucase(InputBox(请输入字母字符串)For k=1 To Len(ch)n=Asc(Mid(ch,k,1)-Asc
8、(A)If n=0 Then count(n)=count(n)+1 End If Next k m=count(0)For k=1 To 25 If mcount(k)Then m=count(k)End If Next k Print m End Sub,(A)0(B)1(C)2(D)3,2.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：（2008年9月填空题7题）Private Sub Command1_Click()a$=”National Computer Rank Examination”n=Len(a$)s=0For i=1 To n b$=Mid(a$
9、,i,1)If b$=”n”Then s=s+1 End ifNext iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是【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”当文本为“PROGRAMM
10、ING”时，加密后的文本为“APOMRRGMING”当文本为“THANK”时，加密后的文本为“*TA*HKN”下面的过程code实现这一算法。其中参数数组a()中存放给定序列（个数与数组a的元素个数相等）a1，a2，a3，的值，要加密的文本放在参数变量mystr中。过程执行完毕，加密后的文本仍放在变来那个mystr中。请填空。,Option Base 1Private Sub code(a()As Integer,mystr As String)Dim ch As String,c1 As String n=UBound(a)-Len(mystr)If n 0 Then mystr=mystr
11、&String$(n,*)End If ch=mystr For k=【1】To UBound(a)c1=Mid(mystr,k,1)n=【2】Mid$(ch,n)=c1 Next k mystr=chEnd Sub,4.设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：（2008年4月选择题33题）Private Sub Command1_Click()Dim s As String,ch As String s=For k=1 To Len(Text1)ch=Mid(Text1,k,1)s=ch+s Next k Text1.Text=sEnd Sub程序执行
12、时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是。（A）Basic（B）cisaB（C）BASIC（D）CISAB,5.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。（2005年9月填空题7题）Private Sub Command1_Cli
13、ck()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 IfEnd Sub,考点10 计时器,一、属性Name和Enabled与其它控件相同。但它还有一个自己独有的属性：Interval：用于设置计时器事件之间的时间间隔，单位为毫秒，取值范围为065535。由于受系统时钟周期18.5次/秒的限制，一般不要小于50。二、事件 计时器支持Tim
14、er事件，在时间间隔到时自动触发.,计时器：Interval以毫秒为单位,计时器只有在Enabled为True，且Interval非0时才计时,上机教程P93-真题7.6,【例】捷成48-3,程序的功能是在运行时，单击“开始计数”按钮，就开始计数，每隔1秒，文本框中的数加1；单击“停止计数”按钮，则停止计数（如图所示）。要求：修改适当的控件的属性，补充程序完整。,上机真题,【例】捷成5-5,窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Ti
15、mer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。,上机真题,捷成71-4(新增题),窗体上有一个由8个图片框控件组成的控件数组、2个命令按钮和1个计时器控件。运行程序时，只显示下标为0的图片框控件数组元素，其它图片框均不显示。单击“开始”按钮，数组中的图片框自左至右依次显示，时间间隔为0.5秒，产生月亮从左向右移动的效果。月亮移到右端后再从左端重新开始。单击“停止”按钮，月亮停止移动。,P148 多重窗体程序设计与环
16、境应用,与多重窗体程序设计有关的语句和方法（1）Load语句 格式：Load窗体名称（2）Unload语句 格式：Unload窗体名称（3）Show方法 格式：窗体名称.Show 模式（4）Hide方法 格式：窗体名称.Hide,P159-鼠标事件,一、鼠标事件Sub 对象名_鼠标事件(Button As Integer,_ Shift As Integer,x As Single,y As Single)压下鼠标键事件过程 MouseDown 松开鼠标键事件过程 MouseUp 移动鼠标光标事件过程 MouseMove,1）Button 为按下的鼠标键。2）Shift Shift、Ctrl、
17、Alt键的状态。3）x、y 鼠标光标的当前位置坐标。,课堂练习,有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y)的功能是在坐标X，Y处画一个点）：Dim cmdmave As BooleanPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,_ X As Single,Y As Single)cmdmave=TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,_ X As Single,Y As
18、 Single)If cmdmave Then Form1.PSet(X,Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)cmdmave=FalseEnd Sub此程序的功能是_。,P155-键盘事件,KeyPress事件的一般格式Sub 对象名_KeyPress(KeyAscii As Integer)End Sub,按下键的ASCII码值,KeyPress事件是在压下键盘上的某个具有ASCII码的键时触发的。,窗体中若有其他可获得焦点的对象，
19、则需设置窗体的KeyPreview属性为True，窗体才会响应KeyPress事件,KeyDown和KeyUp事件,二、KeyDown和KeyUp事件的格式Sub 对象名_KeyDown(KeyCode As Integer,_ Shift As Integer)End Sub,（1）KeyCode参数此参数反应该键的键盘编码而不是其ASCII码。大键盘上的字母键，返回的是对应大写字母的ASCII值（2）Shift参数 它是一个整数，包括Shift、Ctrl和Alt的状态。默认为0，按下Shift时取值加1；按下Ctrl时取值加2；按下Alt时取值加4,键盘事件练习,任意输入一个小写字母，求该
20、字母对应的ASCII码值及其对应的大写字母。,分别利用keyPress事件和KeyDown事件实现,2006年4月选择题第29题,在窗体上画1 个文本框，其名称为Textl，然后编写如下过程：Private Sub Textl_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End Sub Private Sub Textl_KeyUp(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则
21、输出结果为？,菜单编辑器,一、打开菜单编辑器（1）执行“工具”菜单中的“菜单编辑器”命令。（2）使用热键Ctrl+E。（3）单击工具栏中的“菜单编辑器”按钮。（4）在要建立菜单的窗体上单击鼠标右键，在弹出的菜单中单击“菜单编辑器”命令。,二、菜单编辑器窗口组成,菜单编辑器,菜单项的控制,键盘选择用键盘选取菜单通常有两种方法，即热键和访问键。1、热键在菜单“快捷键”栏选择，可以直接执行菜单命令。2、访问键在菜单的“标题栏”设置，在准备加下划线的字母前加上一个“&”，表示按“Alt+相应字母”可选取这个菜单项。,2007年9月选择题第22题,窗体上有文本框Text1和一个菜单，菜单标题、名称如表，
22、结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是：（A）PrivateSubsave_Click()（B）PrivateSubsave_Click()Text1.Text=file.save.Caption Text1.Text=save.Caption EndSub EndSub（C）PrivateSubfile_Click()（D）PrivateSubfile_Click()Text1.Text=file.save.Caption Text1.Text=save.Caption EndSub EndSub,上机真题,【例】捷成14
23、-1,在名称为Form1的窗体上建立一个二级下拉菜单，第一级共有二个菜单项，标题分别为“文件”、“编辑”，名称分别为file、edit；在“编辑”菜单下有第二级菜单，含有三个菜单项，标题分别为“剪切”、“复制”、“粘贴”，名称分别为cut、copy、paste。其中“粘贴”菜单项设置为无效（如图所示）。,考虑：如何实现复制和粘贴功能,弹出式菜单,建立弹出式菜单通常分两步进行：首先用菜单编辑器建立菜单然后用PopupMenu方法弹出显示。第一步的操作与前面介绍的基本相同，唯一的区别是，通常把菜单名（即主菜单项）的“可见”属性设置为False（子菜单项不要设置为False）。,弹出式菜单,Popu
24、pMenu方法用来显示弹出式菜单，格式：,Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then 单击右键时弹出菜单 PopupMenu menu2 End IfEnd Sub,(2007年4月选择题第22题),下面关于菜单的叙述中错误的是（A）各级菜单中的所有菜单项的名称必须唯一（B）同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同（C）弹出式菜单用PopupMenu方法弹出（D）弹出式菜单也用菜单编辑器编辑,上机教程P13
25、2-真题10.1,【例】捷成2-4,在名称为Form1的窗体中建立一个弹出式菜单（程序运行时不显示），名称为file，含两个菜单项，其名称分别为open、save，标题分别为“打开”、“存盘”。编写适当的事件过程。程序运行后，如果用鼠标右键单击窗体，则弹出此菜单（如图所示）。,拖放,一、与拖放有关的属性、事件和方法1.属性（1）DragMode属性默认为0，表示人工手动拖放，设为1表示自动拖放。自动拖放时，Click事件和MouseDown事件不再生效。（2）DragIcon属性用于设置在拖动对象的过程中，显示的代表对象的图标，当放下后再恢复成原来的控件。它通常使用LoadPicture方法来
26、装入一个图片进行设置。,2.事件（1）DragDrop把控件拖到目标之后，松开鼠标键时，产生一个DragDrop事件。该事件过程的格式为：,拖放,拖放,（2）DragOver当拖动的对象越过一个控件时，产生一个DragOver事件。该事件过程的格式为：,拖放,3.方法,捷成86套-4,程序运行时，有六个香蕉图案的小图片框不显示。可以用鼠标拖拽的方法把右部的香蕉放到左部的图片框中（右部的香蕉不动），如图2所示。左部的图片框最多可放六个香蕉。实现此功能的方法是：刚运行程序时，图片框数组不显示，当拖拽一次香蕉时，就显示一个图片框数组元素，产生香蕉被放入的效果。,窗体左边的图片框名称为Picture1
27、，框中还有六个小图片框，它们是一个数组，名称为Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还有一个文本框Text1以及四个标签，如图1所示。程序运行时，可以用鼠标拖拽的方法把右边的物品放到左边的图片框中（右边的物品不动），同时把该物品的价格累加到Text1中，如图2所示。最多可放六个物品。实现此功能的方法是：程序刚运行时，Picture1中的图片框数组不显示，当拖拽一次物品时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。,图1,图2,捷成80套-5,P35-图片框和图像框,图片框
28、和图像框的装入,设计阶段：运行阶段：,在属性窗口中选择Picture属性,PictureLoadPicture(图形文件所在路径及文件名)PicturePicture,真题,设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是（）（A）Picture1.Picture=Flie1.jpg（B）Picture1.Picture=LoadPicture(File1.jpg)（C）LoadPicture(File1.jpg)（D）CallLoadPicture(File1.jpg),上机真题,【例】捷成14-3：图片交换,在窗体上画
29、二个图片框，名称分别为P1、P2，高度均为1900，宽度均为 1700，通过属性窗口把图片文件pic1.bmp放入P1中，把图片文件pic2.jpg放入 P2中；再画一个命令按钮，名称为C1，标题为“交换图片”。运行时，如果单击命令按钮，则在P1中显示Pic2.jpg，在P2中显示Pic1.bmp。程序中不得使用任何变量，也不能使用第三个图片框。,随机文件(P202),随机文件的特点：文件由相同大小的记录组成；每个记录包含记录号和记录的内容。随机文件的打开Open“文件名“For Random As 文件号 Len=记录长度随机文件的写操作Put#文件号,记录号,变量随机文件的读操作Get#文
30、件号，记录号，变量,P201-用户自定义数据类型,用户定义的数据类型 利用Type语句定义自己的数据类型（因其常用于随机文件的记录操作，又称记录类型），其格式如下：,记录类型的定义必须放在通用声明段,随机文件的操作步骤,（1）自定义数据类型；（2）打开随机文件；（3）将内存中的数据进行写、读操作：（4）关闭文件。,（2004年4月选择题第23题）,假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animal AnimalName As String*20 AColor As String*10End Type在窗体上画一个名称为Command1的命令按钮，
31、然后编写如下事件过程:Private Sub Command1_Click()Dim rec As animal Open c:vbTest.dat For Random As#1 Len=Len(rec)rec.animalName=Cat rec.aColor=White Put#1,rec Close#1End Sub,通用对话框,1.通用对话框控件的使用步骤（1）执行“工程”菜单中的“部件”命令，打开“部件”对话框（或按CTRL+T）。（2）在对话框中选择“控件”选项卡，然后在列表框中选择“Microsoft Common Dialog Control 6.0”。(注意在上机考试中将屏
32、蔽该选项，需要通过“浏览”按钮，选择comdlg32.ocx文件)（3）单击“确定”按钮，通用对话框即被加入到工具箱中。,通用对话框,2.通用对话框的属性,文件对话框,文件对话框分为两种，即打开（Open）文件对话框和保存（Save As）文件对话框。文件对话框的属性（1）DefaultEXT属性设置默认文件类型，即扩展名。（2）DialogTitle属性设置对话框的标题。（3）FileName属性设置或返回要打开或保存的文件的路径及文件名（4）FileTitle属性指定对话框中所选择的文件名。(没有路径),文件对话框,5）Filter属性设置“文件类型”的下拉列表选择，用“|”隔开的一对或多
33、对字符串，每对字符串的前面是描述符，后面是过滤器。6）FilterIndex属性指定默认的过滤器，一般为字符串对的序号，从1开始。7）Flags属性控制对话框的外观。8）InitDir属性指定对话框的起始目录。缺省时显示当前目录。,CommonDialog1.InitDir=C:Windows 设置初始目录CommonDialog1.Filter=文本文件|*.Txt 过滤文件类型 CommonDialog1.ShowOpen 打开对话框,其格式为：文件说明|文件类型如：Word文档|*.DOC|文本文件|*.txt|所有文件|*.*,文件对话框常考代码,窗体Form1上有按钮Command1，通用对话框控件CommonDialog1，编写如下事件过程：Private Sub Command1_Click()CommonDialog1.DialogTitle=通用对话框示例 CommonD
