VB二级D7.docx

1、VB二级D7D7：8月28日 第一部分 笔试模拟题第一套（选择题2530，填空题15）1、选择题24题Static：使用static关键字定义的变量，在第一次调用过程对其进行初始化。过程调用完毕，变量的值保持不变，当第二次调用。第三次调用时均不再执行初始化语句。Private x as integer x 定义在窗体模块通用部分，在整个窗体模块内有效Private sub command1_click() Static y as integer Dim z as integer N=10 Z=z+n Y=y+z X=x+z Print x;y;zend sub程序一运行，显示窗体时，即为x分配

2、存储空间第一次单击命令按钮：给y、z分配存储空间（第一次调用，为静态变量y分配空间），z=10,y=10,x=10,输出10 10 10。调用完毕后，z的存储空间回收第二次单击命令按钮，因为x是窗体级变量，窗体没有关闭，x保持不变（x=10）；因为y是静态变量，第二次遇到定义语句（static y）不执行,y保持不变（y=10）;因为z是过程级变量，第二次给z分配空间（z=0）,z=10,y=20,x=20第三次调用命令按钮，x=20,y=20,z=0,z=10,y=30,x=30窗体模块级变量：当窗体第一次出现时定义，关闭窗体时回收空间过程级变量：执行过程时定义，过程执行完毕后回收空间静态变

3、量：第一次执行过程时定义，过程执行完毕后不回收空间；第二次、第三次执行过程时不再重新分配存储空间2、选择题 29题 Function F(a as integer) 双向传递B=0 过程级变量，属于f过程Static cB=b+1C=c+1F=a+b+cEnd function(形参反向传递给实参，回收b的空间，不回收c的空间)private sub command1_click() Dim a as integer 过程级变量 A=2 For i=1 to 3 Print f(a) next i End sub第一次执行print f（a）求f(2)，形参a=实参a=2，b=0,c=0,b=

4、0+1=1 C=0+1=1,f=2+1+1=4,实参a=形参a=2，输出4第二次执行,求f(2),形参a=2,b=0,c=1,b=0+1=1,c=1+1=2,f=2+1+2=5，实参a=2， 输出5第三次执行，求f(2),形参a=2,b=0,c=2,b=0+1=1,c=2+1=3,f=2+1+3=6,输出63、选择题28题Dim x As Integer x是一个窗体模块变量Private Sub Form_Click()Dim x, y x,y是过程级变量，x = 5 使用过程变量y = 3 使用过程变量Call proc(x, y) 实参x是过程变量x，因为传递参数方式为传值，实参传递给形

5、参，不能反向传递，实参值不会变化，x=5,y=3Print x; yEnd SubSub proc(ByVal a As Integer, ByVal b As Integer) x = a * a y = b + bEnd Sub对比观察，培训教材P102第2题Public x As Integer, y As Integerx是public，在工程中大家都可以用x；y也是同样，在整个工程中可以使用Sub var_pub() public x = 10 x使用通用变量x，不能使用form_clcik()过程变量x y = 20 y使用通用变量yEnd SubPrivate Sub Form_

6、Click()Dim x As Integer x是一个过程变量，属于form_click()事件过程 Call var_pub 通用变量x=10，通用变量y=20 x = x + 100 x是使用过程变量，过程变量x=100 y = y + 100 y是使用通用变量，y=20+100=120 Print x; yEnd Sub填空题第2题：循环队列中元素个数：rear-front+长度mod长度第二部分总结复习D6相关知识：第三部分：新知识第九章 键盘与鼠标事件过程一、键盘事件(keypress/keydown/keyup)什么时候发生，参数9.1 KeyPress事件1、定义：当按下键盘上

7、的某个键时，即发生KeyPress事件2、格式：Private Sub Textl_KeyPress（KeyAscii As Integer）End SubKeyascii:按下键的ascii值Eg.按下a,keyascii=97；按下A，keyascii=653、说明：（1）KeyPress事件带有一个参数，这个参数有两种形式，第1种形式是Index As Integer，只用于控件数组；第2种形式是KeyAscii As Integer，用于单个控件，表示键盘上按下的键的ASCII码。（2）默认情况下，控件的键盘事件优先于窗体的键盘事件（只要窗体上有其他的控件，窗体keypress事件不会

8、发生）。如果希望窗体先接收键盘事件，必须把窗体的KeyPreview属性设置为true。 焦点在哪个控件上，按下键盘后就触发这个控件的keypress事件 如果窗体上具有控件，同时将窗体keypreview属性设为true,先触发窗体keypress事件，再触发具有焦点的keypress事件例题：在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：Dim ss As StringPrivate Sub Text1_KeyPress(KeyAscii As integer)If chr(KeyAscii)“”Then ss= ss+chr(KeyAsci

9、i) ch()转换为字符串End Sub如果按下键不是空格，连在ss后面Private Sub Command1_Click()Dim m As String, i As IntegerFor i=Len(ss) To 1 step -1m=m+Mid (ss,i,1)Next依次取字符串ss中最后一个、倒数第2个、倒数第3个、，连接到m中Text1.Text=Ucase(m)End Sub程序运行后，在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的是 。ss=”Number100”A）NUMBER 100 B）REBMUN C）REBMUN 100 D）001 REBM

