违法和不良信息举报 联系客服
免费注册 登录

在窗体上有一个文本框,其名称为Text1,编写下列事件过程:Private Sub Text1_KeyPress(KeyAscii As

题目

在窗体上有一个文本框，其名称为Text1，编写下列事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim str As String

str=Chr(KeyAscii)

KeyAscii=Asc(UCase(str))

Text1.Text=Stririg(2,KeyAscii)

End Sub

程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。

A．aaa

B．AAA

C．AA

D．aa

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim str As String

Str=Chr(KeyAscii)

KeyAscii=Asc(UCase (str))

Textl.Text=String(2, KeyAscii)

End Sub

程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是

A．bbb

B．BBB

C．BB

D．bb


正确答案：C
解析：考查对转换函数Ucase$和Chr$的概念和使用方法。Ucase$(字符串)是指"字符串"中的小写字母转换为大写字母,Chr$(x)是把x的值转换为相应的ASCII字符。

第2题：

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

A．bbb

B．BBB

C．BB

D．bb


正确答案：C
解析：Ucase$(字符串)是指“字符串”中的小写字母转换为大写字母，Chr$(x)是把x的值转换为相应的ASCII字符。

第3题：

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

A．aaa

B．AAA

C．AA

D．aa


正确答案：B
解析：UCase(SB)将sb转成大写的字符串：String(n,character)返回n个重复的字符，如果character是ASCII码，则返回其对应的字符。程序运行过程为：首先输入字母“a”，并通过“str= Chr(KeyAscii)”语句将a的ASCII值转换成字符串：然后通过“KeyAscii=Asc(UCase(str))”求得大写A的ASCII值，并显示在文本框中；最后通过“Textl.Text=String(2，KeyAscii)”语句为文本框输入了两个字母“A”，所以最后在文本框中显示出3个大写字母“A”。

第4题：

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

A．aaa

B．AAA

C．AA

D．aa


正确答案：B
解析：UCase(str)将str转成大写的字符串；String(n,character)返回n个重复的字符，如果character是ASCII码，则返回其对应的字符。程序运行过程为：首先输入字母“a”，并通过“str=Chr(KeyAscii)”语句将a的ASCII值转换成字符串；然后通过“KeyAscii=Asc(UCase(str))”求得大写A的ASCII值，并显示在文本框中；最后通过“Text1.Text=String(2,KeyAscii)”语句为文本框输入了两个字母“A”，所以最后在文本框中显示出3个大写字母“A”。

第5题：

窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。

A．abcde

B．efghi

C．EFGHI

D．ABCDE


正确答案：C

第6题：

在窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch)) TextText = String(1, KeyAscii) End Sub程序运行后，使文本框拥有焦点，然后按键盘上的B键，则在文本框中显示的内容是 ______。

A．b

B．bb

C．BB

D．B


正确答案：C

第7题：

在窗体上画一个文本框(Textl)，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4，KeyAscii) End Sub 程序运行后，在文本框Text1中输入A，则程序在窗体上的输出结果为

A．a

B．A

C．aaaa

D．AAAA


正确答案：D
解析：Chr(x)是将x的值转换为相应的ASCII字符，Asc(x)是返回字符串x中第一个字符的ASCII码，Ucase(“字符串”)将“字符串”中的小写字母转换为大写字母。本程序是将在文本框中输入的字符都转换成4个大写字符输出。

第8题：

（17）在窗体上有一个文本框，其名称为Text1，编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer ) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Test=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”则在文本框Text3中显示的内容为 A.aaa B.AAA C.AA D.aa


正确答案：B
【解析】UCase(str)将str转成大写的字符串；String(n,character)返回n个重复的字符，如果character是ASCII码，则返回其对应的字符。程序运行过程为：首先输入字母“a”，并通过“str=Chr(KeyAscii)”语句将a的ASCII值转换成字符串；然后通过“KeyAscii=Asc(UCase(str))”求得大写A的ASCII值，并显示在文本框中；最后通过“Text1.Text=String(2,KeyAscii)”语句为文本框输入了两个字母“A”，所以最后在文本框中显示出3个大写字母“A”。

第9题：

在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：

PrivateSubText2_KeyPress(KeyAsciiAsInteger)

DimstrAsString,nAsInteger

str=Ucase(Chr(KeyAscii))

n=Len(str)

Text1=String(n,str)

EndSub

程序运行后，如果在TEXT2中通过键盘上输入单字母"k"，则在文本框Text1中显示的内容为( )

A.k

B.K

C.KK

D.Kk


正确答案：B

相关内容