2. 计算机
  3. 在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码： Dim SaveAll As String Private Sub Command1 Click() Text1.Text=Left(UCase(SaveAl

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码： Dim SaveAll As String Private Sub Command1 Click() Text1.Text=Left(UCase(SaveAl

admin2013-04-11  57
问题 在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1 Click()
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll＋Chr(KeyAscii)
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是【  】。
选项
答案ABCD
解析 每在Text1中输入一个字符，都将触发一次KeyPress事件，该事件的作用是将当前所输入的字符连接到字符串SaveAll的后面。故字符输入结束后，SaveAll中的内容为“abcdefg”，Ucase函数是将字符串所有的字母都转换成大写字符，执行Ucase(SaveAll)的结果为“ABCDEFG”，Left(S,4)是取字符串S的前四个字符，作为一个字符串返回。故Left(Ucase(SaveAll),4)=Left("ABCDEFG",4)="ABCD"。本空填：ABCD。
转载请注明原文地址:https://www.kaotiyun.com/show/wvhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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