单项选择题

把窗体的KeyPreview属性设置为True，然后编写如下事件过程
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(ch))
PrintChr(KeyAscii+2)
End Sub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是

A．A
B．B
C．C
D．D

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c= ABCD For n=1 To 4 Print ______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在 ______ 处应填入的内容为

A．Left(c，n)
B．Right(c，n)
C．Mid(c，n，1)
D．Mid(c，n，n)

单项选择题

在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是

A．bbb
B．BBB
C．BB
D．bb

相关试题