变量S为字符型，若在文本框Text1、Text2中分别输入数字23和35，再执行以下语句，S的值为“58”的是（）

下面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函数使用错误，事件过程不能执行

（ 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

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

在窗体上画一个命令按钮和两个文本框，其名称分别为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和abe

C．ABC和abc

D．ABC和ABC

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

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时可以继续输入

在窗体上画一个命令按钮和两上文体，其名称分别为 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

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

（ 28 ） 窗体上有名称分别为 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和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中显示"错误,再输入!!"

在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。

Private Sub Command1_Click（ ）

Dim str As String, s As String, c As String

str = UCase（Text1）

s = ""

c = "Z"

While c >= "A"

If InStr（str, c） = 0 Then

s = 【7】

End If

c = Chr$（Asc（c） 【8】 ）

Wend

If s <> "" Then

Text1 = s

End If

End Sub