![[填空题] 在窗体上画一个文本框,名称为Text1,然后编写如下程序:Private Sub Form_Load()Open"d:empdat.txt"For Output,第1张 [填空题] 在窗体上画一个文本框,名称为Text1,然后编写如下程序:Private Sub Form_Load()Open"d:empdat.txt"For Output,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E5%9C%A8%E7%AA%97%E4%BD%93%E4%B8%8A%E7%94%BB%E4%B8%80%E4%B8%AA%E6%96%87%E6%9C%AC%E6%A1%86%EF%BC%8C%E5%90%8D%E7%A7%B0%E4%B8%BAText1%EF%BC%8C%E7%84%B6%E5%90%8E%E7%BC%96%E5%86%99%E5%A6%82%E4%B8%8B%E7%A8%8B%E5%BA%8F%EF%BC%9APrivate+Sub+Form_Load%28%29Open%26amp%3Bquot%3Bd%3Aempdat.txt%26amp%3Bquot%3BFor+Output.png)
[填空题] 在窗体上画一个文本框,名称为Text1,然后编写如下程序:
Private Sub Form_Load()
Open"d:empdat.txt"For Output As#1
Text1.Text=" "
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If UCase(Text1.Text)= (12) Then
Close#1
End
Else
Write#1, (13)
Text1.Text=" "
End If
End If
End Sub
以上程序的功能是:在D盘temp文件夹下建立一个名为dat.txt的文件,在文本框中输入字符,每次按回车键都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入END,则不写入文件,直接结束程序。请填空。
正确答案:Text1.Text
参考解析:当输入值为"END"的时候,退出程序。当输入值不为"END"的时候,将Text1.Text中的内容写入磁盘保存。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)