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

admin2012-03-22  211

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

选项

答案KeyAscii "END" Text1.Text 或 Text1

解析
转载请注明原文地址:https://kaotiyun.com/show/M2hp777K
0

最新回复(0)