Private Sub Form1_Click()
Dim sum As Integer
Dim i As Integer
sum = 200
TestFunc (sum)
End Sub
Private Sub TestFunc(i As Integer)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "19.out" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub
生成exe后点击窗口不能print出都东西

app.path & "\9.*"少个\,吧
——来自 爱贴吧 Windows Phone 客户端

变量i的声明不用放在Sub Form1_Click()里哦⊙▽⊙，but Print在哪？