(1)在名称为Forml、标题为“调用系统对话框”的窗体上有一个文本框和四个命令按钮及一个通用对话框，通过CommonDialog实现对系统一些对话框的调用。请将“打开”按钮的功能补充完整，并限制打开的类型为文本文件和数据文件(*．txt和*．dat)，默认打开文件类型为．txt文件。打开in．txt文件如图37—3所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3vbp。 (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在窗体上有一个名为Pic1的图片框，有一个名为Commandl、标题为“输入半径”或“输入边长”的命令按钮，有两个单选按钮，名称分别是Optionl和Option2、标题分别是“圆形”和“正方形”。要求程序运行后，若选中“圆形”，则按钮名称为“输入半径”，若选中“正方形”，则按钮名称为“输入边长”，再单击命令按钮“输入半径”或“输入边长”，在弹出的输入对话框中输人相应的参数值，则在图片框上画出相应的图形，如图37—4所示。
【正确答案】正确答案： (1)通用对话框是一种ActiveX控件，通常情况下，启动Visual Basic后，在工具箱里没有通用对话框控件，用户必须手动将它添加到工具箱里才可以使用。选择“工程”一“部件”命令，打开“部件”对话框，并将Microsoft Common Dialog Control6．0前的复选按钮选中，单击“确定”按钮将其添加到工具箱中，然后再像其他控件一样使用。 本题补充后的具体代码如下： Private Sub Commandl Click() Dim tmp As String Dim str As String str="" Commondialogl．DialogTitle="打开" Commondialogl．InitDir="．＼" Commondialogl．Filter="Text Files(
*：txt*
)|*．txt | Data Files(*．dat)|*．dat" Commondialogl．FileName="" Commondialogl．ShowOpen If Commondialogl．FileName<>""Then Open Commondialogl．FileName For Input As#1 While EOF(1)=False Input
#1
，tmp str=str+tmp Wend End If
Close
#1 Textl．Text=str End Sub Private Sub Command2_Click() Dim i As Integer Commondialogl．CancelError=True On Error GoTo Cancel Commondialogl．Action=5 For i=1 To Commondialogl.Copies PrintForm Next i Cancel： End Sub Private Sub Command3_Click() Commondialogl．Flags=&H3&Or&H1&Or&H2& Commondialogl．CancelError=True On Error GoTo Cancel Commondialog 1．Action=4 Textl．FontBold=Commondialogl．FontBold Text 1．FontItalic=Commondialog1．FontItalic Textl．FontStrikethru=Commondialogl．FontStrikethru Textl．FontName=Commondialogl．FontName Text 1．FontSize=Commondialogl．FontSize Cancel： End Sub Private Sub Command4_Click() Unload Me End Sub 单击
按钮运行程序，并按要求保存。 (2)本题主要考查circle方法、Line方法和InputB。x函数的使用。cirele方法在对象上画圆、椭圆或弧。其语法为：ob ject．Circle[Step](x，y)，radius,[Color,start，end，aspect].Line方法在对象上画直线和矩形。其语法为：objec.Line[Step] (x1，1)[Step](x2，y2)，[color]，[B][F]。 InputBox函数在一个对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。其语法为：InputBox(prompt[，title3[，default][，xpos][，ypos][，helpfile，conText])。 根据题意，补充后的具体代码如下： Private Sub Commandl_Click() Dim a As Integer Const rPI As Single=3．14159265358979'圆周率 If Optionl．
Value
=True Then a=
InputBox
("输入半径")'是圆形 Picl．Cls'清屏 Picl．
Circle
(940，550)，a，，0，360＼180*rPI '画圆函数：原点、半径、[颜色]、[起始角度]、[结束角度] Else a=InputBox("输入边长") '是正方形 Picl．Cls Picl．
Line
(100，100)-(100 4-a，100) '两点间画线 Picl．
Line
(100，100)-(100，1004-a) '两点间画线 Picl．
Line
(100，100+a)-(1004-a，1004-a) '两点间画线 Picl．
Line
(1004-a，100)-(1004-a，1004-a) '两点间画线 Picl．
Line
-(100+-a4-1，100+a+1) End If End Sub Private Sub Optionl_Click() '选中圆形 Commandl．
Caption
="输入半径" End Sub Private Sub Option2_Click()'选中正方形 Commandl．
Caption
="输入边长" End Sub 单击
按钮运行程序，并按要求保存。 (2)本题主要考查circle方法、Line方法和InputB。x函数的使用。cirele方法在对象上画圆、椭圆或弧。其语法为：ob ject．Circle[Step](x，y)，radius,[Color,start，end，aspect].Line方法在对象上画直线和矩形。其语法为：objec.Line[Step] (x1，1)[Step](x2，y2)，[color]，[B][F]。 InputBox函数在一个对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。其语法为：InputBox(prompt[，title3[，default][，xpos][，ypos][，helpfile，conText])。 根据题意，补充后的具体代码如下： Private Sub Commandl_Click() Dim a As Integer Const rPI As Single=3．14159265358979'圆周率 If Optionl．
Value
=True Then a=
InputBox
("输入半径")'是圆形 Picl．Cls'清屏 Picl．
Circle
(940，550)，a，，0，360＼180*rPI '画圆函数：原点、半径、[颜色]、[起始角度]、[结束角度] Else a=InputBox("输入边长") '是正方形 Picl．Cls Picl．
Line
(100，100)-(100 4-a，100) '两点间画线 Picl．
Line
(100，100)-(100，1004-a) '两点间画线 Picl．
Line
(100，100+a)-(1004-a，1004-a) '两点间画线 Picl．
Line
(1004-a，100)-(1004-a，1004-a) '两点间画线 Picl．
Line
-(100+-a4-1，100+a+1) End If End Sub Private Sub Optionl_Click() '选中圆形 Commandl．
Caption
="输入半径" End Sub Private Sub Option2_Click()'选中正方形 Commandl．
Caption
="输入边长" End Sub 单击
【答案解析】