itgle.com

设窗体上有一个名为Text1的文本框,并编写如下程序:Private Sub Form_Load() Show Text1.Text="" Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer,_Shift As Integer,X As Single,Y As Single) Print"程序设计"End SubPrinvate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integ

题目

设窗体上有一个名为Text1的文本框,并编写如下程序:Private Sub Form_Load() Show Text1.Text="" Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer,_Shift As Integer,X As Single,Y As Single) Print"程序设计"End SubPrinvate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic";End Sub 程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗体上显示的内容是。A.Visual BasicB.程序设计C.Visual Basic 程序设计D.a程序设计


相似考题
更多“设窗体上有一个名为Text1的文本框,并编写如下程序:Private Sub Form_Load() Show Text1.Text= ”相关问题
  • 第1题:

    设窗体上有一个名为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.Visual Basic程序设计

    D.a程序设计


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

  • 第2题:

    在窗体上有一个文本框Text1,Text属性值为空,然后编写下列事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Chr(KeyAscii)) n=Len(str)。 Text1.Text=String(n,str) End Sub 程序运行后,若在文本框中输入单字母“p”,则在文本框Text1中显示的内容为( )。

    A.A.pp B.pP C.pp D.Pp

    B.


    正确答案:B
    B。【解析】解答本题的前提是了解下列几个函数的作用:UCase函数的作用是将某字符串中的字符全部转成大写;String(n,str)函数的作用是返回n个重复字符的字符串;Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码,输入小写字母“P”后,str为大写字母“P”,n=1,String(nstr)为“P”,所以Text1中在按下键盘上的键时又添加了一个“P”。

  • 第3题:

    在窗体上有一个文本框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.pp

    B.pP

    C.PP

    D.Pp


    正确答案:B
    解析:解答本题的前提是了解以下几个函数的作用:UCase函数的作用是将某字符串中的字符全部转成大写;string(n,str)函数的作用是返回n个重复字符的字符串;Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码,输入小写字母“p”后,str为大写字母“P”,n=1,String(n,str)为“P”,所以Text1中在按下键盘上的键时又添加了一个“P”。

  • 第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 Sinqle) Print"程序设计" End Sub Private Sub Text1_Keynown(KeyCode As Integer, Shift As Integer) Print "Visual Basic"; End Sub 程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗体上最示的内容是

    A.Visual Basic

    B.程序设计

    C.Visual Basic程序设计

    D.a程序设计


    正确答案:C
    解析:Form_MouseUp是鼠标放开时触发的事件,而Text1_KeyDown是键盘按下时触发的事件。当在文本框中输入“a”时触发文本框的键盘事件,则窗体上输出Visual Basic,当单击窗体后触发的是窗体的MouseUp事件,则在窗体上又输出了“程序设计”,所以窗体上显示的是“Visual Basic程序设计”。

  • 第5题:

    在窗体上有一个文本框Text1,Text属性值为空,然后编写下列事件过程:

    Private Sub Text1 KeyPress(KeyAscii As Integer)

    Dim str As String,n As Integer

    str=UCase(Chr(KeyAscii))

    n=Len(str)

    Text1.Text=String(n,str)

    End Sub

    程序运行后,若在文本框中输入单字母“p”,则在文本框Text1中显示的内容为( )。

    A.pp

    B.pP

    C.PP

    D.Pp


    正确答案:B
    解析:解答本题的前提是了解下列几个函数的作用:UCase函数的作用是将某字符串中的字符全部转成大写;String(n,str)函数的作用是返回n个重复字符的字符串;Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码,输入小写字母“p”后,str为大写字母“P”,n=1,String(n,str)为“P”,所以Text1中在按下键盘上的键时又添加了一个“P”。