如何使计算后数值为0的文本框显示为空白？

煮江管理员给的实例研究了一周也消化不透，只好用一个很笨的方法来做统计，实现的途径就是通过下面这些代码给窗体上的文本框分别赋值，现在求值的目的基本达到了，但显示出来很多的0.00%非常不好看，能否用一段通配符式的代码判断出哪些文本框的值是0，并使其显示为空白？

不怕大家笑话，这样的计算代码有几十行，如果逐行加上判断条件实在太过“壮观”，我想尽量低调些......

多谢了。

    Me.票数 = DCount("姓名", "测评表", "姓名='" & Me.姓名 & "'")
    Me.cp1a = (DCount("测评1", "测评表", "测评1='好' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp1b = (DCount("测评1", "测评表", "测评1='较好' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp1c = (DCount("测评1", "测评表", "测评1='一般' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp1d = (DCount("测评1", "测评表", "测评1='差' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp2a = (DCount("测评2", "测评表", "测评2='好' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp2b = (DCount("测评2", "测评表", "测评2='较好' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp2c = (DCount("测评2", "测评表", "测评2='一般' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp2d = (DCount("测评2", "测评表", "测评2='差' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp3a = (DCount("测评3", "测评表", "测评3='好' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp3b = (DCount("测评3", "测评表", "测评3='较好' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp3c = (DCount("测评3", "测评表", "测评3='一般' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp3d = (DCount("测评3", "测评表", "测评3='差' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp4a = (DCount("测评4", "测评表", "测评4='好' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp4b = (DCount("测评4", "测评表", "测评4='较好' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp4c = (DCount("测评4", "测评表", "测评4='一般' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp4d = (DCount("测评4", "测评表", "测评4='差' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp5a = (DCount("测评5", "测评表", "测评5='好' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp5b = (DCount("测评5", "测评表", "测评5='较好' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp5c = (DCount("测评5", "测评表", "测评5='一般' and 姓名='" & Me.姓名 & "'")) / Me.票数
    Me.cp5d = (DCount("测评5", "测评表", "测评5='差' and 姓名='" & Me.姓名 & "'")) / Me.票数