UC知道一道vb题（文本输入）
来源：百度知道 编辑：UC知道 时间：2024/05/18 06:21:12
请看题目：http://fmn041.xnimg.cn/fmn041/20090602/2315/p_large_6klJ_300e017020.jpg
代码：
Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = Val(Text1.Text)
If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox "请输入正整数", 48, "输入的不是正整数"
Open App.Path & "\" & "jfwj.txt" For Output As #1
For i = 1 To n
Print #1, String(i, "*")
Next i
Close #1
End Sub
应该是没错的代码吧？可是为什么我运行的时候不行呢？（我在桌面上建立了一个文本：C:\Documents and Settings\junforfun\桌面\datafile。txt（空文本）取代上面的文本 这应该没问题吧？）
代码：
Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = Val(Text1.Text)
If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox "请输入正整数", 48, "输入的不是正整数"
Open App.Path & "\" & "jfwj.txt" For Output As #1
For i = 1 To n
Print #1, String(i, "*")
Next i
Close #1
End Sub
应该是没错的代码吧？可是为什么我运行的时候不行呢？（我在桌面上建立了一个文本：C:\Documents and Settings\junforfun\桌面\datafile。txt（空文本）取代上面的文本 这应该没问题吧？）
代码是没问题的，关键是文件路径问题：
Open App.Path & "\" & "jfwj.txt" For Output As #1
改为：
Open "C:\Documents and Settings\junforfun\桌面\datafile.txt" For Output As #1
你打开的是什么文件?
Open App.Path & "\" & "jfwj.txt" For Output As #1
也就是当前文件所在的文件夹内的jfwj.txt,而你创建的是DataFile.txt
知道问题所在了?