Question

Private Sub Command1_Click() Dim n As Integer, i As Integer n = InputBox("n=") ReDim x(n) As Single

Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = InputBox("n=")
ReDim x(n) As Single
For i = 1 To n
x(i) = InputBox("x(" & i & ")=")
Next i
Print f2(x, n)
End Sub
Private Sub f1(a() As Single, n As Integer)
Dim i As Integer
For i = 1 To n: a (i) + 1: Next i
End Sub
Private Function f2(a() As Single, n As Integer) As Single
Dim i As Integer
Call f1(a, n)
For i = 1 To n
f2 = f2 + a(i)
Next i
f2 = f2 / n
End Function

Answer 1

故事: 很多年前, 一个爸爸和一个妈妈想休假，所以他们决定晚上去城镇。他们叫来最信任一个人来照看孩子。当保姆来的时候，他们的连个孩子已经在床上睡著了。所以保姆只是看了看孩子是否睡的好，就坐下了。
深夜，保姆觉得无聊就想去楼下看电视。但是她看不了，因为楼下没有电视。她就打电话给孩子的父母，问是否可以在他们的卧室看电视，当然孩子的父母同意了。
但保姆又想要最后一个请求。
她问是否可以用毯子或者衣服盖住那小丑雕像，因为那使她感到很害怕。
电话沉默了一会。
（此时爸爸在和保姆通话）
他说：带孩子离开房间……
我们将会叫警察……我们从来没有什麼小丑雕像。
那小丑很可能是一个从监狱逃出来的杀人犯。
电话里沉默了一会儿。
（正在跟保姆通话的孩子的父亲）说：带上孩子们，离开房子……我们会通知警察……我们没有一个小丑雕像……
孩子们和保姆被小丑谋杀了。
结果是，小丑是一个从监狱里逃出来的杀人犯
如果你不在5分钟内转发这个贴子，这个小丑在凌晨3点时将会拿著刀站在你的床前。

Answer 2

不知道你想问什么，但这句 For i = 1 To n: a (i) + 1: Next 中间的一句a (i) + 1有问题。