预览加载中,请您耐心等待几秒...
1/4
2/4
3/4
4/4

在线预览结束,喜欢就下载吧,查找使用更方便

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

实验十三VBA程序设计(一) 实验目的 熟悉VBA程序设计基本语言 掌握VBA程序设计局的基本方法 实验内容打开“student.mdb”。 根据输入的圆的半径,计算圆的周长和面积。 1、创建一个窗体,如下图所示,保存为“计算圆窗体”。 2、选择“计算”按钮,右键打开“事件生成器”中的“代码生成器”。 输入以下代码并填充完整。其中绿色文字为注释,可以不用输入。 PrivateSub命令6_Click() Constpi=3.1415 DimrAsSingle'变量r放圆的半径 DimzchAsSingle'变量zch放圆的周长 Dimarea'变量area放圆的面积 Me.文本0=CSng(文本0.Text)'csng函数用于将数据转换成单精度类型。 Me.文本2=2*pi*r'计算周长 Me.文本4='计算面积 EndSub 3、运行“计算圆窗体”,观察运行效果。 设计一个窗体,使得在购买某物品时,若所花的钱x在下述范围内,实际所付钱y按对应折扣支付。 当x<1000时,y=x 当1000<=x<2000时,y=0.9x 当2000<=x<3000时,y=0.8x 当x>=3000时,y=0.7x 1、创建一个窗体,如右图所示,保存为“折扣计算窗体”。 2、选择“计算”按钮,右键打开“事件生成器”中的“代码生成器”。 输入以下代码并填充完整。其中绿色文字为注释,可以不用输入。 PrivateSub命令5_Click() DimxAsSingle DimyAsSingle Me.文本1.setfocus x=CSng(文本1.Text) Ifx<1000Then y=x ElseIfThen'当1000<=x<2000时 y=0.9*x ElseIfx>=2000Andx<3000Then Else y=0.7*x EndIf =y'将折扣后的金额y显示在第2个文本框中 EndSub 3、运行“计算圆窗体”,输入数据观察运行效果。 参考以上方法。编一个华氏温度和摄氏温度之间转换的程序,窗口如下 要使用的转换公式是:(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.1416 staticpi=3.1416 constpi=3.1416 varpi=3.1416 5、下列()是日期型的数据 #2004-6-12 %2004-6-12% &2004-6-12& #2004-6-12# 6、字节型数据的取值范围是() A)-128~127B)0-255C)0-32767 7、根据下列程序段,运算结果正确的是() dimxassingle dimyassingle ifx<0then y=3 elseifx<1then y=2*x else y=-4*x+6 endif 当x=2时,y=-2 当x=-1时,y=-2 当x=0.5时,y=4 当x=-2.5时,y=11 8、下列关于模块的说法中,()是错误的 模块基本上由声明、语句和过程构成 窗体和报表都属于类模块 类模块不能独立存在 标准模块包含通用过程和常用过程 9、下列关于VBA面向对象中的“事件”,说法正确的是() 每个对象的事件都是不相同的 触发相同的事件,可以执行不同的事件过程 事件可以有程序员定义 事件都是由用户的操作触发的 10、下列关于vba面向对象中的“方法”说法正确的是() 方法是属于对象的 方法是独立的实体 方法可以有程序员定义 方法是对事件的响应 11、下列代码中()可以使控件txybox获得焦点。 Settxtbox.focus settxtbox.focus=true Txtbox.setfocus txtbox.setfocus=true