单项选择题

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode))
Text2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是

A．A
B．a
C．C
D．c

<上一题目录下一题>

热门试题

单项选择题

窗体上有名称分别为Text1、Text2的两个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中间号()处应填入的内容是 Private Sub Text1_LostFocus() Call CheekInput(Text1,500) End Sub Private Sub Text2_LostFocus() Call CheekInput(Text2,1000) End Sub Sub Cheeklnput(t As , x As Integer) If Val(t.Text)＞x Then MsgBox 请重新输入! End If End Sub

A．Text
B．SelText
C．Control
D．Form

单项选择题

窗体上有文本框Text1和一个菜单，菜单标题、名称如表1所示，结构如图3所示。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是表1 标题名称文件 file 新建 new 保存 save

相关试题