Private Sub Command1_Click()
Dim a As String
Open App.Path & "A.txt" For Input As #1
Open App.Path & "B.txt" For Output As #2
While Not EOF(1)
Line Input #1, a
Print #2, Val(a) * 2 + 1
Wend
Close #1
Close #2
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024