急，两个问题，怎样判断text1.text<=-50,还有一个文本文件问题

Question

我执行if text1.text<=-50 then
        end
      end if
无法执行成功，我应该用什么函数转换text1问题2
我再一个"早晨温度.text"文本文件中储存了
一系列内容
2002-11-12=30
2002-11-13=-10
2002-11-14=16我想实现提取文本文件中的内容
然后进行（30+（-10）+16）/3
得出平均温度
但文本文件中不一定有几行数据
我应该怎么写代码
请帮忙

Answer 1

1.val(text1.text)<=-50 then2.首先你要非常清楚每一行数据都是干什么用的，我帮你把每一行的数据都取出来，至于怎么算，还要看你自己了。
Private Sub Command1_Click()Dim strA() As String
Dim strData As String
Dim i As IntegerOpen App.Path & "\早晨温度.txt" For Input As #1
    Do While Not EOF(1)
     Line Input #1, strData
     strData = Mid(strData, InStr(1, strData, "=") + 1)
     i = i + 1
     ReDim Preserve strA(1 To i) As String
     strA(i) = strData
    Loop
Close #1End Sub最后得到的strA()这个数组里面包含了你想要的数据。

Answer 2

Line Input # 语句
      从已打开的顺序文件中读出一行并将它分配给 String变量。语法Line Input #filenumber, varnameLine Input # 语句的语法具有以下几个部分：部分 描述 
filenumber 必要。任何有效的文件号。 
varname 必要。有效的 Variant 或 String 变量名。 
说明通常用 Print # 将 Line Input # 语句读出的数据从文件中写出来。Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上。Line Input # 语句示例
本示例使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。Dim TextLine
Open "TESTFILE" For Input As #1   ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Line Input #1, TextLine   ' 读入一行数据并将其赋予某变量。
   Debug.Print TextLine   ' 在立即窗口中显示数据。
Loop
Close #1   ' 关闭文件。