麻烦各位了！如果大家有时间、有兴趣就帮忙看看了！先谢谢了！
200 Dim A(10), B(10), C(10), D(10)
202 Dim A9(100), B9(100), C9(100), S(100)
204 Dim X(100), Y(100), Z(100)
206 Dim R(10), G1(10), G2(10), G3(10), G4(10)
208 INPUT N
210 For I = 1 To N
212 INPUT R(I), G1(I), G2(I), G3(I), G4(I)
214 If R(I) <> 0 Then  222
216 G2(I) = G1(I) / G3(I) / G2(I) * 3.6
218 G3(I) = G4(I)
220 R0 = R0 + G3(I) / G1(I)
222 R0 = R0 + R(I)
224 Next I
226 K = 1 / R0
228 Print "THERMAL CONDUCTANCE K="; K
230 Z5 = SQR(40)
232 G = 0.1
234 For J = 1 To 40
236 A0 = 1
238 B0 = 0
240 C0 = 0
242 D0 = 1
244 For I = 1 To N
If R(I) <> 0 Then 268
248 Z1 = SQR(G1(I) * G1(I) / G2(I)) * X(J)
250 Y(I) = SQR(G3(I) * G3(I) / G2(I)) * X(J)
252 A(I) = Cos(Y(I))
254 If Y(I) = 0 Then  260
256 B(I) = Sin(Y(I)) / Z1
258 GoTo 262
260 B(I) = G3(I) / G1(I)
262 C(I) = -Z1 / Sin(Y(I))
264 D(I) = A(I)
266 GoTo 276
268 A(I) = 1
270 B(I) = R(I)
272 C(I) = 0
274 D(I) = 1
276 E1 = A0 * A(I) + B0 * C(I)
278 E2 = A0 * B(I) + B0 * D(I)
280 E3 = C0 * A(I) + C0 * C(I)
282 E4 = c0 * B(I) + C0 * D(I)
284 A0 = E1
286 B0 = E2
288 C0 = E3
290 D0 = E4
292 Next I
294 W = W + 1
296 Z(W) = B0
298 If Abs(B0) < 0.00001 Then 318
300 If W > 100 Then GoTo 318
302 E0 = Z(W - 1) - Z(W)
304 H = Z(W)
306 If Abs(Z(W)) - Abs(Z(W - 1)) < 0 Then H = Z(W - 1)
308 If Abs(E0) <= Abs(H) Then  312
310 G = -G / 3
312 X(J) = X(J) + G
314 If X(J) > Z5 Then 444
316 GoTo 236
318 S(J) = X(J) * X(J)
320 G = 0.1
322 W = 0
324 X(J + 1) = X(J) + G
326 For I = 1 To N
328 If R(I) <> 0 Then  368
330 If S(J) = 0 Then  368
332 Z1 = SQR(S(J) / G2(I))
334 Z2 = Z1 * G3(I)
336 X9 = G3(I) * G3(I) * 0.5 / G2(I)
338 R1 = G3(I) / G1(I)
340 C4 = Sin(Z2)
342 C5 = Cos(Z2)
344 S1 = C4 / Z2
346 S2 = (S1 - C5) / Z2 / Z2
348 A2 = X9 * S1
350 B2 = X9 * R1 * S2
352 C2 = X9 * (S1 + C5) / R1
354 D2 = X9 * S1
356 GoTo 378
358 A2 = 0
360 B2 = 0
362 C2 = 0
364 D2 = 0
368 GoTo 378
368 X9 = G3(I) * G3(I) * 0.5 / G2(I)
370 A2 = X9
372 B2 = X9 * G3(I) / G1(I) / 3
374 C2 = G1(I) / G3(I) * X9 * 2
376 D2 = X9
378 If I = 1 Then 414
380 E1 = A0 * A(I) + B0 * C(I)
382 E2 = A0 * B(I) + B0 * D(I)
384 E3 = C0 * A(I) + D0 * C(I)
386 E4 = C0 * A(I) + D0 * D(I)
388 E5 = A3 * A(I) + A0 * A2 + B3 * C(I) + B0 * C2
390 E6 = A3 * B(I) + A0 * B2 + B3 * D(I) + B0 * D2
392 E7 = C3 * A(I) + C0 * A2 + D3 * C(I) + D0 * C2
394 E8 = C3 * B(I) + C0 * B2 + D3 * D(I) + D0 * D2
396 A0 = E1
398 B0 = E2
400 C0 = E3
402 D0 = E4
404 A3 = E5
406 B3 = E6
408 C3 = E7
410 D3 = E8
412 GoTo 430
414 A0 = A(I)
416 B0 = B(I)
418 C0 = C(I)
420 D0 = D(I)
422 A3 = A2
424 B3 = B2
426 C3 = C2
428 D3 = D2
430 Next I
432 A9(J) = D0 / B3
434 B9(J) = 1 / B3
436 C9(J) = A0 / B3
438 S(J) = -S(J)
440 Print J, S(J)
442 Next J
444 M = J - 1
446 Print "J X(J) Y(J) Z(J)"
448 I = 0
450 If I = 0 Then 472
452 X(I) = O
454 Y(I) = O
456 Z(I) = O
458 For J = 1 To M
460 A1 = -(1 - Exp(S(J))) * (1 - Exp(S(J))) * Exp((I - 1) * S(J)) / S(J) / S(J)
462 X(I) = X(I) - A9(J) * A1
464 Y(I) = Y(I) - B9(J) * A1
466 Z(I) = Z(I) - C9(J) * A1
468 Next J
470 GoTo 490
472 X(I) = K
474 Y(I) = K
476 Z(I) = K
478 For J = 1 To M
480 A1 = (1 - Exp(S(J))) / S(J) / S(J))
482 X(I) = X(I) - A9(J) * A1
484 Y(I) = X(I) - B9(J) * A1
486 Z(I) = X(I) - C9(J) * A1
488 Next J
490 If I < 0.0015 Then Y(I) = 0
492 If I < 2 Then  502
494 If Y(I - 1) = 0 Then 502
496 C2 = Y(I) / Y(I - 1)
498 C5 = Abs(C2 - Y(I - 1) / Y(I - 2))
500 If (C5 - 0.001) <= 0 Then  508
502 Print I, X(I), Y(I), Z(I)
504 I = I + 1
506 GoTo 452
508 Print "C="; C2
510 End

