单项选择题

窗体上有两个名称分别为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(Ase(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是（）。

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Combol的组合框，名称为Text1的文本框，以及名称为Command1的命令按钮，如图所示。运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下： Private Sub Command1_Click() If Text1.SelLength＜＞0 Then Else Combo1.AddItem Text1 End If End Sub 程序中横线处应该填写的是（）。

A．Combo1.AddItem Text1.Text
B．Combo1.AddItem Text1.SelStart
C．Combo1.AddItem Text1.SelText
D．Combo1.AddItem Text1.SelLength

单项选择题

求1!+2!+…+10!的程序如下： Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer Dim y As Long For i=1 To 10 ______ Next Print y End Sub 为实现功能要求，程序的横线处应该填入的内容是（）。

A．Call s(i)
B．Call s
C．y=y+s(i)
D．y=y+s

相关试题