If Text4.Text >= "2%" Or Text8 >= "2%" Or Text12 >= "2%" Or Text16 >= "2%" Or Text20 >= "2%" Then
Text51.Text = "不合格"
Else
Text51.Text = "合格"
End If
超过9%就不对了。10%显示是合格。请问是怎么回事？没有%就正常

字符串的问题，仔细看一下书上的字符串如何比较大小的说明吧

按ASCII码来比较，从第一字符开始比较，如果相同，继续比较下一个字符，直到发现不相同 或到字符串最后为止。

能给个代码吗？

我猜楼主想要的一定是数字比大小

首先，TextBox控件中的内容是字符串不是数字，我们可以限制TextBox中的输入，让其只能输入数字

然后 TextBox控件中的内容，转换成数字再进行比较即可。

是数字但有%号我取消%号就正常了。

找到原因了应该是小数的原因。谁能给个有小数的对比代码？谢谢

vb是不认识% 百分号 这个符号的。
％在vb里是数据类型的作用，代表的是整型。
如果是数值类型，建议：
val(text4)转换为数值类型再比较。

Private Sub Command1_Click()
    s = Text1.Text
    nums = Left(s, Len(s) - 1)
    If Right(s, 1) = "%" And IsNumeric(nums) Then
        V = Val(nums)
    End If
    MsgBox V * 2
End Sub

Private Sub Command7_Click()
Call Command1_Click
Call Command2_Click
Call Command3_Click
Call Command4_Click
Call Command5_Click
Call Command6_Click
a = Text4.Text
b = Text8.Text
c = Text12.Text
d = Text16.Text
e = Text20.Text
If a >= "2%" And b >= "2%" And c >= "2%" And d >= "2%" And e >= "2%" Then
Text51.Text = "不合格"
Else
Text51.Text = "合格"
End If
If Text24 >= "4%" Then
Text52.Text = "不合格"
Else
Text52.Text = "合格"
End If
End Sub
还是一样有问题超过10%判断就不对了

你的文本框里输入的是什么数据？有%的吗？运行的时候截图看看