7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
' 这儿的值,按你的需要来设置:
Private Const MAXVALUE As Double = 50
Private Const MINVALUE As Double = 10.6
' 也可以定义成变更,在窗口中用两个TextBox来输入,
' 然后用Command,或者在TextBox的事件代码中进行赋值。
Private Sub Text1_Change()
Dim dTemp As Double
dTemp = Val(Text1.Text)
If (dTemp >= MINVALUE And dTemp <= MAXVALUE) Then Exit Sub
Open "X:\temp\记录.txt" For Append As #1
'记录出现异常的时间、异常数据值:
Print #1, Time$, Text1.Text
Close
End Sub