在窗体上添加文本框Text1，然后编写下列程序： Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char=Chr(KeyAscii+1) KeyAscii=Asc(Ucase(Char)) End Sub Private Sub Command1_Click() Print Text1.Text End Sub 程序运行后，在文本框中依次输入1、2、3、a、b、c - 搜考题

计算机二级

题目

在窗体上添加文本框Text1，然后编写下列程序： Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char=Chr(KeyAscii+1) KeyAscii=Asc(Ucase(Char)) End Sub Private Sub Command1_Click() Print Text1.Text End Sub 程序运行后，在文本框中依次输入1、2、3、a、b、c，单击命令按钮，则窗体上显示的内容是

A．23BCD

B．ABC

C．!@#ABC

D．123abc

参考答案和解析

正确答案：A
解析：在向文本框中依次输入1、2、3、a、b、c的同时，Text1_KeyPress过程分别接收到的是KeyAscii(各字符的ASCII码)，Chr函数将加过1的ASCII码转换成字符，UCase函数将字符转换成大写字符，数字保持不变，Asc函数又将字符转换成ASCII码，最后出现选项A的字符。

如果没有搜索结果，请直接联系老师获取答案。

相似问题和答案

第1题：

在窗体上添加一个文本框Text1，然后编写如下的Load事件过程，则程序运行结果为( )。 Private sub Form_Load() Text1.Text="" Text1.SetFocus For k=1 To 5 t=t*k Next k Text1.Text=t End Sub

A．在文本框中显示120

B．文本框中仍为空

C．在文本框中显示1

D．出错

正确答案：D
解析：本题中“Text1.SetFocus”语句运行时会出现错误。因为焦点只能移到可视的窗体或控件，而在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以编译出错。如果不是在Form.Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的窗体的。

第2题：

在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1_Click( ) Text1.Text="AB" End Sub Private Sub Command2_Cliek( ) Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示

A．AB

B．CD

C．ABED

D．CDAB

正确答案：B
解析：当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的Text属性变为CD。

第3题：

在窗体中添加名称为Command1和名称为Command2的命令按钮测验文本框Text1，然后编写如下代码：

PrivateSubCommand1_Click()

Text1.Text="AB"

EndSub

PrivateSubCommand2_Click()

Text1.Text="CD"

EndSub

首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示( )

A、AB

B.CD

C.ABCD

D.CDAB

正确答案：A

第4题：

在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:

Private Sub Form_load()

Text1.Text=″″

Text1.SetFocus

For i=1 To 9

Sum=Sum+i

Next i

Text1.Text=Sum

End Sub

上述程序的运行结果是

A．在文本框Text1中输出45

B．在文本框Text1中输出0

C．出错

D．在文本框Text1中输出不定值

正确答案：C
解析：由于Form_load事件是在窗体加载时发生，所以此时窗体还没有显示，不能用"Tex1.SetFocus"语句获得焦点，故出错。如要改正，需要在此语句前加入"Me.Show"，显示窗体，则可以看到文本框已获得焦点，并执行循环语句，输出"45"。

第5题：

在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。

A．在文本框Text1中输出55

B．在文本框Text1中输出0

C．出错

D．在文本框Text1中输出不定值

正确答案：C
解析：焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form.Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的控件上的。

第6题：

在窗体上添加—个文本框，名为Text1，然后编写如下的Load事件过程，则程序的运行结果是 Private Sub Form_Load( ) Text1.Text=”” Text1.Setfocus t=1 For k=10 To 6 Step-2 t=t*k Next k Text1.Text=t End Sub

A．在文本框中显示120

B．文本框仍为空

C．在文本框中显示480

D．出错

正确答案：D
解析：在触发窗体Form的Load事件时，使用SetFocus将发生冲突，在VisualBasic上调试本题的程序将显示“错误的过程调用或函数”提示。如果删除SetFocus方法的使用，文本框中将显示480。如果用控制按钮的Click事件触发该段事件过程，文本框也会得到480的答案，对此，考生不妨自己上机一试。

第7题：

在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1 Click() Text1.Text="AB" End Sub Private Sub Command2 Click() Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示

A．AB

B．CD

C．ABCD

D．CDAB

正确答案：B
解析：本题意在考查考生对文本框Text的理解。当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的属性变为CD，故选择B，不能选C，更不能选D。

第8题：

在窗体上添加一个文本框Text1，然后编写下列Load事件过程，则程序运行结果是( )。

Private Sub Form_Load()

Text1.Text=""

Text1.SetFocus

For k=1 To 5

t=t*k

Next k

Text1.Text=t

End Sub

A．在文本框中显示120

B．文本框中仍为空

C．在文本框中显示1

D．出错

正确答案：D
解析：本题中“Text1.SetFocus”语句运行时会出现错误。因为焦点只能移到可视的窗体或控件，而在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以编译出错。如果不是在Form_Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的窗体的。

第9题：

在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码：Private sub Command1_Click() Text1.text="AB"End SubPrivate Sub Command2_Click() Text1.Text="CD"End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示。A．AB B．CD C．ABCD D．CDAB

正确答案：B
【解析】本题意在考查考生对文本框Text的理解。当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的属性变为CD，故选择B，不能选C，更不能选D。

相关内容