privatesubcommad1_click()dima,b,casistringifa>bthentext4.text=aelsetext4.text=belseifa>ctext4.text=aelsetext4.text=c。。。。。。。。。。。。。(省略)endifendsub废话不多说了你问的问题嘛。text4.text=a可以实现,但前提是定义A变量是字符值。如果是输入的字符串的话需要引号。