首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2009-02-25
61
问题
注意:下面出现的“考生文件夹”均为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所示。
选项
答案
解题步骤: 第一步:编写程序代码。 程序提供的代码: Option Explicit Private Sub Commandl_Click() Dim i As Integer CommonDialog1.CancelError=True On Error GoTo Cancel CommonDialog1.Action=5 For i=1 To CommonDialog1.Copies PrintForm Next i Cancel: End Sub Private Sub Command2_Click() CommonDialog1.CancelError=True On Error GoTo Cancel CommonDialog1.HelpCommand=&HB CommonDialog1.HelpFile="C:\windows\help\windows.hlp" CommonDialog1.Action=6 Cancel: End Sub Private Sub Command3_Click() CommonDialog1.CancelError=True On Error GoTo Cancel CommonDialog1.Action=3 Text1.ForeColor=CommonDialog1.Color Cancel: End Sub Private Sub Command4_Click() CommonDialog1.Flags=&H3& Or &H1& Or &H2& CommonDialog1.CancelError=True On Error GoTo Cancel CommonDialog1.Action=4 Text1.FontBold=CommonDialog1.FontBold Text1.FontItalic=CommonDialog1.FontItalic Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.FontName=CommonDialog1.FontName Text1.FontSize=CommonDialog1.FontSize Cancel: End Sub Private Sub Command5_Click() End End Sub Private Sub Command6_Click() CommonDialog1.CancelError=True On Error GoTo Cancel ’CommonDialog1.Filter="(可执行文件*.exe) *.exe|?| (可执行文件*.com) *.com|?" ’CommonDialog1.FilterIndex=? ’CommonDialog1.Action=? ’Shell CommonDialog1.filename, ? Cancel: End Sub 参考代码: Option Explicit Private Sub Command1_Click() Dim i As Integer CommonDialog1.CancelError=True On Error GoTo Cancel CommonDialog1.Action=5 For i=1 To CommonDialog1.Copies PrintForm Next i Cancel: End Sub Private Sub Command2_Click() CommonDialog1.CancelError=True On Error GoTo Cancel CommonDialogl.HelpCommand=&HB CommonDialogl.HelpFile="C:\windows\help\windows.hlp" CommonDialogl.Action=6 Cancel: End Sub Private Sub Command3_Click() CommonDialog1.CancelError=True On Error GoTo Cancel CommonDialog1.Action=3 Text1.ForeColor=CommonDialog1.Color Cancel: End Sub Private Sub Command4_Click() CommonDialog1.Flags=&H3& Or &H1& Or &H2& CommonDialog1.CancelError=True On Error GoTo Cancel CommonDialog1.Action=4 Text1.FontBold=CommonDialog1.FontBold Text1.FontItalic=CommonDialog1.FontItalic Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.FontName=CommonDialog1.FontName Text1.FontSize=CommonDialog1.FontSize Cancel: End Sub Private Sub Command5_Click() End End Sub Private Sub Command6_Click() CommonDialog1.CancelError=True On Error GoTo Cancel CommonDialog1.Filter=_ "(可执行文件*.exe) *.exe|*.exe| (可执行文件*.com) *.com|*.com" CommonDialog1.FilterIndex=0 CommonDialog1.Action=1 Shell CommonDialog1.FileName,1 Cancel: End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。 (2)程序中用到了Circle方法、Line方法和InputBox函数。 Circle方法在对象上画圆、椭圆或弧。 语法:Object.Circle[Step](x,y),radius,[color,start,end,aspect] Line方法在对象上画直线和矩形。 语法:object.Line[Step](x1,1)[Step](x2,y2),[color,[B][F] InputBox函数在一个对话框中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的String。 语法:InputBox(prompt[,rifle][default][,xpos][,ypos][,helpfile,context])解题步骤: 第一步:编写程序代码。 程序提供的代码: Private Sub C1_Click() Dim a As Single Dim b As Single Dim t As Single On Error Resume Next If Op1.Value=True Then a=InputBox ("输入圆环的内径(输入值必须大于0且小于800) ", _ "输入参数",100) b=InputBox ("输入圆环的外径(输入值必须大于0且小于900) ", _ "输入参数",200) If a>b Then ’ t=? a=b b=t End If P1.Cls ’P1.FillStyle=? P1.FillColor=vbBlack ’Pi.Circle (1500,1000), ? P1.FillColor=vbButtonFace P1.Circle (1500,1000), a End If If Op2.Value=True Then a=InputBox ("输入方框的长度(输入值必须大于0且小于3000) ", _ "输入参数",100) b=InputBox("输入方框的宽度(输入值必须大大于0且小于1800) ", _ "输入参数",200) P1.Cls ’P1.Line (100, 100)-(100+a, 100+b) , , ?F End If End Sub 参考代码: Private Sub C1_Click() Dim a As Single Dim b As Single Dim t As Single On Error Resume Next If Op1.Value=True Then a=InputBox ("输入圆环的内径(输入值必须大于0且小于800) ", _ "输入参数",100) b=InputBox ("输入圆环的外径(输入值必须大于0且小于900) ", _ "输入参数",200) If a>b Then t=a a=b b=t End If P1.Cls P1.FillStyle=0 P1.FillColor=vbBlack P1.Circle (1500, 1000) , b P1.FillColor=vbButtonFace Pi.Circle (1500, 1000) , a End If If Op2.Value=True Then a=InputBox ("输入方框的长度(输入值必须大于0且小于3000) ", _ "输入参数",100) b=InputBox ("输入方框的宽度(输入值必须大于0且小于1800) ", _ "输入参数", 200) P1.Cls P1.Line (100, 100)-(100+a, 100+b) , , BF End If End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/lh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下面程序后输出的正确结果是publicclassTest{publicstoicvoidmain(Stringargs[]){bytex=3,y=4;longr=80L;Sys
在面向对象方法中,属性与操作相似的一组对象称为【】。
数据库系统的核心是()。
下列安全控制命令中,用于管理密钥库和证书的是()。
在面向对象方法中,【】描述的是具有相似属性与操作的一组对象。
字符变量以char类型表示,它在内存中占【】bit。
Java源程序是由类定义组成的,每个程序中可以定义若干个类,但是只有一个类是主类。在JavaApplication中,这个主类是指包含【】方法的类;在JavaApplet里,这个主类是一个系统类Applet的子类。
在JavaApplet程序用户自定义的Applet子类中,一般需要重载父类的()方法来完成主类实例的初始化工作。
Mid("HelloEveryone",7,3)的执行结果是
随机试题
对能量代谢影响最为显著的因素是()
患者女性,肝硬化失代偿期,大量腹水,与腹水无关的体征是
修复体的固位力与下列哪种因素无关()
该省执行最低工资立法,而使有些企业不愿意继续雇佣生产率水平低于最低工资的那些工人,于是这些工人失业了,他们不得不去寻找更低工资的工作,这是最低工资立法对收入分配不平等程度产生的一种()。该省是就业弹性较低的地区,那么该地区()。
(2004年卷一第16题)申请人于2004年8月16日向专利局提出一件实用新型专利申请,下述由同一申请人向专利局提出的相同主题在先申请,哪些可以作为其要求本国优先权的基础?
试分析古希腊音乐与古罗马音乐的异同。
下列属于非正式组织基本存在形式的是()。
甲、乙两种物质的质量m和体积V的关系图像如图所示,则下列关于两个物质的密度之间的关系,正确的是:
A、 B、 C、 D、 C
张教授指出,生物燃料是指利用生物资源生产的燃料乙醇或生物柴油,它们可以替代由石油制取的汽油和柴油,是可再生能源开发利用的重要方向。受世界石油资源短缺、环保和全球气候变化的影响,20世纪70年代以来,许多国家日益重视生物燃料的发展,并取得显著成效。所以,应该
最新回复
(
0
)