Private Sub Text1_Change()label1.Caption = Str((Text1.Text) / 3.14)End Sub基础内容应该先学好，直接做程序会很困难的
用文本框 afterupdate 事件
