text4,8,12,16,20 运行结果就有%号

目测是文本格式问题，请把"2%" 改成0.02试试

我把判断条件反过来写好是正常了
不知对不对
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 = "合格"
Else
Text51 = "不合格"
End If
If Text24 <= "4%" Then
Text52 = "合格"
Else
Text52 = "不合格"
End If
If a <= "10%" And b <= "10%" And c <= "10%" And d <= "10%" And e <= "10%" Then
Text51 = "合格"
Else
Text51 = "不合格"
End If
If Text24 <= "10%" Then
Text52 = "合格"
Else
Text52 = "不合格"
End If

要用数值比较，不要用字符串来比较！

dim a as single,b as single,c as single,d single,e as single
a = val(Text4.Text)
b = VAL(Text8.Text)
c = VAL(Text12.Text)
d = VAL(Text16.Text)
e = VAL(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

要报错数据类型不匹配a,b,c,d,e文件框里有%号

[此贴子已经被作者于2022-4-25 16:19编辑过]

下面是两个百分数的加法运算，想要比较大小不是很容易的事？

Private Sub Form_Load()
Dim a As Single, b As Single
a = Format("13.54%", "0.00####")
b = Format("12.34%", "0.00####")
c = a + b
Debug.Print c
MsgBox Format(c, "0.00%")
End Sub

N那你只要不在文本框里输入%就是了。

或者，你按照16楼的格式转换一下数据也一样。
用数值比较是不会出错的。
字符串比较不好的。
比如："9" 比"100"大。除非补足位数，比如"009"

[此贴子已经被作者于2022-4-28 10:03编辑过]

大家讨论的挺热闹，由于最近时间紧迫，顾不上这些了，忙完了，一定静下心来，好好补一补。