单项选择题

在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char=Chr(KeyAscii)
KeyAscii=Asc(Ucase(char))
Print String(6，KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则在窗体上显示的内容为

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

单项选择题
阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As Integer Do While n ＜ = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为．
A．16
B．21
C．26
D．31
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer x = 1 Do Until x ＞ 8 Print x； x = x + 3.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．1 4.4 6.8
B．1 3 5
C．1 4 7
D．无数据输出
相关试题