A．Private Sub Text1__KeyPress（KeyAscii AS Integer）
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val（Text1）
If a>=0 or a<=100 Then
Text2.SetFocus
E．lse
Text1. SetFocus ; MsgBox（“分数错”）
E．nd If
E．nd If
E．nd Sub
B．Private Sub Text1__KeyPress（KeyAscii AS Integer）
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val（Text1）
If a>=0 And a<=100 Then
Text1.SetFocus
E．lse
Text2. SetFocus ; MsgBox（“分数错”）
E．nd If
E．nd If
E．nd Sub
C．Private Sub Text1__KeyPress（KeyAscii AS Integer）
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val（Text1）
If a<0 And a>100 Then
Text2.SetFocus
E．lse
Text1. SetFocus ; MsgBox（“分数错”）
E．nd If
E．nd If
E．nd Sub
D．Private Sub Text1__KeyPress（KeyAscii AS Integer）
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val（Text1）
If a>=0 And a<=100 Then
Text2.SetFocus
E．lse
Text1. SetFocus ; MsgBox（“分数错”）
E．nd If
E．nd If
E．nd Sub
[单选题]在窗体上从左到右有Text1、Text2两个文本框(见图)，要求运行程序时在Text1中输入—个分数后按回车键，则判断分数的合法性，若分数为0～100中的—个数，则光标移到Text2中；否则光标不动，并弹出对话框“分数错”。下面程序中正确的是______。A．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Va1(Text1) If a＞=0 Or a＜=100 Then T
[试题]在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点位于Text1，当按Tab键时，焦点从Text1越过Text2直接跳到Text3上。本题不得使用任何变量。程序运行时的窗体界面如图2—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
[单选题]（ 19 ）在窗体上画两个文本框（名称分别为 text1 和 text2 ）和一个命令按钮（名称为 command1 ） , 然后编写如下事件过程：Private Sub Command1_Click()x = 0D．o While x < 50x = (x + 2) * (x + 3)n = n + 1Looptext1.Text = Str(n)text2.Text = Str(x)E．nd Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为A． ） 1 和 0B． ） 2
[单选题]在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Form_Load（）ShowText1.Text = ""Text2.Text = ""Text1.SetFocusE．nd SubPrivate Sub Text1_Change（）Text2.Text = Mid（Text1.Text, 8）E．nd Sub程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是（ ）。A．BeijingC
[单选题]在窗体上画两个文本框，其名称分别为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． Bei
[单选题]在窗体上画两个文本框，其名称分别为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．Beij
[单选题]在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load0 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．BeijingC
[单选题]窗体上有名称分别为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（
[试题]在窗体中有两个文本框分别为 text1 和 text2 ，一个命令按钮 command1, 编写如下两个事件过程：Private sub command1_click()A．=text1.value+text2.valueMsgbox aE．nd subPrivate sub form_load()Text1.value= ””Text2.value= ””E．nd sub程序运行时，在文本框 text1 中 78 ，在文本框 text2 中输入 87 ，单击命令按钮，消息框中输出的结果为____
[单选题]在窗体上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示，下划线处应填( )。Private Sub Text1_ _________() TextText=Text1.Text End SubA．SetFocusB．ChangeC．GetFocusD．Click