单项选择题

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

A．a
B．A
C．aaaaaa
D．AAAAAA

<上一题目录下一题>

热门试题

单项选择题

以下事件过程的功能是：从已存在于磁盘上的顺序文件Num1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件Num2.txt中。则在以下横线处合适的语句是( )。 Private Sub Form_Click() Dim x As Single,y As Single Open Num1.txt For Input As #1 Open Num2.txt For Output As #2 Do While Not EOF(1) ______ Print x y=x^2 Print y Loop Close #1,#2 End Sub

A．Input #1,y Print#2,x,y
B．Input #2,x Print #1,x,y
C．Print #1,x Input#2,x,y
D．Input #1,x Print #2,x,y

单项选择题

设有如下通用过程： Public Sub Fun(a() As Integer,x As Integer) For i=1 To 4 x=x*a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(5)As Integer,n As Integer n=1 For i=1 To 4 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。

A．30
B．25
C．20
D．15

相关试题