vb 的一个问题 十万火鸡

Private Sub Calc_Click()
Dim s As Integer
For i = 1 To 100

If Arr(i) < 50 Then
Text1.Text = Text1.Text & Arr(i) & " "
s = s + Arr(i)
End If
Next i

Print s

End Sub

Private Sub Form_Load()

End Sub

Private Sub Read_Click()
ReadData
End Sub

Private Sub Save_Click()
WriteData "dataout.txt", s
End Sub
这个程序那儿错了 为什么提示 什么BYref参数类型不符 还有那个S好像是私有的 下面的private应该不能调用吧
完整程序是Option Base 1
Dim Arr(100) As Integer

Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub

Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub

Private Sub Calc_Click(

十万火鸡“飞利浦 755 ”的问题 十万火鸡，概率问题！！！ 十万火鸡~~~~~~~~~~~~~~~~ 十万火鸡 十万火鸡!!!!!!!!碳酸分解的问题!!!■△▲●○★○○ 十万火鸡~~~~~~~~~~~~~~~~~~~~~~~~~~大事也`~`` 十万火鸡啊,快让开 寻找一个圣诞打火鸡的游戏。 十万火鸡 无知小妹求点生意经 十万火鸡-3D洛克人