首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上画一个垂直滚动条和一个命令按钮,其名称分别为VScmll1和Command1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置垂直滚动条的属性: Max=窗体高度 Min=0 LargeC
在名称为Form1的窗体上画一个垂直滚动条和一个命令按钮,其名称分别为VScmll1和Command1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置垂直滚动条的属性: Max=窗体高度 Min=0 LargeC
admin
2020-08-10
50
问题
在名称为Form1的窗体上画一个垂直滚动条和一个命令按钮,其名称分别为VScmll1和Command1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置垂直滚动条的属性:
Max=窗体高度
Min=0
LargeChange=50
SmallChange=10
如果移动垂直滚动条的滚动框,则在窗体上显示滚动框的刻度值。
程序的运行情况如图所示
要求:不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
根据题意,在命令按钮的单击事件过程中用代码动态设置垂直滚动条的属性,并且在垂直滚动条的Change事件过程中,用Print方法将垂直滚动条滑块位置的Value属性值输出到窗体上。 步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表3。 [*] 步骤2:编写程序代码。 Private Sub Command1_Click( ) VScroll1.Max=Form1.Height VScroll1.Min=0 VScroll1.LargeChange=50 VScroll1.SmallChange=10 End Sub Private Sub VSemll1_Change( ) Print VScroll1.Value End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/jlHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有两个关系R和S如下:则由关系R得到关系S的操作是
窗体上:有Commandl、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCortmaandlClick()m=InputBo
如果改变驱动器列表框的Drive属性,则将触发的事件是
设窗体上有名称为Optionl的单选按钮,且程序中有语句:IfOptionl.ValRe=TrueThen下面语句中与该语句不等价的是
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是
下列叙述中正确的是()。
窗体的MouseUp事件过程如下:PrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub关于以上定义,以下叙述中错误的是
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"TeXtl.SetFocusEndSubPriv
表达式2*3^2+4*2/2+3^2的值是
随机试题
轮胎的最大侧偏力越大,则轮胎的极限性能越差。()
秘密投票的基本方式为无记名投票,它首创于()
内源性血液凝固过程一般开始于
贫血伴骨髓细胞外铁缺少及铁粒幼细胞减少最可能的诊断是
男性患者尿道口红肿发痒及轻度刺痛,继而有稀薄黏液流出,引起排尿不适,24小时后症状加剧。排尿开始时尿道外口刺痛或灼热痛,排尿后疼痛减轻。尿道口溢脓,开始为浆液性分泌物,以后逐渐出现黄色黏稠的脓性分泌物,能自行流出。应首先考虑
以下关于《合同法》所确定的违约损害赔偿范围的说法正确的是()。
陈自成的行为违反了()。对经理处理此事的做法,评价正确的是()。
优先股票的优先条件,一般包括()。Ⅰ.优先股票分配股息的顺序和定额Ⅱ.优先股票分配公司剩余资产的顺序和定额Ⅲ.优先股票股东行使表决权的条件、顺序Ⅳ.优先股票股东转让股份的条件
Formostkindsofactivities,alargegroupofpeoplecanaccomplishmoreandhavemorefunthanonepersonalone.Forexample,
有以下语句:intb;charc[10];,则正确的输入语句是______。
最新回复
(
0
)