[单选题]

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

参考答案与解析:

相关试题

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

[单选题]在窗体上有一个文本框Text1,Text属性值为空,然后编写下列事件过程:Private Sub Text1 KeyPress(KeyAscii As Integer)D.im str As String,n As Integerstr=UCase(Chr(KeyAscii))n=Len(str)Text1.Text=String(n,str)E.nd Sub程序运行后,若在文本框中输入单字母“p”,则在文本框Text1中显示的内容为( )。A.ppB.pPC.PPD.Pp

  • 查看答案
  • (18)在窗体上有一个文本框Text1、Text属性值为空,然后编写下列事件过程

    [单选题](18)在窗体上有一个文本框Text1、Text属性值为空,然后编写下列事件过程: Privte 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

  • 查看答案
  • 在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:Pri

    [单选题]在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:Private Sub Form_Load()Text1.Text=""Text1.SetFocusF.or i=1 To 9Sum=Sum=iNext iText1.Text=SumE.nd Sub上述程序的运行结果是A.在文本框Text1中输出45B.在文本框Text1中输出0C. 出错D. 在文本框Text1中输出不定值

  • 查看答案
  • 在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:Pri

    [单选题]在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程: Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。A.在文本框Text1中输出55B.在文本框Text1中输出0C.出错D.在文本框Text1中输出不定值

  • 查看答案
  • 在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:Pri

    [单选题]在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程: Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。A.在文本框Text1中输出55B.在文本框Text1中输出0C.出错D.在文本框Text1中输出不定值

  • 查看答案
  • 设在窗体上有个文本框,然后编写如下的事件过程:Private Sub Text1

    [单选题]设在窗体上有个文本框,然后编写如下的事件过程:Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)C.onst Alt=4C.onst Key_F2=&H71altdown%=(Shift And Alt)>0f2down%=(KeyCode=Key_F2)If altdown% And f2down% ThenText1.Text="BBBBB"E.nd IfE.nd Sub上述程序运行后,如果按“Shift+

  • 查看答案
  • 设在窗体上有个文本框,然后编写如下的事件过程 Private Sub Text1

    [单选题]设在窗体上有个文本框,然后编写如下的事件过程Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)C.onst Alt=4C.onst Key_F2=&H71altdown%=(Shift And Alt) > 0f2down%=(KeyCode=Key_F2)If altdown% And f2down% ThenText1.Text="BBBBB"E.nd IfE.nd Sub上述程序运行后,如果按(S

  • 查看答案
  • 设在窗体上有个文本框,然后编写如下的事件过程。Private Sub Text1

    [单选题]设在窗体上有个文本框,然后编写如下的事件过程。 Private Sub Text1_KeyDown(KeyCode As Integef,Shift As Integer) Const Alt=4 ConstKey_F2=&H71 altdown%=(Shift And Alt)>0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text= "BBBBB" End If End Sub 上述程序运行后,如果按[

  • 查看答案
  • 在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程: Pr

    [单选题]在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:Private Sub Form_load()Text1.Text=″″Text1.SetFocusF.or i=1 To 9Sum=Sum+iNext iText1.Text=SumE.nd Sub上述程序的运行结果是A.在文本框Text1中输出45B.在文本框Text1中输出0C.出错D.在文本框Text1中输出不定值

  • 查看答案
  • 在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程:Pr

    [单选题]在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程: Private Sub Form_ Load() Text1.Text=“” Text1.SetFocus For i=1 To 10 Sum=Sam+ i Next i Text1.Text=Sam End Sub上述程序的运行结果是______ 。A.在文本框Text1中输出55B.在文本框Text1中输出0C.出错D.在文本框Text1中输出不定值

  • 查看答案
  • 在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程:Pri