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

admin2013-10-17  31

问题 在窗体上画1个文本框,名称为Textl,然后编写如下程序:
    Private Sub Form Load()
          Open”C:\dat.txt”For Output As#1
          Textl.Text=””
    End Sub
    Private Sub Text 1_KeyPress(KeyAscii As Integer)
          If____________=13 Then
              If UCase(Textl.Text= _______)Then
                    Close 1
                    End
               Else
                    Write#1.Textl.Text
                    Textl.Text=""
               End If
          End If
    End Sub
    程序的功能是,在C盘根目录下建立1个名为dat.txt的文件,在文本框中输入字符,每    次按回车键(回车符的ASCⅡ码是13)都把当前文本框中的内容写入文件dat.txt    中,并清空文本框中的内容;如果输入“END”,则结束程序,请选择适合空白处    的语句(    )。

选项 A、KeyAscii  ”END”   
B、Textl.Text    ”END”
C、Textl.Text  13   
D、KeyAscii    13

答案A

解析 本题考查KeyPress事件。在Textl中输入字符时,将触发Textl的KeyPress事件,同时可返回一个KeyAscii参数(输入字符的ASCⅡ码,区分大小写)。当KeyAscii为13时,表示输入了回车键,此时判断Textl的文本信息,如果Textl的文本为“END”,则关闭文件,退出程序。
转载请注明原文地址:https://kaotiyun.com/show/jUQp777K
0

相关试题推荐
最新回复(0)