题目内容
（请给出正确答案）
Private Sub cmdTest Click （）
Answer= 【 12 】（“ 隐藏按钮？ ” ， vbOKCancel+vbQuestion, “ Msg ” ）
If Answer=vbOK Then
Me{cmdDisplay.Visible= 【 13 】
End If
End Sub
如果结果不匹配，请 联系老师 获取答案
更多“（12 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 …”相关的问题
如下图，窗体的名称为form1，窗体中有一个标签和一个命令按钮，名称分别为Lbl1和Com1。
在窗体视图显示该窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色,以下能实现该操作的语句是()。
A．Lbl1.ForeColor=255
B．Com1.ForeColor=255
C．Lbl1.BackColor=255
D．Com1.BackColor=255
窗体中有两个命令铵钮：“显示”(控件名为cmdDisplay)和“测试”(控件名为cmdTest)。当单击“测试”按钮时，执行的事件功能是：首先弹出消息框，若单击其中的“确定”按钮，则隐藏窗体上的“显示”按钮；否则直接返回到窗体中。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub cmdTest_Click()
Answer=【 】 ("隐藏按钮？",vbOKCancel+vbQuestion,"Msg")
If Answer=vbOK Then
Me!cmdDisplay.Visible=【 】
End If
End Sub
（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
（1）将窗体标题改为“学生查询”。
（2）将窗体的边框样式改为“细边框”，取消窗体中水平和垂直滚动条、记录选择器、浏览按钮（导航按钮）和分隔线；将子窗体边框样式改为“点线”，取消子窗体中的记录选择
器、浏览按钮（导航按钮）和分隔线。
（3）在窗体中有两个标签控件，名称分别为“Labell”和“Label2”，将这两个标签上的文字颜色改为白色，背景颜色改为紫蓝色t紫蓝色代码为8388608）。
（4）将窗体主体节中控件的Tab次序改为：
“Chem”_“TxtDetail”→“CmdRefer’’→“CmdList”→
“CmdClear”→“fDtail”→“简单查询”→“Framel 8”。（5）按照以下窗体功能，补充事件代码设计。在窗体中有一个组合框控件和一个文本框控件，名称分
别为“CItem”和“TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还有三个命令按钮，名称分别为“Cm-dList”、“CmdRefer”和“CmdClear‘’。在“Chem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选项目名加上“内容：”。在“TxtDetail”文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为“注意”，提示文字为“查询项目和查询内容不能为空!!!”，消息框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显示“ts-tud”表中的全部记录；单击“CmdClear”命令按钮，将“Chem”和“TxtDetail”两个控件中的值清空。
注意：不允许修改窗体对象“fStud”和子窗体对象“fDe-tail”中未涉及的控件、属性和任何VBA代码；不允许修改表对象“tStud”。代码设计只允许补充一条语句、完成设计，不允许增删和修改其他位置已存在的语句。
在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后，如果单击“读取”按钮，则读入in．txt文件中的50个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来，运行界面如图6-5所示。如果单击“保存”按钮，则把数组中的前30个数据在文本框Textl中显示出来，并存入考生文 件夹中的文件result．txt中。(考生文件夹中有标准模块mode5．bas，其中的writeData过程可以把指定个数的数组元素存人result．txt文件。)
注意：在考生乏件夹中有工程文件si5．vbp及其窗体文件sj5．frm，该程序是不完整的，请在有“？”的地方填入正确内容，然后删除“？”及代码前的所有注释符(即“b”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名为sis．frm，工程文件名为sj5．vbp，结果存入result．txt文件，否则没有成绩。 在考生文件夹中有工程文件sis．vbp及其窗体文件sis．frm，该程序是不完整的，请在有“？”的地方填入正确内容，然后删除“？”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
（31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （见图 ） ， 并有下面的程
序：
Private Sub Comand1_Click （）
For k=List1.ListCount-1 To 0 Step -1
If List1.Selected （k ） Then
List2.AddItem List1.List （k ）
List1.RemoveItem k
End If
Next k
End Sub
程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是
A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项
B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项
C ）同时产生 A ）和 B ）的结果
D ）把 List1 中最后 1 个列表项删除并插入到 List2 中
若窗体Frml中有一个命令按钮Cmdl，则窗体和命令按钮的Click事件过程名
A．Form_Click() Commandl_Click()
B．Frml_Click() Commamdl_Click()
C．Form_Click() Cmdl_Click()
D．Frml_Click() Cmdl_Click()
窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：
Private sub Commandl_Click()
For k：Listl．ListCount_l To 0 step-1
Tf Listl．Selected(k)Then
List 2．AddItern Listl．List(k)
Listl．Removehem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是
.jpg)
A．在List2中插入了“外语”、“物理”两项
B．在Listl中删除了“外语”、“物理”两项
C．同时产生A)和B)的结果
D．把Listl中最后1个列表项删除并插入到List2中
A.OpenQuery
B. OpenReport
C. OpenWindow
D. OpenForm
