设窗体上有一个文本框Text1，以下程序段的功能是（）。 Private Sub Text1_KeyPress（KeyAscii As Integer) If KeyAscii＜65 Or KeyAscii＞90 Then KeyAscii=0 End If End SubA．该文本框只能接收"a"-"z"之间的字母字符B．该文本框只能接收65-90之间的数字C．该文本框只能接收"A"-"Z"之间的字母字符D．该文本框只能接收65或者90
设窗体上有一个文本框Text1，以下程序段的功能是（）。 Private Sub Text1_KeyPress（KeyAscii As Integer) If KeyAscii＜65 Or KeyAscii＞90 Then KeyAscii=0 End If End Sub
A．该文本框只能接收"a"-"z"之间的字母字符
B．该文本框只能接收65-90之间的数字
C．该文本框只能接收"A"-"Z"之间的字母字符
D．该文本框只能接收65或者90
参考答案和解析
D
相关考题：
（ 9 ）在窗体文本框 Text l 中输入 “ 456AbC ” 后，立即窗口上输出的结果是 【 9 】 。Private Sub Textl_KeyPress(KeyAscii As Integer)Select Case DeyAsciiCase 97 To 122Debug.Print Ucase(Chr(KeyAscii));Case 65 To 90Debug.Print Lcase(Chr(KeyAscii));Case 48 To 57Debug.Print Chr(KeyAscii);Case ElseKeyAscii = 0End SelectEnd Sub
在窗体上从左到右有Text1、Text2两个文本框（见图），要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是（ ）。A．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a=0 or a=100 ThenText2.SetFocusElseText1. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd SubB．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a=0 And a=100 ThenText1.SetFocusElseText2. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd SubC．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a0 And a100 ThenText2.SetFocusElseText1. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd SubD．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a=0 And a=100 ThenText2.SetFocusElseText1. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd 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 Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End SubB．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) Ifa＞=0 And a＜=100 Then Text1.SetFocus Else Text2.SetFocus : MsgBox("分数错") End If End If End SubC．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＜0 And a＞100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End SubD．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＞=0 And a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
下面有一段程序代码，如果从键盘上输入"Computer"，则在文本框内显示的内容是Private Sub Text1_KeyPress（KeyAscii As Integer）If KeyAscii =65 And KeyAscii =122 ThenKeyAscii=42End IfEnd Sub（ ）。A．ComputerB．什么都没有C．********D．程序出错
把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。A． AB．BC．CD．D
对文本框Text1编写如下事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim b As Stringb = Chr(KeyAscii)KeyAscii = Asc(UCaseB、)End Sub运行时，下列叙述正确的是( )。A、 Text1中无法输入字符B、 Text1中内容为"b"C、 Text1中输入的字符都变为大写D、 Text1中输入的字符都被转换成ASCII码
（17）在窗体上有一个文本框，其名称为Text1，编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer ) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Test=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”则在文本框Text3中显示的内容为 A.aaa B.AAA C.AA D.aa
在窗体文本框Text1中输入“456ABC”后，立即窗口上输出的结果是【 】。Private SuB Text1_keyPress(keyAscii As Integer)Select Case keyAsciiCase 97 To 122DeBug.Print Ucase (Chr (keyAscii));Case 65 To 90DeBug.Print Lcase (Chr (keyAscii));Case 48 To 57DeBug.Print chr (keyAscii);Case ElsekeyAscii=0End SelectEnd SuB
在窗体上从仨到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1 中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是（ ）。A.Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii==13 Then 回车符的ASCIl码是13 a=Val(Text1) If a=0 Or a=100 Then Text2．SetFocus Else Text1．SetFocus：MsgBox("分数错") End If End If End SubB.Private Sub Textl—KeyPress(KeyAscii As Integer) If KeyAseii=13 Then 回车符的ASCIl码是13 a=Val(Text1) If a=0 And a=100 Then Textl．SetFocus Else Text2．SetFocus：MsgBox("分数错") End If End If End SubC.Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=Val(Text1) If a0 And a100 Then Text2．SetFocus Else Text1．SetFocus：MsgBox("分数错") End If End If End SubD.Private Sub Text1_KeyPress(KeyAscii As Integer) If KevAscii=13 Then 回车符的ASCII码是13 a=Val(Textl) If a=0 Aad a=100 Then Text2．SetFocus Else Text1．SetFocus：MsgBox("分数错") End If End If End Sub
在窗体上画一个文本框(Textl)，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4，KeyAscii) End Sub 程序运行后，在文本框Text1中输入A，则程序在窗体上的输出结果为A．aB．AC．aaaaD．AAAA
在窗体上添加文本框Text1，然后编写下列程序： Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char=Chr(KeyAscii+1) KeyAscii=Asc(Ucase(Char)) End Sub Private Sub Command1_Click() Print Text1.Text End Sub 程序运行后，在文本框中依次输入1、2、3、a、b、c，单击命令按钮，则窗体上显示的内容是A．23BCDB．ABCC．!@#ABCD．123abc
在窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch)) TextText = String(1, KeyAscii) End Sub程序运行后，使文本框拥有焦点，然后按键盘上的B键，则在文本框中显示的内容是 ______。A．bB．bbC．BBD．B
窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。A．abcdeB．efghiC．EFGHID．ABCDE
在窗体上面有一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) TextText=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在文本框Text1中显示的内容为( )。A．aaaB．AAAC．AAD．aa
在窗体上面有一个文本框，其名称为Text1，编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。A．aaaB．AAAC．AAD．aa
在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。 Private Sub Text1_KeyPress＜KeyAscii As Integer) Dim char as String char=Chr(KeyAscii) Text1.Text=String(5，KeyAscii) End SubA．aaaaaB．AAAAAC．aaaaaaD．AAAAAA
下面有一段程序代码，如果从键盘上输入“Computer”，则在文本框内显示的内容是 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii＞=65 And KeyAscii＜=122 Then KeyAscii=42 End If End SubA．ComputerB．什么都没有C．********D．程序出错
在窗体上画一个文本框，然后编写如下事件过程：Private Sub Text1_ KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1. Text= String(6，KeyAscii)End Sub程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为______。A．aB．AC．aaaaaaaD．AAAAAAA
下面有—段程序代码，如果从键盘上输入"Computer"，则在文本框内显示的内容是 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii＞=65 And KeyAscii＜=122 Then KeyAscii=42 End If End SubA．ComputerB．什么都没有C．* * * * * * * *D．程序出错
在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是A．bbbB．BBBC．BBD．bb
在窗体上画一个名称为Textl的文本框．要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是：（ ）A．Private Sub Text1＿KeyPress(KeyAscii As Integer)If KeyAscii65 0r KeyAscii90ThenB．C．D．
下面有一段程序代码,如果从键盘上输入"Computer",则在文本框内显示的内容是Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii =65 And KeyAscii =122 ThenKeyAscii=42End IfEnd SubA．ComputerB．什么都没有C．********D．程序出错
在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母e，则文本框中显示的内容为 ______。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char as String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(5，KeyAscii) End SubA．eeeeeB．EEEEEC．eeeeeeD．EEEEEE
在窗体上有一个文本框，其名称为Text1，编写下列事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim str As Stringstr=Chr(KeyAscii)KeyAscii=Asc(UCase(str))Text1.Text=Stririg(2,KeyAscii)End Sub程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。A．aaaB．AAAC．AAD．aa
在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String，n As Integer str=UCase(Chr(KeyAscii)) n=Len(str)。 Text1．Text=String(n，str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（ ）。A.A.pp B.pP C.ｐｐ D.PpB.
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)Dim str As StringStr=Chr(KeyAscii)KeyAscii=Asc(UCase (str))Textl.Text=String(2, KeyAscii)End Sub程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是A．bbbB．BBBC．BBD．bb
在窗体上画一个名称为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 Integer, Shift As Integer) If KeyCode 65 Or KeyCode 90 Then MsgBox "请输入大写字母" KeyCode = 0 End If End SubC．Private Sub Text1_MouseDown(Button As Integer,_ Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) 65 Or Asc(Text1.Text) 90 Then MsgBox "请输入大写字母" End If End SubD．Private Sub Text1_Change() If Asc(Text1.Text) ＞ 64 And Asc(Text1.Text) ＜ 91 Then MsgBox "请输入大写字母" End If End Sub
在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。A．aB．AC．aaaaaaaD．AAAAAAA