10、UN【答案】D2以下说法中正确的是 A 。A)当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B)因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程Keypreview=trueC)若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同D)在KeyPress事件过程中，KeyAscii参数可以省略 【答案】A3在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Text1）,并把窗体的KeyPreview属性设置为True,然后编写如下代码：DimSaveAllAsStri

11、ng saveall是窗体模块变量PrivateSubForm_Load()Show 显示窗体Text1.Text=Text1.SetFocus text1活动焦点EndSubPrivateSubCommand1_Click()Text1.Text=LCase(SaveAll)+SaveAllEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub当在键盘上按下键时，把它转换到字符串，连接到saveall中程序运行后，直接用键盘输入：VB（saveall=”VB”）,再单击命令按钮，则

12、文本框中显示的内容为 a 。A)vbVB B)不显示任何信息 C)VB D)出错 【答案】A9.2 KeyDown和KeyUp事件1、定义：当控制焦点在某个对象上时，按下键盘上任一键，便会引发对象KeyDown事件，释放按键便会触发KeyUp事件（1）keydown：按下发生 keyup：释放发生（2）按下某个键：keydown-keypress-keyup2、格式：（1）KeyDown事件Private Sub Textl_KeyDown(KeyCode As Integer,Shift as Integer）End Sub（2）KeyUp事件Private Sub Textl_KeyUp(

13、KeyCode As Integer,Shift as Integer）End Sub3、参数说明：（1）KeyCode是按键的实际ASCII码。该码以“键”为准，而不是以“字符”为准。Keycode表示键在键盘上的位置 按下A和按下a，它们产生keycode，因为在同一位置 按下小键盘的1和按下大键盘1，产生keycode ，因为不在同一个位置（2）Shift转换键。代表shift、ctrl、alt1在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text I和Text2,在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：Dim S1 As St

14、ring, S2 As String Private Sub Form_Load() Text1.Text = Text2.Text = Text1.Enabled = False Text2.Enabled = False End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) S2 = S2 & Chr (KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) S1 = S1 & Chr (KeyAscii) End Sub Priv

15、ate Sub Command1_Click() Text1.Text = S1 Text2.Text = S2 S1 = S2 = End Sub程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为 A 。当按下a时,触发form_keydown事件(keycode=65)，s2=”A”; 触发form_keypress事件(keyascii=97),s1=”a”当按下b时, 触发form_keydown事件(keycode=66),s2=”AB” 触发form_keypress事件(keyascii=98),s1=”ab”A）abc

16、和ABC B）空白 C）ABC和abc D）出错【答案】A2VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母， 。A)这3个事件都会触发 B)只触发KeyPress事件 C)只触发KeyDown、KeyUp事件 D)不触发其中任何一个事件【答案】A9.3鼠标事件一、鼠标事件种类1、mousedown事件：按下鼠标2、mouseup事件：松开鼠标3、mousemove事件：移动二、鼠标事件格式1、Private sub 控件名称_鼠标事件名称（Button As Integer，Shift As Integer，X As Singl

17、e，Y As Single）2、控件名称：鼠标在哪个控件上作用Eg.form_mousedown()鼠标在窗体上按下Emand1_mouseup()鼠标在command1上松开3、参数（1）button:表示按下鼠标上哪个键，1左键，2-右键（2）shift：shift、ctrl、alt1设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发 。A)Text1的SetFocus事件B)Text1的GotFocus事件C)Text1的LostFocus事件D)窗体的GotFocus事件【答案】B2设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件

18、过程的过程名是A)Form1_MouseDown B)Win_MouseDown C)Form_MouseDown D)MouseDown_Form1 【答案】C3要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是 。 P1_mousemove A)Private Sub P1_MouseMove(Button AS Integer, Shift As Integer, X As Single, Y As Single)Print X,Y 默认对象应该是窗体End SubB)Private Sub P1_MouseDown(Button AS

19、Integer, Shift As Integer, X As Single, Y As Single)Picture.Print X,YEnd SubC) Private Sub P1_MouseMove(Button AS Integer, Shift As Integer, X As Single, Y As Single)P1.Print X,YEnd SubD)Private Sub Form_MouseMove(Button AS Integer, Shift As Integer, X As Single, Y As Single)P1.Print X,YEnd Sub【答案】C

20、4若看到程序中有以下事件过程，则可以肯定的是，当程序运行时 。Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single) Print “VB Program”End SubA）用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程B）用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C）用鼠标左键单击名称为“MouseDown”的控件时，执行此过程D）用鼠标左键或右键单击名称为“Click”的控件时，执行此过程【答案】D9.4鼠标光标的形状一、Mous

