单项选择题

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

A．A
B．B
C．C
D．D
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d=0 c=6 x=Array(2, 4, 6, 8, 10, 12) For i=1 To 6 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。
A．10
B．16
C．12
D．20
单项选择题
在窗体上画一个名称为Filel的文件列表框，并编写如下程序： Private Sub Filel_DblClick() x=Shell(Filel. FileName, 1) End Sub 以下关于该程序的叙述中，错误的是______。
A．x没有实际作用，因此可以将该语句写为：Call Shell(Filel. FileName, 1)
B．双击文件列表框中的文件，将触发该事件过程
C．要执行的文件的名字通过Filel. FileName指定
D．Filel中显示的是当前驱动器、当前目录下的文件
相关试题