Question

求VB高手帮忙看看这个程序到底哪里出错了，我就是在VB上运行不成功，跪求大神帮忙指教！!

是一个对实验的设计
但是我就是从第一句都调试不下去，是不是跟C搞混了呀！！！请大家帮忙改改，成恳求指教呀，谢谢了！！！

INPUT “n,s,t=”；N，S，T：T2=T+2
INPUT “R1，F1，F2，F3=”；R1，F1，F2，F3
DIM X（N，T2），A（S），B（S），C（S）
LPRINT TAB（3）；“例：”；“n=”；N；“s=”；S“T=”；T
LPRINT
LPRINT“序号”；TAB（13）；“B”；TAB（18）；“C”；
LPRINT TAB（20）“试验结果”
FOR I=1 TO N
FOR J=1 TO T2
READ X（I，J）：LPRINT USING “###”；X（I，J）；：LPRINT“ ”；
NEXT J
LPRINT
NEXT I
LPRINT
GOSUB 500
LPRINT “R1=”；R1；“F1=”；F1；“F2=”；F2；“F3=”；F3
LPRINT
LPRINT “来源”；TAB（6）；“离差”；TAB（13）；“自由度”；
LPRINT TAB（22）；“均方差”；TAB（34）；“F值”
LPRINT“A”；TAB（5）；QA；TAB（15）；S1；TAB（20）；SA；TAB（32）；FA
LPRINT“B”；TAB（5）；QB；TAB（15）；S1；TAB（20）；SB；TAB（32）；FB
LPRINT“C”；TAB（5）；QC；TAB（15）；S1；TAB（20）；SC；TAB（32）；FC
LPRINT“CY”；TAB（5）QE；TAB（15）；S2；TAB（20）；SE
LPRINT“SUM”；TAB（5）；QT；TAB（15）；N-1
LPRINT
IF FA>F1 THEN 310 ELSE 300
LPRINT“因子A无显著影响”：GOTO 320
LPRINT“因子A有显著影响”
IF FB>F2 THEN 340 ELSE 330
LPRINT“因子B无显著影响”：GOTO 350
LPRINT“因子B有显著影响”
IF FC>F3 THEN 370 ELSE 360
LPRINT“因子C无显著影响”：GOTO 380
LPRINT“因子C有显著影响”
DATA 1，1，1，1，31，2，1，2，2，54
DATA 3，1，3，3，38，4，2，1，2，53
DATA 5，2，2，3，49，6，2，3，1，42
DATA 7，3，1，3，57，8，3，2，1，62
DATA 9，3，3，2，64
END
‘子程序
K=0：W=0
FOR I=1 TO N
K=K+X（I，T2）：W=W+X（I，T2）*X（I，T2）
NEXT I
P=K^2/N
UA=0：UB=0：UC=0
FOR J=2 TO T2-1
D1=0：D2=0：D3=0
FOR I=1 TO N
IF X(I,J)=1 THEN 630
IF X(I,J)=2 THEN 640
IF X(I,J)=3 THEN 650
D1=D1+(XI,T2)：GOTO 660
D1=D2+(XI,T2)：GOTO 660
D1=D3+(XI,T2)：GOTO 660
NEXT I
IF J=2 THEN 700
IF J=3 THEN 710
IF J=4 THEN 720
A(1)=D1:A(2)=D2:A(3)=D3:GOTO 730
B(1)=D1:B(2)=D2:B(3)=D3:GOTO 730
C(1)=D1:C(2)=D2:C(3)=D3:GOTO 730
NEXT J
FOR V=1 TO S
UA=UA+A(V)^2: UB=UB+B(V)^2: UC=UC+C(V)^2
NEXT V
M=N/S
UA=UA/N:UB=UB/N:UC=UC/N
’****
QA=UA-P:QB=UB-P:QC=UC-P:QT=W-P
QE=QT-QA-QB-QC
’****
S1=S-1:S2=N-1-T*S1
SA=QA/S1:SB=QB/S1:SC=QC/S1:
SE=QE/S2
’****
FA=SA/SE: FB=SB/SE: FC=SC/SE:
RETURN

Answer 1

问题如下：
1、所有的符号基本上全错了，程序中用的符号基本上都是英文状态的双引号、逗号、分号、单引号，也就是",;' 而不是你的程序中用的中文的“”，；‘
2、这个不是VB的程序，看起来象是QBasic或者GwBasic中的，是不能在VB中运行的。

Answer 2

基本上来说
我发现那些输入输出关键字我一个都不认识
输出是Print 不是LPrint'
READ X（I，J）：这东西不用 使用的时候直接 X(i,j)
input 再改成
a=inputbox("输入a的数据")
所有的全角符号得改成半角英文符号
总之 我看不懂了--

Answer 3

你这个不是VB语言，倒有点像DOS下面的QB语言编的

Answer 4

大哥 这不是VB代码，有点像DELPHI