21、ePointer属性：光标形状每一个控件都可以设二、设置鼠标光标形状1、代码中设置MousePointer属性：对象MousePointer设置值2、在属性窗口中设置MousePointer属性9.5拖放：当鼠标在某个控件上按下左键不放，同时移动鼠标1、属性：有两个属性与拖放有关，即DragMode和DragIcon。（1）dragmode:0不允许拖;1允许拖放（2）dragicon：2、事件：与拖放有关的事件是DragDrop和DragOver（1）Private Sub 控件1_Drag Drop（Source As Control,X As Single,Y As Single） 当s

22、ource控件被鼠标拖动到了控件1上的时候，就触发控件1的dragdrop3、方法（1）move方法（2）Drag方法的格式为：控件Drag整数Drag方法用来设置能否拖放。控件.drag 0 不能拖动 控件.drag 1 可以拖动综合自测1在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)Pr

23、int Chr(KeyCode+2)End Sub程序运行后，把焦点移到文本框中，此时如果敲击“a”键，则输出结果为 。A)AA B)AB C)AC D)AD2有一个名称为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(Butt

24、on As Integer,Shift As Integer, X As Single, Y As Single)If cmdmave Then 当cmdmave=true,在鼠标当前位置画一个点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此程序的功能是 。A）每按下鼠标键一次，在鼠标所指位置画一个点B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失C）不

25、按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线3在窗体上先后画2个图片框，名称分别为Picturel和banana, banana中添加了香蕉图片（见图1），且将banana,，DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picturel中（见图2）。能实现此功能的事件过程是 。 发生dragdrop 对象_dragdrop(source as contrl,)把source控件拖到对象上时发生 Picture1_dragdrop()A）Private Sub Form_Drag Drop

26、（Source As Control,X As Single,Y As Single）Banana,Move Picturel.Left+X,Picturel.Top+YEnd SubB） Private Sub banana_DragDrop（Source As Control,X As Single,Y As Single）Source.Move Piceurel.Left+X,Piceturel.Top+YEnd SubC）Private Sub prcturel_DragDrop（Source As Comtrol,X As Single,Y As Single）Source.Move

27、 Picturel.Left+X,Picturel.Top+YEnd SubD）Private Sub Picturel_DragDrop（SourceAs Control,X As Single,Y As Single）banana.Move banana Left+X,bananal.Top+YEnd Sub4在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) End Sub 假定焦点已经位于文本框中，则能够触发 KeyPress 事件的操作是 。A) )单击鼠标 B)双击文本框

28、C) )鼠标滑过文本框 D)按下键盘上的某个键 第十章 菜单与对话框10.1 菜单一、VB菜单分类弹出式菜单和下拉式菜单二、下拉式菜单1、下拉式菜单结构：主菜单（文件）、菜单项（新建、打开、保存） 2、设计下拉式菜单使用“菜单编辑器”建立菜单：创建菜单、界面设计、编写程序代码3、菜单项响应事件：click事件 单击菜单项时发生；每一个菜单项都有自己的click事件三、菜单编辑器1、打开菜单编辑器方法：选择“工具”-“菜单编辑器”命令方法：快捷键：Ctrl+E方法：单击工具栏中的“菜单编辑器”按钮方法：在要建立菜单的窗体上单击右键，在弹出的快捷菜单中选择“菜单编辑器”命令。2、菜单编辑器使用标题

29、：输入要建立的菜单标题。名称：菜单及各菜单项的名称，相当于控件的name属性。索引：用来确定菜单命令在菜单控件数组中的序号。快捷键：用来设置菜单项的快捷键。复选：是否允许在菜单命令的左边设置复选标记。有效：指定该菜单是否可操作。可见：设置该项菜单命令是否显示在菜单上。编辑区： 左、右箭头：用来设定内缩符号，确定菜单项的层次。 上、下箭头：用来移动改变菜单项的位置。 下一个：开始一个新菜单。 插入：在当前菜单命令前插入一个新的菜单命令前插入一个新的菜单命令。 删除：删除当前菜单项。显示区：显示已经创建的菜单命令和层次关系。创建完毕，单击“确定”按钮，关闭菜单编辑器，在窗体中查看创建的菜单。案例1

30、 标签的显示和隐藏案例2 两个整数的加减案例3 两个整数的加减乘除四、弹出式菜单1、定义：弹出式菜单又称“快捷菜单”或“右键菜单”，是当用户单击右键时弹出的菜单。2、创建弹出式菜单（）打开菜单编辑器，建立菜单，将主菜单的“可见”属性设置为False。（）用命令格式：对象名.PopupMenu 菜单名，Flags,x,y,DefaultMenuFlag：表示位置和行为将创建的菜单显示出来。Private sub form_mousedown( button as integer,.) If button=2 then 在窗体上按下鼠标右键 Form1.popupmenu 菜单名 End ifEnd sub案例4 修改案例3为弹出式菜单案例5 弹出式菜单1. 在菜单编辑器中建立一个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程，则以下叙述中错误的是_。Private Sub Form_MouseDown(Button As