UC知道vb代码 速度~~~~~~~~~
来源：百度知道 编辑：UC知道 时间：2024/06/06 19:44:16
利用自定义函数过程求圆的面积和体积
实验目的：掌握自定义函数过程和子过程的定义和调用方式；掌握形参和实参的对应关系，了解变量、函数和过程的作用域。利用自定义函数过程创建一个名为“利用自定义过程求圆的面积和体积”的应用程序。
实验要求：三个TextBox控件均不能人为输入，单击“计算面积和体积”的按钮调用InputBox函数，将圆的半径输入，通过调用自定义的两个Function过程将圆的面积和体积显示在Text2和Text3中，将圆的半径显示在Text1中；单击“退出”按钮结束程序的运行。
提示：圆的面积S=πR2 圆的体积V=4πR3/3
实验内容：
（写出创建该程序需要的各种控件名称及个数，将创建好的应用程序的代码书写在此内容）
例:本程序需要2个Command控件
Private Sub Command_Click()
Print “hello”
End Sub
实验目的：掌握自定义函数过程和子过程的定义和调用方式；掌握形参和实参的对应关系，了解变量、函数和过程的作用域。利用自定义函数过程创建一个名为“利用自定义过程求圆的面积和体积”的应用程序。
实验要求：三个TextBox控件均不能人为输入，单击“计算面积和体积”的按钮调用InputBox函数，将圆的半径输入，通过调用自定义的两个Function过程将圆的面积和体积显示在Text2和Text3中，将圆的半径显示在Text1中；单击“退出”按钮结束程序的运行。
提示：圆的面积S=πR2 圆的体积V=4πR3/3
实验内容：
（写出创建该程序需要的各种控件名称及个数，将创建好的应用程序的代码书写在此内容）
例:本程序需要2个Command控件
Private Sub Command_Click()
Print “hello”
End Sub
'添加的控件有： 2个命令按钮，3个文本框
' Command1 用于计算面积和体积
' Command2 退出
' Text1 用于输出半径
' Text2 用于输出面积
' Text3 用于输出体积
'程序代码如下
Const PI = 3.1415926
Private Sub Command1_Click()
Dim R As Single
R = Val(InputBox("请输入圆的半径"))
Text1.Text = R
Text2.Text = S(R)
Text3.Text = V(R)
End Sub
Function S(R As Single) As Single
S = PI * R ^ 2
End Function
Function V(R As Single) As Single
V = 4 * PI * R ^ 3 / 3
End Function
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Text1.Locked = True
Text3.Locked = True
Text2.Locked = True
Text1.Text=""
Text2.Text=""
Text3.Text=""
Command1.Caption="计算面积和体积"
Command2.Caption="退出"
End Sub
1.