UC知道这个VB编程哪里错了？高手们来看一下！
来源：百度知道 编辑：UC知道 时间：2024/09/21 20:19:24
书上说输入这些代码就能求球体的面积和体积，
Private Sub Form_Click()
Dim R As Double, V As Double, S As Double
Consi pi = 3.1415926
R = Val(InputBox("请输入球的半径(mm):"))
Print
Print "球的半径R="; R; "mm"
Print
V = 4 / 3 * pi * R ^ 3
S = 4 * pi * R ^ 2
Print "球的体积为"; V; "mm^3"
Print
Print "球的面积为"; S; "mm^2"
End Sub
然后，我就照着输入了，
结果一运行程序：
VB就提示说：编译错误：子程序或函数未定义
Private Sub Form_Click()
Dim R As Double, V As Double, S As Double
Consi pi = 3.1415926
R = Val(InputBox("请输入球的半径(mm):"))
Print "球的半径R="; R; "mm"
V = 4 / 3 * pi * R ^ 3
S = 4 * pi * R ^ 2
Print "球的体积为"; V; "mm^3"
Print "球的面积为"; S; "mm^2"
End Sub
然后，我就照着输入了，
结果一运行程序：
VB就提示说：编译错误：子程序或函数未定义
Const PI = 3.14159265
应该提取出来换成
Private Const PI = 3.14159265
输入错误!
Consi pi = 3.1415926
应该是const
const是定义常量的!
Private Sub Form_Click()
Dim R As Double, V As Double, S As Double
Const pi = 3.1415926 '把这里的Consi改成Const
R = Val(InputBox("请输入球的半径(mm):"))
Print
Print "球的半径R="; R; "mm"
Print
V = 4 / 3 * pi * R ^ 3
S = 4 * pi * R ^ 2
Print "球的体积为"; V; "mm^3"
Print
Print "球的面积为"; S; "mm^2"
End Sub
Consi pi = 3.1415926 改为Const pi = 3.1415926 ，改为pi = 3.1415926也行。
Consi改为Const
Consi改为Const
小问题多注意~~呵呵编程大忌！~~