PAGEPAGE4实验十三VBA程序设计（一）实验目的熟悉VBA程序设计基本语言掌握VBA程序设计局的基本方法实验内容打开“student.mdb”。根据输入的圆的半径，计算圆的周长和面积。1、创建一个窗体，如下图所示，保存为“计算圆窗体”。2、选择“计算”按钮，右键打开“事件生成器”中的“代码生成器”。输入以下代码并填充完整。其中绿色文字为注释，可以不用输入。PrivateSub命令6_Click()Constpi=3.1415DimrAsSingle'变量r放圆的半径DimzchAsSingle'变量zch放圆的周长Dimarea'变量area放圆的面积Me.文本0=CSng(文本0.Text)'csng函数用于将数据转换成单精度类型。Me.文本2=2*pi*r'计算周长Me.文本4='计算面积EndSub3、运行“计算圆窗体”，观察运行效果。设计一个窗体，使得在购买某物品时，若所花的钱x在下述范围内，实际所付钱y按对应折扣支付。当x<1000时，y=x当1000<=x<2000时,y=0.9x当2000<=x<3000时,y=0.8x当x>=3000时,y=0.7x1、创建一个窗体，如右图所示，保存为“折扣计算窗体”。2、选择“计算”按钮，右键打开“事件生成器”中的“代码生成器”。输入以下代码并填充完整。其中绿色文字为注释，可以不用输入。PrivateSub命令5_Click()DimxAsSingleDimyAsSingleMe.文本1.setfocusx=CSng(文本1.Text)Ifx<1000Theny=xElseIfThen'当1000<=x<2000时y=0.9*xElseIfx>=2000Andx<3000ThenElsey=0.7*xEndIf=y'将折扣后的金额y显示在第2个文本框中EndSub3、运行“计算圆窗体”，输入数据观察运行效果。参考以上方法。编一个华氏温度和摄氏温度之间转换的程序，窗口如下要使用的转换公式是：（F为华氏温度C摄氏温度）摄氏转华氏F＝9/5*c+32华氏转摄氏C=5/9*(f-32)试着编写“华氏转“和”摄氏转“的单击事件代码。实验报告实验内容同上实验步骤写加粗的文字，同时写上此类方法的操作步骤。操作步骤比较复杂的可以写得简洁一些。完成以下题目，将答案写到实验报告中1、表达式5\2>1or13mod4=3的值是（）2、下列运算的优先级比较，正确的是（）逻辑运算>数学运算>比较运算数学运算>逻辑运算>比较运算比较运算>逻辑运算>数学运算连接运算>数学运算>比较运算3、str1=20&8,str2=20+8,str1的值是（），str2的值是（）。4、下列定义常量的语句正确的是（）dimpi=3.1416staticpi=3.1416constpi=3.1416varpi=3.14165、下列（）是日期型的数据#2004-6-12％2004-6-12％&2004-6-12&#2004-6-12#6、字节型数据的取值范围是（）A）-128～127B）0-255C）0-327677、根据下列程序段，运算结果正确的是（）dimxassingledimyassingleifx<0theny=3elseifx<1theny=2*xelsey=-4*x+6endif当x=2时，y=-2当x=-1时，y=-2当x=0.5时，y=4当x=-2.5时，y=118、下列关于模块的说法中，（）是错误的模块基本上由声明、语句和过程构成窗体和报表都属于类模块类模块不能独立存在标准模块包含通用过程和常用过程9、下列关于VBA面向对象中的“事件”，说法正确的是（）每个对象的事件都是不相同的触发相同的事件，可以执行不同的事件过程事件可以有程序员定义事件都是由用户的操作触发的10、下列关于vba面向对象中的“方法”说法正确的是（）方法是属于对象的方法是独立的实体方法可以有程序员定义方法是对事件的响应11、下列代码中（）可以使控件txybox获得焦点。Settxtbox.focussettxtbox.focus=trueTxtbox.setfocustxtbox.setfocus=true