Question

已知二次函数y=ax^2+c，当x=2时，y=4；当x=—1时，y=—3。求a、c的值

答案不是a=7/3，c=-7/3或-16/3

Answer 1

先说第1个问题吧..

Private Sub Command1_Click()
Dim a$, b$, i%

Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
i = i + 1
If i > 1 And i < 8 Then b = b & a & vbCrLf
Loop
Close #1
Text1 = b
End Sub

关键行是: If i > 1 And i < 8 Then b = b & a & vbCrLf
换句直白一点的意思就是读取第2行至第7行的内容到变量b中..最后使用text1=b来显示读取出来的内容

第2个问题:
刚刚读取的内容b,可以使用
再次来读取其中的内容,只是我没太明白,你是说只写后面的内容到text1吗? 就是:
"worldspawn"
"worldspawn"
"blue"
"4096"
"220"
"\cs15\valve\halflife.wad;\cs15\cstrike\cqsj.wad;\cs15\cstrike\hflogo.wad;\cs15\valve\decals.wad;\cs15\cstrike\siren_czl.wad"

别的都不要了吗?

第3个问题:
也不是太明白.你是说..只要最后一个\后面的内容,然后每个一行吗?
halflife.wad
cqsj.wad
hflogo.wad
decals.wad
siren_czl.wad

那这就诊是5行呀,为什么你只写了3行??
这个也很容易的..使用instr查找第1个;号,将位置记入变量j中,然后从这个位置向前使用InstrRev来找\,找到后记入变量i,然后写入数组s的第1个元素中..
然后j=j+1, 然后从j位置继续找;,直到字符串结束..同上的操作,全写入到数组s中,
最后使用:
b=join(s,vbcrlf)来生成你需要的内容到变量 b中..