单项选择题

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

A．pp
B．pP
C．PP
D．Pp

<上一题目录下一题>

热门试题

单项选择题

在窗体上有一个文本框Text1和一个标签Label1，要求运行程序时，在文本框中输入的内容立即显示在标签中(如图所示)，则空白处应填入的内容是( )。 Private Sub Text1_ ______() Label1.Caption=Text1.Text End Sub

单项选择题

在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click() Dim MaxSize,NextChar,MyChar Open d: temp female.txt For Input As#1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Steo-1 Seek#1,NextChar MyChar=Input(1,#1) Next NextChat Print EOF(1) Close #1 End Sub 程序运行后，单击命令按钮，其输出结果为( )。

A．True
B．False
C．0
D．Null

相关试题