[多项选择题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有号的地方填入正

[多项选择题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。
(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:windowshelpwindows.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:windowshelpwindows.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 第二步：调试并运行程序。 第三步：按题目要求存盘。

问题解析:

解析无