Private Sub Command1_Click()MsgBox """" & Text1.Text & """的长度为" & Len(Text1.Text)End SubPrivate Sub Form_Load()Command1.Caption = "计算"Text1.Text = "1234"End Sub
