vb代码，帮忙修正

dim filename
filename=inputbox("type the path of the question cave")
open filename for input as#1
dim a
line input#1,a
a=val(a)
dim b
b=a-1
dim que(0,b)
dim ans(0,b)
dim c
for c=0 to b step 1
line input#1，que(c)
next c
for c=0 to b step 1
line input#1，ans(c)
next c
for c=0 to b step 1
dim nam
line input#1,nam
msgbox("ok,your cave is called"&nam)
dim right
dim wrong
dim key
dim score
right=0
wrong=0
score=0
msgbox("start!")
key=inputbox("the question is"&que(c),"answer","type your answer here")
if key=ans(c) then
msgbox("well done ,you are rihgt")
right=rigyht+1
score=score+1
else
msgbox("sorry ,you are wrong")
wrong=wrong+1
score=score-1
end if
dim tot
totj=right+wrong
dim n1 for n1=0 to a step 1
if t

高手帮忙修改VB代码 C++ 代码的修正 帮忙看一下这个vb代码 大家来帮忙看下这段VB代码 高手进来帮忙注释VB代码 请高手帮忙翻译一段VB代码 帮忙分析这段VB代码!!! 帮忙找一下VB代码错误 帮忙检查一下VB代码哪错了 谁可以帮忙解释一下VB代码，，，，，，，