(1)在名称为Forml、标题为“调用系统对话框”的窗体上有一个文本框和四个命令按钮及一个通用对话框,通过CommonDialog实现对系统一些对话框的调用。请将“打开”按钮的功能补充完整,并限制打开的类型为文本文件和数据文件(*.txt和*.dat),默

admin2010-07-13  26

问题 (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 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/iyg0FFFM
0

最新回复(0)