如果结果不匹配，请 
更多“在Word中，在文本框中输入所需文本后，可以适当调整文本框的…”相关的问题
A.密码文本框输入值后显示“*”
B.密码文本框与文本框一样都可以进行最大字符数的设置
C.文本区域不能进行最大字符数设置
D.文本区域的行数设定后，输入内容将不能超过设定的行数
.jpg)
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise56.vbp，窗体文件名为execise56.frm。
若要求在文本框中输入文本时达到密码显示“*”的结果，则应该设置的属性是（）。
A.默认值
B.有效性文本
C.输入掩码
D.密码
若要求在文本框中输入文本时达到密码"*"号的显示效果，则应设置的属性是
A."默认值"属性
B."标题"属性
C."密码"属性
D."输入掩码"属性
在文本框控件设计中，若要求文本框中只能输入数字和正负号，需要设置的属性是（）。
A. InputMask
B. Pass word Char
C. Control Source
D. Maxlength
Private Sub Command1_Click()
CD1.Filter =" 文本文件 1*.txt(Word 文档 )*.doc"
CD1.Filterinder = 1
CD1.ShowOpen
If CD1.FileName＜＞""Then
Open [9] For Input As #1
Line Input #1,ch$
Close #1
Text1.Text = [10]
End If
End Sub
在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求：
①Text2可以显示多行文本，并且有垂直和水平两个滚动条;
②程序运行时在Textl中显示输入的字符为“*”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。
阅读以下说明及Visual Basic代码，将应填入(n)处的字句写在对应栏内。
[说明]
下图是一个简易文本编辑器程序的运行界面：
.jpg)
用户打开磁盘上的某个文件后，可以直接对文本进行编辑，也可以利用界面提供的按钮完成相应操作。主要操作介绍如下：
(1)打开文件：打开文件对话框，其中仅显示“*.txt”类型的文件。用户选中某一文件后，其内容将呈现于界面文本框内；
(2)查找：提示用户输入要查找的内容，将首次出现的查找内容以蓝色高亮标记；
(3)替换：若文本框中已选中某段文本，则提示用户输入要替换的内容，在文本框中完成替换。
在开发过程中，文本框名为Text1，“打开文件”、“保存文件”、“查找”、“替换”、“退出”按钮分别命名为Command1至Command5。
[Visual Basic代码]
Dim fileName As String
Dim fso As New (1), ts As Object
’打开文本文件
Private Sub Command1_Click()
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowOpen
fileName =(2) ’保存所打开的文件名
Set fso=CreateObjeet("Scripting.FileSystemObject")
Set ts=fso.OpenTextFile(fileName, ForReading)
If Not ts.AtEndOfStream Then
Text1.Text =(3)
End If
ts. Close
End Sub
’保存文本文件
Private Sub Command2_Click()
Set ts = fso.OpenTextFile(fileName, ForWriting)
(4)
ts.Close
End Sub
’查找字符串
Private Sub Command3_Cliek()
Dim search As String, position As Integer
search = InputBox("输入要查找的字符串:")
position = InStr(Text1.Text, search) ’在文本中查找字符串
If position ＞0 Then ’若找到指定的字符串
Text1.SelStart = position - 1 ’设置选定文本的起始位置
Text1.SelLength = Len(search) ’设置选定文本的长度
Else
MsgBox "没有发现要查找的字符串"
End If
End Sub
’替换选中的字符串
Private Sub Command4_Click()
Dim object As String
If (5) ＞0 Then ’若已经选中了要替换的文本
object = InputBox("输入要替换的字符串:")
Text1.SelText = object ’替换文本
Else
MsgBox "请先选中要替换的文本!"
End If
End Sub
’退出程序
Private Sub Command5_Click()
End
End Sub
