在TEXT命令中，在提示TEXT：输入0.2%%D，得到的实际文本为（）。
第1题：
在TEXT命令中，在提示TEXT：输入0.2%%D，得到的实际文本为()
A.0.2
B.0.2°
C.0.2%
D.±0.2
第2题：
在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Text1_LostFocus( )
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
else
MsgBox "帐号正确"
End If
End Sub
当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为()
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错
D.没有任何提示
第3题：
在窗体中有两个文本框分别为 text1 和 text2 ，一个命令按钮 command1, 编写如下两个事件过程：
Private sub command1_click()
A=text1.value+text2.value
Msgbox a
End sub
Private sub form_load()
Text1.value= ””
Text2.value= ””
End sub
程序运行时，在文本框 text1 中 78 ，在文本框 text2 中输入 87 ，单击命令按钮，消息框中输出的结果为____ 11 ___
第4题：
在窗体中建立了三个文本框，名称分别为text1、text2和text3，编写以下程序段：
PrivateSubText2_LostFocus()
DimiAsInteger
IfIsNumeric(Text2)Then
Text3.Text="正确!!"
Else
Text2.Text=""
Text2.SetFocus
Text3.Text="错误,再输入!!"
EndIf
EndSub
当在text2中输入字符串"abcd"后，点击text3，运行的结果为()
A.text2的内容清除,text3中显示"正确!!"
B.text3中显示"正确!!"
C.光标聚焦在text2中
D.text2的内容清除,text3中显示"错误,再输入!!"
第5题：
在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：
Private Sub Commandl_Click()
a=Textl．Value+Text2．Value
MsgBox a
End Sub
Private Sub Form_Load()
TextI．Value=“”
Text2．Value=””
End Sub
程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【 】。
第6题：
在TEXT命令中，在提示TEXT：输入%%P0.2，得到实际文本为()
A.0.2
B.0.2
C.0.2%
D.±0.2
第7题：
在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text<>"Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I<>4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "密码帐号正确!"
End If
End Sub
若在text1中输入字符串"Gong"，则程序运行结果为()
A.显示对话框，提示"密码帐号正确!"
B.显示对话框，提示"密码错误"
C.程序出错
D.没有任何提示
第8题：
在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。
编写如下程序：
Private Sub Form_Load（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub
Private Sub Command1_Click（）
x=Val（Text1.Text）
y=Val（Text2.Text）
Text3.Text=f（x，y）
End Sub
Function f（ByVal x As Integer,ByVal y As Integer）
Do While y<>0
tmp=x Mod y
x=y
y=tmp
Loop
f=x
End Function
运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是（ ）。
A．4
B．6
C．8
D．12
Visual Basic通过关键字ByVal来实现传值。这时候，Visual Basic为形参分配内存，并将相应的实参值复制给形参。对于f，其参数分别为x=36,y=24，这里的x、y与事件过程中的x、y使用的不是同一个地址。f的返回值为12，因此Text3中的内容是12。
第9题：
窗体上有名称分别为Text1、Text2的2个文本框，要求文卒框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是______。 Private Sub Text1 LostFocus() Call CheckInput(Text1,500) End Sub Private Sub Text2 LostFocus() Call CheCkInput(Text2,1000) End Sub Sub CheckInput(t AS ?,x As Integer) If Val(t.Text)＞X Then MsgBox "请重新输入!" End If End Sub
A．Text
B．SelText
C．Control
D．Form
第10题：
在 Text 命令中，若要输入直径符号，应输入( )。
A、%%O
B、%%D
C、%%C
D、%%R