呼吁一下了，哪位有空帮忙看看了！
我很着急呢！不知道该如何改了？

dim A(10),B(10),C(10),D(10)
dim A9(100),B9(100),C9(100),S(100)
dim X(100),Y(100),Z(100)
dim R(10),G1(10),G2(10),G3(10),G4(10)

input N

if N > 10 then N = 10
for i = 1 to N
    input "R,G1,G2,G3,G4",R(i),G1(i),G2(i),G3(i),G4(i)
    if R(i)<>0 then
       R0=R0+R(i)
    else
       G2(i)=G1(i)/G3(i)/G2(i)*3.6
       G3(i)=G4(i)
    end if
next

k=1/R0
print "Thermal Conductance K=";k
z5=sqr(40)
G=0.1

for j=1 to 40
  A0=1
  B0=0
  C0=0
  D0=1
  for i=1 to N
     if R(i)<>0 then
        A(i)=1
        B(i)=R(i)
        C(i)=0
        D(i)=1
      else
        Z1=sqr(G1(i)*G1(i)/G2(i))*X(j)
        Y(i)=sqr(G3(i)*G3(i)/G2(i))*X(j)
        A(i)=sqr(G3(i)*G3(i)/G2(i))*X(j)
        if Y(i)=0 then
           B(i)=G3(i)/G1(i)
        else
           B(i)=sin(Y(i))/Z1
        end if
        C(i)=-Z1/sin(Y(i))
        D(i)=A(i)
      end if
        E1=A0*A(i)+B0*C(i)
        E2=A0*B(i)+B0*D(i)
        E3=C0*A(i)+C0*C(i)
        E4=C0*B(i)+C0*D(i)
        A0=E1
        B0=E2
        C0=E3
        D0=E4
  next
改到这里实在是改不下去了.
我打一个比如,请别介意

   我读小学的时候
   捡了一个银行专用的计算器
   用的是发光二极管的电子电路
   计算方法并不是当时的我能理解的
   我只知道是一些科学计算利率计算之类的东西吧
   我修来弄好,敲敲这里,搞搞那里
   把某些集成电路的脚短短路
   还是没把它搞好
   最主要的原因在哪?
   1. 我不知道它的作用
   2. 我不知道它的原理
   3. 我不知道它的计算方法和计算过程
   4. 要做计算器用另外买一个新的计算器就行了,干吗非常用这不清不楚的东西?

   1. 我不知道它的作用
   2. 我不知道它的原理
   3. 我不知道它的计算方法和计算过程
   4. 要做计算器用另外买一个新的计算器就行了,干吗非常用这不清不楚的东西?
真的难为版主了！确实要你修改真的比较难了呢。而且我也无法解释的清楚了，但是我真的十分感谢！
谢谢你的热心！我再试一下吧！不过如果有问题还希望可以向你请教的！

我想请问一下，我如何把word文档里的东西复制到qbasic里面呢，好像不可以复制的！

1.  在word复制文本
2.  在QB窗口单击右键
3.  以上方法不一定凑效,最好另存为文本文件再作剪切复制.

好像不行呢！
只能一个一个的敲进去了呢，昨天晚上电脑出了问题，重装系统了，所以qbasic的文件都丢了！