问答题
写出下面这段函数实现的功能。 Private Sub Command1_Click（） Dim inData As String Text1.Text="" Open".\smtext1.txt"For InputAs#1 Do While Not EOF（1） Input#1，inData Text1.Text=Text1.Text&inData Loop Close#1 End Sub
将文件smtext1.txt中的内容在文本框Text1中显示出来。
问答题 自定义用户坐标系有哪两种方法？
判断题 标准控件可以添加或删除。
判断题 窗体中的Caption属性用于设置标题栏中显示的文本，可以在代码窗口或属性窗口中设置。
