2. 计算机
  3. 在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) 　　If Chr(KeyAsc

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) 　　If Chr(KeyAsc

admin2019-03-14  55
问题 在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
　　If Chr(KeyAscii)<>"" Then ss＝ss＋Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
　　Dim m As String，i As Integer
　　For i＝Len(ss)To 1 Step－1
　　　　m＝m＋Mid(ss，i,1)
　　Next
　　Text1.Text＝UCase(m)
End Sub
程序运行后，在文本框中输入"Number 100"，并单击命令按钮，则文本框中显示的是(　　)。
选项 A、NUMBER 100
B、REBMUN
C、REBMUN 100
D、001 REBMUN
答案D
解析 题目中程序是将ss字符串进行反向排列，并放到m中去。其中Number空格后的100被当成字符串来处理，最后结果是将"Number 100"反向排列，并通过UCase()函数将所有字母转换成大写，得到001 REBMUN。
转载请注明原文地址:https://www.kaotiyun.com/show/zdFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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