请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发（）。
A.Text1的SetFocus事件
B.Text1的GotFocus事件
C.Text1的LostFocus事件
D.窗体的GotFocus事件
答案
更多“设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发（）。A.Text1的SetFocus事件”相关的问题
第1题
设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load（）
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp（Button As Integer, _
Shift As Integer, X As Single, Y As Single）
Print "程序设计"
End Sub
Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）
Print "Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。
A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计
第2题
（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图64-3所示。程序运行后，单击“计算”命令按钮，通过在对话框输人整数12，放入整型变量a中，然后计算a!（提示：运算结果应放入Long型变量中），在文本框中显示结果，如图64-4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程PutData，考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
（2）在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图64-5所示。
窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。
第3题
在考生文件夹中有一个工程文件execise31.vbp(相应的窗体文件为execise31.frm)。窗体Form1上有两个标签Lab1和Lab2，标题分别为“密码”和“允许次数”；一个命令按钮Cmd1：标题为“确定”；两个文本框名称分别为Text1和Text2。其中Text1用来输入密码(输入时，显示“*”)，无初始内容，Text2的初始内容为3。已给出了Cmd1的事件过程，但不完整，要求去掉程序中的注释符“'”，把程序中的问号“？”改为正确内容，使得在运行时，在Text1中输入密码后，单击“确定”按钮，如果输入的是“abcdef”则在Text1中显示“密码正确”；如果输入其他内容，单击“确定”后，弹出如下图所示的错误提示对话框，并且Text2中的数字减1。最多可输入3次密码，若3次都输入错误，则禁止再次输入。
.jpg)
注意：
不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
第4题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【 】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
第5题
.jpg){kind=spacer}
代码如下，请填空。 Private Sub HScroll1_Change() Timer1．Interval=【 】 End Sub Private Sub Timer1_【 】() Text1．Text=Time End Sub
第6题
在名称为Form1
的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2．vbp，窗体文件名保存为sjr2．frm。
第7题
第8题
第9题
窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。
.jpg){kind=spacer}
Dim x(3)As Integer Private Sub Command1_Click () For i = 0 To 3 x(i)=【 】 Next i For i = 0 To UBound(x)- 1 For j = i To UBound(x) If【 】Then t = x(i) x(i)= x(j) x(j)= t End If Next j Next i For i = 0 To 3 Text1(i) .Text = Str(x(i)) Next i End Sub
第10题
第11题
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)， 然后编写如下事件过程： Private Sub Command1 Click() Text1．Text=InputBox("请输入数据1") TextText=InputBox("请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为【 】和【 】。
