Sub ClearData()
   Num1 = 0
   Num2 = 0
   StrNum1 = ""
   StrNum2 = ""
   FirstNum = True
   PointFlag = False
   Runsign = 0
   SignFlag = False
   Text1.Text = "0."
End Sub
Private Sub Form_Load()
ClearData
End Sub

我也不怎么理解你的意思

我的意思就是想自己定义一个类型
并且一点击按扭，在文本框中显示出自己给的它的那个值
请教大家帮我写一下代码吧
我真的都试了还是不行啊

Type address
    phone As String
    End Type
   
   
Private Sub Command1_Click()
 Dim myhome As address
myhome.phone = "123456"

Text1.Text = myhome.phone
End Sub

1.开始->程序->Microsoft Visual Basic 6.0中文版->Microsoft Visual Basic 6.0中文版
2.文件->新建->标准EXE工程
3.工程->添加模块->确定
4.在模块中输入:
    Public Type Address
        Phone As String
    End Type
5.回到窗体->点击工具箱 CommandButton(命令按扭)->在窗体上画出来.
6.点击工具箱 TextBox(文本框1)->在窗体上画出来.
7.为Command1编写Click事件:
Private Sub Command1_Click()
    Dim MyHome As Address
    MyHome.Phone = "020-33441314"
   
    Text1.Text = MyHome.Phone
End Sub
8.运行->启动
9.点击Command1->在Text1中显示结果.
10.点击Form1右上角关闭按扭退出程序

感谢，感谢，非常感谢了
但是你说的我好象是一点vb的基础也没有
真是所谓的一步一步的叫啊
总的来说还是非常感谢你的帮我解决了一道我自认为的难题啊
谢谢拉
也同样谢谢大家

呵呵，版主好强啊，把过程写那么详细，终于让楼主明白了

可以吗?