vb 编程 求用inputbox函数输入的10个数的和数和连乘积

一楼的程序有问题，应该是这样的
Private Sub Form_DblClick()
Dim g As Single
Dim i As Integer
Dim j As Double
g = 0
j = 1
For i = 1 To 10
k = InputBox("Input your number", "Inout")
g = g + k
j = j * k
Next i
Print "和=" & g
Print "连乘积=" & j
End Sub

for i=1 to 10
k=inputbox("输入10个数"，"输入10个数”）
g=0
g=g+k
j=1
j=j*k
next i
print j
print g
初二学校作业吧-_-