计算机二级
在窗体上画—个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写 如下两个事件过程： Private sub Command1_Click( ) strText=lnputBox(“请输入”) Text1.Text=strText EndSub Private Sub Text1_Change( ) Label1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则
题目
在窗体上画—个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写 如下两个事件过程： Private sub Command1_Click( ) strText=lnputBox(“请输入”) Text1.Text=strText EndSub Private Sub Text1_Change( ) Label1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
A．空
B．abcdef
C．abe
D．def
参考答案和解析
解析：Trim表示去掉字符串两边的空白字符。Risht函数返回字符串最后面的n个字符。本题首先通过lnputBox函数输入一个字符串并赋绐strText，然后把strText赋给，Text1.Text。再经过Trim函数和Right函数的计算，得出的结果应该是abcdef的最后三个字符def。
相似问题和答案
第1题：
（6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然
后编写如下两个事件过程：
Private Sub Command1_Click( )
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change( )
Label1.Caption=UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，
则在标签中显示的内容是 【6】 。
（6）【答案】BASIC
【解析】Mid返回文本字符串中从指定位置开始的特定数目的字符，其格式为：Mid(text,start_num mum_chars).其中Test包含要提取字符的文本字符串。Start_num则表示文本是要提取的第一个字符的位置。，因此，本题是要截取“VisualBasic”从第7个字符起右侧的所有字符。UCase函数则将小写字母转换为大写字母。
第2题：
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Text1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：
Private Sub Commandl Click()
Text3=Text1+Text2
End Sub
Private Sub Form1 Load()
Text1=" "
Text2=" "
Text3=" "
End Sub
打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
57 解析：本题考查对“+”的理解。在VBA中，“+”既可以用作数学运算符，也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接，然后在第3个文本框中显示，所以应该是57，在连接字符串方面，“+”和“&”是相同的功能，但“&”只能用来连接字符串，而不能进行数学运算。命令按钮 Commandl的Click事件是：Text3=Text1+Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中，窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后，单击命令按钮来触发其Click事件，完成两个字符串的连接。
第3题：
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入一个具有大小写的字符串，则在标签中显示的内容全部为大写。请填空。
【解析】文本框内容发生变化的事件是Text1_Change，这时将此变化送到标签的标题上显示。
第4题：
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Tem1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：
Private Sub Command1 Click()
Text3=Text1+Text2
End Sub
Private Sub Forml Load()
Text1＝""
Text2=""
Text3=""
End Sub
打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
57 解析：本题考查对“+”的理解。在VBA中，“+”既可以用作数学运算符，也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接，然后在第3个文本框中显示，所以应该是57，在连接字符串方面，“+”和“&”是相同的功能，但“&”只能用来连接字符串，而不能进行数学运算。命令按钮 Command1的Click事件是：Text3=Text1-1-Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中，窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后，单击命令按钮来触发其Click事件，完成两个字符串的连接。
第5题：
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是： ______。
A．27
B．28
C．29
D．30
解析：程序中各部分值的运算过程为：
Text1.Text="28.653"
Val(Text1.Text)=28.653
Val(Text1.Text)+0.5=29.153
Int(Val(Text1.Text)+0.5)=29
x=29
str(x)="29"
第6题：
在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（）
a = InputBox（"Enter an integer"）
b = InputBox（"Enter an integer"）
Text1.Text = b + a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是（ ）。
A．108
B．18
C．810
D．出错
第7题：
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和 Commandl，然后编写如下两个事件过程： Prirate SUb Command1 Click() strText = InputBox(“请输入”) Textl.Text = strText End Sub Private Sub Text1 Change() Labell.Caption = Right(Trim(Text1.Text)， 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
A．空
B．abcdef
C．abc
D．def
解析：本题考查字符串函数。Trim表示去掉字符串两边的空白字符。Right函数返回字符串最后面的n个字符。本题首先通过InputBox函数输入一个字符串并赋给strText，然后把strText赋给Textl.Text。再经过Trim函数和Right函数的计算，得出的结果应该是abcdef的最后三个字符def，故正确答案为D。
第8题：
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。
A．27
B．28
C．29
D．30
解析：程序中各部分值的运算过程为：
Text1.Text="28.653"
Val(Text1.Text)=28.653
Val(Text1.Text)+0.5=29.153
Int(Val(Text1.Text)+0.5)=29
x=29
str(x)="29"
第9题：
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后，在文本框中输入653，单击命令按钮，标签中显示的内容是______。
A．27
B．28
C．29
D．30
解析：程序中各部分值的运算过程为：Text1.Text="28.653"Val(Text1.Text)=28.653Val(Text1.Text)+0.5=29.153Int(Val(Text1.Text)+0.5)=29x=29str(x)="29"
第10题：
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text)，4) End Sub 程序运行后，如果在对话框中输入abcdefgh，则在标签中显示的内容是 ______。
A．空
B．abcdef
C．abcd
D．efgh
解析：Trim函数返回Variant(String)类型，其中包含指定字符串的拷贝，但不包含前导和尾随空白。Right(字符串，n)：返回“字符串”的后n个字符。这里的“字符串”可以是字符串常量、字符串变量、字符串函数或字符串连接表达式。本题中输入的是abcdef,返回后4个字符就是efgh。