第1题：
窗体上有退出(cmdexit)按钮和测试按钮(cmdtest)以及一个文本框txt，当单击测试按钮时，弹出一个消息框，消息框中包括“确定”和“取消”按钮，若单击“确定”按钮则在文本框中显示“显示”，若单击“取消”按钮则在文本框中显示“取消”。单击退出按钮关闭窗体。试将程序补充完整。
Private sub cmdtest_click()
answer=msgbox("显示钮按", vbOkCancel)
If 【 】 then
txt="显示"
Else
txt="取消"
End If
End sub
Private sub cmdexit_click()
【 】
End sub
第2题：
在Form1的窗体土绘制一个命令按钮，名为Cmd1，标题为Display，按钮隐藏。编写适当的事件过程，使程序运行后，若单击窗体，则命令按钮出现；此时如果单击命令按钮，则在窗体上显示VisualBasic。程序运行情况如下图所示。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise114.vbp，窗体文件名为execise114.frm。
第3题：
设计名为“mysupply”的表单。表单的标题为“零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”和“退出”。 运行表单时，单击“查询”命令按钮后，表格控件中显示工程号“J1”所使用的零件的零件名、颜色和重量。单击“退出”按钮关闭表单。
第4题：
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如下图所示。
命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action=1 Case 1 CD1.ShowSave Case 2 CD1.Action=5 Case 3 End End Select End Sub 对上述程序，下列叙述中错误的是( )。
A．单击“打开”按钮，显示打开文件的对话框
B．单击“保存”按钮，显示保存文件的对话框
C．单击“打印”按钮，能够设置打印选项，并执行打印操作
D．单击“退出”按钮，结束程序的运行
第5题：
设计一个表单(如下图所示)，判断一个正数是不是素数。
要求：在文本框中输入一个正数，单击“确定”按钮后显示结果，单击“退出”按钮释放表单。
控件的主要属性：
Labe11. Caption＝“请输入一个正数：”
Labe12.Caption=“判断结果：”
Command1. Caption＝“确定”
Command2. Caption=“退出”
Text1.Value＝2
第6题：
为图1-19对话框中的【退出】按钮新增如下的功能：运行图1-19窗体时，该按钮上显示有“退出(C)”的字样信息，按【Alt+C】组合键或按【ESC】键，都相当于单击该按钮。
要完成以上新增功能需要将[退出]按钮(cmdExit)的Cancel属性和Caption属性分别设置什么样的值?
第7题：
请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。
2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。
第8题：
设计名为mysupply的表单(表单的控件名和文件名均为mysupply)。表单的标题为“零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”(名称为Command1)和“退出” (名称为Command2)。
运行表单时，单击“查询”命令按钮后，表格控件(名称grid1)中显示了工程号“J4”所使用的零件的零件名、颜色和重量。
单击“退出”按钮关闭表单。
图3-84
双击命令按钮Command1(查询)编写该控件的Click 事件程序代码如下：
******命令按钮Command1(查询)的Click 事件代码*****
SELECT 零件.零件名零件.颜色零件.重量；
FROM 供应零件!零件 INNER JOIN 供应零件!供应；
ON 零件.零件号=供应.零件号；
WHERE供应.工程号=”J4”；
IMTO CURSOR temp
Thiaform.Grid1.RecordSourceType=1
Thisform.Grid1.RecordSource="temp"
***************************************************
以同样的方法为“退出”命令按钮编写Click事件代码：
****命令按钮Command2(退出)的Click 事件代码****
Thisform. Release
****************************************************
保存表单完成设计。表单运行结果如图3-85所示。
图3-85
图3-84
双击命令按钮Command1(查询)，编写该控件的Click 事件，程序代码如下：
******命令按钮Command1(查询)的Click 事件代码*****
SELECT 零件.零件名，零件.颜色，零件.重量；
FROM 供应零件!零件 INNER JOIN 供应零件!供应；
ON 零件.零件号=供应.零件号；
WHERE供应.工程号=”J4”；
IMTO CURSOR temp
Thiaform.Grid1.RecordSourceType=1
Thisform.Grid1.RecordSource="temp"
***************************************************
以同样的方法为“退出”命令按钮编写Click事件代码：
****命令按钮Command2(退出)的Click 事件代码****
Thisform. Release
****************************************************
保存表单完成设计。表单运行结果如图3-85所示。
图3-85 解析：本大题考查的是表单设计，在设计控件属性中，不要将控件的标题(Caption)和名称(Name)属性弄混淆了，名称属性是该控件的一个内部名称，而标题属性是用来显示的一个标签名称。程序部分属于SQL的简单联接查询，在显示查询结果时，首先可用一个临时表保存查询结果，然后将表格控件中来显示数据的属性值设置为该临时表，用来显示查询结果。
第9题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，其输出结果为__________。
第10题：
在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是__________。