试题详情
简答题 写出下面这段函数实现的功能。 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中显示出来。
  • 关注下方微信公众号,在线模考后查看

热门试题