编写程序，从键盘上输入4个数，输出4个数的和及平均值，用Inputbox函数输入数据

Question

我弄了三个按钮，如图。求为何有错

Answer 1

代码改为如下
dim a as single,b as single,c as single,d as single '把这句移到最外面去

Private Sub Command1_Click(Index as Integer)
a=val(inputbox(..) 代码不变
b=val(inputbox(..) 代码不变
c=val(inputbox(..) 代码不变
d=val(inputbox(..) 代码不变
End Sub

Private Sub Command5_Click()
'这行的声明部分不要
Label6.Caption=Str(Val(a+b+c+d))
End Sub

Answer 2

'主要问题是变量的声明问题:
' 1、变量声明的范围: 全局变量和过程变量是不同的，您的程序中需要使用的是全局变量。
' 2、变量的有效时间: 静态变量和动态变量
'修改后的代码改为如下
Public a As Single, b As Single, c As Single, d As Single '把这句移到最外面去

Private Sub Command1_Click(Index As Integer)
a = Val(InputBox("输入第一个数值", "提示"))
b = Val(InputBox("输入第二个数值", "提示"))
c = Val(InputBox("输入第三个数值", "提示"))
d = Val(InputBox("输入第四个数值", "提示"))
End Sub

Private Sub Command5_Click()
Label6.Caption = Str(Val(a + b + c + d))
End Sub