Question

VB6.0如何读取TXT中的数据并求和

Answer 1

3个TextBox，点击Command1可以弹出对话框，显示三个文本框的内容并显示总和。注意：内容必须为数字。
代码如下：
Private Sub Command1_Click()
MsgBox "第一个文本框内容" & Text1.Text & "，第二个文本框内容" & Text2.Text & "第三个文本框内容" & Text3.Text & 总和 Text1.Text + Text2.Text + Text3.Text & "。"
End Sub
读取文件的话，用下面的代码：
Private Sub Command1_Click()
Dim txt1 As String, txt2 As String, txt3 As String
Open "d:\123\1.txt" For Input As #1
txt1 = Input(LOF(1), 1)
Close #1
Open "d:\123\2.txt" For Input As #1
txt2 = Input(LOF(1), 1)
Close #1
Open "d:\123\3.txt" For Input As #1
txt3 = Input(LOF(1), 1)
Close #1
MsgBox "第一个文件内容" & txt1 & " 第二个文件内容" & txt2 & " 第三个文件内容" & txt3 & "总和" & txt1 + txt2 + txt3 & "。"
End Sub
希望能帮助到你！

追问

文本是这种情况，我让VB6.0读取TXT文本里的数据，并分别求出张三和李四下面数据的和

追答

建一个RichTextBox，接下来写代码

追问

代码怎么写

追答

写代码 Option Explicit Private Sub Command1_Click() Dim A As String Open "d:\1.txt" For Input As #1 A = Input(LOF(1), 1) Close #1 RichTextBox.Text = A MsgBox "读取成功!"

追问

不是这种，是把文本里的数据，一个一个的读出来，再把他们相加

追答

代码写不下了，告诉我邮箱吧，我发给您。
我邮箱 Eric.Clock@hotmail.com，代码写好了，正等着您呢！

Answer 2

提取数据是指每行一个数还是怎么着？

追问

文本是这种情况，我让VB6.0读取TXT文本里的数据，并分别求出张三和李四下面数据的和