题目内容
（请给出正确答案）
[主观题]
文本框（Text1)中有选定的文本,执行Text1.SelText="Hello"的结果是___.
A、"Hello"将替换掉原来选定的文本
B、"Hello"将插入到原来选定的文本之前
C、Text1.SelLength为5
D、文本框中只有"Hello"
查看答案
如果结果不匹配，请 联系老师 获取答案
题目内容
（请给出正确答案）
如果结果不匹配，请 联系老师 获取答案
题目内容
（请给出正确答案）
A、"Hello"将替换掉原来选定的文本
B、"Hello"将插入到原来选定的文本之前
C、Text1.SelLength为5
D、文本框中只有"Hello"
如果结果不匹配，请 联系老师 获取答案
更多“文本框（Text1)中有选定的文本,执行Text1.SelT…”相关的问题
（17 ）设窗体中有一个文本框 Text1 ，若在程序中执行了 Text1.SetFocus ，则触发
A ） Text1 的 SetFocus 事件
B ） Text1 的 GotFocus 事件
C ） Text1 的 LostFocus 事件
D ）窗体的 GotFocus 事件
（33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：
Private sub command1_click()
For i=1 to 4
X=3
For j=1 to 3
For k=1 to 2
X=x+3
Next k
Next j
Next i
Text1.value=str(x)
End sub
打开窗体运行后，单击命令按钮，文本框 text1 输出的结果是
A ） 6
B ） 12
C ） 18
D ） 21
（32 ）在窗体中有一个文本框 text1, 编写事件代码如下：
Private sub form_click()
X=val(inputbox(“ 输入 x 的值 ” ))
Y=1
If x＜＞ then y=2
Text1.value=y
End sub
打开窗体运行后。在输入框中输入整数 12 ，文本框 text1 中输出的结果是
A ） 1
B ） 2
C ） 3
D ） 4
阅读以下说明及Visual Basic代码，将应填入(n)处的字句写在对应栏内。
[说明]
下图是一个简易文本编辑器程序的运行界面：
![阅读以下说明及Visual Basic代码，将应填入（n)处的字句写在对应栏内。[说明] 下图是一个](https://img2.soutiyun.com/shangxueba/ask/11157001-11160000/11159653/ct_crppxm_crppxprogxvb_00039(20093).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
在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click()
For I=1 To 4
X=3
For j=i To 3
For k=1 To 2
X=x+3
Next k
Next j
Next I
Text]．value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Text1输出的结果是
A．6
B．12
C．18
D．21
VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母（）。
A.这3个事件都会触发
B.只触发KeyPress事件
C.只触发KeyDown、KeyUp事件
D.不触发其中任何一个事件
.jpg)
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise56.vbp，窗体文件名为execise56.frm。
在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本哐，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图1所示)。下面能实现此功能的事件过程是（）。
A.21
B.19
C.17
D.34
A.Text1的SetFocus事件
B.Text1的GotFocus事件
C.Text1的LostFocus事件
D.窗体的GotFocus事件
