在窗体上画1个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load（）Open"d:\temp\dat.txt"For Output As#1Text1.Text=""End SubPrivate Sub Text1_KeyPress（KeyAscii As Integer）lf【13】=13 ThenIf UCase（Text1.Text）=______ThenClose 1EndElseWrite#1,______Text1.Text=""End IfEnd IfEn
题目
在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load（）
Open"d:\temp\dat.txt"For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
lf【13】=13 Then
If UCase（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”，则结束程序。请填空。
相似考题
更多“在窗体上画1个文本框,名称为Text1,然后编写如下程序: PrivateSubForm_Load() Open"d:\te ”相关问题
-
第1题：
在窗体上画一个文本框(其NAME属性为TExT1)，然后编写如下事件过程： PRIVATE SUB FORM_LOAD( ) DIM SUM TEXT1="" FOR I=1 TO 10 SUM=SUM+I NEXT I TEXT1=SUM END SUB上述程序的运行结果是( )。
A．在文本框TEXT1中输出55
B．在文本框TEXT1中输出0
C．出错
D．在文本框TEXT1中输出不定值
正确答案：A
解析：循环完成1到10的求和，循环结束后，系统将求和结果送给了文本框TEXT1，故文本框TEXT1中输出55。 -
第2题：
在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Textl.Text="" Textl.Set Focus End Sub Private Sub Form_MouseUp(Button As Inateger,Shift As Integer,X As Single,Y As Single) Frint"程序设计" End Sub Private Sub Textl_KeyDown(KeyCode As InteSer,Shin As Integer) Print"VisualBasic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是______。
A．Visual Bask
B．程序设计
C．A程序设计
D．ViualBasic程序设计
正确答案：D
解析：因为程序一运行，文本框Textl获得焦点，按下A键后，执行Textl_KeyDown事件，在窗体上显示“VisualBasic”；这时再单击窗体，则触发Form_MouseUp事件，在窗体上显示“程序设计”。 -
第3题：
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:
Private Sub Form_load()
Text1.Text=″″
Text1.SetFocus
For i=1 To 9
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是
A．在文本框Text1中输出45
B．在文本框Text1中输出0
C．出错
D．在文本框Text1中输出不定值
正确答案：C
解析：由于Form_load事件是在窗体加载时发生，所以此时窗体还没有显示，不能用"Tex1.SetFocus"语句获得焦点，故出错。如要改正，需要在此语句前加入"Me.Show"，显示窗体，则可以看到文本框已获得焦点，并执行循环语句，输出"45"。 -
第4题：
在窗体上画—个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print "程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"； End Sub 程序运行后，如果按A键，然后单击窗体，则窗体上显示的内容是 ______。
A．Visual Basic
B．程序设计
C．A程序设计
D．Visual Basic程序设计
正确答案：D
解析：因为程序一运行，文本框Text1获得焦点，按下A键后，执行Text1_KeyDown事件，在窗体上显示“VisualBasic”；这时再单击窗体，则触发Form.MouseUp事件，在窗体上显示“程序设计”。 -
第5题：
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。
A．在文本框Text1中输出55
B．在文本框Text1中输出0
C．出错
D．在文本框Text1中输出不定值
正确答案：C
解析：焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form.Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的控件上的。 -
第6题：
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。
A．在文本框Text1中输出55
B．在文本框Text1中输出0
C．出错
D．在文本框Text1中输出不定值
正确答案：C
解析：焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form_Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的控件上的。