在考生文件夹中有一个“Acc3.mdb”数据库。 (1)创建“计算圆面积”窗体,在窗体中添加“请输人半径”和“圆面积”文本框。 (2)在窗体中添加名称和标题均为“计算”的按钮,实现圆面积计算。编写按钮代码,结果显示在“圆面积”文本框中。要求编写单独

admin2010-04-02  8

问题 在考生文件夹中有一个“Acc3.mdb”数据库。   
(1)创建“计算圆面积”窗体,在窗体中添加“请输人半径”和“圆面积”文本框。
(2)在窗体中添加名称和标题均为“计算”的按钮,实现圆面积计算。编写按钮代码,结果显示在“圆面积”文本框中。要求编写单独的函数实现圆面积的计算,只进行半径,r<=0判断,此时面积的值为0,其他情况下面积的值为3.14*r*r。“计算圆面积”窗体如图3所示。

选项

答案(1)在“Acc3.mdb”数据库窗口中单击“窗体”对象。单击“新建”按钮,选择“设计视图”,单击“确定”按钮。从工具箱中选择“文本框”添加到窗体中,弹出“文本框向导”,单击“取消”按钮,右击文本框标签,选择“属性”选项,输入标题“请输入半径:”,关闭属性界面。从工具箱添加“文本框”到窗体中,弹出“文本框向导”,单击“取消”按钮,右键单击文本框标签,选择“属性”,输入标题“圆面积”。关闭属性对话框。单击工具栏中的“保存”按钮,在弹出的“另存为”对话框中输入窗体的名称“计算圆面积”,单击“确定”按钮,单击右上角的“关闭”按钮。 (2)在“Acc3.mdb”数据库中单击“窗体”对象。右键单击“计算圆面积”窗体,选择“设计视图”,从工具箱中选择命令按钮添加到窗体中,弹出“命令按钮向导”,单击“取消”按钮,右键单击命令按钮,选择“属性”《选项,在“全部”选项中的名称和标题行输入“计算”。关闭属性对话框。右键单击“请输入半径:”标签对应的文本框,选择“属性”,在“全部”选项卡的名称行输入“半径”,关闭属性对话框。使用同样方法修改“圆面积”标签对应的文本框的名称为“圆面积”。右键单击所添加按钮,选择“事件生成器”,在“选择生成器”对话框中选择“代码生成器”,单击“确定”按钮,进入VB环境。在“Private Sub”和“End Sub”之间添加如下代码: Dim r1 As Single r1=Forms![计算圆面积]![半径] Forms![计算圆面积]![圆面积]=Area(r1)在End sub之后添加以下代码: Public Fuction Area(r As Single)As Single If r<=0 Then Area=3.14*r*r 单击工具栏中“保存”按钮,单击右上角“关闭”按钮。

解析
转载请注明原文地址:https://jikaoti.com/ti/sJXiFFFM
0

最新回复(0)