在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是()。

A．Private Sub Text1_Change() Label1．Caption=Text1．Text End Sub

B．Private Sub Label 1_Change() Label1．Caption=Text1．Text End Sub

C．Private Sub Text1_Click() Label1．Caption=Text1．text End Sub

D．Private Sub Label1_Click() Label1．Caption=Text1．Text End sot

持在输入文本的最右端。程序运行结果如图5所示。程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体丈件名为ylcl.frm。

显示；再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读取文本”、“大写”和“保存”，运行界面如图28-5所示。请编写适当的事件过程，使得在运行时，单击“读取文本”按钮，则从考生文件夹中读入sjin．txt文件（文件中只有字母和空格），放入Text1中；单击“大写”按钮，则把Text1中的所有小写字母转换为大写字母；单击“保存”按钮，则把Text1中的内容存入sjout．txt文件中。

注意：去掉程序中的注释符““’，把程序中的“？”改为正确的内容，考生必须把转换后的内容用“保存”按钮存入sjout．txt文件，否则无成绩。考生的工程文件以文件名sj5．vbp存盘，窗体文件以文件名sj5．frm存盘。

_____。

A．Text1.Clear

B．Text1.Locked=True

C．Text1.Visible=False

D．Text1.Enabled=True

_____。

A．Text1.Clear

B．Text1.Locked=True

C．Text1.Visible=False

D．Text1. Enabled=True

设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（）。

A. 30

B. 25

C. 20

D. 15

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写．如下事件过程： Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。

A．12

B．13

C．14

D．15

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编如下事件过程：

Private Sub Command1_Click()

Dim i As Integer, n As Integer

n=0

For i=0 To 50

i=i+3

n=n+1

If i＞10 Then Exit For

Next i

Text1.Text=Str(n)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是______。

在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dimarrayl(10,10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i,j)=i+j Nextj Nexti Text1.Text=array

A．12

B．13

C．14

D．15

在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single，Y As Single) Phnt“程序设计” End Sub Private Sub Textl_KeyDow

A．Visual Basic

B．程序设计

C．A程序设计

D．VisualBasic程序设计

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（）。

A.Private Sub Text1 Change（）

Labe11．Caption=Str(Len(Text1．Text))

End Sub

B.Private Sub Text1 Click（）

Labe11．Caption=str(Len(Text1．Text))

End Sub

C.Private Sub Text1 Change（）

Labe11．Caption=Text1．Text

End Sub

D.Private Sub Labe1 1_Change（）

Labe11．Caption=Str(Len(Text1．Text))

End Sub