注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图14-3所示。
本题描述如下：在名称为Form1，标题为“调用系统对话框”的窗体上有一个文本框和六个命令按钮及一个通用对话框，通过CommonDialog实现对系统一些对话框的调用。请将“打开”按钮的功能补充完整，并限制打开的类型为可执行文件(*.com和*.exe)，默认打开文件类型为.exe文件。
(2) 在考生文件夹下有工程文件jft4.vbp及窗体文件jft4.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：在窗体上有一个名为P1的图片框，有一个名为C1，标题为“输入参数”的命令按钮，有两个单选按钮，名称分别是Op1和Op2，标题分别是“画圆环”和“画方框”。要求程序运行后，选中两个单选按钮中的一个，再点击命令按钮C1，在弹出的输入对话框中输入相应的参数值，则在图片框上画出相应的图形。程序运行界面如图14-4所示。
参考答案： 文本框中显示的文本由Text属性设置；命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。通用对话框是一种ActiveX控件，通常情况下，启动Visual Basic后，在工具箱里没有通用对话框控件，用户必须手动将它添加到工具箱里才可以使用：限制打开对话框的文件类型应对Filter属性进行设置。
可以通过下列步骤将通用对话框控件添加到工具箱中：
① 执行“工程”菜单中的“部件”命令，打开“部件”对话框；
② 在对话框中选择“控件”选项卡，然后在控件列表框中选择“Microsoft Common Dialog Control F.0”；
③ 单击“确定”按钮，通用对话框即被添加到工具箱中。解题步骤：
第一步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub Commandl_Click()
Dim i As Integer
CommonDialogA.CancelError=True
On Error GoTo Cancel
CommonDialogA.Action=E
For i=A To CommonDialogA.Copies
PrintForm
Next i
Cancel:
End Sub
Private Sub CommandB_Click()
CommonDialogA.CancelError=True
On Error GoTo Cancel
CommonDialogA.HelpCommand=&HB
CommonDialogA.HelpFile="C:\windows\help\windows.hlp"
CommonDialogA.Action=F
Cancel:
End Sub
Private Sub CommandC_Click()
CommonDialogA.CancelError=True
On Error GoTo Cancel
CommonDialogA.Action=C
TextA.ForeColor=CommonDialogA.Color
Cancel:
End Sub
Private Sub CommandD_Click()
CommonDialogA.Flags=&HC& Or &HA& Or &HB&
CommonDialogA.CancelError=True
On Error GoTo Cancel
CommonDialogA.Action=D
TextA.FontBold=CommonDialogA.FontBold
TextA.FontItalic=CommonDialogA.FontItalic
TextA.FontStrikethru=CommonDialogA.FontStrikethru
TextA.FontName=CommonDialogA.FontName
TextA.FontSize=CommonDialogA.FontSize
Cancel:
End Sub
Private Sub CommandE_Click()
End
End Sub
Private Sub CommandF_Click()
CommonDialogA.CancelError=True
On Error GoTo Cancel
’CommonDialogA.Filter="(可执行文件*.exe) *.exe|| (可执行文件*.com) *.com|"
’CommonDialogA.FilterIndex=
’CommonDialogA.Action=
’Shell CommonDialogA.filename,
Cancel:
End Sub
参考代码：
Option Explicit
Private Sub CommandA_Click()
Dim i As Integer
CommonDialogA.CancelError=True
On Error GoTo Cancel
CommonDialogA.Action=E
For i=A To CommonDialogA.Copies
PrintForm
Next i
Cancel:
End Sub
Private Sub CommandB_Click()
CommonDialogA.CancelError=True
On Error GoTo Cancel
CommonDialogl.HelpCommand=&HB
CommonDialogl.HelpFile="C:\windows\help\windows.hlp"
CommonDialogl.Action=F
Cancel:
End Sub
Private Sub CommandC_Click()
CommonDialogA.CancelError=True
On Error GoTo Cancel
CommonDialogA.Action=C
TextA.ForeColor=CommonDialogA.Color
Cancel:
End Sub
Private Sub CommandD_Click()
CommonDialogA.Flags=&HC& Or &HA& Or &HB&
CommonDialogA.CancelError=True
On Error GoTo Cancel
CommonDialogA.Action=D
TextA.FontBold=CommonDialogA.FontBold
TextA.FontItalic=CommonDialogA.FontItalic
TextA.FontStrikethru=CommonDialogA.FontStrikethru
TextA.FontName=CommonDialogA.FontName
TextA.FontSize=CommonDialogA.FontSize
Cancel:
End Sub
Private Sub CommandE_Click()
End
End Sub
Private Sub CommandF_Click()
CommonDialogA.CancelError=True
On Error GoTo Cancel
CommonDialogA.Filter=_
"(可执行文件*.exe) *.exe|*.exe| (可执行文件*.com) *.com|*.com"
CommonDialogA.FilterIndex=0
CommonDialogA.Action=A
Shell CommonDialogA.FileName,A
Cancel:
End Sub
第二步：调试并运行程序。
第三步：按题目要求存盘。
(B) 程序中用到了Circle方法、Line方法和InputBox函数。
Circle方法在对象上画圆、椭圆或弧。
语法：Object.Circle[Step](x,y),radius,[color,start,end,aspect]
Line方法在对象上画直线和矩形。
语法：object.Line[Step](xA，A)[Step](xB,yB)，[color,[B][F]
InputBox函数在一个对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。
语法：InputBox(prompt[,title][default][,xpos][,ypos][,helpfile,context])解题步骤：
第一步：编写程序代码。
程序提供的代码：
Private Sub CA_Click()
Dim a As Single
Dim b As Single
Dim t As Single
On Error Resume Next
If OpA.Value=True Then
a=InputBox ("输入圆环的内径(输入值必须大于0且小于H00) ", _
"输入参数",A00)
b=InputBox ("输入圆环的外径(输入值必须大于0且小于I00) ", _
"输入参数",B00)
If a＞b Then
’ t=
a=b
b=t
End If
PA.Cls
’PA.FillStyle=
PA.FillColor=vbBlack
’Pi.Circle (AE00,A000),
PA.FillColor=vbButtonFace
PA.Circle (AE00,A000), a
End If
If OpB.Value=True Then
a=InputBox ("输入方框的长度(输入值必须大于0且小于C000) ", _
"输入参数",A00)
b=InputBox("输入方框的宽度(输入值必须大大于0且小于AH00) ", _
"输入参数",B00)
PA.Cls
’PA.Line (A00, A00)-(A00+a, A00+b) , , F
End If
End Sub
参考代码：
Private Sub CA_Click()
Dim a As Single
Dim b As Single
Dim t As Single
On Error Resume Next
If OpA.Value=True Then
a=InputBox ("输入圆环的内径(输入值必须大于0且小于H00) ", _
"输入参数",A00)
b=InputBox ("输入圆环的外径(输入值必须大于0且小于I00) ", _
"输入参数",B00)
If a＞b Then
t=a
a=b
b=t
End If
PA.Cls
PA.FillStyle=0
PA.FillColor=vbBlack
PA.Circle (AE00, A000) , b
PA.FillColor=vbButtonFace
Pi.Circle (AE00, A000) , a
End If
If OpB.Value=True Then
a=InputBox ("输入方框的长度(输入值必须大于0且小于C000) ", _
"输入参数",A00)
b=InputBox ("输入方框的宽度(输入值必须大于0且小于AH00) ", _
"输入参数", B00)
PA.Cls
PA.Line (A00, A00)-(A00+a, A00+b) , , BF
End If
End Sub
第二步：调试并运行程序。
第三步：按题目要求存盘。