单项选择题

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

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

<上一题目录下一题>

热门试题

单项选择题

在窗本上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click( ) Timer1．______ End Sub Privale Sub Timer1_Timer( ) Text1.Text=Time End Sub 在______处应填入的内容是

A．Enabled=True
B．Enabled=False
C．Visible=True
D．Visible=False

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click( ) Dim i As Integer，s As Integer S=0 For i=1 To 5 s=s+fun(i) Next Print 3 End Sub 程序运行后，单击命令按钮，在窗体上显示的是

A．6
B．7
C．8
D．9

相关试题