（ 9 ）在窗体文本框 Text l 中输入 “ 456AbC ” 后，立即窗口上输出的结果是 ( 9 ) 。

Private Sub Textl_KeyPress(KeyAscii As Integer)

Select Case DeyAscii

C．ase 97 To 122

D．ebug.Print Ucase(Chr(KeyAscii));

C．ase 65 To 90

D．ebug.Print Lcase(Chr(KeyAscii));

C．ase 48 To 57

D．ebug.Print Chr(KeyAscii);

C．ase Else

KeyAscii = 0

E．nd Select

E．nd Sub

[单选题]在窗体上放一个文本框Text1，在文本框中输入456，并有下列事件过程：Private Sub Form_Click()x=InputBox("请输入一个整数")Print x+Text1.TextE．nd Sub单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示的是( )。A．123B．456C．579D．123456

[单选题]在窗体上放一个文本框Text1，在文本框中输入456，并有下列事件过程： Private Sub Form_Click() x＝InputBox（＂请输入一个整数＂） Print x ＋ Text1.Text End Sub单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示的是。A. 123 B. 456 C. 579 D. 123456

[单选题]在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过程， Private Sub Form. Click() x=InputBox("请输入一个整数") Print x+Text1. Text End Sub 单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示是( )。A．123B．456C．579D．123456

[单选题]在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过程： Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示是( )。A．123B．456C．579D．123456

[单选题]窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（）C．all CheckInput（Text1，500）E．nd SubPrivate Sub Text2_LostFocus（）C．all CheckInput（Text2，1000）E．nd SubSub CheckInput（

[单选题]（ 12 ）在窗体上有一个名为 Text1 的文本框。当光标在文本框中时，如果按下字母键 “ A ” ，则被调用的事件过程是A． ） Form_KeyPress()B． ） Text1_LostFocus()C． ） Text1_Click()D． ） Test1_Change()

[试题]（ 10 ） 在窗体上画一个文本框 ， 其名称为 Text1 ， 在属性窗口中把该文本框的 Mult i Line 属性设置为 True ，然后编写如下的事件过程：Private Sub Form_Click （）Open " d:/test/smtext1.Txt " For Input As #1D．o While Not ( 13 )Line Input #1, aspect$W hole$=whole$+aspect$+Chr$ （ 13 ） +Chr$ （ 10 ）LoopText1

[单选题]在窗体上画两个名称为Text l、Text 2的文本框和一个名称为Command l的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x＝x*3 n=n＋l Loop Textl．Text=Str(x) Text2．Text-Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。A．9和2B．27和3C．195和

[单选题]窗体上有名称分别为Textl、Text2的2个文本框，要求文本框Textl中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在下 划线处应填入的内容是( )。 Private Sub Textl_ostFocus() Call Checklnput(Textl,500) End Sub Private Sub Text2_LostFocus() Call Checklnput(Text2,1000)A．TextB．SelTextC．ControlD

[单选题]在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（ ）。A．Private Sub Text1_KeyPress（KeyAscii As Integer） If KeyAscii < 65 Or KeyAscii > 90 Then MsgBox "请输入大写字母" KeyAscii = 0 End If End SubB．Private Sub Text1_KeyDown（KeyCode As Intege