在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single，Y As Single) Phnt“程序设计” End Sub Private Sub Textl_KeyDowA．Visual BasicB．程序设计C．A程序设计D．Visual

题目

在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single，Y As Single) Phnt“程序设计” End Sub Private Sub Textl_KeyDow

A．Visual Basic

B．程序设计

C．A程序设计

D．VisualBasic程序设计

相似考题

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

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

3.在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,x As Single,Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print"Visual Basic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容_________。A．Visual BasicB．程序设计C．A程序设计D．Visual Basic程序设计

4.在窗体上画—个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text==" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "VisualBasic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是 ______。A．Visual BasicB．程序设计C．A程序设计D．Visual Basic程序设计

更多“在窗体上画一个名称为Text1的文本框,并编写如下程序:Private Sub Form_Load()ShowText1.Text="Te ”相关问题

  • 第1题：

    设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。

    A. 30

    B. 25

    C. 20

    D. 15


    正确答案：A
    A)    【解析】本题考查函数的参数。数组作为参数进行传递时，VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10，因此最后文本框中显示的内容为30。

  • 第2题：

    在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print"VisualBasic"; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是______。

    A．Visual Basic

    B．程序设计

    C．A程序设计

    D．Visual Basic程序设计


    正确答案：D
    解析：因为程序一运行，文本框Text1获得焦点，按下A键后，执行Text1_KeyDown事件，在窗体上显示“Visual Basic”；这时再单击窗体，则触发Form_MouseUp事件，在窗体上显示“程序设计”。

  • 第3题：

    在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form Load( ) Show Text1.Text="" Text1.SetFocus End Sub Pfivate Sub Form_MouseUp(BuHon As Integer，Shift As Integer，X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer，shift As Integer) Print"Visua1 Basic"； End Sub 程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是

    A．VisualBasic

    B．程序设计

    C．A程序设计

    D．Visual Basic程序设计


    正确答案：D
    解析：按“A”键，将执行“Print”VisualBasic”；”语句，单击窗体，执行“Print”程序设计“”语句。注意“Print”VisualBasic“；”后面以分号结束，则执行下面的Print语句输出的字符会以紧凑方式与之相连。

  • 第4题：

    在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

    程序运行后，单击命令按钮，在文本框中显示的值是

    A．2

    B．3

    C．4

    D．5


    正确答案：B
    题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。

  • 第5题：

    在窗体上画—个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print "程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"； End Sub 程序运行后，如果按A键，然后单击窗体，则窗体上显示的内容是 ______。

    A．Visual Basic

    B．程序设计

    C．A程序设计

    D．Visual Basic程序设计


    正确答案：D
    解析：因为程序一运行，文本框Text1获得焦点，按下A键后，执行Text1_KeyDown事件，在窗体上显示“VisualBasic”；这时再单击窗体，则触发Form.MouseUp事件，在窗体上显示“程序设计”。

相关内容