[填空题] 在窗体上画一个文本框,名称为Text1,然后编写如下程序:Private Sub Form_Load()Open"d:empdat.txt"For Output

[填空题] 在窗体上画一个文本框,名称为Text1,然后编写如下程序:Private Sub Form_Load()Open"d:empdat.txt"For Output,第1张

[填空题] 在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load() Open"d:empdat.txt"For Output

[填空题] 在窗体上画一个文本框,名称为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中的内容写入磁盘保存。

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/zaji/5626460.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2022-12-16
下一篇2022-12-15

发表评论

登录后才能评论

评论列表(0条)

    保存