![](https://lstatic.shangxueba.com/jiandati/h5/images/m_q_title.png)
能清除文本框Text1中内容的语句是()。
A.Text = ""
B. Text 1.Text = ""
C. Text 1.clear
D. Text 1.Cls
A.Text = ""
B. Text 1.Text = ""
C. Text 1.clear
D. Text 1.Cls
Private Sub Command1_Click(
Private Sub Command1_Click()
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Private Sub Command2_Click()
If Me!Text1=""Or Me!Text2=""Or Me!Text3=""Then
MsgBox "成绩输入不全"
Else
Me!Text4=(【 】+Val(Me!Text2)+Val(Me!Text3))/3
【 】
End Sub
Private Sub Command3_Click()
Docmd.【 】
End Sub
在窗体上画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”,则结束程序。请填空。
A.Text1.Maxength=0
B.Text1.Enabled=False
C.Text1.Visible=False
D.Text1.Width=0
A.Text1. MaxLength=0
B.Text1. Enabled=False
C.Text1. Visible=False
D.Text1. Width=0
A.Text1.MaxLength=0
B.Text1.Enabled=Flase
C.Text1.Visible=Flase
D.Text1.Width=0
A.text2的内容清除,text3中显示"正确!!"
B.text3中显示"正确!!"
C.光标聚焦在text2中
D.text2的内容清除,text3中显示"错误,再输入!!"
(12)在窗体上画一个文本框,名称为 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)
If KeyAscii=13 Then
If UCase(Text1.Text)= 【14】 Then
Close #1
End
Else
Write #1, 【15】
Text1.Text=""
End If
End If
End Sub
以上程序的功能是:在 D 盘 temp 文件夹下建立一个名为 dat.txt 的文件,在文本框中输入字符,每次按
回车键都把当前文本框中的内容写入文件 dat.txt,并清除文本框中的内容:如果输入“END”,则不写入
文件,直接结束程序。请填空。
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!