Question

VB text1,text2输入数字，单击Command1按钮，设置小于1.25，text1的数字颜色自动变红，怎么写

比如 7 5.8 相除 1.2068 小于1.25时 结果是7 变红色

Answer 1

Private Sub Command1_Click()
If Text2.Text = 0 Then Exit Sub
If Text1.Text / Text2.Text < 1.25 Then Text1.ForeColor = &HFF&
End Sub

Answer 2

If Text1.Text < 1.25 Or Text1.Text > 7 Then
Text1.ForeColor = &HFF&
End If

Answer 3

xiaoyuemt的全面