中科新闻网帕尔哈提演唱会2017:关于VB编程序的问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/27 20:01:00
我想用一个INPUTBOX函数,在FORM被双击时.运行是老是提醒我:用户定义未定义!这是哪儿错了呢!谢谢
代码如下:
Private Sub Form_DblClick()
Dim R As String
Dim area As Float
R = InputBox("输入圆的半径", "计算面积", , 100, 100)
area = Val(R) ^ 2 * 3.1415926
Form1.Print "R="; Val(R)
Print "圆的面积="; area
End Sub
代码如下:
Private Sub Form_DblClick()
Dim R As String
Dim area As Float
R = InputBox("输入圆的半径", "计算面积", , 100, 100)
area = Val(R) ^ 2 * 3.1415926
Form1.Print "R="; Val(R)
Print "圆的面积="; area
End Sub
VB中没有Float类型
应将 Dim area As Float 改为 Dim area As Single