计算机二级accessch02VBA实例-3.ppt

综合题范例,严格遵守：程序的执行过程是逐行逐行，并且遇到相应的语法（如循环、选择、过程等）就做相应的方向调整 代码行数越多的程序，可能计算越简单 牢记相关函数,在窗体上添加一个命令按钮（名为Command1），然后编写如下程序： Function m(x as integer, y as integer) as integer M = IIf(xy,x,y) End function Private Sub Command1_Click() Dim a as integer, b as integer a = 5 b = 10 MsgBox m(a,b) End Sub 打开窗体运行后，单击命令按钮，消息框的输出结果为 。,假定有如下的Sub过程： Sub sfun（x As Single，y As Single） t=x x=t/y y=t Mod y End Sub 在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程： Private Sub Command1_Click() Dim a as single Dim b as single a=5 b=4 sfun a，b MsgBox a & chr（10）+chr（13）& b End Sub 打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为 A、1和1 B、1.25和1 C、1.25和4 D、5和4,B,程序运行结果是 。 Function Fact(n As Integer) As Long Dim i As Integer, s As Long s = 1 For i = 1 To n s = s * i Next Fact = s End Function Sub E3() Debug.Print Fact(6) End Sub,使用function函数定义一个过程，其返回值类型为 A 只能是符号常量 B 是除数组之外的简单数据类型 C 可在调用时由运行过程决定 D 由函数定义时as子句决定,D,ByVal和ByRef的区别,Byval为传值调用，byref为传址调用 dim I as integer, J as integer I = 1 : J = 2 call fun(I,J) Msgbox “I=” & I & “ J=” & J Function fun(byref a, byval b) a = 5 b = 6 End Function 将会输出I=5 J=2，即I的值被函数Fun改变了。 如果没有出现ByVal和ByRef，则默认为ByRef,在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Private Sub s（By Val p As lnteger） p=p*2 End Sub Private Sub Command1_Click() Dim i As Integer i=3 Call s(i) If i4 Then i=i2 MsgBox i End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为,Private sub Command1_click( ) Dim x as integer, y as integer x=12:y=32 call p(x,y) Msgbox x*y Endsub Public Sub p(n as integer,ByVal m as integer) n=n Mod 10 m=m Mod 10 Endsub 程序运行结果为：,程序运行结果是 。 Sub Area(r As Single) r = 3.14 * r * r End Sub Sub E4() Dim r As Single r = 10 Area (r) ： Debug.Print r Area r ： Debug.Print r End Sub,在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码： Public x as integer Private Sub Command1_Click( ) X=10 Call s1 Call s2 MsgBox x End Sub Private Sub s1( ) x=x+20 End Sub Private Sub s2( ) Dim x as integer x=x+20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 A）10 B）30 C）40 D）50,B,这类题型要注意 变量的作用域范围,已知数列的递推公式如下： f（n）=1 当n=0，1的时候 f（n）=f（n-1）+f（n-2） 当n1的时候 则按照递推公式可以得到数列：1，1，2，3，5，8，13，21，34，55，。现要求从键盘输入n的值，得出对应的f（n）的值。例如当输入n为8时，输出应为34。程序如下，请补充完整：,Private sub a() f0=1 f1=1 num=val（inputbox（“请输入一个大于2的整数：“） for n=2 to _ f2=_ f0=f1 f1=f2 next n msgbox f2 End sub,变量的作用域,Dim 变量名 as 类型 ：定义为局部变量，如 Dim ebookit as integer Private 变量名 as 类型 ：定义为私有变量，如 Private ebookit as byte Public 变量名 as 类型 ：定义为公有变量，如 Public ebookit as single Global 变量名 as 类型 ：定义为全局变量，如 Globlal ebookit as date Static 变量名 as 类型 ：定义为静态变量，如 Static ebookit as double,在acces中，如果变量定义在模块的过程内部，当过程代码执行时才可见，则这种变量的作用域为： A、程序范围 B、全局范围 C、模块范围 D、局部范围,在窗体中添加了一个文本框和一个命令按钮（名称分别为tText和bCommand），并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是,A）Private Sub bCommand_Click( ) Caption=”计算机等级考试” End Sub,B）Private Sub tText_Click( ) bCommand.Caption=”计算机等级考试” End Sub,C）Private Sub bCommand_Change( ) Caption=”计算机等级考试” End Sub,D）Private Sub tText_Change( ) bCommand.Caption=”计算机等级考试” End Sub,D,在窗体中有一个标签Label0，标题为“测试进行中”;有一个命令按钮Command1，事件代码如下： Private Sub Command1_Click() Label0.Caption=“标签“ End Sub Private Sub Form_Load() Form.Caption=“举例“ Command1.Caption=“移动“ End Sub 打开窗体后单击命令按钮，则屏幕显示,某窗体中有一命令按钮，名称为C1。要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色为棕色（棕色代码为128），实现该操作的VBA语句是_。 c1.forecolor=128,在窗体中已有一个名为command1的命令按钮，一个名为label1的标签和一个名为text1的文本框，且文本框内容为空，编写如下代码： Private function f(x as long) as boolean If x mod 2=0 then f=true else f= false End if End function Private sub command1_click() dim n as long n=val(me!text1) P=iif(f(n),”even number”,”odd number”) Me!label1.caption=n&”is” &p) Endsub 窗体打开运行后，在文本框输入21，单击命令按钮，标签显示内容为 21isoddnumber,A,VBA上机,题型：数学问题或窗体设计 牢记几个事件的代码 牢记常用外观属性的名称 例题：设计一窗体，含一命令按钮，窗体打开时，该按