在窗体上画一个命令按钮和两上文体,其名称分别为 Command1 、 Text1 和 Text2 ,然后编写如下程序:Dim S1 As String, S2 As StringPrivate Sub Form_Load()Text1. Text=””Text2. Text=””End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)S2=s2 & Chr(KeyCode)End SubPrivate Sub Text1_

题目

在窗体上画一个命令按钮和两上文体,其名称分别为 Command1 、 Text1 和 Text2 ,然后编写如下程序:

Dim S1 As String, S2 As String

Private Sub Form_Load()

Text1. Text=””

Text2. Text=””

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

S2=s2 & Chr(KeyCode)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

S1=S1 & chr(KeyAscii)

End Sub

Private Sub Command1_Click()

Text1.Text=S2

Text2.Text=S1

S1=""

S2=""

End Sub

程序运行后,在Text1中输入"abc",然后单击命令按钮,在文本框 Text1 和 Text2 中显示的内容分别为( )。A.abc 和 ABC

B.abc 和 abc

C.ABC 和 abc

D.ABC 和 ABC


相似考题
参考答案和解析
正确答案:C
 Chr(charcoDe) 返回 String ,其中包含有与指定的字符代码相关的字符。
控件的 KeyPress 事件的 KeyAscii 参数是所按键的 ASCII 码;
控件的 KeyDown 事件的 KeyCoDe 是按键的实际的 ASCII 码,该码以“键”为主,而不是以“字符”为准。
更多“在窗体上画一个命令按钮和两上文体,其名称分别为 Command1 、 Text1 和 Text2 ,然后编写如 ”相关问题
  • 第1题:

    在窗体上画两个文本框和一个命令按钮,然后在命令按钮的代码窗口中编写如下事件过程:

    Private Sub Command1_Click()

    Text 1="VB programming"

    Text 2=Text 1

    Text 1="ABCD"

    End Sub

    程序运行后,单击命令按钮,文本框Text 2中显示的内容为【 】。


    正确答案:VB programming
    VB programming 解析:本段程序是先把“VB programming”赋给Text 1,然后在把Text 1的内容赋给Text 2,最后把“ABCD”赋给Text 1。所以最后Text 1中的内容是“ABCD”,而Text 2中的内容是“VB programming”。

  • 第2题:

    在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程: Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2,4,6 x=20 Case Is<10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是 ______。

    A.10

    B.20

    C.30

    D.40


    正确答案:A
    解析:SelectCase执行时,首先计算SelectCase语句中的测试表达式的值,然后从第一个Case开始找满足该值的Case语句,遇到第一个表达式列表值与测试表达式相匹配的Case语句,则执行其后的语句序列,然后跳出Select Case结构。而本题第一个语句就满足条件,所以执行第一条语句,结果为x=10。

  • 第3题:

    在窗体上画两个文本框,(其Name 属性分别为Text1和Text2)和一个命令按纽(其Name属性为Command1),然后编写如下事件过程()

    A1和0

    B2和72

    C3和50

    D4和168


    B

  • 第4题:

    在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: Private Sub Command1_Click() A=Text1.Text+TextText Print a End Sub Private SUb Form胃Load() Text1.Text= " " TextText=" " End Sub程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44,然后单击命令按钮,则输出结果为

    A.77

    B.33+44

    C.3344

    D.4433


    正确答案:C
    解析:对于该题,初学者一般都会认为选项A是答案,这是因为还没有建立数值和字符的概念。在文本框中的内容,在形式上无论是数值还是字符,实际上它都是字符。本题中的加号(+)对字符来讲是起到连接的作用,所以输出的是“3344”。

  • 第5题:

    在名为“Form1”的窗体上添加3个文本框和一个命令按钮,其名称分别为“Tem1”、“Text2”、“Text3”和“Command1”,然后编写如下两个事件过程:

    Private Sub Command1 Click()

    Text3=Text1+Text2

    End Sub

    Private Sub Forml Load()

    Text1=""

    Text2=""

    Text3=""

    End Sub

    打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为【 】。


    正确答案:57
    57 解析:本题考查对“+”的理解。在VBA中,“+”既可以用作数学运算符,也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接,然后在第3个文本框中显示,所以应该是57,在连接字符串方面,“+”和“&”是相同的功能,但“&”只能用来连接字符串,而不能进行数学运算。命令按钮 Command1的Click事件是:Text3=Text1-1-Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中,窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后,单击命令按钮来触发其Click事件,完成两个字符串的连接。

  • 第6题:

    在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: 程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入“同学们,”和“你们好”,然后单击命令按钮,则输出结果为多少?
    程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入“同学们,”和“你们好”,然后单击命令按钮,则输出结果为:同学们,你们好。