如果在窗体上已经创建了一个文本框对象Text1,可以通过()事件获得输入键值的ASCII码. A、ChangeB、LostFocusC、KeyPressD、GotFocus
如果在窗体上已经创建了一个文本框对象Text1,可以通过()事件获得输入键值的ASCII码.
A、Change
B、LostFocus
C、KeyPress
D、GotFocus
相关考题:
( 32 )在窗体中有一个文本框 text1, 编写事件代码如下:Private sub form_click()X=val(inputbox( “ 输入 x 的值 ” ))Y=1If x then y=2Text1.value=yEnd sub打开窗体运行后。在输入框中输入整数 12 ,文本框 text1 中输出的结果是A ) 1B ) 2C ) 3D ) 4
在窗体上放一个文本框Text1,在文本框中输入456,并有下列事件过程: Private Sub Form_Click() x=InputBox("请输入一个整数") Print x + Text1.Text End Sub单击该窗体,在输入对话框中输入123,单击“确定”按钮后,窗体上显示的是。A. 123 B. 456 C. 579 D. 123456
对文本框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码
在窗体上一个文本框,其名称为Text1,然后编写如下事件过程:PrivateSubText2_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerstr=Ucase(Chr(KeyAscii))n=Len(str)Text1=String(n,str)EndSub程序运行后,如果在TEXT2中通过键盘上输入单字母k,则在文本框Text1中显示的内容为( )A.kB.KC.KKD.Kk
( 17 )设窗体中有一个文本框 Text1 ,若在程序中执行了 Text1.SetFocus ,则触发A ) Text1 的 SetFocus 事件B ) Text1 的 GotFocus 事件C ) Text1 的 LostFocus 事件D )窗体的 GotFocus 事件
在窗体上有一个命令按钮和一个文本框,其名称分别为Command1和text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivatesubCommand1_click()A=inputbox(“Enteraninteger”)B=inputbox(“Enteraninteger”)Text1.text=b+aEndsub程序运行后,单击命令按钮,如果在输入对话框里输入8和10,则文本框中显示的内容是()。A.108B.18C.810D.出错
在名为Form1的窗体上绘制一个文本框,其名称为Text1。编写适当的事件过程,程使序运行后,若单击窗体,则可使文本框移到窗体的左上角;而如果在文本框中输入信息,则可使文本框移到窗体的右上角。程序的运行情况如下图所示。注意:不得使用任何变量,只允许通过修改属性的方式移动文本框:文件必须存放在考生文件夹中,工程文件名为execise112.vbp,窗体文件名为execise112.frm。
在窗体上画一个文本框(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
在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(Key Ascii As Integer) Dim char As String char=Chr(Key Ascii) KeyAscii=Asc(UCase(char)) Text1.Text=Sting(6,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。A.aB.AC.aaaaaaaD.AAAAAAA
在窗体上放一个文本框Text1,在文本框中输入456,并有如下事件过程: Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 单击该窗体,在输入对话框中输入123,单击“确定”按钮后,窗体上显示是( )。A.123B.456C.579D.123456
在窗体上面有一个文本框,其名称为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,在文本框中输入456,并有下列事件过程:Private Sub Form_Click()x=InputBox("请输入一个整数")Print x+Text1.TextEnd Sub单击该窗体,在输入对话框中输入123,单击“确定”按钮后,窗体上显示的是( )。A.123B.456C.579D.123456
在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮,然后编写一个事件过程。要求程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设 置为“VB等级考试二级”。以下能正确实现上述操作的事件过程是( )。
在窗体上画一个文本框,其名称为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
在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程:Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后,若在文本框中输入单字母“p”,则在文本框Text1中显示的内容为( )。A.ppB.pPC.PPD.Pp
在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是( )。A.B.C.D.
单选题在表单Form1中有一个文本框text1,text1的InteractiveChange事件代码如下:CHAR1=ALLTRIM(THIS.VALUE)ASC1=ASC(CHAR1)+32THIS.VALUE=CHR(ASC1)该表单运行后,在文本框中输入一个大写ASCII码“T”,则文本框中显示内容将是()。AT+32BT32CtD97
单选题在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:程序运行后,如果在文本框Text1中输入China Beijing,则在文本框Text2中显示的内容是( )。AChina BeijingBChinaCBeijingDChinaB