itgle.com

在窗体上画一个文本框，然后编写如下事件过程： 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

题目

在窗体上画一个文本框，然后编写如下事件过程： 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．a

B．A

C．aaaaaaa

D．AAAAAAA

相似考题

1.（ 28 ）在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA _KeyPress(KeyAscii As Integer)......End Sub假定焦点已经位于文本框中，则能够触发 KeyPress 事件的操作是A ） 单击鼠标B ） 双击文本框C ）鼠标滑过文本框D ）按下键盘上的某个键

2.在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为______。A． 123B．456C．479D．123456

3.在窗体上画一个文本框(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

4.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click（）x = InputBox（"请输入一个整数"）Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。A．123B．456C．479D．123456

更多“在窗体上画一个文本框,然后编写如下事件过程:Private Sub Text1_KeyPress(Key Ascii As Integer) ”相关问题

  • 第1题：

    在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为

    A．123

    B．456

    C．579

    D．123456


    正确答案：D
    解析：程序运行后，在文本框里输入的是“456”即Text1.Text的值是“456”，在输入对话框里输入“123”，则x的值为“123”，最后的x+Text1.Text即为“123”和“456”两个字符串的连接，故最后的显示结果为“12346”。

  • 第2题：

    在窗体上画一个文本框，然后编写如下事件过程：程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为（ ）。

    A. a

    B. A

    C. aaaaaa

    D. AAAAAA


    正确答案：D
    D)    【解析】本题考查KeyPress事件过程和字符串函数。KeyPress事件的过程格式为：Sub object_KeyPress([Index As Integer,]KeyAscii As Integer)，其中KeyAscii为字符ASCII码。当在文本框中输入字符a后，UCase函数把输入的字符转化为大写字符，Asc函数则把字符转化为ASCII码值。String函数则产生6个同样的字符A。

  • 第3题：

    在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：

    程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。


    正确答案：
    9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为： 其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。

  • 第4题：

    窗体上画一个名称为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．abcde

    B．efghi

    C．EFGHI

    D．ABCDE


    正确答案：C

  • 第5题：

    在窗体上画一个名称为TxtA的文本框,然后编写如下事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)…EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是()

    A、单击鼠标

    B、双击文本框

    C、鼠标划过文本框

    D、按下键盘上的某个键


    正确答案：D

  • 第6题：

    在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，然后编写如下事件过程：


    正确答案：
    15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。

相关内容