单项选择题

在窗体上画一个文本框(Text1)，然后编写如下事件过程：
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．a
B．A
C．aaaa
D．AAAA
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click( ) Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer art=Array(12，4，8，16) Start=LBound(arr) Finish=UBound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum Finish Text1.Text=c End Sub 程序运行后，单击窗体．则在文本框中显示的内容是______。
A．40
B．10
C．12
D．16
单项选择题
把窗体的KeyPreview属性设置为True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer，ShiftAs Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer，Shift AsInteger) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出结果为______。
A．A
A
B．A
B
C．A
C
D．A
D
相关试题