Question

vb题，编写一个计算机矩形的sub过程，然后调用该过程计算矩形面积 求解

Answer 1

程序代码：

Private Sub RECTAcreage(ByVal sngChangDu As Single, ByVal sngKuanDu As Single, Optional ByVal intPoint As Integer = 3)

MsgBox "矩形的长=" & sngChangDu & vbCrLf & "矩形的宽=" & sngKuanDu & vbCrLf & "矩形的面积=" & Format$(sngChangDu * sngKuanDu。

IIf(CBool(intPoint), "0." & String$(intPoint, "0"), "0")), vbInformation + vbOKOnly, "计算结果"

扩展资料：

Visual Basic中有通用过程和事件过程这两类予过程。

1、通用过程：

通用过程是完成一项指定的任务的代码块，建立通用过程是因为有时不同的事件过程要执行相同的动作，这时可以将那些公共语句放入通用过程，并由事件过程来调用它。

这样就不必重复编写代码，也容易维护应用程序。要创建一个新的通用过程，只要在代码窗口的对象列表中选择“通用"选项，然后按照子过程的语法在代码窗口中输入子过程即可。

2、事件过程：

事件过程是响应事件时执行的代码块，通常总是处于空闲状态，直到程序响应用户引发的事件或系统引发的事件才调用相应的事件过程。

一个控件的事件过程是将控件的实际名字(在Name属性中规定的)、下划线()和事件名组合起来。例如，如果希望在单击了一个名为cmdPlay的命令按钮后执行动作，则要在cmdPl．ay_C1ick事件过程中编写相应代码。

Answer 2

Private Sub RECTAcreage(ByVal sngChangDu As Single, ByVal sngKuanDu As Single, Optional ByVal intPoint As Integer = 3)
MsgBox "矩形的长=" & sngChangDu & vbCrLf & "矩形的宽=" & sngKuanDu & vbCrLf & "矩形的面积=" & Format$(sngChangDu * sngKuanDu, IIf(CBool(intPoint), "0." & String$(intPoint, "0"), "0")), vbInformation + vbOKOnly, "计算结果"
End Sub

调用方法：Call RECTAcreage(矩形长度, 矩形宽度, 计算精度)，例如： Call RECTAcreage(5, 3, 3)，最后一个参数决定了结果保留的小数位数，如果设置为0，则结果将四舍五入取整。