問答題

【簡(jiǎn)答題】

寫出下面這段函數(shù)實(shí)現(xiàn)的功能。
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中的內(nèi)容在文本框Text1中顯示出來。
題目列表

你可能感興趣的試題

問答題

【簡(jiǎn)答題】自定義用戶坐標(biāo)系有哪兩種方法?

答案: 1.通過修改scaletop、scaleleft、scalewidth和scaleght的屬性值建立坐標(biāo)系。
...
判斷題

標(biāo)準(zhǔn)控件可以添加或刪除。

答案: 錯(cuò)誤
微信掃碼免費(fèi)搜題