在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text=Left(UCase(SaveAll),4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示

题目

在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:

Dim SaveAll As String

Private Sub Command1_Click()

Text1.Text=Left(UCase(SaveAll),4)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

SaveAll=SaveAll+Chr(KeyAscii)

End Sub

程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。


相似考题
更多“在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:DimSa ”相关问题
  • 第1题:

    在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的是

    A. Visual

    B.Basic

    C.Program

    D.出错


    正确答案:C
    解析:Text是文本框的默认属性。

  • 第2题:

    在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1,然后编写如下代码: Private Sub Command1_Click( ) Text1.Text="AB" End Sub Private Sub Command2_Cliek( ) Text1.Text="CD" End Sub 首先单击Command1按钮,然后再单击Command2按钮,在文本框中显示

    A.AB

    B.CD

    C.ABED

    D.CDAB


    正确答案:B
    解析:当单击Command1时,Text1的Text变为AB;当单击Command2时,Text1的Text属性变为CD。

  • 第3题:

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

  • 第4题:

    在窗体中添加名称为Command1和名称为Command2的命令按钮测验文本框Text1,然后编写如下代码:

    PrivateSubCommand1_Click()

    Text1.Text="AB"

    EndSub

    PrivateSubCommand2_Click()

    Text1.Text="CD"

    EndSub

    首先单击Command2按钮,然后再单击Command1按钮,在文本框中显示( )

    A、AB

    B.CD

    C.ABCD

    D.CDAB


    正确答案:A

  • 第5题:

    在窗体上画两个文本框(其Name属性分别为Text1和Tex12)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程: 程序运行后,单击命令按钮,在两个文本框中显示的值分别为()。

    A10和0

    B2和100

    C3和50

    D4和168


    B