单项选择题

在窗体上添加文本框Text1，然后编写下列程序：
Private Sub Form_Load()
Text1.Text=" "
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii+1)
KeyAscii=Asc(Ucase(Char))
End Sub
Private Sub Command1_Click()
Print Text1.Text
End Sub
程序运行后，在文本框中依次输入1、2、3、a、b、c，单击命令按钮，则窗体上显示的内容是

A．23BCD
B．ABC
C．!@#ABC
D．123abc

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 3， 1 To 3)， x x=Array(1，2，3，4，5，6，7，8，9) For i=1 To 3 For i-1 To 3 a(i，j)=x(i*j-1) Next j Next i Call sub1(i，j，a()) End Sub Private Sub sub1(m，n，t) For m=1 To 3 For n=1 To 3 Print t(m，n)； Next n Print Next m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．1 2 3
2 5 8
3 6 9
B．1 2 3
2 4 6
3 6 9
C．3 6 9
2 5 8
1 2 3
D．3 6 9
2 4 6
1 2 3

单项选择题

在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程： Private Sub Form_Load() For i=1 To 10 List1.AddItem i * 10 Next i Text1.Text= End Sub Private Sub List1_Click() Print List1.Text + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的第四行，则在窗体上输出的结果为

A．40123
B．163
C．123
D．30123

相关试题