问答题
在名称为Form1的窗体上添加一个名称为Iabel1，标题为“口令”的标签；添加一个名称为Text1的文本框；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。
程序运行时，在Text1中输入若干字符，单击“隐藏口令”按钮，则只显示与字符同样数量的“*”(如图2所示)；单击“显示口令”按钮，则正常显示输入的字符(如图1所示)，单击“重新输入”按钮，则清除Text1中的内容，并把光标定位到Text1中。
要求：请按要求添加所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写1条语句。存盘时必须存放在考生文件夹下，工程文件名为sja.vbp, 窗体文件名为sjt2.frm.
程序运行时，在Text1中输入若干字符，单击“隐藏口令”按钮，则只显示与字符同样数量的“*”(如图2所示)；单击“显示口令”按钮，则正常显示输入的字符(如图1所示)，单击“重新输入”按钮，则清除Text1中的内容，并把光标定位到Text1中。
要求：请按要求添加所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写1条语句。存盘时必须存放在考生文件夹下，工程文件名为sja.vbp, 窗体文件名为sjt2.frm.
【正确答案】[操作步骤]
步骤1：新建一个窗体，按照题目要求建立标控件，程序中用到的控件及属性见表34和表35。
表34
表35
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Command1_Click()
Text1.PasswordChar="" '当PasswordChar属性设置为空时,Text1文本框显示内容
End Sub
Private Sub Command2_Click()
Text1.PasswordChar="*" '当PasswordChar属性设置为*时,用*代替Text1文本框中的字符显示
End Sub
Private Sub Command3_Click()
Text1=""'清空文本框
Text1.SetFocus 'Text1获得焦点
End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：新建一个窗体，按照题目要求建立标控件，程序中用到的控件及属性见表34和表35。
表34
| 控件 | 文本框 | 命令按钮1 | 命令按钮2 | |||
| 属性 | Name | Text | Name | Caption | Name | Caption |
| 设置值 | Text1 | Command1 | 显示口令 | Command2 | 隐藏口令 | |
| 控件 | 命令按钮3 | 标签 | ||
| 属性 | Name | Caption | Name | Caption |
| 设置值 | Command3 | 重新输入 | Label1 | 口今 |
参考答案(阴影部分是需考生填入的内容)
Private Sub Command1_Click()
Text1.PasswordChar="" '当PasswordChar属性设置为空时,Text1文本框显示内容
End Sub
Private Sub Command2_Click()
Text1.PasswordChar="*" '当PasswordChar属性设置为*时,用*代替Text1文本框中的字符显示
End Sub
Private Sub Command3_Click()
Text1=""'清空文本框
Text1.SetFocus 'Text1获得焦点
End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：文本框的Name、Text和PasswordChar属性，命令按钮的Name和Caption属性，标签的Name和Caption属性以及文本框的SetFocus方法。
PasswordChar属性用来设置是否在控件中显示用户输入的字符。如果该属性设置为某一字符，那么无论Text属性值是什么，在文本框中都只显示该字符。另外，MultiLine属性必须设置为False。运用SetFocus方法使文本框获得焦点。
PasswordChar属性用来设置是否在控件中显示用户输入的字符。如果该属性设置为某一字符，那么无论Text属性值是什么，在文本框中都只显示该字符。另外，MultiLine属性必须设置为False。运用SetFocus方法使文本框获得焦点。