在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，都没有初始内容，再画3个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示”、 “隐藏”、 “复制”。程序运行时，向Text1中输入的所有字符，都显示“*”。单击“显示”按钮后，在Text1中显示所有字符。再单击“隐藏”按钮后，Text1中的内容不变但显示的都是“?”。单击“复制”按钮后，把Text1中的实际内容复制到Text2中，如图25所示。注意：存盘时必须存放在考生文件夹下，工程文件名为
题目
在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，都没有初始内容，再画3个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示”、 “隐藏”、 “复制”。程序运行时，向Text1中输入的所有字符，都显示“*”。单击“显示”按钮后，在Text1中显示所有字符。再单击“隐藏”按钮后，Text1中的内容不变但显示的都是“?”。单击“复制”按钮后，把Text1中的实际内容复制到Text2中，如图25所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。
相似考题
参考答案和解析
1．操作步骤 (1)在Visual Basic集成环境中选择“文件”→“新建工程”命令，在“新建工程”对话框中选择“标准EXE”选项，单击“确定”按钮。 (2)在工具箱中选择Label控件，在窗体上创建两个Label控件。在属性窗口中设置名称分别为Label1、Label2，Caption属性为“口令1”、“口令2”。 (3)选择工具箱中的TextBox控件，在窗体上创建，在属性窗口中设置名称为Text1、 Text2，设置Text属性为空。在属性窗口设置Text1的PasswordChar属性为“*”，这样在密码输入的时候Text文本显示为“*”。 (4)选择工具箱中的命令按钮控件，在窗体上用鼠标拖动创建三个命令按钮，名称分别为Command1、Command2、Command3，在属性窗口设置Caption属性为“显示”、“隐藏”、“复制”。 2．行为编码 (1)在代码编辑器中选择Command1对象和Click事件，其行为代码如下： Private Sub Command1_Click() Text1.PasswordChar=" " End Sub (2)在代码编辑器中选择Command2对象和Click事件，其行为代码如下： Private Sub Command2_Click() Text1.PasswordChar="?" End Sub (3)在代码编辑器选择Command3对象和Click事件，其行为代码如下： Private Sub Command3_Click() Text2.Text=Text1.Text End Sub 3．存盘保存 执行“文件”→“保存工程”命令，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。 解析：(1)本题通过不同的角度考查考生对TextBox控件的PasswordChar属性的设置、Text属性的操作和使用。(2)设置Text1的PasswordChar属性为“?”，表示显示在Text1的文本框中的文本都以“?”符号代替。(3)由于Text2没有设置PasswordChar属性，因此文本在Text2中以明文的形式显示出来。
更多“ 在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，都没有初始内容，再画3个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示”、 “隐藏”、 “复制”相关问题
-
第1题：
在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(其中有20个整数)，在Text1中显示。单击“计算”，采用冒泡算法排序。单击“保存数据”，存入out.txt文件中。程序运行界面如图29所示。
正确答案：(1)Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件在窗体建立一个文本框Text1将其Text属性设为空。 (3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮名称分别为 Command1、Command2和Command3标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮弹出代码窗口在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1a Loop Close #1 End Sub (5)双击“计算”按钮弹出代码窗口在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)＞a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮弹出代码窗口在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App．Path & "\" & "out.txt" For Output As #1 Print #1 a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令将工程文件命名为ylc.vbp窗体文件命名为 ylc.frm。
(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件，在窗体建立一个文本框Text1，将其Text属性设为空。 (3)在工具箱中选择命令按钮控件，在窗体上创建三个命令按钮，名称分别为 Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1，a Loop Close #1 End Sub (5)双击“计算”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)＞a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App．Path & "\" & "out.txt" For Output As #1 Print #1, a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。 解析：(1)该题与上机模拟题十二在基本操作上类似，都考查了文件的读入操作并在文本框中输出；对顺序文件的读入和输出的操作等。(2)该题重点考查了利用冒泡算法对数组元素进行排序。 -
第2题：
（1）在名为Form1的窗体上绘制两个标签（名称分别为Label1和Label2，标题分别为“长”和“宽”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“输入”）。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。
（2）在名为Form1的窗体上绘制一个标签（名称为Label1，标题为“输入”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”）。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。
注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。
正确答案：(1)根据题意，新建“标准EXE”工程，在窗体上添加两个标签，名称分别为Label1和Label2、Caption属性分别为“长”和“宽”，两个文本框，名称分别为Text1和Text2、Text属性为空，一个命令按钮，名称为Command1，Caption属性为“输入”。设计完成后，双击Command1进入代码窗口，编写如下代码：
(2)根据题意，新建“标准EXE”工程，在窗体上添加一个标签，其名称为Label1，标题为“输入”，一个文本框，其名称为Text1、Text属性为空，一个命令按钮，其名称为Com-mand1、标题为“显示”。窗体设计完成后，双击Command1命令按钮，编写如下代码：
-
第3题：
在窗体上画三个命令按钮，其名称分别为Command1、Command2和Command3，然后编写如下事件过程： Private Sub Command1 Click() Command2.Enabled = False Command3.Visible = False End Sub程序运行后，单击命令按钮Command1，则执行的操作是______。
A．命令按钮Command2和Command3禁用
B．命令按钮Command2和Command3隐藏
C．命令按钮Command2隐藏，Command3禁用
D．命令按钮Command2禁用，Command3隐藏
正确答案：D
-
第4题：
在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
正确答案：【考点分析】本题考点有：标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“＆”和“+”运算符以及Print方法。
【解题思路】通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“＆”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Form1．Print Text1．Text＆"，现年"＆
Text2．Text＆"岁"
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 -
第5题：
在名为Form1的窗体上绘制两个标签(名称分别为Lab1和Lab2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Cmd1，标题为Display)。然后编写命令按钮的Click事件过程，使程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如下图所示。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise57.vbp，窗体文件名为execise57.frm。
正确答案：
