高校问答58同城招聘兼职网:VB6.0编程一个小问题
来源：百度文库 编辑：高校问答 时间：2024/04/29 05:32:18
我用VB6编一个计算圆的面积的程序，按一个按钮弹出对话框输入半径，按另外一个按钮计算出面积并显示在窗体上,代码如下
Private Sub Command1_Click()
sngR = InputBox("输入")
cmdCalc.Enabled = True
End Sub
Private Sub cmdCalc_Click()
Dim sngS As Single
Dim sngR As Single
'计算圆的面积
sngS = 3.14159 * sngR * sngR
'在窗体显示计算结果
Print sngS
cmdCalc.Enabled = False
End Sub
每次计算出的结果都是0，好像输入不起作用
Private Sub Command1_Click()
sngR = InputBox("输入")
cmdCalc.Enabled = True
End Sub
Private Sub cmdCalc_Click()
Dim sngS As Single
Dim sngR As Single
'计算圆的面积
sngS = 3.14159 * sngR * sngR
'在窗体显示计算结果
Print sngS
cmdCalc.Enabled = False
End Sub
每次计算出的结果都是0，好像输入不起作用
将sngR声明成全局的(就是在所有过程外面声明), 不要声明成局部的.
当然是0,sngR不是一个全局变量,点击cmdCalc计算时,事实上sngR等于0