首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2009-02-25
30
问题
注意:下面出现的“考生文件夹”均为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://jikaoti.com/ti/3Oq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下面程序后输出的正确结果是publicclassTest{publicstoicvoidmain(Stringargs[]){bytex=3,y=4;longr=80L;Sys
下面哪个选项正确示例了传递一个参数给applet?()
编译JavaApplet源程序文件产生的字节码文件的扩展名为 【】 。
下面程序段是从对象流中读取对象,请将程序补充完整。importjava.util.*;importjava.io.*;publicclassUnSerializaDate{Dated=null;Un
数据库系统中实现各种数据管理功能的核心软件称为【】。
在结构化程序设计中,模块划分的原则是
final属性是专门定义【】变量的保留字。
在JavaApplet程序用户自定义的Applet子类中,一般需要重载父类的()方法来完成主类实例的初始化工作。
在AWT的菜单结构中,【】类是菜单树的根基。
使用驱动器列表框的______属性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。
随机试题
优质咸肉的感官特征是________。
具有激素和神经递质双重性的物质是()
在抢救甲状腺危象时应首选下列哪种药物()
患者女,50岁。因乏力、低热3个月,咳嗽,胸闷2周来诊。查体:T37.8℃,双侧锁骨上窝可扪及黄豆大小肿大淋巴结,双肺未闻及干、湿啰音。胸部CT示:双肺散在小结节影,双肺门淋巴结肿大。该患者行支气管肺泡灌洗检查,BALF中细胞数及分数可出现下列哪些变
A气血阴阳失调B气血阴阳亏虚,脏腑功能失调C气血阴阳亏虚,脏腑虚损D阴阳失调,营卫不和E脏腑功能失调内伤发热的基本病机为
项目经理部对竣工工程成本核算的目的是()。
如果甲商品和乙商品是互补商品,则甲商品价格下降将造成()。
试分析丁玲早期作品《莎菲女士的日记》中莎菲的形象。
写作要有题目,就是要有中心思想,要有内容,目的性要明确。如一篇文章或记载一件事情,或者提出、解决一个问题,或者是发表自己的主张、见解等。总之要有所为而作。无所“为”的文章,尽管文理通顺,语气连贯,但内容空洞,只能归入废话一栏,以不写为好。这段支持的主要论点
WhereisGeorgenow?
最新回复
(
0
)