ACCESS数据库实验实验十三VBA程序设计.pdfVIP

实验十三 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 放圆的面积 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=x3000时,y=0.8x 当 x=3000 时,y=0.7x 1、创建一个窗体，如右图所示，保存为“折扣计算 窗体”。 1 2、选择“计算”按钮，右键打开“事件生成器”中的“代码生成器” 。 输入以下代码并填充完整。其中绿色文字为注释，可以不用输入。 Private 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=x2000时 y = 0.9 * x ElseIf x = 2000 And x 3000 Then Else y = 0.7 * x End If = y 将折扣后的金额 y 显示在第 2 个文本框中 End Sub 3、运行“计算圆窗体” ，输入数据观察运行效果。 三、 参考以上方法。编一个华氏温度和摄氏温度之间转换的程序，窗口如下 要使用的转换公式是： （F 为华氏温度 C 摄氏温度） 摄氏转华氏 F ＝9/5*c+32 华氏转摄氏 C=5/9*(f-32) 试着编写“华氏转“和”摄氏转“的单击事件代码。 实验报告 实验内容 同上 实验步骤 写加粗的文字， 同时写上此类方法的操作步骤。 操作步骤比较复杂的可以写得简 洁一些。 2 完成以下题目，将答案写到实验报告中 1、表达式 5\21 or 13 mod 4=3 的值是（） 2、下列运算的优先级比较，正确的是（ ） A) 逻辑运算 数学运算 比较运算 B) 数学运算 逻辑运算 比较运算 C) 比较运算 逻辑运