在窗体上画一个文本框,名称为Textl,然后编写如下程序: Private Sub Form Load() Open“d:\temp\dat.txt”For Output As#1 Textl.Text="" End Sub

admin2012-12-08  30

问题 在窗体上画一个文本框,名称为Textl,然后编写如下程序:
    Private Sub Form Load()
    Open“d:\temp\dat.txt”For Output As#1
    Textl.Text=""
    End Sub
    Private Sub Textl—KeyPress(KeyAscii As Integer)
    If______=13 Then
    If UCase(Textl.Text)__________Then
    Close 1
    End
    Else
    Write#1。
    Textl.Text=""
    End If
    End If
    End Sub
    以上程序的功能是,在D盘temp目录下建立一个名为dat.txt的文件,在文本框中输
入字符,每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.
txt,并清除文本框中的内容;如果输入“END”,则结束程序。请填空。

选项

答案KeyAscii “END” Textl.Text

解析 第一一空是通过参数检测用户是否按下ENTER键.第二空处是如果文本框中的字符串是“END”时用户按下ENTER键的响应操作。第三处是文本框中的文本保存到文件中。
转载请注明原文地址:https://kaotiyun.com/show/r3hp777K
0

最新回复(0)