输入4个数字,求和,求平均值,用VB写,怎么写?

dim a,b,c,d,avg,sum
a=val(inputbox("please input data"!))
b=val(inputbox("please input data"!))
c=val(inputbox("please input data"!))
c=val(inputbox("please input data"!))
sum = a + b + c + d
avg = sum / 4

dim a as integer
dim b as integer
.......
a=inputbox("输入第一个数").......
sum=a+b+c+d
ave=(a+b+c+d)/4
msgbox(sum & " " & ave)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = InputBox("请输入a值")
b = InputBox("请输入b值")
c = InputBox("请输入c值")
d = InputBox("请输入d值")

MsgBox("Sum=" & a + b + c + d)
MsgBox("Avg=" & (a + b + c + d) / 4)
End Sub

彭月820103

依据你的题意,你并未说明4个数字的类型,如此只有二楼