VB运行时出现“编译错误：缺少as"

Question

是下面的这个程序,把数值5给s,然后输出到文件121.w中
private sub command1_click()
dim s as integer
s=5
close #1
open f:\121.w for output as #1
print #1,s
close #1
end sub
close #1

Answer 1

出现“编译错误：缺少as"的原因是你的语句“open f:\121.w for output as #1”中缺少了引号。应该是这样的：
open "f:\121.w" for output as #1

因为VB中的冒号“:”用来分割两个语句，这样分割以后前面的语句就成了“open f”，是一个不完整的语句，就“缺少as”咯！
你上面的代码修改后应该是：
Private Sub command1_click()
Dim s As Integer
s = 5
Close #1
Open "f:\121.w" For Output As #1
Print #1, s
Close #1
End Sub

Answer 2

程序已经运行通过：去掉了2个句子，加了一处双引号。
Private Sub command1_click()
Dim s As Integer
s = 5
Open "f:\121.w" For Output As #1 ‘加了双引号
Print #1, s
Close #1
End Sub

Answer 3

Private Sub Command1_Click()
    Dim s As Integer, i As Integer
    s = 5
    i = FreeFile()
    Open "f:\121.w" For Output As #i
    Print #i, s
    Close #i
End Sub

 文件号建议动态获取，另外文件路径必须是字符串

Answer 4

Private Sub command1_click()
    Dim s As Integer
    s = 5
    Open "f:\121.w" For Output As #1
        Print #1, s
    Close #1
End Sub