![](https://static.youtibao.com/asksite/comm/h5/images/m_q_title.png)
在VB中,双击窗体中的“Text1”这个对象后,出现的是()
A.工程窗口
B.工具箱
C.代码窗口
D.属性窗口
![](https://static.youtibao.com/asksite/comm/h5/images/m_q_a.png)
C、代码窗口
![](https://static.youtibao.com/asksite/comm/h5/images/solist_ts.png)
A.工程窗口
B.工具箱
C.代码窗口
D.属性窗口
C、代码窗口
在考生文件夹中有一个工程文件execise31.vbp(相应的窗体文件为execise31.frm)。窗体Form1上有两个标签Lab1和Lab2,标题分别为“密码”和“允许次数”;一个命令按钮Cmd1:标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入密码(输入时,显示“*”),无初始内容,Text2的初始内容为3。已给出了Cmd1的事件过程,但不完整,要求去掉程序中的注释符“'”,把程序中的问号“?”改为正确内容,使得在运行时,在Text1中输入密码后,单击“确定”按钮,如果输入的是“abcdef”则在Text1中显示“密码正确”;如果输入其他内容,单击“确定”后,弹出如下图所示的错误提示对话框,并且Text2中的数字减1。最多可输入3次密码,若3次都输入错误,则禁止再次输入。
注意:
不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Private Sub Text1_LostFocus()
Call CheckInput(Text1,500)
End Sub
Private Sub Text2_LostFocus()
Call CheckInput(Text2,1000)
End Sub
Sub CheckInput(t As ?,x As Integer)
If Val(t.Text)>x Then
MsgBox"请重新输入!"
End If
End Sub
A.Text
B.SelText
C.Control
D.Form
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发()。
A.Text1的SetFocus事件
B.Text1的GotFocus事件
C.Text1的LostFocus事件
D.窗体的GotFocus事件
在名称为Form1的窗体上添加一个名称为Text1的文本框;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Show和Hide,标题分别为“显示”、“隐藏”,请编写适当的事件过程,使程序运行时,单击“隐藏”菜单项,文本框消失;单击“显示”菜单项,文本框重新出现,程序运行后的窗体如图所示。要求程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sit2.vbp,窗体文件名保存为sjr2.frm。
A.执行文件菜单中的打开命令
B.在窗体上单击鼠标右键,在弹出的快捷菜单中选择查看代码命令
C.双击窗体设计器的任何地方
D.执行视图菜单中的代码窗口命令
A.108
B.18
C.810
D.出错