vb除法代码求助更正

Private Sub Text1_GotFocus(Index As Integer)

Text1(Index).ForeColor = vbWhite
Text1(Index).BackColor = vbBlue

Text1(8).Text = Val(Text1(6).Text) - Val(Text1(7).Text)
Text1(10).Text = Val(Text1(5).Text) + Val(Text1(4).Text) - Val(Text1(6).Text)
If Text1(8).Text < 0 Then

Text1(9).Text = Val(Text1(8).Text) / Val(Text1(6).Text)
Else
'MsgBox "良品数为0，不能计算!"
End If
End Sub

以上代码中:Text1(9).Text = Val(Text1(8).Text) / Val(Text1(6).Text)为什么Text1(9)不能自动算出结果？

谢谢，在线等……

Text1(9).Text = CString(Val(Text1(8).Text) / Val(Text1(6).Text))
转成字符串再显示，和你用Val取数值是相反的过程，忘加的地方都加上试试吧

其他都没问题，就是

If Text1(8).Text < 0 Then

Text1(9).Text = Val(Text1(8).Text) / Val(Text1(6).Text) Else

这句的Text1(8).Text < 0 出问题了，这个的意思是字符串小于0，字符串什么小于0啊，什么情况下小于零你说，是吧。应该改成val（Text1(8).Text ）<0才对。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息