中科新闻网大唐名将李绩李靖:为什么定义圆周率时会出错的？
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 22:30:58
这道vb题目是这样的：在文本框中办输入弧度值，将弧度换算为角度值
（度、分、秒）的形式，然后输出。
我编的程序如下：
Private Sub Command1_Click()
Dim pi = 3.1415926
Dim x As Single, y As Single, z As Integer, w As Single, v As Integer, u As Single, d As Single
x = Val(Text1.Text)
y = x * (180 / pi)
z = Fix(y)
w = (y - z) * 60
v = Fix(w)
u = (w - v) * 60
d = sty(z) & " 。" & sty(v) & "'" & sty(u)
Label1.Caption = d
End Sub
可是运行时出现两个错误：
（1）子程序或函数未定义
（2）定义圆周率那一行也显示语法错误
麻烦帮我看看，谢谢哦！
（度、分、秒）的形式，然后输出。
我编的程序如下：
Private Sub Command1_Click()
Dim pi = 3.1415926
Dim x As Single, y As Single, z As Integer, w As Single, v As Integer, u As Single, d As Single
x = Val(Text1.Text)
y = x * (180 / pi)
z = Fix(y)
w = (y - z) * 60
v = Fix(w)
u = (w - v) * 60
d = sty(z) & " 。" & sty(v) & "'" & sty(u)
Label1.Caption = d
End Sub
可是运行时出现两个错误：
（1）子程序或函数未定义
（2）定义圆周率那一行也显示语法错误
麻烦帮我看看，谢谢哦！
Dim pi as double
pi = 3.1415926
然后d应该为
dim d as string
sty()函数你没有定义
你要实现什么功能啊
我很想告诉你~~
但是~
我不懂~~~
哎~
Dim pi = 3.14.... 谁告诉你可以这么写了，常量要用 Const 定义：
Const pi As Double = 3.1415926
sty() 是什么？这不是标准函数。
另外，你的 d 是用来放字符串的，应声明为 String 类型。
然后那句应该是：
d = str(z) & " 。" & str(v) & "'" & str(u)
圆周率好象不用定义，可以直接调用的！