变量S为字符型，若在文本框Text1、Text2中分别输入数字2

下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是

Private Sub Text1_Change（）

Text2.Text=Str（6.28 * Val（Text1.Text） ）

End Sub （ ）。

A．将在文本框Text1输入的数字变为数值

B．将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串

C．只要Text1中的内容一改变，Text2中显示的圆周长也随之改变

D．事件过程中的Val函数和Str函数使用错误，事件过程不能执行

窗体上有名称分别为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

在窗体中有两个文本框分别为 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 ___

在窗体中建立了三个文本框，名称分别为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中显示"错误,再输入!!"

在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (A)d=UCase (B)Print c；d End Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是______ 。

A．abcEFG

B．abcefg

C．ABCefg

D．ABCEFG

（ 29 ）在窗体上画一个命令按钮和两个文本框，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：

Dim S1 As String, S2 As String

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

S2 = S2 & Chr(KeyCode)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

S1 = S1 & Chr(KeyAscii)

End Sub

Private Sub Command1_Click()

Text1.Text = S2

Text2.Text = S1

S1 = ""

S2 = ""

End Sub

程序运行后，在 Text1 中输入 “ abc ” ，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为

A ） abc 和 ABC

B ） abc 和 abc

C ） ABC 和 abc

D ） ABC 和 ABC

在窗体(Name 属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Commnd1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_ Load () Text1 Text=“” Text2 Text=“” End sub程序运行后，在第一个文本框(Text1)和第二个文本框(text2)中分别输入123和321，然后单击命令按钮，则输出结果为______ 。

A．444

B．321123

C．123321

D．132231

窗体上有名称分别为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

对以下此段程序说法正确的是( )

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

DimLenstraAsInteger,jAsInteger

DimStraAsString,SAsString*1

S=Chr(KeyAscii)

SelectCaseS

Case"0"To"9",",",".","-"

CaseElse

KeyAscii=0

EndSelect

EndSub

A.S取得的是输入的KeyAscii值

B.若在文本框中输入除了数字0～9，,逗号，负号，小数点之外的其他字符，则能够继续输入

C.若在文本框中输入数字0～9，,逗号，负号，小数点为有效数字串，可以继续输入

D.当KeyAscii=0时可以继续输入

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：

Private Sub Form_Load（）

Show

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Text1_Change（）

Text2.Text = Mid（Text1.Text, 8）

End Sub

程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是（ ）。

A．BeijingChina

B．China

C．Beijing

D．BeijingC