首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2009-02-25
63
问题
注意:下面出现的“考生文件夹”均为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全国计算机二级
相关试题推荐
int型public成员变量MAX_LENGTH,该值保持为常数200,则定义这个变量的语句是【】。
Object中定义的线程同步与交换的方法有几种?()
下面的程序是列出目录C:\Test中所有的.txt文件,请将程序补充完整。importjava.io.*;//引入java.io包中所有的类publicclassFileFilterTest{publicstaticv
下列关于线性表叙述中不正确的是()。
在结构化分析方法中,用于描述系统中所用到的全部数据和文件的文档称为【】。
算法的空间复杂度是指()。
深度为5的满二叉树有【】个叶子结点。
以下各特点中属于算法的基本特征的是()。
赋值表达式的组成是:在赋值运算符的左边是【】,右边是一表达式。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Text1.Text="Visual" Me.Text1="Basic"
随机试题
访问结构体数组元素a[k]的成员b,写作______。
从生物力学角度脊柱分为前、中、后三柱,正确的表述为
()不属于面积汇总的内容。
英国城乡规划协会于1993年发表了《可持续环境的规划对策》提出了环境规划的概念,以下哪一项不包括在环境规划的主要特征中()
《普通高中思想政治课程标准(实验)》前言中指出,思想政治课教学必须贯彻党的十六大精神,以邓小平理论和“三个代表”重要思想为指导,着眼于当代社会发展和高中学生成长的需要,增强思想政治教育的时代感、()和主动性。
调查表明,使得大学生学习成绩下降的一个重要因素是:很多大学生玩网络游戏。为了提高大学生的学习成绩,学校作出决定:禁止在校园网上玩网络游戏。以下哪项最能对学校的决定进行质疑?()
《伏尔加船夫曲》是_________(国家)民歌。
下列电池中能充电的是()。
记者:“作为一个政治家所必须具备的才能是什么?”首相:“政治家要有预见明天的才能。如果预测之事没有发生,也必须有巧妙说明的本领。”如果首相的话是真的,那么以下哪项不可能是真的?
设函数f(x)连续,且f′(0)>0,则存在δ>0,使得()
最新回复
(
0
)