单项选择题

在窗体上有一个文本框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
<上一题 目录 下一题>
热门 试题

单项选择题
某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序( )。Private Sub Command2_Click()HSeroll1.Min=0HScroll1.Max=List1.ListCountHScroll1.Value=0Timer1.Interval=______Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer()If List1.ListCount>0 ThenList1.RemoveItem 0HScroll1.Value=HSeroll1.Max-List1.ListCountElseTimer1.Enabled=______MsgBox 全部删除! End IfEnd Sub
A．100 False
B．0.1 True
C．100 True
D．0.1 False
单项选择题
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：Option Base 1Pdvate Sub Command1_Click()Dim c As Integer,d As Integerd=0c=6X=Array(2,4,6,8,10,12)For i=1 To 6If X(i)>c Thend=d+X(i)c=X(i)Elsed=d-cEnd IfNext iPrint dEnd Sub程序运行后，单击命令按钮，则在窗体上输山的结果是( )。
A．10
B．12
C．16
D．20
相关试题