Question

VB6 编程 帮我解释一下下面的代码，主要是中间部分详细一下

Dim TempA, TempB As String
TempA = Trim(txt_lotNo.Text)

If (Len(TempA) = 6 And CInt(Mid(TempA, 3, 2)) > 50) Then
TempB = Left(TempA, 2) & Format(CInt(Mid(TempA, 3, 2)) - 50, "00") & Right(TempA, 2)
Else
TempB = TempA
End If

Answer 1

如果TempA 的长度为6，且TempA 的第3、4两位数字大于50，则TempB将被计算为：

TempA 的前2位，连接TempA的中间2位减去50以后的值，再连接TempA 的后2位。

否则就将TempA 原封不动地赋值给TempB。