有一个VBA计算程序的功能如下：该程序用户界面由3个文本框和3个按钮组成，3个文本框的41称分别为Text1、Text2和Text3，3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1和Text2两个文本框中输入的数值的和并将结果存放在Text3文本框中；单击退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click()
Me!Text1=""
Me!Text2=""
Me!Text3=""
End Sub
Private Sub Command2_Click()
If Me!Text1=""Or Me!Text2=""Or Me!Text3=""Then
MsgBox"输入不全"
Else
Me!Text4=( (13) +Val(Me!Text2))
(14)
End Sub
Private Sub Command3_Click()
DocmD (15)
End Sub

诚实信用原则是指民事主体进行民事活动必须意图诚实、善意，行使权利不侵害他人与社会的利益，履行义务信守承诺和法律规定，最终达到所有获取民事利益的活动，不仅应使当事人之间的利益得到平衡，而且也必须使当事人与社会之间的利益得到平衡的基本原则。 根据上述定义，没有违背诚实信用原则的是( )。

A．房屋中介公司“一房二卖”

B．王经理为给本部门员工多发奖金而向总公司虚报账目

C．李某在没有足够证据的情况下，向有关部门举报刘某贪污受贿

D．张某与邓某聊天时拒绝透露自己公司的经营状况