作者f7131129 (36)
看板Visual_Basic
标题[.NET] 读取档案後计算
时间Sat May 7 12:11:26 2011
大家好
我做的是读取一个档案之後要计算，
现在档案读的进来，但无法运算
我不知道我接下来该怎麽做
希望大家可以帮帮忙
我目前是把它分为两个步骤做
一是读取档案，另一则是做平均
我现在卡在第二步骤平均的部份
麻烦大家了
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filename As String = "d:\vb\1.txt"
FileOpen(1, filename, OpenMode.Input)
Dim str As String = ""
Dim s As String = ""
Do While Not EOF(1)
Input(1, s)
str = str + s + vbLf
Loop
TextBox5.Text = str
End Sub
----------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a, b, c, d As Short
Dim TextBox5.text As long
Do Until EOF(1)
b = b + a
c = c + 1
Loop
d = b / c
TextBox1.Text = Str(b)
FileClose(1)
End Sub
End Class
对了 因为我是用VB2008写的，
我不知道分类在这个区对不对，
如果有误请见谅 我会改的
※ 编辑: f7131129 来自: 111.184.208.77 (05/07 12:14)
1F：推 sueadolph:没去看得很仔细， Dim textbox5.text as long ???? 05/07 23:00
2F：→ sueadolph:完全不懂第二段要做什麽事orz 05/07 23:02
3F：→ f7131129:第二段我需要求出资料的平均，而dim textbox5.text 05/08 00:14
4F：→ f7131129:则是因为资料读进来时是字串（应该没错吧） 05/08 00:15
5F：→ f7131129:应该还需要需告为数值吧!!这我就不太懂了 05/08 00:17
6F：→ MOONRAKER:textbox.text怎麽可能给你再dim。宣告一个别的long变数 05/08 12:27
7F：→ MOONRAKER:把text转换以後放进去还差不多 重点是转换 05/08 12:27
8F：→ f7131129:谢谢，我现在去做做看 ，如果还是不行，再来请教大家唷~ 05/08 13:43
9F：→ sosokill:可以重复宣告吗?XD 05/09 02:07