《ACCESS数据库实验实验十三VBA程序设计(一).pdf》由会员分享，可在线阅读，更多相关《ACCESS数据库实验实验十三VBA程序设计(一).pdf（4页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1 实验十三VBA 程序设计（一）实验目的1.熟悉 VBA程序设计基本语言2.掌握 VBA程序设计局的基本方法实验内容打开“student.mdb”。一、根据输入的圆的半径，计算圆的周长和面积。1、创建一个窗体，如下图所示，保存为“计算圆窗体”。2、选择“计算”按钮，右键打开“事件生成器”中的“代码生成器”。输入以下代码并填充完整。其中绿色文字为注释，可以不用输入。Private Sub 命令 6_Click()Const pi=3.1415 Dim r As Single 变量 r 放圆的半径Dim zch As Single 变量 zch 放圆的周长Dim area 变量 area 放圆的
2、面积Me.文本 0=CSng(文本 0.Text)csng 函数用于将数据转换成单精度类型。Me.文本 2=2*pi*r 计算周长Me.文本 4=计算面积End Sub 3、运行“计算圆窗体”，观察运行效果。二、设计一个窗体，使得在购买某物品时，若所花的钱x 在下述范围内，实际所付钱y按对应折扣支付。当 x1000时，y=x 当 1000=x2000时,y=0.9x 当 2000=x=3000时,y=0.7x1、创建一个窗体，如右图所示，保存为“折扣计算窗体”。2 2、选择“计算”按钮，右键打开“事件生成器”中的“代码生成器”。输入以下代码并填充完整。其中绿色文字为注释，可以不用输入。Priv
3、ate Sub 命令 5_Click()Dim x As Single Dim y As Single Me.文本 1.setfocus x=CSng(文本 1.Text)If x 1000 Then y=x ElseIf Then 当 1000=x=2000 And x 1 or 13 mod 4=3的值是（）2、下列运算的优先级比较，正确的是（）A)逻辑运算 数学运算 比较运算B)数学运算 逻辑运算 比较运算C)比较运算 逻辑运算 数学运算D)连接运算 数学运算 比较运算3、str1=20&8,str2=20+8,str1的值是（），str2 的值是（）。4、下列定义常量的语句正确的是（）
4、A)dim pi=3.1416 B)static pi=3.1416 C)const pi=3.1416 D)varpi=3.1416 5、下列（）是日期型的数据A)#2004-6-12 B)2004-6-12C)&2004-6-12&D)#2004-6-12#6、字节型数据的取值范围是（）A）-128127 B）0-255 C）0-32767 7、根据下列程序段，运算结果正确的是（）dim x as single dim y as single if x0 then y=3 elseif x1 then y=2*x else y=-4*x+6 end if A)当 x=2 时，y=-2 B)
5、当 x=-1 时，y=-2 C)当 x=0.5 时，y=4 D)当 x=-2.5 时，y=11 8、下列关于模块的说法中，（）是错误的A)模块基本上由声明、语句和过程构成B)窗体和报表都属于类模块C)类模块不能独立存在4 D)标准模块包含通用过程和常用过程9、下列关于 VBA 面向对象中的“事件”，说法正确的是（）A)每个对象的事件都是不相同的B)触发相同的事件，可以执行不同的事件过程C)事件可以有程序员定义D)事件都是由用户的操作触发的10、下列关于 vba面向对象中的“方法”说法正确的是（）A)方法是属于对象的B)方法是独立的实体C)方法可以有程序员定义D)方法是对事件的响应11、下列代码中（）可以使控件txybox 获得焦点。A)Set txtbox.focus B)set txtbox.focus=true C)Txtbox.setfocus D)txtbox.setfocus=true