2. 计算机
  3. 在窗体上画1名为Command1的命令按钮和1名Text1的文本框，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii_As Integer) IfChr(KeyAscii)＜＞""T

在窗体上画1名为Command1的命令按钮和1名Text1的文本框，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii_As Integer) IfChr(KeyAscii)＜＞""T

admin2016-12-13  84
问题 在窗体上画1名为Command1的命令按钮和1名Text1的文本框，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii_As Integer)
IfChr(KeyAscii)＜＞""Then
ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String,iAs Integer
For i=Len(ss)To 1 Step-1
m=m+Mid(ss,i,1)
Next
Text1.Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的是
选项 A、NUMBER 100
B、REBMUN
C、REBMUN 100
D、001 REBMUN
答案D
解析 KeyPress(KeyAscii As Integer、)事件是在对象具有焦点时，按下键盘上的键触发的，KeyPress(KeyAscii As Integer。)事件中KeyAscii参数是所按键的ASCII代码，该参数不显示键盘的物理状态，而只是传递一个字符代码。KeyPress将每个字符的大、小写形式作为小同的键代码解释，即作为两种不同的字符。Chr()可返回ASCII码对应的字符。
本题程序运行后，在文本框中每输入一个字符，将执行Text1：KeyPress事件过程，变量ss的值也随即变化，当输入“Number100”后，变量ss="Number100"。单击命令按钮后，执行Command1_Click事件过程，将字符串“Number100”中的字符逆序排列并以大写形式显示在文本框中，即“001 REBMUN”。
转载请注明原文地址:https://www.kaotiyun.com/show/mBGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)