首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为cmdOpen的命令按钮,标题为“打开文件”,再画一个名称为cdlOpen的通用对话框。程序运行后,如果单击命令按钮,则弹出
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为cmdOpen的命令按钮,标题为“打开文件”,再画一个名称为cdlOpen的通用对话框。程序运行后,如果单击命令按钮,则弹出
admin
2018-12-05
32
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为cmdOpen的命令按钮,标题为“打开文件”,再画一个名称为cdlOpen的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框。请按下列要求设置属性和编写代码:
①设置适当属性,使对话框的标题为“打开文件”;设置适当属性,使对话框的“文件类型”下拉式组合框中有二行:“文本文件”、“所有文件”(如图1-236所示),默认的类型是“所有文件”。
②编写命令按钮的事件过程,使得单击按钮可以弹出打开文件对话框。要求:程序中不得使用变量,事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为vbsj1.vbp,窗体文件名为vbsj1.frm。
(2)在名称为Form1的窗体上画一个图片框(名称为Pic1)、一个垂直滚动条(名称为Vsb1)和一个命令按钮(名称为cmdSet,标题为“设置属性”),通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg,位于考生目录下),图片框的宽度与图形的宽度相同,图片框的高度任意(如图1-237所示)。编写适当的事件过程。程序运行后,如果单击命令按钮,则设置垂直滚动条的如下属性:
Min=100
Max=2400
LargeChange=200
SmallChange=20
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图1-238所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为vbsj2.vbp,窗体文件名为vbsj2.frm。
选项
答案
第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,选择【工程】→【部件】命令,打开“部件”对话框,从其列表中选中“MicroSoft Common Dialog Control6.0”项目,单击“确定”按钮。 步骤2:在窗体Form1中加入一个命令按钮和一个通用对话框,其相关属性设置如表2-116所示。 [*] 步骤3:在代码编辑窗口中,编写“打开文件”按钮的单击事件过程: 参考代码: Private Sub cmdOpen_Click() cdlOpen.ShowOpen End Sub 步骤4:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个图片框和一个水平滚动条,在属性设置窗口中设置其相关属性,属性及其值如表2-117所示。 [*] 步骤2:打开代码编辑窗口,分别编写命令按钮的Click事件过程和垂直滚动条的Change事件过程。 参考代码: Private Sub cmdSet_Click() Vsb1.Min = 100 Vsb1.Max = 2400 Vsb1.LargeChange = 200 Vsb1.SmallChange = 20 End Sub Private Sub Vsb1_Change() Pic1.Height = Vsb1.Value End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/IkFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(名称为Command1),并编写如下代码:FunctionFun1(ByValaAsInteger,bAsInteger)AsInteger DimtAsInteger t=a-b b=t+a
要计算x的平方根并放入变量y,正确的语句是( )。
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
下面不属于软件测试实施步骤的是
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
有以下通用过程:Functionfun(NAsInteger) s=0 Fork=1ToN s=s+k*(k+1) Nextk fun=sEndFunction该过程的功能是( )。
鼠标拖放控件要触发两个事件,这两个事件是( )。
下列说法中,错误的是
在For的二重循环中,内外循环的循环控制变量名
在E-R图中,用来表示实体的图形是
随机试题
在SQLSERVER中,查询STUDENT1表中CJ大于等于300的男生,则SQL语句应为()
普萘洛尔降压机制除外
下列哪一项不是金属成品冠修复乳牙窝洞的适应证
A.沉淀、浑浊B.效价降低C.过敏反应D.红色络合物E.析出晶体瑞替普酶与葡萄糖注射液配伍
根据我国《建设施工合同文本》专用条款,应由发包人承担的工作包括( )。
麦子对于()相当于()对于蛋糕
教育培养学生的过程就是德育的过程。
Onlythreestrategiesareavailableforcontrollingcancer:prevention,screeningandtreatment.Lungcancercausesmoredeaths
Lookatthenotesbelow.Someinformationismissing.Youwillhearaphonecallaboutgoodsdelivery.Foreachquestion
Whypeoplework?Undoubtedlyyouhaveperiodicallyaskedyourselfthesamequestion,perhapsfocusedonwhyyouhavetowork."S
最新回复
(
0
)