Question

VB总提示我文件模式错误？什么意思？在线等答案

Private Sub C1_Click()
Open "c:\wexam\26000026\in5.txt" For Input As #1
Input #1, a%
Text1.Text = a%
Close #1
End Sub

Input #1, a% 就是这个总是错误 可是我不知道哪里有错误
Private Function isprime(a As Integer) As Boolean
Dim flag As Boolean
flag = True
b% = 2
Do While b% <= Int(a / 2) And flag
If Int(a / b%) = a / b% Then
flag = False
Else
b% = b% + 1
End If
Loop
isprime = flag
End Function

Private Sub C1_Click()
Open "c:\wexam\26000026\in5.txt" For Input As #1
Input #1, a%
Text1.Text = a%
Close #1
End Sub
Private Sub C2_Click()
Dim i As Integer
i = Text1.Text
Do
i = i + 1
Loop Until isprime(i) = True
Text2.Text = i
End Sub
Private Sub C3_Click()
Open "out5.txt" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
这是整个程序、///、、、、

Answer 1

Input #1 每次读取一个数值，不是一个字符，不是所有文件内容

c:\wexam\26000026\in5.txt 为非空的文件

Input #1, a% 如果读空文件得到的错误肯定是超出文件尾

首先你确定这个文件是不是空文件，如果不是的话，你的程序就没有任何错误

Answer 2

Private Sub C1_Click()
Open "c:\wexam\26000026\in5.txt" For Input As #1
if not eof(1) then '读文件时,要判断一下是否到了文件尾
Input #1, a '在不清楚变量类型时,可直接用变体弄变量
Text1.Text = a
end if
Close #1
End Sub

追问

还是说 超出文件尾、、这个VB程序是不是有毛病啊。。怒了

追答

程序是没有错了.不知道你的那个文件是否有问题.

追问

Private Sub C1_Click()
Open "c:\wexam\26000026\in5.txt" For Input As #1
Do While Not EOF(1)
Input #1, a
Text1.Text = a
Loop
Close #1
End Sub

嗯 这样修改后 就行啦、、、谢谢你拉。、、- -哎、、、、

Answer 3

Input #1, a%
Text1.Text = a%

改为

Input #1, a$
Text1.Text = a$

追问

说超出文件尾

追答

那是因为文件是空文件

Answer 4

dim a as string
Open "c:\wexam\26000026\in5.txt" For Input As #1
line Input #1, a
Text1.Text = a
Close #1

Answer 5

定义要写在前面
dim a%
然后才是
Input #1, a
Text1.Text = a

追问

我这样输了，可是这下它说我 输入超出文件尾。。

追答

dim a as string
Open "c:\wexam\26000026\in5.txt" For Input As #1
line Input #1, a
Text1.Text = a
Close #1
先试试这个

追问

依然如此、、奇怪了