首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2009-02-25
38
问题
注意:下面出现的“考生文件夹”均为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全国计算机二级
相关试题推荐
McCall提出的软件质量模型包括______个软件质量特性。
程序中使用了字符串函数(如strlen),则必须包含的头文件名为______。
下列关于Java简单数据类型的说法中,不正确的是()。
信息隐蔽的概念与下述哪种概念直接相关?()
在顺序表(3,6,8,10,12,15,16,18,21,25,30)中,用二分法查找关键码值11,所需的关键码比较次数为()。
下列关于异常类型的说明中错误的是()。
软件测试分为白箱(盒)测试和黑箱(盒)测试。等价类划分法属于【】测试。
Java中线程模型由虚拟的CPU,代码与数据构成。该模型是由java.lang.【】类进行定义和描述的。
在软件开发中,需求分析阶段可以使用的工具是
使用驱动器列表框的______属性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。
随机试题
A.鞍区麻醉B.骶管阻滞C.区域阻滞D.臂丛神经阻滞属于硬膜外阻滞的是
插管难度最大的成像方式是
该企业2001年与2000年相比较( )。从销售净利率和所有者权益报酬率分析,( )。
关于板式橡胶支座抗剪弹性模量试验,请回答下列问题。在正式试验前,需对支座预加水平荷载,下列表述正确的有()。
张某为一企业高级工程师,2013年取得以下收入:(1)张某12月年终奖金64000元;(2)获得某企业支付的不竞争款项200000元;(3)当年12月被派遣到某外资企业提供业务指导,外资企业支付其工资30000元(需上交派遣单位40%.有合同证明).
下列各项中,应当征收印花税的项目有()。
下列关于国际组织的表述:不正确的是()。
解放战争中的辽沈战役,人民解放军攻克锦州,形成了对国民党军队“关门打狗”的有利态势。()
工作:学习:人生
设f(x)具有一阶连续导数,f(0)=0,du(x,y)=f(x)ydx+[sinx—f(x)]dy,则f(x)等于()
最新回复
(
0
)