能清除文本框Text1中内容的语句是( )。
A、 Text = ""
B、 Text 1.Text = ""
C、 Text 1.clear
D、 Text 1.Cls
第1题:
有一个VBA计算程序,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后,单击清除按钮,则清除所有文本框中显示的内容;单击计算按钮,则计算在Text1、Text2和Text33个文本框中输入的3科成绩的平均成绩,并将结果存放在Text4文本框中,单击退出按钮则退出。请将下列程序填空补充完整。
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
第2题:
在窗体上画一个文本框(其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中输出不定值
第3题:
哪一条语句执行后将会删除文本框Text1中的文本?
A.Text1.Caption=""
B.Text1.Text=""
C.Text1.Clear
D.Text1.Cls
第4题:
在窗体上画一个文本框(其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中输出不定值
第5题:
哪一条语句执行后将会删除文本框Text1中的文本?
A.Text1.Clear
B.Text1.Text=""
C.Text1.Cls
D.Text1.Caption=""