小弟要用VB编一个小程序,能对一个文本中的数据进行计算,然后再保存到另个文本中,
数据呢大致是下面那样的
Z9.85A-157.731
Z9.677A-159.989
Z9.526A-162.263
Z9.394A-164.551
Z9.249A-167.619
Z9.138A-170.704
Z9.053A-174.182
Z9.045A-174.579
Z9.005A-178.311
Z9.

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Asha

    16人对此回答表示赞同

    给你个程序你满意不?文件名请自己更换。
    =============================
    Dim z() As Single, a() As Single, i As Integer, j As Integer
    Private Sub Command1_Click()
    Open "d:\a.txt" For Input As 1
    ReDim z(0), a(0)
    Do While EOF(1) = False
    展开
    16
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Jaxon王令

    13人对此回答表示赞同

    你认为哪里有问题??? 是计算不对,还是编译出错??
    展开
    13
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 万劫

    5人对此回答表示赞同

    '只修改2个地方,其他不变 :
    Private Sub Command1_Click()

    Dim temp As String
    Open Text1.Text For Input As #1
    Open Text2.Text For Output As #2
    Do While Not EOF(1)
    Line Input #1, temp
    Dim S As String, A
    D = CDbl(
    展开
    5
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部