如下图所示，只执行下列程序后，有Text1.Text=Text1，文本框不能出现“*****”的程序是______。A．Private Sub form_ Load() Text1. Text="*****"End SubB．Private Sub form_ Load() Text1. PasswordChar=“*”End SubC．Private Sub form_ Load() Text1. Visible="*****" End SubD．Private Sub form. Load() Tex

题目

如下图所示，只执行下列程序后，有Text1.Text=Text1，文本框不能出现“*****”的程序是______。

A．Private Sub form_ Load() Text1. Text="*****"End Sub

B．Private Sub form_ Load() Text1. PasswordChar=“*”End Sub

C．Private Sub form_ Load() Text1. Visible="*****" End Sub

D．Private Sub form. Load() Text1. Text= String(5，"*")End Sub

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text，8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是 ______。

A．BeijingChina

B．Chima

C．Beijing

D．BeijingC

正确答案：B
解析：本题考的是Mid函数，Mid函数是用来返回指定数量的字符串。其中第2个参数是指定返回字符串的起始位置，第3个参数是要返回的字符数，这个参数是可选的，如果省略，就返回从起始位置到字符串最后的所有字符。本题中第3个参数省略了，而起始位置是8．该位置的字符是C，所以最后返回的就是China。

第2题：

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load0 Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1 Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是( )。

A．BeijingChina

B．China

C．Beijing

D．BeijingC

正确答案：B

第3题：

在窗体上画一个文本框(其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"。

第4题：

在窗体上画一个文本框(其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事件中加载的控件上的。

第5题：

在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1)，外观如下图所示。编写如下程序： Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.Text

A．4

B．6

C．8

D．12

正确答案：D

第6题：

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form. Load() Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是______。

A． BeijingChina

B．China

C．Beijing

D．BeijingC

正确答案：B
解析：本题考的是Mid函数，Mid函数是用宋返回指定数量的字符串。其中第2个参数是指定返回字符串的起始位置，第3个参数是要返回的字符数，这个参数是可选的，如果省略，就返回从起始位置到字符串最后的所有字符。本题中第3个参数省略了，而起始位置是8，该位置的字符是C，所以最后返回的就是China。

第7题：

在窗体上添加一个文本框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事件中加载的窗体的。

第8题：

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：

Private Sub Form_Load（）

Show

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Text1_Change（）

Text2.Text = Mid（Text1.Text, 8）

End Sub

程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是（）。

A．BeijingChina

B．China

C．Beijing

D．BeijingC

正确答案：B

第9题：

在窗体上画一个文本框(其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事件是在窗体加载时发生，所以此时窗体还没有显示，不能用“Text1.SetFocus”语句获得焦点，故出错。如要改正，需要在此语句前加入“Me.Show”，显示窗体，则可以看到文本框已获得焦点，并执行循环语句，输出“45”。

如下图所示，只执行下列程序后，有Text1.Text=Text1，文本框不能出现“”的程序是______。A．Private Sub form_ Load() Text1. Text=""En

题目

相似问题和答案

相关内容