编程小问题..VBasic达人请进(问题更新,关于文件保存)

七匹狼

惃原来的内容删了。
-----------以下代码-------------------
Open \"e:\\计算结果.txt\" For Output As #1
Print #1, \"正交表如下所示\"
Print #1, \"Table: l27 (3 ^ 13)\"
Print #1, \"  dc    D    Np   L      Rsc     Rsy    h    \"
For i = 1 To 27
Print #1, Tab(1); l27(i, 1); Tab(9); l27(i, 2); Tab(17); l27(i, 3); Tab(21); l27(i, 4); Tab(31); l27(i, 5); _
Tab(41); l27(i, 6); Tab(51); l27(i, 7);
Write #1,
Next
For i = 1 To 27

Print #1, \"*************************************************************************\"
Print #1, \"管程计算结果:              \"
Print #1, \"流通面积Ac(m2):\", Tab(30); Left(Ac1(i), 5)
Print #1, \"流速Uc(m/s):\", Tab(32); Left(Uc1(i), 5)
Print #1, \"雷诺准数Rec:\", Tab(30); Left(Rec1(i), 5)
Print #1, \"普兰特准数Prc:\", Tab(29); Left(Prc1(i), 5)
Print #1, \"对流传热系数αc(W/(m·℃):\", Tab(29); Left(αc11(i), 5)
Print #1, \"                                         \"
Print #1, \"壳程计算结果:              \"
Print #1, \"流通面积Ay(m2):\", Tab(30); Left(Ay1(i), 5)
Print #1, \"流速Uy(m/s):\", Tab(32); Left(Uy1(i), 5)
Print #1, \"当量直径de(m):\", Tab(30); Left(de1(i), 5)
Print #1, \"雷诺准数Rey:\", Tab(30); Left(Rey1(i), 5)
Print #1, \"普兰特准数Pry:\", Tab(30); Left(Pry1(i), 5)
Print #1, \"对流传热系数αy(W/(m·℃):\", Tab(29); Left(αy1(i), 5)
Print #1, \"                                         \"
Print #1, \"总传热系数KK(W/(m·℃):\", Tab(29); Left(αc11(i), 5)
Print #1, \"实际换热面积Af(m2):\", Tab(29); Left(Af1(i), 5)
Print #1, \"计算换热面积Aj(m2):\", Tab(29); Left(Aj1(i), 5)
Print #1, \"面积裕量系数YL:\", Tab(29); Left(YL1(i), 5)
Print #1, \"第\"; i; \"次计算结束!\"

Next
Close #1
-----------------------------------------
假设＊计算程序.exe 目录是F:\\FF
Q1＊能否让生成的 计算结果.txt 自动保存到 F:\\FF
也就是和  计算程序.exe 处于同一目录下.并且在程序运行后自动打开  计算结果.txt
Q2:能否自己命名计算结果.txt

PS:最好能写出代码

编这个程序也的了一个星期了， 之前从未接触过VB，
在图书馆借了几本VB资料 都没能找到答案，只好到总部了

七匹狼

第一次用VB，很的基础的东西都没学...
SO， 达人们的的指教~~~

在这里先谢了~！

deadsea007

我只会C和Fortran，而且在Linux下编程。对于VB嘛。爱莫能助咯。帮顶，等VB高手。

七匹狼

继续等待高人出现！


谢谢deadsea007~！

uncle

我是个JAVA程序员，对于VB，快忘光了，我看有几点可能有错
1。wc*cc如果等于0（如果是数值），那么出现计算错误
2。result = tc2()中的和tc2方法是否应该在声明时有返回类型
3。 text的最好用String，可变类型最好少用
4。作好进程式编程的VB不是OOP的C++和JAVA，如果想当程序员，最好学习C

梦幻のFF

好像dim放在API之后写比较好吧

梦幻のFF

计算数据的也许应该有gotoerrhandle处理error information

八位机

Text4.Text = result
是不是该对result做个类型转换？

梦幻のFF

result应该省掉

直接Text4.Text = tc2(tc11, wy1, cy1, ty22, ty11, wc1, cc1)

七匹狼

书七的一个例子. 这个则是可以运行的！
输入千径的值后，计算圆的面积。
这个程序要只要输入 一 个千径值就够了。
而我写的则需要输入 七 个已知条件.
根据各个战友提出的错误，已经一一改过并运行，可是都不能得出结果.



option explicit

private function area(R as variant) as variant
area = 3.14 * R * R
end function

private sub text1_change()
dim i as variant
dim result as variant
i = CVar (text1.text)
result = area ( i )
text2.text =result
end sub