在窗体上绘制两个文本框，名称分别为Text1和Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，若在Text1中每输入一个字符，则显示输入的内容，同时在Text2中显示一个“*”。若在Text2中每输入一个字符，则显示—今“*”，如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise40.vbp，窗体文件名为execise40.frm。 - 搜考题

违法和不良信息举报联系客服

免费注册登录

题目

在窗体上绘制两个文本框，名称分别为Text1和Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，若在Text1中每输入一个字符，则显示输入的内容，同时在Text2中显示一个“*”。若在Text2中每输入一个字符，则显示—今“*”，如下图所示。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise40.vbp，窗体文件名为execise40.frm。

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

相似问题和答案

第1题：

在名为Form1的窗体上绘制两个文本框，其名称分别为Text1和Text2，它们的高、宽分别为400、2500和1500、2500。窗体的标题为“窗体窗口”。请通过属性窗口设置适当的属性满足以下要求：

(1)Text2可以显示多行文本，且有垂直和水平两个滚动条。

(2)运行时在Text1中输入的字符都显示为“*”。

运行后的窗体如下图所示。

注意：

文件必须存放在考生文件夹中，工程文件名为execise53.vbp，窗体文件名为 execiSe53.frm。

正确答案：

第2题：

在名为Form1的窗体上绘制两个文本框，名称分别为Text1和Text2(如下图所示)，初始情况下都没有内容。请编写适当的事件过程，使得程序在运行时，在Text1中输入的任何字符，立即显示在Text2中。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise7/vbp，窗体文件名为execise7.frm。

正确答案：

第3题：

在名为Form1的窗体上绘制两个文本框，名称分别为Text1和Text2，均无初始内容。

要求：

(1)通过属性窗口设置适当的属性，使Text1和Text2中显示的文本的字体为“黑体”。

(2)编写适当的事件过程，使得在Text1中输入每一个字符时，立即在Text2中显示 Text1中的内容，如下图所示。

注意：

要求程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为execise88.vbp，窗体文件名为execise88.frm。

正确答案：

第4题：

在名为Form1的窗体上绘制两个文本框，名称分别为Text1和Text2，它们都显示垂直滚动条和水平滚动条，都可以显示多行文本；再绘制一个命令按钮，名为Cmd1，标题为 Copy(如下图所示)。请编写适当的事件过程，使得在运行时，在Text1中输入文本后，单击Copy按钮，就把Text1中的文本全部复制到Text2中。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise56.vbp，窗体文件名为execise56.frm。

正确答案：

第5题：

在名为“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
57 解析：本题考查对“+”的理解。在VBA中，“+”既可以用作数学运算符，也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接，然后在第3个文本框中显示，所以应该是57，在连接字符串方面，“+”和“&”是相同的功能，但“&”只能用来连接字符串，而不能进行数学运算。命令按钮 Command1的Click事件是：Text3=Text1-1-Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中，窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后，单击命令按钮来触发其Click事件，完成两个字符串的连接。

第6题：

新建一个工程，在窗体中创建两个文本框，其名称分别为Text1和Text2。编写一个事件过程，实现在程序运行后，若在文本框Text1中输入一个字符串。若该字符串超过15个字符后，超出部分在文本框Text2中显示。如图12所示程序中不得使用任何变量。

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

正确答案：(1)Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件在窗体上创建两个文本框。双击文本框Text1弹出代码窗口添加如下代码： Private Sub Text1_Change() If Len(Text1.Text)＞=15 Then Text2.SetFocus End If End Sub (3)按F5键运行程序。如图12所示。 (4)执行“文件”→“保存工程”命令将工程文件命名为ylc4.vbp窗体文件命名为 ylc4．fi-m。 [*]
(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件，在窗体上创建两个文本框。双击文本框Text1，弹出代码窗口，添加如下代码： Private Sub Text1_Change() If Len(Text1.Text)＞=15 Then Text2.SetFocus End If End Sub (3)按F5键运行程序。如图12所示。 (4)执行“文件”→“保存工程”命令，将工程文件命名为ylc4.vbp，窗体文件命名为 ylc4．fi-m。 [*] 解析：(4)第4小题中利用了SetFocus来控制焦点。当Text1窗口中的字符串超过长度时，焦点转移到文本框Text2中。

第7题：

在名为“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
57 解析：本题考查对“+”的理解。在VBA中，“+”既可以用作数学运算符，也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接，然后在第3个文本框中显示，所以应该是57，在连接字符串方面，“+”和“&”是相同的功能，但“&”只能用来连接字符串，而不能进行数学运算。命令按钮 Commandl的Click事件是：Text3=Text1+Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中，窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后，单击命令按钮来触发其Click事件，完成两个字符串的连接。

第8题：

在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。现有如下事件过程 Private Sub Text1_Change（） Text 2．Text=Mid(Text1，1，5) End Sub 运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（）。

A.DataA

B.DataB

C.aData

D.aBase

正确答案：C
C。【解析]Mid函数是只在指定的文本中指定的位置取得指定个数的字符。在题干中a是在原有数据之前输入的，所以指定的字符串为aDataBase，所以最后取得的字符串为aData。

第9题：

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Commandl，然后编写如下两个事件过程；

Private Sub Command1_Click()

S＄= InputBox ("请输入1个字符串")

Text1.Text= S＄

End Sub

Private Sub Text1_Change()

Labell.Caption = UCase(Mid(Text1, Text2, 8))

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visual Basic"，则在标签中显示的内容是______。

正确答案：BASIC
BASIC

相关内容